OSDN Git Service

・したらば JBBS の subject.txt は上下が同じなのでそれに対応。
authoryoffy <yoffy>
Wed, 26 Nov 2003 12:50:32 +0000 (12:50 +0000)
committeryoffy <yoffy>
Wed, 26 Nov 2003 12:50:32 +0000 (12:50 +0000)
res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr

index 96fe3c2..c1c51d1 100644 (file)
@@ -798,6 +798,7 @@ var
        responseCode    : Longint;
        uri                                             : TIdURI;
        uriList                         : TStringList;
+       i                                                       : Integer;
 begin
 
        Result := dsError;
@@ -835,6 +836,11 @@ begin
 
                                // EUC \82ð Shift_JIS \82É
                                FDat.Text := EUCtoSJIS( string( downResult ) );
+                               // \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;
+                               if i > 0 then   // 1 \8cÂ\82¾\82Á\82½\82ç\8fã\89º\82à\82­\82»\82à\96³\82¢\82©\82ç 0 \82Í\8aÜ\82Ü\82¸
+                                       if FDat[ 0 ] = FDat[ i ] then
+                                               FDat.Delete( i );
                                // \95Û\91
                                FDat.SaveToFile( FilePath );