| 6776 |
// 文字コードはプラグインに任せる |
// 文字コードはプラグインに任せる |
| 6777 |
for i := StNum to ToNum do begin |
for i := StNum to ToNum do begin |
| 6778 |
Line := i; |
Line := i; |
| 6779 |
//ここで2ちゃんねるのdatの形式で1行読み込めれば・・・。 |
//ここで2ちゃんねるのdatの形式で1行読み込めれば・・・。↓読めるようになった |
| 6780 |
tmp := boardPlugIn.GetDat( DWORD( threadItem ), i ); |
tmp := boardPlugIn.GetDat( DWORD( threadItem ), i ); |
| 6781 |
if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin |
if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin |
| 6782 |
Res := GikoSys.DivideStrLine(tmp); |
Res := GikoSys.DivideStrLine(tmp); |
| 6783 |
|
if (GikoSys.Setting.ShowMail = false) or (Length(res.FMailTo) = 0) then |
| 6784 |
|
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime |
| 6785 |
|
else |
| 6786 |
|
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' [' + res.FMailTo + '] 投稿日: ' + Res.FDateTime; |
| 6787 |
|
|
|
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime; |
|
| 6788 |
|
|
| 6789 |
Body := CustomStringReplace(Res.FBody, '<br> ', #10,true); |
Body := CustomStringReplace(Res.FBody, '<br> ', #10,true); |
| 6790 |
Body := CustomStringReplace(Body, '<br>', #10,true); |
Body := CustomStringReplace(Body, '<br>', #10,true); |
| 6807 |
tmp := GikoSys.ReadThreadFile(FileName, Line); |
tmp := GikoSys.ReadThreadFile(FileName, Line); |
| 6808 |
if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin |
if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin |
| 6809 |
Res := GikoSys.DivideStrLine(tmp); |
Res := GikoSys.DivideStrLine(tmp); |
| 6810 |
|
if (GikoSys.Setting.ShowMail = false) or (Length(res.FMailTo) = 0) then |
| 6811 |
|
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime |
| 6812 |
|
else |
| 6813 |
|
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' [' + res.FMailTo + '] 投稿日: ' + Res.FDateTime; |
| 6814 |
|
|
|
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime; |
|
| 6815 |
Body := CustomStringReplace(Res.FBody, '<br> ', #10,true); |
Body := CustomStringReplace(Res.FBody, '<br> ', #10,true); |
| 6816 |
Body := CustomStringReplace(Body, '<br>', #10,true); |
Body := CustomStringReplace(Body, '<br>', #10,true); |
| 6817 |
Body := CustomStringReplace(Body, '</a>', '',true); |
Body := CustomStringReplace(Body, '</a>', '',true); |