ファイルを1行ずつ読み込んで処理する
|
|
任意のファイルを1行ずつ読み込んで処理するサンプル 例として、「C:\test.txt」の内容を1行ずつ読み込む |
Option Explicit
Dim objFSO, objFile, arrLines
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\test.txt")
Do Until objFile.AtEndOfStream
arrLines = objFile.ReadLine
WScript.Echo arrLines
Loop
|