VBS テキストファイルを操作する

VBA ファイルシステムオブジェクト・TextStreamオブジェクトの主なプロパティとメソッド - ray88’s diary

■サンプルコード

Dim Fso			'ファイルシステムオブジェクト格納用
Dim St			'テキストストリームオブジェクト格納用
Dim buf			'１行分の文字列格納用
Dim dataArray		'１行分の各項目を配列にして格納
Dim targetPath		'対象テキストファイルパス

'FileSystemObjectをインスタンス化
Set Fso = WScript.CreateObject("Scripting.FileSystemObject")

'読込対象テキストファイルパス
targetPath = "C:\デスクトップ\ダミー.CSV"

set St = Fso.OpenTextFile(targetPath,1,False,-2)


  '行インデックス番号を初期化
  intIndex = 0

  'ファイルの最後まで繰り返し
  Do Until St.AtEndOfStream
         '1行分のデータを読み取り
       buf = St.ReadLine
       '1行分のデータをカンマ区切りで配列に格納
       dataArray = Split(buf, ",")
        '先頭行（項目名）以外の場合、値確認のログ出力
       If St.Line <> 0 Then
           MsgBox intIndex & "行目：" & dataArray(0) & " :" & dataArray(1) & " :" & dataArray(2)
       End If
　　　　'3行目以降は繰り返し処理を抜ける
       If St.Line > 3 Then
           Exit Do
       End If
   
    '行インデックスに1足す
      intIndex = intIndex + 1
Loop

  'ファイルを閉じる
  St.close