VBScript: ファイルの読み込み（1行ずつ）ReadLine

VBScriptでファイルを1行ずつ読み込む場合は、 TextStreamオブジェクトのReadLine メソッドを使用します。

ReadLine メソッドの書式は次の通りです。

TSオブジェクト.ReadLine

戻り値は読み込んだ1行分の文字列で、 改行は含まれません。

ファイル全体を一度に読み込みたい場合は ReadAll メソッドを使用します。
（関連記事：ファイルの読み込み（全行）ReadAll）

次のサンプルコードではテキストファイル「a.txt」を一行ずつ読み込み、 読み込んだ結果を表示します。

' ファイルパス
strFile = "d:\test\vbs\a.txt"

'ファイルシステムオブジェクト作成
Set objFS = CreateObject("Scripting.FileSystemObject")

' ファイルオープン
Set objText = objFS.OpenTextFile(strFIle)

strAll = ""

' AtEndOfLine が True になるまでループ
Do While objText.AtEndOfLine <> True
	
	' 1行読み込む
	strAll = strAll & objText.ReadLine & vbCrLf
	
Loop

' ファイルクローズ
objText.Close

' 表示
WScript.Echo strAll

TextStreamオブジェクトのAtEndOfStream プロパティで ファイルの末尾かどうかがわかります。 末尾の場合はTrue、違う場合はFalseです。

ですから、AtEndOfStream プロパティがTrueになるまで 1行読み込みを繰り返します。

ReadLineメソッドには改行は含まれないため、 自分で加えてあげる必要があります。

VBScript入門