| 69 |
procedure Execute(var ThreadStrings : TStringList); overload; |
procedure Execute(var ThreadStrings : TStringList); overload; |
| 70 |
procedure Execute(var ThreadStrings : TStringList; NGwords : TStringList); overload; |
procedure Execute(var ThreadStrings : TStringList; NGwords : TStringList); overload; |
| 71 |
procedure Execute(var ThreadStrings : TStringList; NGwords : TStrings); overload; |
procedure Execute(var ThreadStrings : TStringList; NGwords : TStrings); overload; |
| 72 |
|
procedure Execute(var ResString : String; ResNumber : Integer); overload; //主にpluginからのDat To HTML 用 |
| 73 |
//個別あぼ〜んしょり |
//個別あぼ〜んしょり |
| 74 |
procedure IndividualAbon(var ThreadStrings : TStringList; SetResNumFile : String); |
procedure IndividualAbon(var ThreadStrings : TStringList; SetResNumFile : String); overload; |
| 75 |
|
procedure IndividualAbon(var ResString : String; SetResNumFile : String; ResNumber : Integer); overload; |
| 76 |
procedure AddIndividualAbon( ResNum : Integer ; option : Integer); |
procedure AddIndividualAbon( ResNum : Integer ; option : Integer); |
| 77 |
procedure DeleteIndividualAbon( ResNum : Integer); |
procedure DeleteIndividualAbon( ResNum : Integer); |
| 78 |
function GetAbonResCount() : Integer; |
function GetAbonResCount() : Integer; |
| 414 |
bufline : String; |
bufline : String; |
| 415 |
invisi : Boolean; |
invisi : Boolean; |
| 416 |
begin |
begin |
| 417 |
//FRetStrings.Clear; |
for i:=0 to ThreadStrings.Count - 1 do begin |
| 418 |
{ |
NGwordsLine := 0; |
| 419 |
if not ReturnNGwordLineNum then begin |
if FindNGwords(ThreadStrings.Strings[i], NGwordsLine ,invisi) <> Reverse then begin |
| 420 |
//if ReturnNGwordLineNum then begin |
if invisi = true then begin |
| 421 |
for i:=0 to ThreadStrings.Count - 1 do begin |
ThreadStrings.Strings[i] := ''; |
| 422 |
if FindNGwords(ThreadStrings.Strings[i]) <> Reverse then begin |
end else begin |
| 423 |
if not SetNGResAnchor then |
if not ReturnNGwordLineNum and not SetNGResAnchor then begin |
| 424 |
ThreadStrings.Strings[i] := FAbonString |
ThreadStrings.Strings[i] := FAbonString; |
| 425 |
else |
end else if not ReturnNGwordLineNum then begin |
| 426 |
ThreadStrings.Strings[i] := Format(' <> <> <>>%d<><>',[(i+1)]); |
ThreadStrings.Strings[i] := Format(' <> <> <>>%d<><>',[(i+1)]); |
| 427 |
end else begin |
end else if not SetNGResAnchor then begin |
| 428 |
bufline := ThreadStrings.Strings[i]; |
ThreadStrings.Strings[i] := Format(' <> <> <><B> %d 行目のNGワードが含まれています。</B><><>',[NGwordsLine]); |
|
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] := ''; |
|
| 429 |
end else begin |
end else begin |
| 430 |
if not ReturnNGwordLineNum and not SetNGResAnchor then begin |
ThreadStrings.Strings[i] := Format(' <> <> <><B> %d 行目のNGワードが含まれています。</B>>%d <><>',[NGwordsLine,(i+1)]); |
|
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 行目のNGワードが含まれています。</B><><>',[NGwordsLine]); |
|
|
end else begin |
|
|
ThreadStrings.Strings[i] := Format(' <> <> <><B> %d 行目のNGワードが含まれています。</B>>%d <><>',[NGwordsLine,(i+1)]); |
|
|
end; |
|
| 431 |
end; |
end; |
| 432 |
|
end; |
| 433 |
{ |
end else begin |
| 434 |
if not SetNGResAnchor then |
bufline := ThreadStrings.Strings[i]; |
| 435 |
ThreadStrings.Strings[i] := Format(' <> <> <><B> %d 行目のNGワードが含まれています。</B><><>',[NGwordsLine]) |
if Deleterlo = true then begin |
| 436 |
else |
bufline := AnsiReplaceText( bufline,'&rlo;','' ); |
| 437 |
ThreadStrings.Strings[i] := Format(' <> <> <><B> %d 行目のNGワードが含まれています。</B>>%d <><>',[NGwordsLine,(i+1)]); |
bufline := AnsiReplaceText( bufline,'&lro;','' ); |
| 438 |
} |
end; |
| 439 |
end else begin |
if Replaceul = true then begin |
| 440 |
bufline := ThreadStrings.Strings[i]; |
bufline := AnsiReplaceText( bufline,'<ul>','<br>' ); |
| 441 |
if Deleterlo = true then begin |
bufline := AnsiReplaceText( bufline,'</ul>','<br>' ); |
| 442 |
bufline := AnsiReplaceText( bufline,'&rlo;','' ); |
end; |
| 443 |
bufline := AnsiReplaceText( bufline,'&lro;','' ); |
ThreadStrings.Strings[i] := bufline; |
| 444 |
end; |
end; |
| 445 |
if Replaceul = true then begin |
end; |
|
bufline := AnsiReplaceText( bufline,'<ul>','<br>' ); |
|
|
bufline := AnsiReplaceText( bufline,'</ul>','<br>' ); |
|
|
end; |
|
|
ThreadStrings.Strings[i] := bufline; |
|
|
end; |
|
|
end; |
|
|
|
|
|
// end; |
|
|
|
|
| 446 |
end; |
end; |
| 447 |
|
procedure TAbon.Execute(var ResString : String; ResNumber : Integer); |
| 448 |
|
var |
| 449 |
|
i : Integer; |
| 450 |
|
NGwordsLine : Integer; |
| 451 |
|
bufline : String; |
| 452 |
|
invisi : Boolean; |
| 453 |
|
begin |
| 454 |
|
NGwordsLine := 0; |
| 455 |
|
if FindNGwords(ResString, NGwordsLine ,invisi) <> Reverse then begin |
| 456 |
|
if invisi = true then begin |
| 457 |
|
ResString := ''; |
| 458 |
|
end else begin |
| 459 |
|
if not ReturnNGwordLineNum and not SetNGResAnchor then begin |
| 460 |
|
ResString := FAbonString; |
| 461 |
|
end else if not ReturnNGwordLineNum then begin |
| 462 |
|
ResString := Format(' <> <> <>>%d<><>',[(ResNumber)]); |
| 463 |
|
end else if not SetNGResAnchor then begin |
| 464 |
|
ResString := Format(' <> <> <><B> %d 行目のNGワードが含まれています。</B><><>',[NGwordsLine]); |
| 465 |
|
end else begin |
| 466 |
|
ResString := Format(' <> <> <><B> %d 行目のNGワードが含まれています。</B>>%d <><>',[NGwordsLine,(ResNumber)]); |
| 467 |
|
end; |
| 468 |
|
end; |
| 469 |
|
end else begin |
| 470 |
|
bufline := ResString; |
| 471 |
|
if Deleterlo = true then begin |
| 472 |
|
bufline := AnsiReplaceText( bufline,'&rlo;','' ); |
| 473 |
|
bufline := AnsiReplaceText( bufline,'&lro;','' ); |
| 474 |
|
end; |
| 475 |
|
if Replaceul = true then begin |
| 476 |
|
bufline := AnsiReplaceText( bufline,'<ul>','<br>' ); |
| 477 |
|
bufline := AnsiReplaceText( bufline,'</ul>','<br>' ); |
| 478 |
|
end; |
| 479 |
|
ResString := bufline; |
| 480 |
|
end; |
| 481 |
|
end; |
| 482 |
|
|
| 483 |
procedure TAbon.Execute(var ThreadStrings : TStringList; NGwords : TStringList); |
procedure TAbon.Execute(var ThreadStrings : TStringList; NGwords : TStringList); |
| 484 |
var |
var |
| 485 |
i : Integer; |
i : Integer; |
| 798 |
FAbonRes[0].option := -1; |
FAbonRes[0].option := -1; |
| 799 |
end; |
end; |
| 800 |
end; |
end; |
| 801 |
|
procedure TAbon.IndividualAbon(var ResString : String; SetResNumFile : String; ResNumber : Integer); |
| 802 |
|
var |
| 803 |
|
i : Integer; |
| 804 |
|
begin |
| 805 |
|
if FileExists(SetResNumFile) = true then begin |
| 806 |
|
if LoadFromSetResNumFile(SetResNumFile) = true then begin |
| 807 |
|
for i := 0 to High(FAbonRes) do begin |
| 808 |
|
if FAbonRes[i].Res = ResNumber then begin |
| 809 |
|
if FAbonRes[i].option = 0 then begin |
| 810 |
|
ResString := ''; |
| 811 |
|
end else begin |
| 812 |
|
ResString := 'あぼ〜ん<>あぼ〜ん<>あぼ〜ん<>あぼ〜ん<>'; |
| 813 |
|
end; |
| 814 |
|
Exit; |
| 815 |
|
end; |
| 816 |
|
end; |
| 817 |
|
end; |
| 818 |
|
end else begin |
| 819 |
|
FIndividualFileName := SetResNumFile; |
| 820 |
|
SetLength(FAbonRes,1); |
| 821 |
|
FAbonRes[0].Res := 0; |
| 822 |
|
FAbonRes[0].option := -1; |
| 823 |
|
end; |
| 824 |
|
end; |
| 825 |
|
|
| 826 |
//個別あぼ〜んファイル読み込み関数 |
//個別あぼ〜んファイル読み込み関数 |
| 827 |
function TAbon.LoadFromSetResNumFile(SetResNumFile : String) : Boolean; |
function TAbon.LoadFromSetResNumFile(SetResNumFile : String) : Boolean; |
| 828 |
var |
var |