その他 Tips
Sponsored Link

ファイルを1行ずつ読み込んで処理する
2013/01/15
  任意のファイルを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

関連コンテンツ
 
Tweet