gikonavigoeson/gikonavi/ReplaceDataModule.pas

unit ReplaceDataModule;

interface

uses
  SysUtils, Classes;

type
  TReplaceDM = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private 絎ｈ? }
    //! 臀?????鴻??
    FReplaceList: TList;
  public
    { Public 絎ｈ? }
    procedure LoadFromFile(const filePath: String);
    function Replace(const source: String): String;
  end;
  TReplace = class(TObject)
  private
    FTarget: String;
    FReplace: String;
  public
    constructor Create(const line: String);
    property Target: String read FTarget write FTarget;
    property Replace: String read FReplace write FReplace;
  end;

var
  ReplaceDM: TReplaceDM;

implementation

uses
    MojuUtils, Dialogs, StrUtils;


{$R *.dfm}

//! ???鴻?宴?若????絖?緇???????
function UnEscape(const source: String): String;
begin
    // 荐?????＜?ゃ?????????障?丈?吾???┃絎????＜?ゃ??????????ゃ??????????
    // ?蚊?????????荐?????絖??????鴻?宴?若???с??????????????
    // \. \( \) \{ \} \/ \" \\
    Result := MojuUtils.CustomStringReplace(source, '\.', '.');
    Result := MojuUtils.CustomStringReplace(Result, '\(', '(');
    Result := MojuUtils.CustomStringReplace(Result, '\)', ')');
    Result := MojuUtils.CustomStringReplace(Result, '\{', '{');
    Result := MojuUtils.CustomStringReplace(Result, '\}', '}');
    Result := MojuUtils.CustomStringReplace(Result, '\"', '"');
    Result := MojuUtils.CustomStringReplace(Result, '\/', '/');
    Result := MojuUtils.CustomStringReplace(Result, '\\', '\');
end;

//! ?潟?潟?鴻????????/span>
procedure TReplaceDM.DataModuleCreate(Sender: TObject);
begin
    // 臀???莟≧??絖???篆??????鴻????????
    FReplaceList := TList.Create;
end;
//! ???鴻????????/span>
procedure TReplaceDM.DataModuleDestroy(Sender: TObject);
var
    i: Integer;
begin
    if (FReplaceList <> nil) then begin
        // ???鴻????賢荳???ree???若?喝?冴??
        for i := FReplaceList.Count - 1 downto 0 do begin
            TObject(FReplaceList.Items[i]).Free;
        end;
        // ???鴻???????ゃ????
        FReplaceList.Clear;
        FReplaceList.Capacity := 0;
        FreeAndNil(FReplaceList);
    end;
end;
//! ???＜?ゃ????粋昭?水????
procedure TReplaceDM.LoadFromFile(const filePath: String);
var
    fileStrings: TStringList;
    i: Integer;
    rep: TReplace;
    ignored: Boolean;
begin
    // ???＜?ゃ??????????с????/span>
    if (FileExists(filePath)) then begin
        ignored := False;
        fileStrings := TStringList.Create;
        fileStrings.LoadFromFile(filePath);
        try
            // ???鴻????????障???
            for i := 0 to fileStrings.Count - 1 do begin
                rep := TReplace.Create(fileStrings[i]);
                // <> ?????障?????????????с????/span>
                if (AnsiPos('<>', rep.Target) > 0) or
                    (AnsiPos('<>', rep.Replace) > 0) then begin
                    ignored := True;
                end else begin
                    FReplaceList.Add(rep);
                end;
            end;
        finally
            fileStrings.Free;
        end;
        if (ignored) then begin
            ShowMessage('<>????????絖?????/??舟?????????????с???障??????'#13#10'荐?????＜?ゃ????腆肴??????????????');
        end;
    end;
end;

//! 臀??????
function TReplaceDM.Replace(const source: String): String;
var
    i: Integer;
    rep: TReplace;
begin
    Result := source;
    // nil?с???????????＜????綽泣??????
    if (FReplaceList <> nil) then begin
        for i := FReplaceList.Count - 1 downto 0 do begin
            rep := TReplace(FReplaceList.Items[i]);
            Result := MojuUtils.CustomStringReplace(Result, rep.Target, rep.Replace);
        end;
    end;
end;
//! ?潟?潟?鴻????????/span>
constructor TReplace.Create(const line: String);
begin
    Replace := '';
    // 1茵????帥???у?阪????
    if (AnsiPos(#9, line) > 0) then begin
        Target  := Copy(line, 0, AnsiPos(#9, line) - 1);
        Replace := Copy(line, AnsiPos(#9, line) + 1, Length(line));
    end else begin
        Target := line;
    end;
    // Target?????鴻?宴?若??????????絖????祉??
    Target := UnEscape(Target);
    // replace??''??????????????絖??違???鴻???若?鴻??┃絎?
    if (Replace = '') then begin
        Replace := StrUtils.DupeString(' ', Length(Target));
    end;
end;

end.