-//DAT\82ð\92¼\82É\82¢\82¶\82é\93z\82ç===========================================================
-//NG\83\8f\81[\83h\82ð\8aÜ\82Þ\83\8c\83X\82Ì\90æ\93ª\82É\82 \82Ú\81[\82ñ\82ð\91}\93ü
-function TAbon.ExecuteFile(datfilepath : String; NGwordpath : String) : Boolean; //DAT\83t\83@\83C\83\8b\82ð\92¼\82É\82¢\82¶\82é
-var
- datstl : TStringList;
- ret : Boolean;
- i : Integer;
-begin
- datstl := TStringList.Create;
- ret := true;
- try
- try
- datstl.LoadFromFile(datfilepath);
- for i := 0 to datstl.Count -1 do begin
- if FindNGwords(datstl.Strings[i]) = true then begin
- datstl.Strings[i] := FAbonString + datstl.Strings[i]
- end;
- end;
-
- datstl.SaveToFile(datfilepath);
- except
- ret := false;
- end;
- finally
- datstl.Free;
- end;
- Result := ret;
-
-end;
-//\8ew\92è\82³\82ê\82½\83\8c\83X\94Ô\82Ì\90æ\93ª\82É\82 \82Ú\81[\82ñ\91}\93ü
-function TAbon.ExecuteFile(datfilepath : String; resnum : Integer) : Boolean; //DAT\83t\83@\83C\83\8b\82ð\92¼\82É\82¢\82¶\82é
-var
- datstl : TStringList;
- ret : Boolean;
-begin
- ret := true;
- datstl := TStringList.Create;
- try
- try
- datstl.LoadFromFile(datfilepath);
- if (resnum > 0) and (resnum <= datstl.Count) then begin
- if AnsiPos(FAbonString, datstl.Strings[resnum-1]) <> 1 then begin
- datstl.Strings[resnum-1] := FAbonString + datstl.Strings[resnum-1];
- end;
- end;
- datstl.SaveToFile(datfilepath);
- except
- ret := false;
- end;
- finally
- datstl.Free;
- end;
- Result := ret;
-end;
-//firstres\82©\82çcount\8cÂ\82Ì\83\8c\83X\82Ì\90æ\93ª\82É\82 \82Ú\81[\82ñ\91}\93ü
-function TAbon.ExecuteFile(datfilepath : String; firstres : Integer; count : Integer) : Boolean; //DAT\83t\83@\83C\83\8b\82ð\92¼\82É\82¢\82¶\82é
-var
- datstl : TStringList;
- i : Integer;
- endnum : Integer; //\8fI\82í\82è\82Ì\83\8c\83X\94Ô
- ret : Boolean;
-begin
- ret := true;
- datstl := TStringList.Create;
- try
- try
- datstl.LoadFromFile(datfilepath);
- if (firstres > 0) and (firstres <= datstl.Count) then begin
- if firstres + count -1 > datstl.Count then begin
- endnum := datstl.Count;
- end else if count <= 0 then begin
- endnum := firstres + 1;
- end else begin
- endnum := firstres + count -1;
- end;
-
- for i := firstres to endnum do begin
- if AnsiPos(FAbonString, datstl.Strings[i-1]) <> 1 then begin
- datstl.Strings[i-1] := FAbonString + datstl.Strings[i-1];
- end;
- end;
- end;
- datstl.SaveToFile(datfilepath);
- except
- ret := false;
- end;
- finally
- datstl.Free;
- end;
- Result := ret;
-end;
-//DAT\82ð\92¼\82É\82¢\82¶\82é\93z\82ç==========\82±\82±\82Ü\82Å=========================================
-
-//\8c³\82É\96ß\82·\93z\82ç==================================================================
-function TAbon.ReverseExecuteFile(datfilepath : String) : Boolean; //DAT\83t\83@\83C\83\8b\82ð\92¼\82É\82¢\82¶\82é
-var
- datstl : TStringList;
- i : Integer;
- buf : String;
- ret : Boolean;
-begin
- ret := true;
- datstl := TStringList.Create;
- try
- try
- datstl.LoadFromFile(datfilepath);
- for i:=0 to datstl.Count -1 do begin
- if AnsiPos(FAbonString, datstl.Strings[i]) = 1 then begin
- buf := datstl.Strings[i];
- Delete(buf,1,Length(FAbonString));
- datstl.Strings[i] := buf;
- end;
- end;
- datstl.SaveToFile(datfilepath);
- except
- ret := false;
- end;
- finally
- datstl.Free;
- end;
- Result := ret;
-
-end;
-function TAbon.ReverseExecuteFile(datfilepath : String; resnum : Integer) : Boolean; //DAT\83t\83@\83C\83\8b\82ð\92¼\82É\82¢\82¶\82é
-var
- datstl : TStringList;
- buf : String;
- ret : Boolean;
-begin
- ret := true;
- datstl := TStringList.Create;
- try
- try
- datstl.LoadFromFile(datfilepath);
- if (resnum > 0) and (resnum <= datstl.Count) then begin
- if AnsiPos(FAbonString, datstl.Strings[resnum-1]) = 1 then begin
- buf := datstl.Strings[resnum-1];
- Delete(buf,1,Length(FAbonString));
- datstl.Strings[resnum-1] := buf;
- end;
- end;
- datstl.SaveToFile(datfilepath);
- except
- ret := false;
- end;
- finally
- datstl.Free;
- end;
- Result := ret;
-
-end;
-function TAbon.ReverseExecuteFile(datfilepath : String; firstres : Integer; count : Integer) : Boolean;//DAT\83t\83@\83C\83\8b\82ð\92¼\82É\82¢\82¶\82é
-var
- datstl : TStringList;
- i : Integer;
- endnum : Integer; //\8fI\82í\82è\82Ì\83\8c\83X\94Ô
- buf : String;
- ret : Boolean;
-begin
- ret := true;
- datstl := TStringList.Create;
- try
- try
- datstl.LoadFromFile(datfilepath);
- if (firstres > 0) and (firstres <= datstl.Count) then begin
- if firstres + count -1 > datstl.Count then begin
- endnum := datstl.Count;
- end else if count <= 0 then begin
- endnum := firstres + 1;
- end else begin
- endnum := firstres + count -1;
- end;
- for i := firstres to endnum do begin
- if AnsiPos(FAbonString, datstl.Strings[i-1]) = 1 then begin
- buf := datstl.Strings[i-1];
- Delete(buf,1,Length(FAbonString));
- datstl.Strings[i-1] := buf;
- end;
- end;
- end;
- datstl.SaveToFile(datfilepath);
- except
- ret := false;
- end;
- finally
- datstl.Free;
- end;
- Result := ret;
-end;
-//\8c³\82É\96ß\82·\93z\82ç=================\82±\82±\82Ü\82Å=========================================