WSH/ファイルを行単位で読み込む方法・ReadLineメソッド
の編集
Top
/
WSH
/
ファイルを行単位で読み込む方法・ReadLineメソッド
[
トップ
] [
編集
|
差分
|
バックアップ
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
#navi(../) * ファイルを行単位で読み込む方法・ReadLineメソッド [#kc8849c0] VBScriptでファイルを行単位で読み込むには、TextStreamオブジェクトのReadLineメソッドにより実現することができます。~ 以下にVBScriptのサンプルコードと実行結果について記します。 #contents #htmlinsertpcsp(win-top.html,win-sp.html) * 関連記事 [#tbddcae9] -[[ファイルを新規に作成しテキストを書き込むサンプルコード>WSH/ファイルを新規に作成しテキストを書き込むサンプルコード]] -[[既存ファイルをにテキストを追加書き込みするサンプルコード>WSH/既存ファイルをにテキストを追加書き込みするサンプルコード]] -[[ファイルの存在チェックを行う・FileExists>WSH/ファイルの存在チェックを行う・FileExists]] -[[フォルダの存在チェックを行う・FolderExists>WSH/フォルダの存在チェックを行う・FolderExists]] -[[フォルダーのコピー・CopyFolder>WSH/フォルダーのコピー・CopyFolder]] -[[ファイルまたはフォルダーを別の場所にコピーする・Copy>WSH/ファイルまたはフォルダーを別の場所にコピーする・Copy]] * ReadLineメソッドを使用したサンプルコードと実行結果 [#j63b1503] 以下にTextStreamオブジェクトのReadLineメソッドを利用したVBScriptサンプルコードと実行結果を記します。 ** サンプルコード [#w563d75d] #ref(readline.vbs) 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メソッドで読み込むためのテキストファイルを作成しています。~ 15行目から23行目までは、作成したテキストファイルをTextStreamオブジェクトのReadLineメソッドを利用して読み込み、''行番号を先頭に付加''しています。~ 21行目では行数を表示しています。 ** サンプルコードの実行結果 [#k5f3f3b0] サンプルコードの実行結果を以下に記します。~ 行番号が付加されているのが確認でき、最後に行数が表示されています。~ typeコマンドを利用し作成したテキストファイルの内容を表示しています。 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 #htmlinsertpcsp(win-btm.html,win-sp.html)
タイムスタンプを変更しない
#navi(../) * ファイルを行単位で読み込む方法・ReadLineメソッド [#kc8849c0] VBScriptでファイルを行単位で読み込むには、TextStreamオブジェクトのReadLineメソッドにより実現することができます。~ 以下にVBScriptのサンプルコードと実行結果について記します。 #contents #htmlinsertpcsp(win-top.html,win-sp.html) * 関連記事 [#tbddcae9] -[[ファイルを新規に作成しテキストを書き込むサンプルコード>WSH/ファイルを新規に作成しテキストを書き込むサンプルコード]] -[[既存ファイルをにテキストを追加書き込みするサンプルコード>WSH/既存ファイルをにテキストを追加書き込みするサンプルコード]] -[[ファイルの存在チェックを行う・FileExists>WSH/ファイルの存在チェックを行う・FileExists]] -[[フォルダの存在チェックを行う・FolderExists>WSH/フォルダの存在チェックを行う・FolderExists]] -[[フォルダーのコピー・CopyFolder>WSH/フォルダーのコピー・CopyFolder]] -[[ファイルまたはフォルダーを別の場所にコピーする・Copy>WSH/ファイルまたはフォルダーを別の場所にコピーする・Copy]] * ReadLineメソッドを使用したサンプルコードと実行結果 [#j63b1503] 以下にTextStreamオブジェクトのReadLineメソッドを利用したVBScriptサンプルコードと実行結果を記します。 ** サンプルコード [#w563d75d] #ref(readline.vbs) 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メソッドで読み込むためのテキストファイルを作成しています。~ 15行目から23行目までは、作成したテキストファイルをTextStreamオブジェクトのReadLineメソッドを利用して読み込み、''行番号を先頭に付加''しています。~ 21行目では行数を表示しています。 ** サンプルコードの実行結果 [#k5f3f3b0] サンプルコードの実行結果を以下に記します。~ 行番号が付加されているのが確認でき、最後に行数が表示されています。~ typeコマンドを利用し作成したテキストファイルの内容を表示しています。 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 #htmlinsertpcsp(win-btm.html,win-sp.html)
テキスト整形のルールを表示する
添付ファイル:
readline.vbs
692件
[
詳細
]