web-dev-qa-db-ja.com

VBスクリプトで行ごとにファイルを読み取るにはどうすればよいですか？

ファイルを1行ずつ読み取るには、次のものがあります。

_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"
_

EOF()関数は機能していないようです：

_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'
_

以前にVBにプログラミングしたことはありませんが、渡されたVBスクリプトを変更できるようにループを見つけようとしています。ファイルを1行ずつ読み取り、各行で何かをしたい。 Do Untilループを_Do Until StrData = EOF_に変更すると、動作しますが、ファイルの最後に到達するとエラーがスローされます。

_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
_

おそらく簡単な解決策があるように感じますが、私はそれを見つけることができませんでした。私はオンラインで見つけた他のいくつかのソリューションを試しましたが、上記ほど近くはありません。

loopsvbscriptreadfile
18
EGr

疑問がある場合は、 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
31
Ansgar Wiechers

私のような人が特定の行だけを読むために検索している場合、コードの例は18行目だけです：

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
2
emirjonb