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.241 by eggcake, Sun Apr 13 04:20:24 2008 UTC revision 1.242 by h677, Sun Apr 13 10:23:58 2008 UTC
# Line 287  const Line 287  const
287          NGWORDs_DIR_NAME : String               = 'NGwords';          NGWORDs_DIR_NAME : String               = 'NGwords';
288    
289          READ_PATH: string =                     '/test/read.cgi/';          READ_PATH: string =                     '/test/read.cgi/';
290        HTML_READ_PATH: string =        '/test/read.html/';
291          OLD_READ_PATH: string =         '/test/read.cgi?';          OLD_READ_PATH: string =         '/test/read.cgi?';
292          KAKO_PATH: string =                     '/kako/';          KAKO_PATH: string =                     '/kako/';
293    
# Line 1838  begin Line 1839  begin
1839          Index := AnsiPos(READ_PATH, path);          Index := AnsiPos(READ_PATH, path);
1840          if Index <> 0 then begin          if Index <> 0 then begin
1841                  s := Copy(path, Index + Length(READ_PATH), Length(path));                  s := Copy(path, Index + Length(READ_PATH), Length(path));
1842        end else begin
1843            Index := AnsiPos(HTML_READ_PATH, path);
1844            if Index <> 0 then begin
1845                s := Copy(path, Index + Length(HTML_READ_PATH), Length(path));
1846            end;
1847        end;
1848        if Index <> 0 then begin
1849                  if (Length(s) > 0) and (s[1] = '/') then                  if (Length(s) > 0) and (s[1] = '/') then
1850                          Delete(s, 1, 1);                          Delete(s, 1, 1);
1851                  BBSID := GetTokenIndex(s, '/', 0);                  BBSID := GetTokenIndex(s, '/', 0);
# Line 2067  begin Line 2074  begin
2074                  //標準書式                  //標準書式
2075                  //最後はl50, 10, 10-20, 10n, 10-20n, -10, 10-, 10n- など                  //最後はl50, 10, 10-20, 10n, 10-20n, -10, 10-, 10n- など
2076                  //http://xxx.2ch.net/test/read.cgi/bbsid/1000000000/                  //http://xxx.2ch.net/test/read.cgi/bbsid/1000000000/
2077                  FAWKStr.RegExp := '/test/read.cgi/.+/[0-9]+/?.*';                  FAWKStr.RegExp := '/test/read.(cgi|html)/.+/[0-9]+/?.*';
2078                  if FAWKStr.Match(FAWKStr.ProcessEscSeq(s), RStart, RLength) > 0 then begin                  if FAWKStr.Match(FAWKStr.ProcessEscSeq(s), RStart, RLength) > 0 then begin
2079                          s := Copy(s, 15, Length(s));                          s := Copy(s, 15, Length(s));
2080    

Legend:
Removed from v.1.241  
changed lines
  Added in v.1.242

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