半角カンマの文字化け対策とIDの表示

diff --git a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr
index 09814f3..f0a3025 100644 (file)
--- a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr
+++ b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr
@@ -407,7 +407,7 @@ begin
                if (responseCode = 200) or (responseCode = 206) then begin
                        downResult := TStringList.Create;
                        try
-                tmpText := CustomStringReplace( string( tmp ), '¡÷¡®', ' ' );
+                tmpText := CustomStringReplace( string( tmp ), '¡÷¡®', ',' );
                                downResult.Text := EUCtoSJIS( tmpText );
                                if downResult.Count > 0 then begin
                                        if FileExists( FilePath ) then
@@ -516,6 +516,7 @@ begin
 
        // \93Æ\8e©\82É\83t\83B\83\8b\83^\83\8a\83\93\83O\82ð\8ds\82í\82È\82¢\8fê\8d\87\82Í
        // InternalAbon \82¨\82æ\82Ñ Dat2HTML \82É\94C\82¹\82é\82±\82Æ\82ª\8fo\97\88\82é
+    {
        LoadDat;
        if FDat = nil then begin
                // \83\8d\83O\82É\91¶\8dÝ\82µ\82È\82¢\82Ì\82Å\82±\82Ì\82Ü\82Ü\8fI\97¹
@@ -523,6 +524,8 @@ begin
                Exit;
        end;
        res := Copy( FDat[ inNo - 1 ], AnsiPos( '<>', FDat[ inNo - 1 ] ) + 2, MaxInt );
+    }
+    res := GetDat( inNo );
        tmp := InternalAbonForOne( PChar( res ), PChar( FilePath ),inNo );
        try
                Result := Dat2HTML( string( tmp ), inNo );
@@ -540,6 +543,8 @@ function TShitarabaThreadItem.GetDat(
 ) : string;                                            // \82Q\82¿\82á\82ñ\82Ë\82é\82ÌDat\8c`\8e®
 var
        res                     : string;
+    tmp                        : array[1..5] of string;
+    i                  : Integer;
 begin
 
        // \93Æ\8e©\82É\83t\83B\83\8b\83^\83\8a\83\93\83O\82ð\8ds\82í\82È\82¢\8fê\8d\87\82Í
@@ -551,8 +556,16 @@ begin
                Exit;
        end;
     try
+
                res := Copy( FDat[ inNo - 1 ], AnsiPos( '<>', FDat[ inNo - 1 ] ) + 2, MaxInt );
-               Result := res;
+        //\96\96\94ö\82ÉID\82ª\95\\8e¦\82³\82ê\82Ä\82¢\82é\82Ì\82Å\82»\82ê\82ð\93\8a\8de\93ú\82Ì\82Æ\82±\82ë\82É\93ü\82ê\82é
+        // \96¼\91O<>\83\81\81[\83\8b<>\93ú\95t<>\96{\95¶<>\83X\83\8c\83^\83C<>ID
+        for i := 0 to 4 do begin
+               tmp[ i + 1 ] := Copy( res, 1, AnsiPos('<>', res) - 1 );
+               Delete( res, 1, AnsiPos('<>', res) + 1 );
+               end;
+        // \96¼\91O<>\83\81\81[\83\8b<>\93ú\95tID<>\96{\95¶<>\83X\83\8c\83^\83C
+               Result := tmp[1] + '<>' + tmp[2] + '<>' + tmp[3] + ' ' + res + '<>'+ tmp[4] + '<>' +tmp[5];
        except
        Result := '';
        end;
@@ -918,7 +931,7 @@ begin
                                ForceDirectoriesEx( Copy( FilePath, 1, LastDelimiter( '\', FilePath ) ) );
 
                                // EUC \82ð Shift_JIS \82É
-                tmpText := CustomStringReplace( string( downResult ), '¡÷¡®', ' ');
+                tmpText := CustomStringReplace( string( downResult ), '¡÷¡®', ',');
                                FDat.Text := EUCtoSJIS( tmpText );
                                // \82µ\82½\82ç\82Î JBBS \82Í\83`\83F\83b\83N\97p\82É\90æ\93ª\82Æ\8dÅ\8fI\8ds\82ª\93¯\82¶
                                i := FDat.Count - 1;