Jak czytać wiersz po wierszu w Skrypcie VB?

Question

Mam następujący odczytać pliku linia po linii:

wscript.echo "BEGIN" 

filePath = WScript.Arguments(0) 
filePath = "C:\Temp\vblist.txt" 
Set ObjFso = CreateObject("Scripting.FileSystemObject") 
Set ObjFile = ObjFso.OpenTextFile(filePath) 
StrData = ObjFile.ReadLine 
wscript.echo "END OF FIRST PART" 

Do Until StrData = EOF(ObjFile.ReadLine) 
    wscript.echo StrData 
    StrData = ObjFile.ReadLine 
Loop 

wscript.echo "END" 

Funkcja EOF() nie wydają się działać:

C:\Users\EGr\Documents\Scripts\VB>cscript testloop.vbs ArgVal 
Microsoft (R) Windows Script Host Version 5.8 
Copyright (C) Microsoft Corporation. All rights reserved. 

BEGIN 
END OF FIRST PART 
C:\Users\EGr\Documents\Scripts\VB\testloop.vbs(11, 1) Microsoft VBScript runti 
me error: Type mismatch: 'EOF' 

Nie zaprogramowany w VB przed, ale I” Próbuję wymyślić pętle, aby zmodyfikować skrypt VB, który mi przekazano. Chcę czytać plik wiersz po linii i zrobić coś z każdą linią. Jeśli zmienię pętlę Do Until do Do Until StrData = EOF, to działa, ale zgłasza błąd, gdy dojdzie do końca pliku:

C:\Users\EGr\Documents\Scripts\VB>cscript testloop.vbs ThisRANDOMValue 
Microsoft (R) Windows Script Host Version 5.8 
Copyright (C) Microsoft Corporation. All rights reserved. 

BEGIN 
1 
END OF FIRST PART 
host1 
host2 
host3 
C:\Users\EGr\Documents\Scripts\VB\testloop.vbs(13, 2) Microsoft VBScript runti 
me error: Input past end of file 

czuję się jak tam jest chyba proste rozwiązanie, ale nie byli w stanie znaleźć to. Wypróbowałem kilka innych rozwiązań, które znalazłem w Internecie, ale nie są tak bliskie jak powyższe.

Answer 1

W razie wątpliwości przeczytaj documentation:

filename = "C:\Temp\vblist.txt" 

Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.OpenTextFile(filename) 

Do Until f.AtEndOfStream 
    WScript.Echo f.ReadLine 
Loop 

f.Close 

Answer 2

Jeśli ktoś tak jak ja szuka czytać tylko konkretną linię, przykład tylko linia 18 oto kod:

filename = "C:\log.log" 

Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.OpenTextFile(filename) 

For i = 1 to 17 
    f.ReadLine 
Next 

strLine = f.ReadLine 
Wscript.Echo strLine 

f.Close