ファイルを行単位で読み込む方法・ReadLineメソッド †VBScriptでファイルを行単位で読み込むには、TextStreamオブジェクトのReadLineメソッドにより実現することができます。 関連記事 †
ReadLineメソッドを使用したサンプルコードと実行結果 †以下にTextStreamオブジェクトのReadLineメソッドを利用したVBScriptサンプルコードと実行結果を記します。 サンプルコード †1: Set fso = CreateObject("Scripting.FileSystemObject") 2: Const ForReading = 1, ForWriting = 2, ForAppending = 8 3: 4: ' Create sample text file. (readline.txt) 5: Set tso = fso.OpenTextFile("readline.txt", ForWriting, true) 6: tso.WriteLine("TOKYO") 7: tso.WriteLine("CHIBA") 8: tso.WriteLine("KANAGAWA") 9: tso.WriteLine("TOCHIGI") 10: tso.WriteLine("SHIZUOKA") 11: tso.Close 12: Set tso = Nothing 13: 14: ' Read text file. 15: Set tso = fso.OpenTextFile("readline.txt", ForReading) 16: i=0 17: While tso.AtEndOfStream <> true 18: i = i + 1 19: WScript.Echo i & " : " & tso.ReadLine 20: Wend 21: WScript.Echo "TOTAL LINE = " & i 22: tso.Close 23: Set tso = Nothing 24: 25: Set fso = Nothing 上記のサンプルコードは、4行目から12行目までは、TextStreamオブジェクトのReadLineメソッドで読み込むためのテキストファイルを作成しています。 サンプルコードの実行結果 †サンプルコードの実行結果を以下に記します。 C:\wsh>cscript /nologo readline.vbs 1 : TOKYO 2 : CHIBA 3 : KANAGAWA 4 : TOCHIGI 5 : SHIZUOKA TOTAL LINE = 5 C:\wsh>type readline.txt TOKYO CHIBA KANAGAWA TOCHIGI SHIZUOKA |