| 90 |
FAWKStr: TAWKStr; |
FAWKStr: TAWKStr; |
| 91 |
// FExitWrite: TStringList; |
// FExitWrite: TStringList; |
| 92 |
// function StrToFloatDef(s: string; Default: Double): Double; |
// function StrToFloatDef(s: string; Default: Double): Double; |
| 93 |
FAbon : TAbon; |
|
| 94 |
public |
public |
| 95 |
{ Public 宣言 } |
{ Public 宣言 } |
| 96 |
|
FAbon : TAbon; |
| 97 |
constructor Create; |
constructor Create; |
| 98 |
|
|
| 99 |
destructor Destroy; override; |
destructor Destroy; override; |
| 100 |
|
|
| 101 |
|
|
| 102 |
// function MsgBox(Msg: string; Title: string; Flags: Longint): integer; overload; |
// function MsgBox(Msg: string; Title: string; Flags: Longint): integer; overload; |
| 103 |
// function MsgBox(Handle: THandle; Msg: string; Title: string; Flags: Longint): integer; overload; |
// function MsgBox(Handle: THandle; Msg: string; Title: string; Flags: Longint): integer; overload; |
| 104 |
function IsNumeric(s: string): boolean; |
function IsNumeric(s: string): boolean; |
| 187 |
procedure ParseURI(var URL, Protocol, Host, Path, Document, Port, Bookmark: string); |
procedure ParseURI(var URL, Protocol, Host, Path, Document, Port, Bookmark: string); |
| 188 |
function GetVersionBuild: Integer; |
function GetVersionBuild: Integer; |
| 189 |
|
|
|
//NGワードがらみ |
|
|
function ReloadNGwordFile() : Boolean; |
|
|
procedure OpenNGwordFile(); |
|
| 190 |
end; |
end; |
| 191 |
|
|
| 192 |
var |
var |
| 230 |
FOLDER_INDEX_VERSION = '1.01'; |
FOLDER_INDEX_VERSION = '1.01'; |
| 231 |
USER_AGENT = 'Monazilla'; |
USER_AGENT = 'Monazilla'; |
| 232 |
APP_NAME = 'gikoNavi'; |
APP_NAME = 'gikoNavi'; |
| 233 |
|
DEFAULT_NGWORD_FILE_NAME : String = 'NGword.txt'; |
| 234 |
// TITLE_NAME: string = '2ちゃんねる'; |
// TITLE_NAME: string = '2ちゃんねる'; |
| 235 |
// ROOT_NODE_NAME: string = '2ちゃんねる'; |
// ROOT_NODE_NAME: string = '2ちゃんねる'; |
| 236 |
// LOG_DIR: string = 'Log\'; |
// LOG_DIR: string = 'Log\'; |
| 258 |
// FExitWrite.Duplicates := dupIgnore; |
// FExitWrite.Duplicates := dupIgnore; |
| 259 |
FAbon := TAbon.Create; |
FAbon := TAbon.Create; |
| 260 |
FAbon.Setroot(GetAppDir); |
FAbon.Setroot(GetAppDir); |
| 261 |
FAbon.SetNGwordpath('NGword.txt'); |
FAbon.SetNGwordpath(DEFAULT_NGWORD_FILE_NAME); |
| 262 |
end; |
end; |
| 263 |
|
|
| 264 |
(************************************************************************* |
(************************************************************************* |
| 917 |
FileName := ThreadItem.GetThreadFileName; |
FileName := ThreadItem.GetThreadFileName; |
| 918 |
bufList := TStringList.Create; |
bufList := TStringList.Create; |
| 919 |
ReadList := TStringList.Create; |
ReadList := TStringList.Create; |
| 920 |
|
FAbon.Deleterlo := FSetting.AbonDeleterlo; |
| 921 |
|
FAbon.Replaceul := FSetting.AbonReplaceul; |
| 922 |
|
FAbon.SetCutoffNum(FSetting.AbonCutoffNum); |
| 923 |
|
FAbon.AbonPopupRes := FSetting.PopUpAbon; |
| 924 |
try |
try |
| 925 |
if ThreadItem.IsLogFile then begin |
if ThreadItem.IsLogFile then begin |
| 926 |
bufList.LoadFromFile(FileName); |
bufList.LoadFromFile(FileName); |
| 927 |
//Executeの3つのBool値 |
//後ろのBooleanの引数はAbonのプロパティにした |
| 928 |
//1-&rloがあったら削除する 2-<ul>タグを<br>タグにする 3-NGワードにひっかっかもののみ表示する |
ReadList.AddStrings( FAbon.Execute(bufList) ); |
|
ReadList.AddStrings( FAbon.Execute(bufList,true,false,false) ); |
|
| 929 |
Res := DivideStrLine(ReadList[0]); |
Res := DivideStrLine(ReadList[0]); |
| 930 |
Res.FTitle := StringReplace(Res.FTitle, '@`', ',', [rfReplaceAll]); |
Res.FTitle := StringReplace(Res.FTitle, '@`', ',', [rfReplaceAll]); |
| 931 |
sTitle := Res.FTitle; |
sTitle := Res.FTitle; |
| 963 |
SaveList.Add('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>'); |
SaveList.Add('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>'); |
| 964 |
end; |
end; |
| 965 |
Res := DivideStrLine(ReadList[i]); |
Res := DivideStrLine(ReadList[i]); |
| 966 |
|
if FAbon.Cutoff(Res.FBody) = true then begin |
| 967 |
|
Res := DivideStrLine(FAbon.AbonString); |
| 968 |
|
end; |
| 969 |
Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
| 970 |
|
|
| 971 |
if Res.FType = glt2chOld then begin |
if Res.FType = glt2chOld then begin |
| 1059 |
SaveList.Add('<dl>'); |
SaveList.Add('<dl>'); |
| 1060 |
end; |
end; |
| 1061 |
Res := DivideStrLine(ReadList[i]); |
Res := DivideStrLine(ReadList[i]); |
| 1062 |
|
if FAbon.Cutoff(Res.FBody) = true then begin |
| 1063 |
|
Res := DivideStrLine(FAbon.AbonString); |
| 1064 |
|
end; |
| 1065 |
|
|
| 1066 |
Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
| 1067 |
if Res.FType = glt2chOld then begin |
if Res.FType = glt2chOld then begin |
| 1068 |
Res.FMailTo := StringReplace(Res.FMailTo, '@`', ',', [rfReplaceAll]); |
Res.FMailTo := StringReplace(Res.FMailTo, '@`', ',', [rfReplaceAll]); |
| 2575 |
FreeMem(pVersionInfo, VersionSize); |
FreeMem(pVersionInfo, VersionSize); |
| 2576 |
end; |
end; |
| 2577 |
end; |
end; |
|
function TGikoSys.ReloadNGwordFile() : Boolean; |
|
|
begin |
|
|
Result := FAbon.ReLoadFromNGwordFile; |
|
|
end; |
|
|
procedure TGikoSys.OpenNGwordFile(); |
|
|
begin |
|
|
FAbon.EditNGwords; |
|
|
end; |
|
|
|
|
|
|
|
| 2578 |
|
|
| 2579 |
initialization |
initialization |
| 2580 |
GikoSys := TGikoSys.Create; |
GikoSys := TGikoSys.Create; |