X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=AbonUnit.pas;h=7ed49585b7655987e7486bd5fa77d7adb8b3552f;hb=refs%2Fheads%2FBb58;hp=1a00c942640beed3cb1ec565462d7f633653f5ee;hpb=9e98a46e630cb0ceb1cde2f9ae91a4c0d011d14c;p=gikonavigoeson%2Fgikonavi.git

diff --git a/AbonUnit.pas b/AbonUnit.pas
index 1a00c94..7ed4958 100644
--- a/AbonUnit.pas
+++ b/AbonUnit.pas
@@ -1,3 +1,8 @@
+{
+NO_ABON							 Ú[ñÏÝÌXà\¦·é(­²³êé)
+SPAM_FILTER_ENABLED	XptB^ð@\³¹é
+}
+
 unit AbonUnit;
 
 interface
@@ -5,536 +10,934 @@ uses
     Windows,Messages, ShellAPI, SysUtils, Classes,StdCtrls,StrUtils;
 
 type
+	TIndiviAbon = class( TObject )
+	private
+		FRes: Integer;
+		FOption: Integer; // 0:§¾ 1:Êí Ú[ñ
+	public
+		property Res 		: Integer read FRes			write FRes;
+		property Option : Integer	read FOption	write FOption;
+	end;
+
+	TIndiviAbonList = class( TList )
+	private
+		FFilePath	: string;		//!< t@CpX
+		FLearned	: Integer;	//!< XpwKÏÝX No
+
+		function GetItem( index : Integer ) : TIndiviAbon;
+		procedure SetItem( index : Integer; value : TIndiviAbon );
+
+	public
+		destructor Destroy; override;
+
+		property Items[ index : Integer ] : TIndiviAbon
+			read GetItem write SetItem; default;
+		procedure Sort; overload;
+		procedure LoadFromFile( const filePath : string );
+		procedure Save;
+	end;
+
   TAbon = class(TObject)
   private
-    { Private é¾ }
-    Froot : String;
-    FNGwordpath : String;
-    Ftokens : array of array of string;
-    FAbonString : String;
-    FRetStrings : TStringList;
-    FCutoffNum : Integer; //±ÌÈãA±·é¯¶pðNG[hÆ·é
-    FDeleterlo : Boolean; //&rlo;ðíé©
-    FReplaceul :Boolean ; //<ul>^Oð<br>^OÉu··é©
-    FReverse : Boolean ;  //NG[hÅÌ Ú`ñÌÊð½]³¹é©
-    FAbonPopupRes : Boolean; //X|bvAbvÌÉ Ú[ñ·é©
-    FCreateNGwordFile : Boolean; //wè³ê½pathÉNG[htxtª³©Á½Æ«É©®IÉ¶¬·é©
-    procedure SetTokens(index: integer ; argline:String);
-
+	{ Private é¾ }
+	Froot : String;
+	Flistpath : String;
+	FNGwordpath : String;
+	Ftokens : array of array of string;
+	FAbonRes : TIndiviAbonList;
+	FAbonString : String;
+	FpAbons	: PChar;
+	FpAbone : PChar;
+	FDeleterlo : Boolean; //&rlo;ðíé© //ÇÁ&lro;àíé
+	FReplaceul :Boolean ; //<ul>^Oð<br>^OÉu··é©
+	FReverse : Boolean ;  //NG[hÅÌ Ú`ñÌÊð½]³¹é©
+	FAbonPopupRes : Boolean; //X|bvAbvÌÉ Ú[ñ·é©
+	FNGwordFileIndex : Integer; //»ÝÇÝñÅéNG[hªlistÌ½sÚ©
+	FNGwordname : String; //»ÝÇÝñÅéNG[hÌ\¦¼
+	FIndividualFileName : String;	//ÂÊ Ú`ñÌt@C¼
+	FReturnNGwordLineNum : Boolean;	//NG[hÌsðÔ·B
+	FSetNGResAnchor : Boolean; //NGÉYµ½Æ«É{¶É»ÌXÖÌXAJ[ðÂ¯é©Ç¤©
+	FDeleteSyria: Boolean;	//VAêuNÎôi&#1792~&#1871j
+	FIgnoreKana: Boolean;	//Sp¼pÐçªÈJ^JiÌá¢ð³·é©
+	procedure SetTokens(index: integer ; argline:String);
+	function Getlistpath() : String;
+	procedure Setlistpath(const Value : String);
+	function LoadListFile(path :String;listStringList : TStringList) : Boolean;
+	function ReadNGwordslist(line : Integer) : Boolean;
+	function LoadFromSetResNumFile(SetResNumFile : String) : Boolean;
   public
-    { Public é¾ }
-    constructor Create; // RXgN^
-    destructor Destroy; override; // fXgN^
-    property Deleterlo: Boolean read FDeleterlo write FDeleterlo  default false;
-    property Replaceul: Boolean read FReplaceul write FReplaceul  default false;
-    property Reverse: Boolean read FReverse write FReverse  default false;
-    property CreateNGwordFile: Boolean read FCreateNGwordFile write FCreateNGwordFile;
-    property AbonString : String read FAbonString write FAbonString;
-    property  AbonPopupRes : Boolean read FAbonPopupRes write FAbonPopupRes default false;
-    procedure Setroot(root :String);
-    function Getroot() : String;
-    procedure SetNGwordpath(path :String);
-    function GetNGwordpath() : String;
-    procedure SetCutoffNum(value : Integer);
-    function GetCutoffNum() : Integer;
-    function LoadFromNGwordFile(path :String) : Boolean;
-    function ReLoadFromNGwordFile() : Boolean;
-    function CheckAbonPopupRes(line : String) :Boolean;
-    function FindNGwords(line : String) : Boolean; //1C¸ÂpB
-    function Cutoff(line : String) : Boolean; //CutOfflÈãÂÌ¯¶pªÀñÅ¢½çtrue
-    // Ú`ñ
-    function Execute(DestStrings : TStringList) : TStringList; overload;
-    function Execute(DestStrings : TStringList; NGwords : TStringList) : TStringList; overload;
-    function Execute(DestStrings : TStringList; NGwords : TStrings) : TStringList; overload;
-    //--
-    function ExecuteFile(datfilepath : String; NGwordpath : String) : Boolean; overload;//DATt@Cð¼É¢¶é
-    function ExecuteFile(datfilepath : String; resnum : Integer) : Boolean; overload; //DATt@Cð¼É¢¶é
-    function ExecuteFile(datfilepath : String; firstres : Integer; count : Integer) : Boolean; overload; //DATt@Cð¼É¢¶é
-    function ReverseExecuteFile(datfilepath : String) : Boolean; overload; //DATt@Cð¼É¢¶é
-    function ReverseExecuteFile(datfilepath : String; resnum : Integer) : Boolean; overload; //DATt@Cð¼É¢¶é
-    function ReverseExecuteFile(datfilepath : String; firstres : Integer; count : Integer) : Boolean; overload; //DATt@Cð¼É¢¶é
+	{ Public é¾ }
+	constructor Create; // RXgN^
+	destructor Destroy; override; // fXgN^
+	property Deleterlo: Boolean read FDeleterlo write FDeleterlo  default false;
+	property Replaceul: Boolean read FReplaceul write FReplaceul  default false;
+	property Reverse: Boolean read FReverse write FReverse  default false;
+	property AbonString : String read FAbonString write FAbonString;
+	property  AbonPopupRes : Boolean read FAbonPopupRes write FAbonPopupRes default false;
+	property listpath : String read Getlistpath write Setlistpath;
+	property NGwordFileIndex : Integer read FNGwordFileIndex write FNGwordFileIndex default 0;
+	property NGwordname : String read FNGwordname write FNGwordname;
+	property ReturnNGwordLineNum : Boolean read FReturnNGwordLineNum write FReturnNGwordLineNum default false;
+	property SetNGResAnchor : Boolean read FSetNGResAnchor write FSetNGResAnchor default false;
+	property DeleteSyria : Boolean read FDeleteSyria write FDeleteSyria default false;
+	property IgnoreKana: Boolean read FIgnoreKana write FIgnoreKana default false;
+	procedure Setroot(root :String);
+	function Getroot() : String;
+
+	function Getfullpath(argpath : String) : String;
+	procedure SetNGwordpath(path :String);
+	function GetNGwordpath() : String;
+	function LoadFromNGwordFile(path :String) : Boolean;
+	function ReLoadFromNGwordFile() : Boolean;
+	procedure LoadFromStringList( bufstl : TStringList );
+	function CheckAbonPopupRes(line : String) :Boolean;
+	function FindNGwords(const line : String; var NGwordsLineNum : Integer; var Invisible : Boolean) : Boolean;//1C¸ÂpB
+	// Ú`ñ(NG[hÅÌtB^O)
+	procedure Execute(var ThreadStrings : TStringList); overload;
+	procedure Execute(var ResString : String; ResNumber : Integer); overload;	//åÉplugin©çÌDat To HTML p
+
+{$IFDEF SPAM_FILTER_ENABLED}
+	//! XptB^ÌwK
+	procedure Learn( resList : TStringList );
+{$ENDIF}
+	//ÂÊ Ú`ñµåè
+	procedure IndividualAbon(var ThreadStrings : TStringList; SetResNumFile : String); overload;
+	procedure IndividualAbon(var ResString : String; SetResNumFile : String; ResNumber : Integer); overload;
+	procedure AddIndividualAbon( ResNum : Integer ; option : Integer; SetResNumFile : String);
+	function CheckIndividualAbonList(ResNum : Integer) : Boolean;
+
+	procedure EditNGwords();  //NGword.txtðJ­B
+	function ShowAllTokens() : String;  //fobOp
+	//--
+	procedure GoHome();//ListÌPsÚðÇÞ
+	function GoForward() : Boolean; //ListÌêÂÌNG[ht@CðÇÝÞ
+	function GoBack() : Boolean; //ListÌêÂOÌNG[ht@CðÇÝÞ
+	//--
+	function TreatSyria(AString: string): string;
     //--
-    procedure EditNGwords();  //NGword.txtðJ­B
-    function ShowAllTokens() : String;  //fobOp
+    function AddToken(AString: string; Invisible: Boolean): Boolean;
   end;
 var
-    Abon1 :TAbon;
+	Abon1 :TAbon;
+const
+	NGwordListFileName : String = 'NGwords.list';
 
 implementation
 
-constructor TAbon.Create;
+uses MojuUtils, GikoSystem, GikoBayesian, Setting;
+
+function InvidiAbonListSort( item1, item2 : Pointer ) : Integer;
 begin
-    // ú»
-    FAbonString := '&nbsp;<>&nbsp;<>&nbsp;<>&nbsp;&nbsp;<><>';
-    FRetStrings := TStringList.Create;
-    FCreateNGwordFile := true;
-    SetCutoffNum(0);
+
+	Result := TIndiviAbon( item1 ).Res - TIndiviAbon( item2 ).Res;
+
 end;
 
-destructor TAbon.Destroy;
+destructor TIndiviAbonList.Destroy;
+var
+	i : Integer;
 begin
-    FRetStrings.Free;
-    inherited;
+
+	for i := 0 to Count - 1 do
+		if inherited Items[ i ] <> nil then
+			TObject( inherited Items[ i ] ).Free;
+
+	inherited;
+
 end;
 
+function TIndiviAbonList.GetItem( index : Integer ) : TIndiviAbon;
+begin
 
+	Result := TIndiviAbon( inherited Items[ index ] );
 
-//rootÍExeÌ¢étH_
+end;
+
+procedure TIndiviAbonList.SetItem( index : Integer; value : TIndiviAbon );
+begin
+
+	inherited Items[ index ] := Pointer( value );
+
+end;
+
+procedure TIndiviAbonList.Sort;
+begin
+
+	inherited Sort( InvidiAbonListSort );
+
+end;
+
+procedure TIndiviAbonList.LoadFromFile( const filePath : string );
+var
+	bufStringList	: TStringList;
+	bufLine				: string;
+	i							: Integer;
+	item					: TIndiviAbon;
+begin
+
+	if not FileExists( filePath ) then begin
+		FLearned := 0;
+		Exit;
+	end;
+
+	FFilePath := filePath;
+	bufStringList := TStringList.Create;
+	try
+		bufStringList.LoadFromFile( filePath );
+		if bufStringList.Values[ 'Learned' ] <> '' then begin
+			FLearned := StrToInt( bufStringList.Values[ 'Learned' ] );
+			bufStringList.Delete( bufStringList.IndexOfName( 'Learned' ) );
+		end else begin
+			FLearned := 0;
+		end;
+
+		//ósí
+		for i := bufStringList.Count-1 downto 0 do begin
+			if bufStringList.Strings[i] = '' then begin
+				bufStringList.Delete(i);
+			end;
+		end;
+
+		//ãü
+		for i := 0 to bufStringList.Count - 1 do begin
+			bufLine			:= Trim(bufStringList.Strings[i]);
+			item				:= TIndiviAbon.Create;
+			item.Res		:= StrToInt(Copy(bufLine,1,AnsiPos('-',bufLine)-1));
+			item.option	:= StrToInt(Copy(bufLine,AnsiPos('-',bufLine)+1,1));
+			Add( item );
+		end;
+	finally
+		bufStringList.Free;
+	end;
+
+end;
+
+procedure TIndiviAbonList.Save;
+var
+	bufStringList	: TStringList;
+	i							: Integer;
+begin
+
+	bufStringList := TStringList.Create;
+	try
+		bufStringList.Values[ 'Learned' ] := IntToStr( FLearned );
+
+		for i := 0 to Count - 1 do begin
+			bufStringList.Add(
+				IntToStr( Items[ i ].Res ) + '-' + IntToStr( Items[ i ].Option ) );
+		end;
+
+		bufStringList.SaveToFile( FFilePath );
+	finally
+		bufStringList.Free;
+	end;
+
+end;
+
+constructor TAbon.Create;
+begin
+	// ú»
+	FAbonString := '&nbsp;<>&nbsp;<>&nbsp;<>&nbsp;&nbsp;<><>';
+	FAbonRes := TIndiviAbonList.Create;
+	FpAbons := PChar(FAbonString);
+	FpAbone := FpAbons + Length(FAbonString);
+
+end;
+
+destructor TAbon.Destroy;
+begin
+	FAbonRes.Free;
+	inherited;
+end;
+//rootÍExe\config\NGwordstH_
 procedure TAbon.Setroot(root :String);
+var
+	bufStringList : TStringList;
 begin
-    Froot := root;
+	bufStringList := TStringList.Create;
+	try
+		if not DirectoryExists(root) then begin
+			CreateDir(root);
+		end;
+		if root[Length(root)] <> '\' then begin
+			root := root + '\';
+		end;
+		Flistpath := root + NGwordListFileName;
+		LoadListFile(Flistpath, bufStringList);
+	finally
+		bufStringList.Free;
+	end;
+	Froot := root;
 end;
 function TAbon.Getroot() : String;
 begin
-    Result := Froot;
+	Result := Froot;
 end;
 //NGwordpathÍNGword.txtÌtpX
 procedure TAbon.SetNGwordpath(path :String);
 begin
-    FNGwordpath := path;
-    LoadFromNGwordFile(FNGwordpath);
+	FNGwordpath := Getfullpath(path);
+	LoadFromNGwordFile(FNGwordpath);
 end;
 function TAbon.GetNGwordpath() : String;
 begin
-    Result :=  FNGwordpath;
+	Result :=  FNGwordpath;
+end;
+//tpXÅÈ¯êÎtpXÉµÄÔ·B
+function TAbon.Getfullpath(argpath : String) : String;
+begin
+	if AnsiPos(':\',argpath) <> 2 then begin  //hCu©çÌtpXª³¯êÎ
+		if Getroot() = '' then begin
+			Result := '';    //rootpXªÝè³êÄÈ¢©óÉ·é
+		end else begin
+			if (Froot[Length(Froot)] = '\') and (argpath[1] = '\') then begin  //æªÌ\ðí
+				Delete(argpath,1,1);
+			end;
+			Insert( Getroot(), argpath , 1);//rootpXð}ü
+			Result := argpath;
+		end;
+	end else begin
+		Result := argpath;
+	end;
+
 end;
 //NGwordt@CÌÇÝÝ
 function TAbon.LoadFromNGwordFile(path :String) : boolean;
 var
-    bufstl : TStringList;
-    i : integer;
+	bufstl : TStringList;
 begin
-    if AnsiPos(':\',path) <> 2 then begin  //hCu©çÌtpXª³¯êÎ
-        if Getroot() = '' then begin
-            Result := false;    //rootpXªÝè³êÄÈ¢©çfalse
-            Exit;
-        end else begin
-            if (Froot[Length(Froot)] = '\') and (path[1] = '\') then begin  //æªÌ\ðí
-                Delete(path,1,1);
-            end;
-            Insert( Getroot(), path , 1);//rootpXð}ü
-        end;
-    end;
-    bufstl := TStringList.Create;
-    try
-        bufstl.LoadFromFile(path);
-        for i := bufstl.Count -1  downto 0 do begin
-            if bufstl.Strings[i] = '' then begin
-                bufstl.Delete(i);
-            end;
-        end;
-        SetLength(Ftokens,bufstl.Count);
-        for i := 0  to bufstl.Count -1 do begin
-            SetTokens(i , bufstl.Strings[i]);
-        end;
+	path := Getfullpath(path);
+	if path = '' then begin
+		Result := false;
+	end else begin
+
+		bufstl := TStringList.Create;
+		try
+			if not FileExists(path) then begin
+				Result := false;
+				try
+					bufstl.SaveToFile(path);
+				except
+				end;
+			end else begin
+				bufstl.LoadFromFile(path);
+				LoadFromStringList( bufstl );
+				Result := true;
+			end;
+		finally
+			bufstl.Free;
+		end;
+	end;
 
-    except
-        if CreateNGwordFile = true then begin
-            bufstl.SaveToFile(path);
-        end;
-        bufstl.Free;
-        Result := false;
-        Exit;
-    end;
-    bufstl.Free;
-    Result := true;
+end;
+//NGwordXgÇÝÝ
+procedure TAbon.LoadFromStringList( bufstl : TStringList );
+var
+	i : integer;
+begin
+	try
+		for i := bufstl.Count -1  downto 0 do begin
+			if bufstl.Strings[i] = '' then begin
+				bufstl.Delete(i);
+			end;
+		end;
+		SetLength(Ftokens,bufstl.Count);
+		for i := 0  to bufstl.Count -1 do begin
+			SetTokens(i , bufstl.Strings[i]);
+		end;
+
+	except
+		Exit;
+	end;
 end;
 //NGwordpathªùÉÝè³êÄ¢éÆ«Ì[hpÖ
 function TAbon.ReLoadFromNGwordFile() : boolean;
 begin
-    if GetNGwordpath() ='' then begin
-        Result := false;
-    end else begin
-        Result := LoadFromNGwordFile( GetNGwordpath() );
-    end;
+	if GetNGwordpath() ='' then begin
+		Result := false;
+	end else begin
+		Result := LoadFromNGwordFile( GetNGwordpath() );
+	end;
 end;
-
-//êsÌÌg[NðØèª¯ÄZbg
-procedure TAbon.SetTokens(index: integer ; argline : String);
-var
-    ret : Integer;
-    bufstl : TStringList;
-    i : Integer;
-begin
-    bufstl := TStringList.Create;
-    bufstl.Delimiter := #9;  //æØèqðf^ufÉÝè
-    bufstl.DelimitedText := argline;
-    ret := bufstl.Count;
-    SetLength(Ftokens[index],ret);
-    for i := 0 to bufstl.Count - 1  do begin
-        Ftokens[index][i] := bufstl.Strings[i];
-    end;
-    bufstl.Free;
-
+function TAbon.Getlistpath() : String;
+begin
+	Result := Flistpath;
 end;
-procedure TAbon.SetCutoffNum(value : Integer);
+procedure TAbon.Setlistpath(const Value : String);
 begin
-    if value > 0 then begin
-        FCutoffNum := value;
-    end else begin
-        FCutoffNum := 0;
-    end;
+	Flistpath := Getfullpath(Value);
 end;
-function TAbon.GetCutoffNum() : Integer;
+//êsÌÌg[NðØèª¯ÄZbg
+procedure TAbon.SetTokens(index: integer ; argline : String);
+var
+	ret : Integer;
+	bufstl : TStringList;
+	i : Integer;
+	pos : Integer;
+	buftoken : String;
 begin
-    Result := FCutoffNum;
+	bufstl := TStringList.Create;
+	try
+		if Length(argline) > 0 then begin
+			pos := AnsiPos(#9,argline);
+			while pos <> 0 DO begin
+				buftoken := Copy(argline,1,pos-1);
+				Delete(argline,1,pos);
+				if Length(buftoken) > 0 then begin
+                    // >> ÅnÜég[NÍRgµ¢Å³·é
+                    if AnsiPos('>>', buftoken) <> 1 then begin
+    					bufstl.Append(buftoken);
+                    end;
+				end else if ( bufstl.Count = 0 ) then begin
+					bufstl.Append('');
+				end;
+				pos := AnsiPos(#9,argline);
+			end;
+			if Length(argline) > 0 then begin
+                // >> ÅnÜég[NÍRgµ¢Å³·é
+                if AnsiPos('>>', argline) <> 1 then begin
+    				bufstl.Append(argline);
+                end;
+			end;
+			ret := bufstl.Count;
+			SetLength(Ftokens[index],ret);
+			for i := 0 to bufstl.Count - 1  do begin
+				if IgnoreKana then
+					Ftokens[index][i] := ZenToHan(bufstl.Strings[i])
+				else
+                    Ftokens[index][i] := bufstl.Strings[i];
+			end;
+		end;
+	finally
+		bufstl.Free;
+	end;
+
 end;
+//Debugp¿áñÆNG[hðE¦Ä¢é©
 function TAbon.ShowAllTokens() : String;
 var
-    i : Integer;
-    j : Integer;
-    ret : String;
+	i : Integer;
+	j : Integer;
+	ret : String;
 begin
-    for i := 0 to High(Ftokens) do begin
-        for j := 0 to High(Ftokens[i]) do begin
-            ret := ret + Ftokens[i][j];
-        end;
-    end;
-    Result := ret;
+	for i := 0 to High(Ftokens) do begin
+		for j := 0 to High(Ftokens[i]) do begin
+			ret := ret + Ftokens[i][j];
+		end;
+	end;
+	Result := ret;
 
 
 
 end;
-
-//****************************************************************************//
-//NG[hªÜÜêÄ½çtrueðÔ·B
-function TAbon.FindNGwords(line : String) : Boolean;
+//NG[hªÜÜêÄ¢½çtrueðÔµA»ÌNG[hÌsðNGwordsLineNumÉüêÄÔ·B
+//àµà§¾ Ú`ñÉ·éÈçInbisibleðtrueÉµÄÔ·
+function TAbon.FindNGwords(const line : String; var NGwordsLineNum : Integer; var Invisible : Boolean) : Boolean; //1C¸ÂpB
 var
-    i : Integer;
-    j : Integer;
-    hit : Boolean;
-begin
-    hit := false;
-    if AnsiPos(FAbonString,line) <> 1 then begin
-        for i := 0 to High(Ftokens) do begin
-            hit := true;
-            for j := 0 to High(Ftokens[i]) do begin
-                if AnsiPos(Ftokens[i][j],line) = 0 then begin
-                    hit := false;
-                    break;
-                end;
-            end;
-            if hit = true then begin
-                break;
+	lines : Integer;
+	cells : Integer;
+	hit : Boolean;
+	bufline : String;
+	start : Integer;
+	target : String;
+	pos : PChar;
+	pts, pte : PChar;
+	trgLen : Integer;
+begin
+	hit := false;
+	if AnsiStrPosEx(PChar(line), PChar(line)+Length(line), FpAbons, FpAbone) = nil then begin
+		//S¼pÐçJi³·é©
+		if IgnoreKana then
+			target := ZenToHan(line)
+		else
+			target := line;
+
+		trgLen := Length(target);
+
+		for lines := 0 to High(Ftokens) do begin
+            if Length(Ftokens[lines]) = 0 then begin
+                Continue;
             end;
-        end;
-    end;
-    Result := hit;
-
+			hit := true;
+			bufline := target;
+			pts := PChar(bufline);
+			pte := pts + trgLen;
+
+			if Ftokens[lines][0] <> ''  then begin
+				Invisible := false;
+				start := 0;
+			end else begin
+				Invisible := true;
+				start := 1;
+			end;
+
+			for cells := start to High(Ftokens[lines]) do begin
+				pos := AnsiStrPosEx(pts, pte,
+						PChar(Ftokens[lines][cells]), PChar(Ftokens[lines][cells]) + Length(Ftokens[lines][cells]));
+				if pos = nil then begin
+					hit := false;
+					break;
+				end else begin
+					Delete(bufline, pos - pte + 1, Length(Ftokens[lines][cells]));
+					pts := PChar(bufline);
+					pte := pts + Length(bufline);
+				end;
+			end;
+			if hit = true then begin
+				NGwordsLineNum := lines + 1;
+				break;
+			end;
+		end;
+	end;
+	Result := hit;
 end;
-//CutOfflÈãÂÌ¯¶pªÀñÅ¢½çtrue
-function TAbon.Cutoff(line : String) : Boolean;
+//öÌu[lÍtrue¾ÆANG[hðÜÞàÌ¾¯ðÔ·B
+procedure TAbon.Execute(var ThreadStrings : TStringList);
 var
-    i : Integer;
-    sheed : AnsiChar;
-    buf : String;
-    ret : Bool;
-begin
-    ret := false;
-    if FCutoffNum <> 0 then begin
-        for i := 65 to 90 do begin
-            sheed := Chr(i);
-            buf := DupeString(sheed, FCutoffNum);
-            if AnsiContainsText(line, buf) = true then begin
-                ret := true;
-                break;
-            end;
-        end;
-    end;
-    Result := ret;
+	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('&nbsp;<>&nbsp;<>&nbsp;<>&gt;%d<><>',[(i+1)]);
+				end else if not SetNGResAnchor then begin
+					ThreadStrings.Strings[i] := Format('&nbsp;<>&nbsp;<>&nbsp;<><B> %d sÚÌNG[hªÜÜêÄ¢Ü·B</B><><>',[NGwordsLine]);
+				end else begin
+					ThreadStrings.Strings[i] := Format('&nbsp;<>&nbsp;<>&nbsp;<><B> %d sÚÌNG[hªÜÜêÄ¢Ü·B</B>&gt;%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;
-//öÌu[lÍtrue¾ÆANG[hðÜÞàÌ¾¯ðÔ·B
-function TAbon.Execute(DestStrings : TStringList) : TStringList;
+procedure TAbon.Execute(var ResString : String; ResNumber : Integer);
 var
-    i : Integer;
-    bufline : String;
+	NGwordsLine : Integer;
+	bufline : String;
+	invisi : Boolean;
 begin
-    FRetStrings.Clear;
+	NGwordsLine := 0;
+	if FindNGwords(ResString, NGwordsLine ,invisi) <> Reverse  then begin
+		if invisi = true then begin
+			ResString := '';
+		end else begin
+			if not ReturnNGwordLineNum and not SetNGResAnchor then begin
+				ResString := FAbonString;
+			end else if not ReturnNGwordLineNum then begin
+				ResString := Format('&nbsp;<>&nbsp;<>&nbsp;<>&gt;%d<><>',[(ResNumber)]);
+			end else if not SetNGResAnchor then begin
+				ResString := Format('&nbsp;<>&nbsp;<>&nbsp;<><B> %d sÚÌNG[hªÜÜêÄ¢Ü·B</B><><>',[NGwordsLine]);
+			end else begin
+				ResString := Format('&nbsp;<>&nbsp;<>&nbsp;<><B> %d sÚÌNG[hªÜÜêÄ¢Ü·B</B>&gt;%d <><>',[NGwordsLine,(ResNumber)]);
+			end;
+		end;
+	end else begin
+		bufline := ResString;
+		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);
+		ResString := bufline;
+	end;
+end;
 
-    if Reverse = false then begin
-        for i:=0 to DestStrings.Count - 1 do begin
-            if FindNGwords(DestStrings.Strings[i]) = true  then begin
-                FRetStrings.Append(FAbonString);
-            end else begin
-                bufline := DestStrings.Strings[i];
-                if Deleterlo = true then begin
-                    bufline := AnsiReplaceText( bufline,'&rlo;','' );
-                end;
-                if Replaceul = true then begin
-                     bufline := AnsiReplaceText( bufline,'<ul>','<br>' );
-                     bufline := AnsiReplaceText( bufline,'</ul>','<br>' );
-                end;
-                FRetStrings.Append(bufline);
-            end;
-        end;
-    end else begin
-        for i:=0 to DestStrings.Count - 1 do begin
-            if FindNGwords(DestStrings.Strings[i]) = false then begin
-                FRetStrings.Append(FAbonString);
-            end else begin
-                bufline := DestStrings.Strings[i];
-                if Deleterlo = true then begin
-                    while  AnsiPos('&rlo',bufline) <> 0 do begin
-                        Delete(bufline,AnsiPos('&rlo',bufline),4);
-                    end;
-                end;
-                if Replaceul = true then begin
-                     bufline := AnsiReplaceText( bufline,'<ul>','<br>' );
-                     bufline := AnsiReplaceText( bufline,'</ul>','<br>' );
-                end;
-                FRetStrings.Append(bufline);
-            end;
-        end;
 
-    end;
-    Result := FRetStrings;
 
+//****************************************************************************//
+//»ÝZbg³êÄ¢éNGword.txtðJ­
+procedure TAbon.EditNGwords();
+begin
+	ShellExecute(0 ,nil,PChar(FNGwordpath),nil,nil,SW_SHOW);
 end;
-function TAbon.Execute(DestStrings : TStringList; NGwords : TStringList) : TStringList;
+//|bvAbvp»èÖ
+function TAbon.CheckAbonPopupRes(line : String) :Boolean;
 var
-    i : Integer;
+	i: Integer;
+	v: boolean;
 begin
-    SetLength(Ftokens,NGwords.Count);
-    for i := 0  to NGwords.Count -1 do begin
-        SetTokens(i , NGwords.Strings[i]);
-    end;
-    Result := Execute(DestStrings);
-
+	if AbonPopupRes = true then begin
+		Result := FindNGwords(line, i ,v);
+	end else begin
+		Result := false;
+	end;
 end;
-function TAbon.Execute(DestStrings : TStringList; NGwords : TStrings) : TStringList;
-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]);
+//¡ÌNG[heLXgðÇÝÞ==============================================
+//Listt@CðÇÝÞ
+function TAbon.LoadListFile(path :String; listStringList : TStringList) : Boolean;
+begin
+    try
+        listStringList.LoadFromFile(path);
+        Result := true;
+    except
+        listStringList.Append('êÊ=NGword.txt');
+        listStringList.SaveToFile(path);
+        Result := false;
     end;
-    Result := Execute(DestStrings);
-    buf.Free;
 end;
-
-
-//****************************************************************************//
-//DATð¼É¢¶ézç===========================================================
-//NG[hðÜÞXÌæªÉ Ú[ñð}ü
-function TAbon.ExecuteFile(datfilepath : String; NGwordpath : String) : Boolean; //DATt@Cð¼É¢¶é
+//ListÌêÂÌNG[ht@CðÇÝÞ
+function TAbon.GoForward() : Boolean;
+begin
+    FNGwordFileIndex := FNGwordFileIndex + 1;
+    Result := ReadNGwordslist(FNGwordFileIndex);
+end;
+//ListÌêÂOÌNG[ht@CðÇÝÞ
+function TAbon.GoBack() : Boolean;
+begin
+    FNGwordFileIndex := FNGwordFileIndex -1;
+    Result := ReadNGwordslist(FNGwordFileIndex);
+end;
+//ListÌPsÚðÇÞ
+procedure TAbon.GoHome();
+begin
+    FNGwordFileIndex := 0;
+    ReadNGwordslist(FNGwordFileIndex);
+end;
+//ListÌlinesÚðÇÞ
+function TAbon.ReadNGwordslist(line : Integer) : Boolean;
 var
-    datstl : TStringList;
-    ret : Boolean;
-    i : Integer;
+    liststl : TStringList;
+    linebuf : String;
 begin
-    datstl := TStringList.Create;
-    ret := true;
+    liststl := TStringList.Create;
     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;
+        if LoadListFile(Flistpath,liststl) = true then begin
+            if line < 0 then begin
+                line := liststl.Count - 1;
+                FNGwordFileIndex := liststl.Count - 1;
+            end else if line > liststl.Count - 1 then begin
+                line := 0;
+                FNGwordFileIndex := 0;
             end;
-
-            datstl.SaveToFile(datfilepath);
-        except
-            ret := false;
-        end;
+            linebuf := liststl.Strings[line];
+            FNGwordname := Copy(linebuf,1,AnsiPos('=',linebuf)-1);
+            Delete(linebuf,1,AnsiPos('=',linebuf));
+            SetNGwordpath(linebuf);
+            Result := true;
+        end else begin
+            Result := false;
+        end
     finally
-        datstl.Free;
+        liststl.Free;
     end;
-    Result := ret;
 
 end;
-//wè³ê½XÔÌæªÉ Ú[ñ}ü
-function TAbon.ExecuteFile(datfilepath : String; resnum : Integer) : Boolean; //DATt@Cð¼É¢¶é
+
+{$IFDEF SPAM_FILTER_ENABLED}
+procedure TAbon.Learn( resList : TStringList );
 var
-    datstl : TStringList;
-    ret : Boolean;
+	i, j 				: Integer;
+	wordCount 	: TWordCount;
+	spamminess	: Extended;
+	indiviAbon	: TIndiviAbon;
+const
+	SPAM_THRESHOLD = 0.9;
 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;
+
+	if GikoSys.Setting.SpamFilterAlgorithm = gsfaNone then Exit;
+	j := 0;
+	wordCount := TWordCount.Create;
+	try
+		if (FAbonRes.FLearned = 0) and (FAbonRes.Count = 0) then begin
+			// ßÄÌwK©ÂÂÊ Ú`ñ èÈÌÅAver©çÌÚsÉÂ«
+			// ÂÊ Ú`ñðgÁ½wK
+			FAbonRes.Sort;
+			for i := 0 to FAbonRes.Count - 1 do begin
+				while (j < resList.Count) and (j + 1 < FAbonRes[ j ].Res) do begin
+					wordCount.Clear;
+					GikoSys.Bayesian.CountWord( resList[ j ], wordCount );
+					GikoSys.Bayesian.Learn( wordCount, False );
+					Inc( j );
+				end;
+				if j < resList.Count then begin
+					wordCount.Clear;
+					GikoSys.Bayesian.CountWord( resList[ j ], wordCount );
+					GikoSys.Bayesian.Learn( wordCount, True );
+					Inc( j );
+				end;
+			end;
+
+			while j < resList.Count do begin
+				wordCount.Clear;
+				GikoSys.Bayesian.CountWord( resList[ j ], wordCount );
+				GikoSys.Bayesian.Learn( wordCount, False );
+				Inc( j );
+			end;
+		end else begin
+			// ver©çÌÚsÅÍÈ¢ÌÅXðSÄ_ÅwK
+			// ¦_ªÔáÁÄ¢éêÍ[Uª Ú`ñðC³·éÅwK³êé
+			for j := FAbonRes.FLearned to resList.Count - 1 do begin
+				wordCount.Clear;
+				spamminess := GikoSys.SpamParse( resList[ j ], wordCount );
+				if spamminess >= SPAM_THRESHOLD then begin
+					// Xp
+					GikoSys.Bayesian.Learn( wordCount, True );
+					indiviAbon := TIndiviAbon.Create;
+					indiviAbon.Res := j + 1;
+					indiviAbon.Option := 1;
+					FAbonRes.Add( indiviAbon );
+				end else begin
+					// n
+					GikoSys.Bayesian.Learn( wordCount, False );
+				end;
+			end;
+		end;
+
+		FAbonRes.FLearned := resList.Count;
+		FAbonRes.Save;
+	finally
+		wordCount.Free;
+	end;
+
+	FAbonRes.Save;
+	GikoSys.Bayesian.Save;
+
 end;
-//firstres©çcountÂÌXÌæªÉ Ú[ñ}ü
-function TAbon.ExecuteFile(datfilepath : String; firstres : Integer; count : Integer) : Boolean; //DATt@Cð¼É¢¶é
+{$ENDIF}
+
+//¡ÌNG[heLXgðÇÝÞ=====±±ÜÅ=================================
+//ÂÊ Ú`ñÀsÖ
+procedure TAbon.IndividualAbon(var ThreadStrings : TStringList; SetResNumFile : String);
 var
-    datstl : TStringList;
-    i : Integer;
-    endnum : Integer; //IíèÌXÔ
-    ret : Boolean;
+	i : Integer;
+	f : 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];
+	f := LoadFromSetResNumFile( SetResNumFile );
+	FAbonRes.FFilePath := SetResNumFile;	// Learn ÍÅÛ¶·éÌÅ
+{$IFDEF SPAM_FILTER_ENABLED}
+	Learn( ThreadStrings );
+{$ENDIF}
+
+	if f then begin
+		for i := 0 to FAbonRes.Count - 1 do begin
+			if (FAbonRes[i].Res <= ThreadStrings.Count) and (FAbonRes[i].Res > 0) then begin
+{$IFDEF NO_ABON}
+				ThreadStrings.Strings[FAbonRes[i].Res-1] :=
+					'<font color="red"> Ú`ñÏÝ</font>' +
+					ThreadStrings.Strings[FAbonRes[i].Res-1];
+{$ELSE}
+				if FAbonRes[i].option = 0 then begin
+					ThreadStrings.Strings[FAbonRes[i].Res-1] := '';
+				end else begin
+					ThreadStrings.Strings[FAbonRes[i].Res-1] := ' Ú`ñ<> Ú`ñ<> Ú`ñ<> Ú`ñ<>';
+				end;
+{$ENDIF}
+			end;
+		end;
+	end;
+end;
+procedure TAbon.IndividualAbon(var ResString : String; SetResNumFile : String; ResNumber : Integer);
+var
+	i : Integer;
+begin
+	if FileExists(SetResNumFile) = true then begin
+    	if LoadFromSetResNumFile(SetResNumFile) = true then begin
+					for i := 0 to FAbonRes.Count - 1 do begin
+                 if FAbonRes[i].Res = ResNumber then begin
+                 	if FAbonRes[i].option = 0 then begin
+                    	ResString := '';
+                    end else begin
+                        ResString := ' Ú`ñ<> Ú`ñ<> Ú`ñ<> Ú`ñ<>';
                     end;
-                end;
+                    Exit;
+                 end;
             end;
-            datstl.SaveToFile(datfilepath);
-        except
-            ret := false;
         end;
-    finally
-        datstl.Free;
-    end;
-    Result := ret;
+    end else begin
+				FIndividualFileName := SetResNumFile;
+				FAbonRes.Free;
+				FAbonRes := TIndiviAbonList.Create;
+		end;
 end;
-//DATð¼É¢¶ézç==========±±ÜÅ=========================================
 
-//³Éß·zç==================================================================
-function TAbon.ReverseExecuteFile(datfilepath : String) : Boolean; //DATt@Cð¼É¢¶é
-var
-    datstl : TStringList;
-    i : Integer;
-    buf : String;
-    ret : Boolean;
+//ÂÊ Ú`ñt@CÇÝÝÖ
+function TAbon.LoadFromSetResNumFile(SetResNumFile : String) : 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;
+
+	FIndividualFileName := SetResNumFile;
+	FAbonRes.Free;
+	FAbonRes := TIndiviAbonList.Create;
+	if FileExists( SetResNumFile ) then begin
+		FAbonRes.LoadFromFile( SetResNumFile );
+		Result := true;
+	end else begin
+		Result := False;
+	end;
 
 end;
-function TAbon.ReverseExecuteFile(datfilepath : String; resnum : Integer) : Boolean; //DATt@Cð¼É¢¶é
+//ÂÊ Ú`ñt@CÉÇÁ
+procedure TAbon.AddIndividualAbon( ResNum : Integer ; option : Integer; SetResNumFile : String);
 var
-    datstl : TStringList;
-    buf : String;
-    ret : Boolean;
+	IndividualFile : TStringList;
+	i, j : Integer;
 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;
-
+	IndividualFile := TStringList.Create;
+	try
+		if FileExists(SetResNumFile) then begin
+			IndividualFile.LoadFromFile(SetResNumFile);
+			i := -1;
+			for j := 0 to IndividualFile.Count -1 do begin
+				if AnsiPos(IntToStr(ResNum) + '-', IndividualFile[j]) = 1 then begin
+					i := j;
+					break;
+				end;
+			end;
+			if i = -1 then
+				IndividualFile.Add(IntToStr(ResNum) + '-' + IntToStr(option))
+			else
+				IndividualFile[j] := IntToStr(ResNum) + '-' + IntToStr(option);
+
+		end else begin
+			IndividualFile.Add(IntToStr(ResNum) + '-' + IntToStr(option));
+		end;
+		IndividualFile.SaveToFile(SetResNumFile);
+	finally
+		IndividualFile.Free;
+	end;
 end;
-function TAbon.ReverseExecuteFile(datfilepath : String; firstres : Integer; count : Integer) : Boolean;//DATt@Cð¼É¢¶é
+
+//|bvAbvÌ»èp
+function TAbon.CheckIndividualAbonList(ResNum : Integer) : Boolean;
 var
-    datstl : TStringList;
-    i : Integer;
-    endnum : Integer; //IíèÌXÔ
-    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;
+	i : Integer;
+begin
+	if (FAbonRes.Count > 0) and (FAbonRes[0].Res <> 0) then begin
+		for i := 0 to FAbonRes.Count - 1 do begin
+			if FAbonRes[i].Res = ResNum then begin
+				Result := true;
+				Exit;
+			end;
+		end;
+	end;
+	Result := false;
+
 end;
-//³Éß·zç=================±±ÜÅ=========================================
-//»ÝZbg³êÄ¢éNGword.txtðJ­
-procedure TAbon.EditNGwords();
+//VAêuNÎô
+function TAbon.TreatSyria(AString: string): string;
+const
+	UNI_TAG = '&#';
+var
+	//count: Integer; //(&#1792~&#1871)
+	ps : PChar;
+	p, pe, s, se : PChar;
+	scode: String;
+	icode: Integer;
 begin
-    ShellExecute(0 ,nil,PChar(FNGwordpath),nil,nil,SW_SHOW);
+
+	Result := '';
+
+	p := PChar(AString);
+	pe := p + Length(AString);
+	s := PChar(UNI_TAG);
+	se := s + Length(UNI_TAG);
+
+	p := AnsiStrPosEx(p, pe, s, se);
+
+	while p <> nil do begin
+		//&#ÌèOÜÅRs[·é
+		Result := Result + Copy(AString, 1, p - PChar(AString));
+		//&#ÌèOÜÅí·é
+		Delete(AString, 1, p - PChar(AString));
+
+		//AStringÉ3¶Èã êÎÌ3¶Úð`FbN
+		if Length(AString) > 2 then begin
+			ps := PChar(AString) + 2;
+			if (ps^ = 'x') or (ps^ = 'X') then begin
+				//16i\L
+				Inc(ps);
+				scode := '0x';
+				while ((ps^ >= '0') and (ps^ <= '9')) or
+					((ps^ >= 'a') and (ps^ <= 'f')) or
+					((ps^ >= 'A') and (ps^ <= 'F')) do begin
+					
+					scode := scode + String(ps^);
+					Inc(ps);
+				end;
+			end else begin
+				//10i\L
+				scode := '';
+				while ((ps^ >= '0') and (ps^ <= '9')) do begin
+					scode := scode + String(ps^);
+					Inc(ps);
+				end;
+			end;
+			icode := StrToIntDef(scode, 0);
+
+			//Åãª;ÅÂ¶Ä¢È¯êÎAê¶OÜÅÉ·é
+			if not (ps^ = ';') then
+				Dec(ps);
+
+			//VAêuNÌÅÈ¢
+            if ( icode < 1758) or
+                ((icode > 1871) and (icode < 1958)) or
+                (icode > 1968) then begin
+                Result := Result + Copy(AString, 1, ps - PChar(AString) + 1);
+            end;
+
+			Delete(AString, 1, ps - PChar(AString) + 1);
+		end else begin
+            //ãëÉ¶ª³¢ÌÅA»ÌÜÜResultÉËÁÞ
+			Result := Result + AString;
+			AString := '';
+		end;
+		p := PChar(AString);
+		pe := p + Length(AString);
+		p := AnsiStrPosEx(p, pe, s, se);
+	end;
+
+    //cÁ½¶ñð«µÄÊÉ·é
+	Result := Result + AString;
 end;
-function TAbon.CheckAbonPopupRes(line : String) :Boolean;
+
+// NG[ht@CÉÇÁ ÇÁ³ê½êATrueª©¦é
+function TAbon.AddToken(AString: string; Invisible: Boolean): Boolean;
 var
-    i : Integer;
+	bufStringList : TStringList;
+    ngword: String;
 begin
-    if FCutoffNum  = 0 then begin
-        if AbonPopupRes = true then begin
-            Result := FindNGwords(line);
-        end else begin
-            Result := false;
-        end;
-    end else begin
-        if AbonPopupRes = true then begin
-            Result := FindNGwords(line);
-            if Result = false then begin
-                for i := 0 to 2 do begin
-                    Delete(line,1,Ansipos('<>',line)+1);
-                end;
-                Delete(line,Ansipos('<>',line),Length(line)-Ansipos('<>',line)+1);
-                Result := Cutoff(line);
+    Result := False;
+    if FileExists(GetNGwordpath) then begin
+        bufStringList := TStringList.Create;
+        try
+            bufStringList.LoadFromFile(GetNGwordpath);
+            if (Invisible) then begin
+                ngword := #9 + AString;
+            end else begin
+                ngword := AString;
             end;
-        end else begin
-            Result := false;
+            if (bufStringList.IndexOf(ngword) = -1) then begin
+                bufStringList.Add(ngword);
+                bufStringList.SaveToFile(GetNGwordpath);
+                Result := True;
+            end;
+        finally
+            bufStringList.Free;
         end;
     end;
 end;
