How to read complete lines in text file

[DianePDavies]

I want to read a text file line by line:

Open "C:\TestFile.TXT" For Input As #1
count = 0
Input #1, InputString
While Not EOF(1)
count = count + 1
Input #1, InputString
Wend

If there is a comma in my text line, it is read as two lines...?

How do I avoid that?

 

[Stefan Hoffmann]

hi Diane,

I want to read a text file line by line:

Open "C:\TestFile.TXT" For Input As #1
count = 0
Input #1, InputString
While Not EOF(1)
count = count + 1
Input #1, InputString
Wend

If there is a comma in my text line, it is read as two lines...?

You need to use

Line Input #1, lineString

btw, you should use FreeFile:

Dim Count As Long
Dim FileHandle As Long

LineCount = 0
FileHandle = FreeFile

Open "C:\TestFile.TXT" For Input As #FileHandle
Input #FileHandle, InputString
Do While Not EOF(#FileHandle)
LineCount = LineCount + 1
Line Input #FileHandle, InputString
Loop
Close #FileHandle


mfG
--> stefan <--