unicode対応のテキストファイル (ID:37654)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは。 > ファイルを２つ作ってDOSコマンドで結合できるかと思ったんですがダメでした。 ご希望に添っているかは分かりませんが、 TFileStreamを使って2つのUnicodeファイルを結合するコードを作ってみました。 例： プログラムの実行フォルダにtext_a.txt、text_b.txtというUnicode（UTF-16LE）テキストファイルがあり、 text_a.txt -> text_b.txtの順に結合してtext_c.txtとして出力する。 var FP: String; RFS,WFS: TFileStream; begin FP := ExtractFilePath(ParamStr(0)); if (FileExists(FP+'text_a.txt')) and (FileExists(FP+'text_b.txt')) then begin WFS := TFileStream.Create(FP+'text_c.txt',fmCreate); try {1つめのファイル} RFS := TFileStream.Create(FP+'text_a.txt',fmOpenRead); try WFS.CopyFrom(RFS,0);//全てコピーする finally RFS.Free; end; {2つめのファイル} RFS := TFileStream.Create(FP+'text_b.txt',fmOpenRead); try RFS.Position := 2;//BOMをスルーする WFS.CopyFrom(RFS,RFS.Size - 2); finally RFS.Free; end; finally WFS.Free; end; end; end; TFileStreamを使う場合は2つめのファイルをコピーする際にBOMをスルーしなければならないのがポイントです。