| 18 |
GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload, |
GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload, |
| 19 |
Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd, |
Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd, |
| 20 |
FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan, |
FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan, |
| 21 |
HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil; |
HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil, |
| 22 |
|
AbonUnit; |
| 23 |
|
|
| 24 |
type |
type |
| 25 |
TGikoTreeType = (gttNone, gtt2ch, gttHistory); |
TGikoTreeType = (gttNone, gtt2ch, gttHistory); |
| 5891 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 5892 |
Header: string; |
Header: string; |
| 5893 |
Body: string; |
Body: string; |
| 5894 |
|
|
| 5895 |
|
Abonizer : TAbon; |
| 5896 |
begin |
begin |
| 5897 |
try |
try |
| 5898 |
if StNum > ToNum then begin |
if StNum > ToNum then begin |
| 5918 |
end; |
end; |
| 5919 |
end; |
end; |
| 5920 |
|
|
| 5921 |
|
Abonizer := TAbon.Create; |
| 5922 |
|
Abonizer.Setroot( GikoSys.GetAppDir ); |
| 5923 |
|
Abonizer.SetNGwordpath( 'NGword.txt' ); |
| 5924 |
|
|
| 5925 |
for i := StNum to ToNum do begin |
for i := StNum to ToNum do begin |
| 5926 |
Line := i; |
Line := i; |
| 5927 |
FileName := IncludeTrailingPathDelimiter(BBS2ch.GetLogFolder + sBoard) + sThread + '.dat'; |
FileName := IncludeTrailingPathDelimiter(BBS2ch.GetLogFolder + sBoard) + sThread + '.dat'; |
| 5928 |
tmp := GikoSys.ReadThreadFile(FileName, Line); |
tmp := GikoSys.ReadThreadFile(FileName, Line); |
| 5929 |
if tmp <> '' then begin |
|
| 5930 |
|
if (tmp <> '') And (Not Abonizer.FindNGwords( tmp )) then begin |
| 5931 |
Res := GikoSys.DivideStrLine(tmp); |
Res := GikoSys.DivideStrLine(tmp); |
| 5932 |
|
|
| 5933 |
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime; |
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime; |
| 5945 |
// s := StringReplace(s, '@`', ',', [rfReplaceAll]); |
// s := StringReplace(s, '@`', ',', [rfReplaceAll]); |
| 5946 |
end; |
end; |
| 5947 |
end; |
end; |
| 5948 |
|
|
| 5949 |
|
Abonizer.Destroy; |
| 5950 |
end; |
end; |
| 5951 |
finally |
finally |
| 5952 |
end; |
end; |