質問: こんにちわ Excelのマクロ(VBA)をかいています。 法則性のあるたくさんある行数のテキストファイルを読み込んで、必要な部分を抽出しCSVに出力するものをかきたいです。 テキストファイルには ああああああああ 1111 22222 うううう 013156 258258 00000 終わり ええええええええ 0000 25982 おおおお 013156 258258 01111 終わり うううううううう 8888 29678 けけけけ 013156 258258 03333 終わり ... 中身の文字は変わりますが、ある程度似たような 4行1セットテキストファイルがあります。 これを4行ごと必要な部分を抽出してCSVに1行に出力します。 1行ずつ読み込んで4行ごとループさせて取得できる方法はないでしょうか。 Line Inputをつかって、 ``` Line Input #1,buf Line Input #1,buf2 Line Input #1,buf3 Line Input #1,buf4 ``` このように変数をかえてループさせればいいのでしょうか。 アドバイス、 よろしくお願いいたします。
回答: > > このように変数をかえてループさせればいいのでしょうか。 > > > それでよいと思います。 前回の私の回答に合わせるのであれば、a(0)~a(3)に入れればよいです。 (変数名は適当なので、ちゃんとしたのにしてください) 流れ的には、こんな感じにすればいいと思います。 ``` ファイルオープン EOFまでループ 1行目読み込み 2行目読み込み 3行目読み込み 4行目読み込み 情報取得(前回質問の処理) 情報出力 ループ終わり ファイルクローズ ``` もしくは読み込みのところはループにしてもいいですね。 ``` For i = 0 To 3 a(i) = 1行読み込み Next ``` いずれにしても必ず4行1セットである必要があるので、行数が可変である可能性も考慮するなら別途対応が必要です。