| 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 |
|
|
| 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); |
| 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 |
|
|