| 1 |
|
{ |
| 2 |
|
NO_ABON あぼーん済みのレスも表示する(強調される) |
| 3 |
|
SPAM_FILTER_ENABLED スパムフィルタを機能させる |
| 4 |
|
} |
| 5 |
|
|
| 6 |
unit AbonUnit; |
unit AbonUnit; |
| 7 |
|
|
| 8 |
interface |
interface |
| 92 |
procedure Execute(var ThreadStrings : TStringList); overload; |
procedure Execute(var ThreadStrings : TStringList); overload; |
| 93 |
procedure Execute(var ResString : String; ResNumber : Integer); overload; //主にpluginからのDat To HTML 用 |
procedure Execute(var ResString : String; ResNumber : Integer); overload; //主にpluginからのDat To HTML 用 |
| 94 |
|
|
| 95 |
|
{$IFDEF SPAM_FILTER_ENABLED} |
| 96 |
//! スパムフィルタの学習 |
//! スパムフィルタの学習 |
| 97 |
procedure Learn( resList : TStringList ); |
procedure Learn( resList : TStringList ); |
| 98 |
|
{$ENDIF} |
| 99 |
//個別あぼ〜んしょり |
//個別あぼ〜んしょり |
| 100 |
procedure IndividualAbon(var ThreadStrings : TStringList; SetResNumFile : String); overload; |
procedure IndividualAbon(var ThreadStrings : TStringList; SetResNumFile : String); overload; |
| 101 |
procedure IndividualAbon(var ResString : String; SetResNumFile : String; ResNumber : Integer); overload; |
procedure IndividualAbon(var ResString : String; SetResNumFile : String; ResNumber : Integer); overload; |
| 611 |
|
|
| 612 |
end; |
end; |
| 613 |
|
|
| 614 |
|
{$IFDEF SPAM_FILTER_ENABLED} |
| 615 |
procedure TAbon.Learn( resList : TStringList ); |
procedure TAbon.Learn( resList : TStringList ); |
| 616 |
var |
var |
| 617 |
i, j : Integer; |
i, j : Integer; |
| 681 |
GikoSys.Bayesian.Save; |
GikoSys.Bayesian.Save; |
| 682 |
|
|
| 683 |
end; |
end; |
| 684 |
|
{$ENDIF} |
| 685 |
|
|
| 686 |
//複数のNGワードテキストを読み込む=====ここまで================================= |
//複数のNGワードテキストを読み込む=====ここまで================================= |
| 687 |
//個別あぼ〜ん実行関数 |
//個別あぼ〜ん実行関数 |
| 692 |
begin |
begin |
| 693 |
f := LoadFromSetResNumFile( SetResNumFile ); |
f := LoadFromSetResNumFile( SetResNumFile ); |
| 694 |
FAbonRes.FFilePath := SetResNumFile; // Learn はで保存するので |
FAbonRes.FFilePath := SetResNumFile; // Learn はで保存するので |
| 695 |
|
{$IFDEF SPAM_FILTER_ENABLED} |
| 696 |
Learn( ThreadStrings ); |
Learn( ThreadStrings ); |
| 697 |
|
{$ENDIF} |
| 698 |
|
|
| 699 |
if f then begin |
if f then begin |
| 700 |
for i := 0 to FAbonRes.Count - 1 do begin |
for i := 0 to FAbonRes.Count - 1 do begin |