I have a script to read lines from a text file. I need to loop until it reaches the end of the file. Does anyone know how to detect the end of a text file?
Dim fso, file, ts... Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.GetFile("file.txt") Set ts = file.OpenAsTextStream(1, -2) '// for reading, tristate-default
Do strLine = ts.ReadLine ... Loop Until strLine <> eof '<-how to detect end of the file?
Sat, 29 Mar 2003 03:00:00 GMT
Billy Monro #2 / 2
TextStream: ReadLine - how to detect eof
I just learned that:
Do While f.AtEndOfStream <> True s = f.ReadLine ... Loop
Quote:
> I have a script to read lines from a text file. I need to loop until > it reaches the end of the file. Does anyone know how to detect the end > of a text file?
> Dim fso, file, ts... > Set fso = CreateObject("Scripting.FileSystemObject") > Set file = fso.GetFile("file.txt") > Set ts = file.OpenAsTextStream(1, -2) '// for reading, > tristate-default
> Do > strLine = ts.ReadLine > ... > Loop Until strLine <> eof '<-how to detect end of the file?
TextStream: ReadLine - how to detect eof