テキストファイルを自動で結合する方法を探しています。

コマンドプロンプトで

1.type A > DstFile

2.type Z >> DstFile

でDstFileにA+Zをしたテキストファイルが作成されますので、それをBATファイル等でA,B,Cについても同じようにするのではダメですか？

こういうソフトがあります

これは使えるか謎

これはいけそうです

Ａ・Ｂ・ＣやＺがどういう形でどういうファイル名かによりますが、基本的には A.BAT と言うファイルをメモ帳で作成し、中身を

copy A+B+C+Z N

として、この A.BAT を実行すれば、結合した N と言うファイルが出来ます。

Ａ・Ｂ・Ｃが規則的な名前とかなら、上記の前後を for 等でループを書くと手間はかかりません。

これはどうでしょうか？

「もともとは大量の固定長データファイルをひとつにまとめるために作成したもの」

と、あるので大量のデータを結合するのにはいいかなと思いました。

-----------

特定のフォルダにある複数のテキストファイルを、ひとつにまとめてくれます。

テキストファイルの拡張子はなんでも構いませんし、ソフト上で指定できます。

拡張子の指定による簡易絞込みも可能です。

ただし、まとめる順番(どのファイルが何行目に)は指定できません。

まとまったファイルを開いてソートしてください(笑)

なお、もともとは大量の固定長データファイルをひとつにまとめるために作成したものです。

ファイル名がばらばらで規則がないのであれば、↑こういうソフトでファイル名の一覧を作成して、先ほどの copy A+B+C+Z N の形に一行ずつ整形して、A.BAT ファイルに必要な行数を並べて行きます。ここはエディタ等のマクロを使えばある程度の手間は省けると思います。

最後に A.BAT を実行すれば一気に結合できます。

MSDOSでバッチファイルをつくればいいと思います。

distというフォルダを作って、

joint.batというファイル名で、以下の１行。

copy %1.txt+z.txt dist￥%1.txt

joint *

で実行できます。

ロングファイルネームに対応してないですね。

使い物にならなければポイントは不要です。

VBScriptでマクロ書けるなら、

Set fold = CreateObject(”Scripting.FileSystemObject”)

Set fs = fold.GetFolder(folder_name)

Set fc = fs.Files

For Each f In fc

(コピーするマクロを書く)

Next

て感じでフォルダ内にある任意のファイルを呼び出せると思いますよ

試しにコードを書いてみました。

’ AppendFile.vbs

’ 使い方：

’ 1. DIR_SRC にコピー元のファイルがあるフォルダ名を指定します。

’ 2. DIR_DST にコピー先のフォルダ名を指定します。

’ 3. FILE_ADD に追加するテキストファイルを記述します。

’ 4. AppendFile.vbs をダブルクリックします。

’ DIR_DST の場所に連結されたファイルが作成されます。

’

Const DIR_SRC = ”D:￥home￥edu￥VBScript￥AppendFile￥src” ’ コピー元のフォルダ名

Const DIR_DST = ”D:￥home￥edu￥VBScript￥AppendFile￥dst” ’ コピー先のフォルダ名

Const FILE_ADD = ”D:￥home￥edu￥VBScript￥AppendFile￥add.txt” ’ 追加するテキストファイル

AppendFile

Sub AppendFile

Dim fso

Set fso = CreateObject(”Scripting.FileSystemObject”)

Dim folder

Set folder = fso.GetFolder( DIR_SRC )

Dim strFileName ’ コピー元のファイル名が入ります

Dim txtFile1

Dim txtFile2

Dim txtFile3

Dim strMargeText ’ 文字列連結用変数

For Each strFileName In folder.Files

Set txtFile1 = fso.OpenTextFile( strFileName, 1, False )

Set txtFile2 = fso.OpenTextFile( FILE_ADD, 1, False )

strMargeText = txtFile1.ReadAll & txtFile2.ReadAll

Set txtFile3 = fso.CreateTextFile( DIR_DST & ”￥” & fso.GetFileName(strFileName) , True)

txtFile3.WriteLine( strMargeText )

Next

End Sub