Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by h677, Tue Aug 12 14:15:18 2003 UTC revision 1.6 by h677, Wed Aug 13 05:09:14 2003 UTC
# Line 90  type Line 90  type
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;
# Line 185  type Line 187  type
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
# Line 231  const Line 230  const
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\';
# Line 259  begin Line 258  begin
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  (*************************************************************************  (*************************************************************************
# Line 918  begin Line 917  begin
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;
# Line 961  begin Line 963  begin
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
# Line 1054  begin Line 1059  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]);
# Line 2566  begin Line 2575  begin
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;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26