テキストファイルの結合

質問

以下のようなテキストファイル結合を実現したいと思っています。

【ファイル１】
あいうえお
かきくけこ
さしすせそ

【ファイル２】
１２３
４５６
７８９

↓↓↓↓↓↓↓↓↓↓↓
【結合後】
あいうえお１２３
かきくけこ４５６
さしすせそ７８９

このように行単位でファイル１とファイル２の文字列を結合していきたい
のですが、VBAでこれを実現できますか？
VBAでなく、他の言語でも良いのですが、VBAが手っ取り早い感じがしたので…。

ご教授いただけますよう宜しくお願いします。

回答No.1

shinkun0114 · ベストアンサー

定義部分は省略しますが、以下のような感じでできますよ。

open filename1 for input as #1
open filename2 for input as #2
open filename3 for output as #3

do until eof(1) and eof(2)
　　a=""
　　b=""
　　if not eof(1) then line input #1,a
　　if not eof(2) then line input #2,b
　　print #3,a;b
loop

close

変数はすべて文字型として、filename1～2には読み込みファイル名、
filename3には書き出すファイル名を指定してください。

お礼

ご回答ありがとうございます。

非常にシンプルなソースで分かりやすく、やりたいことも実現できました！
最終的に３ファイルを結合したのですが、上記のソースをちょっといじっただけで
簡単に出来、非常に助かりました。

本当にありがとうございます。

回答No.3

imogasi

VBAででもVB6.０でも同じようにできます。VB２００５などでも。
全くファイル１と２がレコードの順序の対応が崩れてないなら、
ファイル１をオープン
ファイル２をオープン
アウトプットファイルをオープン（テキスト）
ーー
ファイル１のレコードの終わりまで（EOF)繰り返し
ファイル１を１レコード読む
ファイル２を１レコード読む
両者の文字列を前後に結合
アウトプットファイルを１レコード書き込む
ファイルの終わりまで繰り返し
ーー
終わると
ファイル１をクローズ
ファイル２をクローズ
アウトプットファイルをクローズ）
ーー
レコード終端コード（VbCrLf)はインプットレコード変数には入りませんので気にする必要なし。
しかし
カンマ区切りなどなら、両レコードの文字列を結合するとき、区切りを挟む必要gあります。
ーー
ファイル入出力は
昔ながらのBasic系のLine　Input、printや
VBScript系のReadLine,WriteLineなどがあります
最近はStreamReader クラスを使用のようです。

参考URL：

　　

お礼

ご回答ありがとうございます。

簡単で分かりやすいご説明ありがとうございます。
今回はANo.1の方のソースで実現できたので、imogasi様のご回答は今後の
参考とさせていただきます。

ありがとうございました。

回答No.2

tom11

こんにちは、

手っ取り早い方法

テキストファイルが、65536行以下なら、

テキストファイルを、エクセルで、開いて、
コピーペーストで、AカラムとBカラムに、ならべて
cカラムに、A&Bで、結合、

結合した文字だけの、テキストファイルを作りたければ、
結合したCカラムを新しいブックに、コピーペーストして、

ブック保存で、テキストファイルで、出力すると
言うのはどうですしょうか。

お礼

ご回答ありがとうございます。

テキストファイルは150万件ほどのデータなので、上記の方法が使えなかったのです。
データが少なければ上記の方法は簡単で良いですね。

ありがとうございました。