EOF Question

[rockyfive]

Hi,
here's my code
Open (txtpath.Text) For Input As #1
Open "a:\temp.txt" For Output As #2
sSearch = txtSstr.Text
isearch = Len(sSearch)
sreplace = txtRstr.Text
ireplace = Len(sreplace)

Line Input #1, sInput
Do
iPos = InStr(1, sInput, sSearch)
If (iPos <> 0) Then
iCount = iCount + 1
sInput = Right(sInput, Len(sInput) - iPos)

Else
Line Input #1, sInput

End If

Loop While (Not EOF(1))

lblIcount.Caption = "The total of strings found and replaced = " & CInt(iCount)

Close #1
Close #2

it seems that the loop exits before reading the last line, I've tried moving the EOF to the do but it does the same thing, and help would be apprecated.

[MartinLiss]

Try

While Not EOF(1)
'yada, yada, yada
Wend

[rockyfive]

Martin,
tried that but works the same, Thanks Anyway

[kedaman]

if not eof(1) Line Input #1, sInput

at the first line input statemnt

Try this:

Do While Not EOF(1)
'
Loop

That's the same as MartinLiss's except it's a Do Loop.

[kedaman]

HAha why don't you just suggest Do Until EOF(1) insteaD?
I thought you guys were smarter than that, but actually i think the problem is something else, namely the file isn't in ascii text, but binary data which causes input to read the eof long before the real end of file.

<-was tired when he posted.

Sorry, you know what it's like kedaman, when your tired .

Originally posted by kedaman
HAha why don't you just suggest Do Until EOF(1) insteaD?
I thought you guys were smarter than that, but actually i think the problem is something else, namely the file isn't in ascii text, but binary data which causes input to read the eof long before the real end of file.

Kedaman-> They both do the same thing.

[kedaman]

Yeah i know exactly what it's like when i'm tired
Do while not not not not not not not not not not not not not not not not not not not not not not not not not not not not not not not not not not Eof(1)