same-character reads?

[Burgs]

Greetings,

I'm using the following code to attempt to read a file that contains two values followed by a "%" sign. I wish to read each value preceding the "%" sign, and then write the values to another file. The problem is that it seems that the second value is overwriting the first when the file is written with the values...I cannot figure how to work-around this?

While 1

$percent = FileReadLine($interest2)

If @error = -1 Then ExitLoop

;compare line to search for "%"...

$key = StringInStr($percent, " %")

if $key > 0 Then

$GOLD = StringRight($percent, 7)

EndIf

;compare line to search for "second %"...

$key2 = StringInStr($percent, " %")

if $key2 > 0 Then

$GOLD2 = StringRight($percent, 7)

EndIf

Wend

[enaiman]

There is a faster way than reading one line at a time.

Read the whole file in one string, then use StringSplit for "%".

$fil = FileOpen("c:\test.txt", 0)
$str = FileRead($fil)   ;read the file
FileClose($fil)

$res = FileOpen("c:\result.txt", 2)

$result = StringSplit($str, "%")
For $i=2 To UBound($result)-1
    FileWriteLine($res, StringLeft($result[$i], 7))
Next

FileClose($res)

[Burgs]

Thank you for your post, that information was very useful...