コンソールアプリケーション(SJISからUTF-8へファイル変換) ～Delphiソースコード集

• ホーム
• Delphiでお手軽プログラミング
• コンソールアプリケーション(SJISからUTF-8へファイル変換) ～Delphiソースコード集

コンソールアプリケーション(SJISからUTF-8へファイル変換) ～Delphiソースコード集

文字コードShift-JISファイルからUTF-8ファイルに変換生成するコンソールアプリケーションを作成する。
作成したプリケーションは、コマンドプロンプトから使用できます。

Delphiを起動して新規作成を行う

ソースコードを記述する

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Classes;
var
  stl:TStringList;
begin
  //コンソールアプリケーション
  try
    { TODO -oUser -cConsole メイン : ここにコードを記述してください }

    if ParamCount=2 then //パラメータが2つの場合
    begin
      if not FileExists(ParamStr(1)) then
      begin
        writeln('指定されたSJIS変換元ファイルが存在しません');
        //DOSのエラーレベルを出力する場合
        //コマンドプロンプトから「echo %eorrorlevel%」で 1 が表示される
        halt(1);
      end
      else
      begin
        //uses にSystem.Classesが必要
        stl:=TStringList.Create;
        try
          try
            stl.LoadFromFile(ParamStr(1),TEncoding.ANSI);
            try
              //BOM無しに設定する場合
              stl.WriteBOM:=False;
              //改行を\r\nにする場合
              stl.LineBreak:=#13#10;
              stl.SaveToFile(ParamStr(2),TEncoding.UTF8);
            except
              Writeln('変換先UTF-8ファイルに上書きできない、又はファイル名が有効でありません');
              //DOSのエラーレベルを出力する場合
              //コマンドプロンプトから「echo %eorrorlevel%」で 2 が表示される
              Halt(2);
            end;
          except
            Writeln('指定されたShift-JIS変換元ファイルを開くことが出来ません');
            //DOSのエラーレベルを出力する場合
            //コマンドプロンプトから「echo %eorrorlevel%」で 3 が表示される
            Halt(3);
          end;
        finally
          stl.Free;
        end;
      end;
    end
    else
    begin
      //実行時パラメータが２つでない時、使い方を表示します
      Writeln('概要：');
      Writeln('  Shift-JISファイルからUTF-8ファイルを変換生成します');
      Writeln('  既に変換先ファイルが存在している場合は上書きします');
      Writeln('使い方');
      Writeln('  Project1 変換元Shift-JISファイル名 変換先UTF-8ファイル名');
    end;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

保存する

コンパイルする

実行してみる

cd /D c:\test

echo 日本語ファイルを作成します > a.txt

sjis2utf8.exe a.txt b.txt

type b.txt