TextStreamオブジェクトのSkipLineメソッドについてです。
SkipLineメソッド
概要
ファイルの行を1行分スキップさせます。
※スキップとは、改行文字を含めた1行を読み取って破棄します。
構文
TextStreamObject.SkipLine
VBAサンプル
1行スキップさせて奇数行だけ読み取る
まずFileSystemObjectをセットし、FileSystemObjectのOpenTextFileメソッドで指定したファイルを開きTextStreamオブジェクトをセットして、TextStreamオブジェクトのSkipLineメソッドで1行分スキップさせてReadLineメソッドで1行分文字を読み込むという工程を反復させると奇数行だけ読み取れます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Sub test() '変数 Dim fso As Object, ts As Object 'FileSystemObjectをセット Set fso = CreateObject("Scripting.FileSystemObject") 'TextStreamオブジェクトをセット Set ts = fso.OpenTextFile("D:\sample\test.txt", ForReading) 'TextStreamオブジェクトのAtEndOfStreamプロパティでファイルの末尾か判断 Do Until ts.AtEndOfStream 'TextStreamオブジェクトのSkipLineメソッドで奇数行だけ読み込む Debug.Print ts.SkipLine & ts.ReadLine Loop 'ファイルを閉じる ts.Close End Sub |
【結果】
奇数行のみ読み取れます。
