サブジェクトの「@」+「`」→「,」置換も、区切りが「,」のときにだけ行うよう
にしてください。具体的には、DivideNichSubjectの最終行の
Title := StringReplace(Title, '@`',',',[rfReplaceAll]);
を、
Title := Trim(StrTokNext([','], Rec));
の次の行へ移動すればOKです。
テスト用スレッドです。
http://www2.bbspink.com/test/read.cgi?bbs=kitchen&key=993180315&ls=100 そういえば
//**名無しさん** 2001/06/10 begin
//Title := Trim(StringReplace(Title, '(' + ws + ')', '', [rfReplaceAll]));
//**名無しさん** 2001/06/10 end
がコメントアウトされてるのはどうしてですか? takoでタイトルの後ろに
(レス数)がくっつくようになっちゃったんですけど…。
あと、外側の
if Copy(subject, Length(subject), 1) = '>' then begin
って判定はまったく必要ないような…。
「ログを取得するとき」だとダウンロードのとき、とかいう誤解を招きそうだ
から「ログを解析するとき」に訂正。
>>171の問題まだ直ってません(
>>202参照)。
TMainForm.LoadResの
if (ThreadItem.IsKakoLog) then begin
Downloader.DownloadFromCache := True;
end;
で、一覧から消えたとき強制的にキャッシュから読み込むようにしている
のが原因と思われ。
&をそのまま貼ってシパーイした
S := StringReplace(s, '♥', '♥', [rfReplaceAll]);
S := StringReplace(s, '&#', '&#', [rfReplaceAll]);