・スレタイにタブ文字があるスレッドをHTML化して保存できない問題を修正

[gikonavigoeson/gikonavi.git] / MojuUtils.pas

diff --git a/MojuUtils.pas b/MojuUtils.pas
index 4291e20..1bf4a86 100644 (file)
--- a/MojuUtils.pas
+++ b/MojuUtils.pas
@@ -287,6 +287,7 @@ begin
        Result := CustomStringReplace(Result, '>', '\81\84');
        Result := CustomStringReplace(Result, '<', '\81\83');
        Result := CustomStringReplace(Result, '|', '\81b');
+       Result := CustomStringReplace(Result, #9,  '');
 end;
 (*************************************************************************
  * \96³\8cø\82ÈID\82©\82Ì\83`\83F\83b\83N\81i\96³\8cø\97á\81FID:??? , ID:???X)
@@ -366,23 +367,26 @@ begin
                p := pos - pss;
                SetString(Result, pss, p);
                Delete(s, 1, p + Length(delimiter));
-
-               if (StrByteType(PChar(Result), Length(Result)-1) = mbLeadByte) then begin
-                       SetLength(Result, Length(Result) - 1);
-               end;
+        if (Length(Result) > 0) then begin
+               if (StrByteType(PChar(Result), Length(Result)-1) = mbLeadByte) then begin
+                       SetLength(Result, Length(Result) - 1);
+                   end;
+        end;
        end else begin
                Result := s;
                s := '';
        end;
 end;
 
-//! \96³\8aQ\89»(& -> &amp; " -> &auot; \82É\95Ï\8a·\82·\82é)
+//! \96³\8aQ\89»(& -> &amp; " -> &quot; \82É\95Ï\8a·\82·\82é)
 function Sanitize(const s: String): String;
 begin
-       Result := CustomStringReplace(s, '&', '&amp;');
+    // \97]\95ª\82É\83T\83j\83^\83C\83Y\82³\82ê\82È\82¢\82æ\82¤\82É\82¢\82Á\82½\82ñ\8c³\82É\96ß\82·
+    Result := UnSanitize(s);
+       Result := CustomStringReplace(Result, '&', '&amp;');
        Result := CustomStringReplace(Result, '"', '&quot;');
 end;
-//! \96³\8aQ\89»\89ð\8f\9c(&amp; -> & &auot; -> " \82É\95Ï\8a·\82·\82é)
+//! \96³\8aQ\89»\89ð\8f\9c(&amp; -> & &quot; -> " \82É\95Ï\8a·\82·\82é)
 function UnSanitize(const s: String): String;
 begin
        Result := CustomStringReplace(s, '&quot;', '"');