スレのHTMLを作る部分で、CSSの時だけ古い2ch形式のログの変換がなかったので一応追加。

diff --git a/GikoSystem.pas b/GikoSystem.pas
index e8da9a3..c1d0165 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -1341,6 +1341,11 @@ begin
                                        if (Trim(ReadList[i]) <> '') then begin
                                                No := IntToStr(i + 1);
                                                Res := DivideStrLine(ReadList[i]);
+                                               if Res.FType = glt2chOld then begin
+                                                       Res.FMailTo := CustomStringReplace(Res.FMailTo, '\81\97\81M', ',');
+                                                       Res.FName := CustomStringReplace(Res.FName, '\81\97\81M', ',');
+                                                       Res.FBody := CustomStringReplace(Res.FBody, '\81\97\81M', ',');
+                                               end;
                                                Res.FBody := AddAnchorTag(Res.FBody);
                                                Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true');
                                                if Res.FMailTo = '' then
@@ -1619,6 +1624,11 @@ begin
                                        if (Trim(ReadList[i]) <> '') then begin
                                                No := IntToStr(i + 1);
                                                Res := DivideStrLine(ReadList[i]);
+                                               if Res.FType = glt2chOld then begin
+                                                       Res.FMailTo := CustomStringReplace(Res.FMailTo, '\81\97\81M', ',');
+                                                       Res.FName := CustomStringReplace(Res.FName, '\81\97\81M', ',');
+                                                       Res.FBody := CustomStringReplace(Res.FBody, '\81\97\81M', ',');
+                                               end;
                                                Res.FBody := AddAnchorTag(Res.FBody);
                                                Res.FBody := ConvertResAnchor(ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true', true));
                                                if Res.FMailTo = '' then