- i : Integer;
- NGwordsLine : Integer;
- bufline : String;
- invisi : Boolean;
-begin
- //FRetStrings.Clear;
-{
- if not ReturnNGwordLineNum then begin
- //if ReturnNGwordLineNum then begin
- for i:=0 to ThreadStrings.Count - 1 do begin
- if FindNGwords(ThreadStrings.Strings[i]) <> Reverse then begin
- if not SetNGResAnchor then
- ThreadStrings.Strings[i] := FAbonString
- else
- ThreadStrings.Strings[i] := Format(' <> <> <>>%d<><>',[(i+1)]);
- end else begin
- bufline := ThreadStrings.Strings[i];
- if Deleterlo = true then begin
- bufline := AnsiReplaceText( bufline,'&rlo;','' );
- bufline := AnsiReplaceText( bufline,'&lro;','' );
- end;
- if Replaceul = true then begin
- bufline := AnsiReplaceText( bufline,'<ul>','<br>' );
- bufline := AnsiReplaceText( bufline,'</ul>','<br>' );
- end;
- ThreadStrings.Strings[i] := bufline;
- end;
- end;
- end else begin
-}
- for i:=0 to ThreadStrings.Count - 1 do begin
- NGwordsLine := 0;
- if FindNGwords(ThreadStrings.Strings[i], NGwordsLine ,invisi) <> Reverse then begin
- if invisi = true then begin
- ThreadStrings.Strings[i] := '';
- end else begin
- if not ReturnNGwordLineNum and not SetNGResAnchor then begin
- ThreadStrings.Strings[i] := FAbonString;
- end else if not ReturnNGwordLineNum then begin
- ThreadStrings.Strings[i] := Format(' <> <> <>>%d<><>',[(i+1)]);
- end else if not SetNGResAnchor then begin
- ThreadStrings.Strings[i] := Format(' <> <> <><B> %d \8ds\96Ú\82ÌNG\83\8f\81[\83h\82ª\8aÜ\82Ü\82ê\82Ä\82¢\82Ü\82·\81B</B><><>',[NGwordsLine]);
- end else begin
- ThreadStrings.Strings[i] := Format(' <> <> <><B> %d \8ds\96Ú\82ÌNG\83\8f\81[\83h\82ª\8aÜ\82Ü\82ê\82Ä\82¢\82Ü\82·\81B</B>>%d <><>',[NGwordsLine,(i+1)]);
- end;
- end;
-
- {
- if not SetNGResAnchor then
- ThreadStrings.Strings[i] := Format(' <> <> <><B> %d \8ds\96Ú\82ÌNG\83\8f\81[\83h\82ª\8aÜ\82Ü\82ê\82Ä\82¢\82Ü\82·\81B</B><><>',[NGwordsLine])
- else
- ThreadStrings.Strings[i] := Format(' <> <> <><B> %d \8ds\96Ú\82ÌNG\83\8f\81[\83h\82ª\8aÜ\82Ü\82ê\82Ä\82¢\82Ü\82·\81B</B>>%d <><>',[NGwordsLine,(i+1)]);
- }
- end else begin
- bufline := ThreadStrings.Strings[i];
- if Deleterlo = true then begin
- bufline := AnsiReplaceText( bufline,'&rlo;','' );
- bufline := AnsiReplaceText( bufline,'&lro;','' );
- end;
- if Replaceul = true then begin
- bufline := AnsiReplaceText( bufline,'<ul>','<br>' );
- bufline := AnsiReplaceText( bufline,'</ul>','<br>' );
- end;
- ThreadStrings.Strings[i] := bufline;
- end;
- end;
-
-// end;
-
-end;
-procedure TAbon.Execute(var ThreadStrings : TStringList; NGwords : TStringList);
-var
- i : Integer;
-begin
- SetLength(Ftokens,NGwords.Count);
- for i := 0 to NGwords.Count -1 do begin
- SetTokens(i , NGwords.Strings[i]);
- end;
- Execute(ThreadStrings);
-
-end;
-procedure TAbon.Execute(var ThreadStrings : TStringList; NGwords : TStrings);
-var
- i : Integer;
- buf : TStringList;
-begin
- buf := TStringList.Create;
- buf.AddStrings(NGwords);
- SetLength(Ftokens,buf.Count);
- for i := 0 to buf.Count -1 do begin
- SetTokens(i , buf.Strings[i]);
- end;
- Execute(ThreadStrings);
- buf.Free;
-end;
-
-
-//****************************************************************************//
-//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é
+ i : Integer;
+ NGwordsLine : Integer;
+ bufline : String;
+ invisi : Boolean;
+begin
+ for i:=0 to ThreadStrings.Count - 1 do begin
+ NGwordsLine := 0;
+ if FindNGwords(ThreadStrings.Strings[i], NGwordsLine ,invisi) <> Reverse then begin
+ if invisi = true then begin
+ ThreadStrings.Strings[i] := '';
+ end else begin
+ if not ReturnNGwordLineNum and not SetNGResAnchor then begin
+ ThreadStrings.Strings[i] := FAbonString;
+ end else if not ReturnNGwordLineNum then begin
+ ThreadStrings.Strings[i] := Format(' <> <> <>>%d<><>',[(i+1)]);
+ end else if not SetNGResAnchor then begin
+ ThreadStrings.Strings[i] := Format(' <> <> <><B> %d \8ds\96Ú\82ÌNG\83\8f\81[\83h\82ª\8aÜ\82Ü\82ê\82Ä\82¢\82Ü\82·\81B</B><><>',[NGwordsLine]);
+ end else begin
+ ThreadStrings.Strings[i] := Format(' <> <> <><B> %d \8ds\96Ú\82ÌNG\83\8f\81[\83h\82ª\8aÜ\82Ü\82ê\82Ä\82¢\82Ü\82·\81B</B>>%d <><>',[NGwordsLine,(i+1)]);
+ end;
+ end;
+ end else begin
+ bufline := ThreadStrings.Strings[i];
+ if Deleterlo = true then begin
+ bufline := CustomStringReplace(bufline,'&rlo;','');
+ bufline := CustomStringReplace(bufline,'&lro;','');
+ end;
+ if Replaceul = true then begin
+ bufline := CustomStringReplace( bufline,'<ul>','<br>' );
+ bufline := CustomStringReplace( bufline,'</ul>','<br>' );
+ end;
+ if DeleteSyria = true then
+ bufline := TreatSyria(bufline);
+ ThreadStrings.Strings[i] := bufline;
+ end;
+ end;
+end;
+procedure TAbon.Execute(var ResString : String; ResNumber : Integer);