Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/MojuUtils.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.16 by h677, Sun Dec 4 08:53:21 2005 UTC revision 1.17 by h677, Tue Dec 6 14:09:23 2005 UTC
# Line 31  uses Line 31  uses
31          function IsNoValidID( inID :String): Boolean;          function IsNoValidID( inID :String): Boolean;
32          //<font>タグを全て削除する          //<font>タグを全て削除する
33          function        DeleteFontTag( inSource : string) : string;          function        DeleteFontTag( inSource : string) : string;
34          function DivideStrLine(Line: string): TResRec;          procedure DivideStrLine(Line: string; PRes: PResRec);
35          function RemoveToken(var s: string;const delimiter: string): string;          function RemoveToken(var s: string;const delimiter: string): string;
36    
37  implementation  implementation
# Line 340  end; Line 340  end;
340  \param Line datファイルを構成する 1 行  \param Line datファイルを構成する 1 行
341  \return     レス情報  \return     レス情報
342  }  }
343  function DivideStrLine(Line: string): TResRec;  procedure DivideStrLine(Line: string; PRes: PResRec);
344  const  const
345          delimiter = '<>';          delimiter = '<>';
346  var  var
# Line 358  begin Line 358  begin
358                  Line := CustomStringReplace(Line, '@`', ',');                  Line := CustomStringReplace(Line, '@`', ',');
359          end;          end;
360          //Delim := '<>';          //Delim := '<>';
361          Result.FType := glt2chNew;          {Result.FType := glt2chNew;
362          //Trimしてはいけない気がする byもじゅ          //Trimしてはいけない気がする byもじゅ
363          Result.FName := RemoveToken(Line, delimiter);          Result.FName := RemoveToken(Line, delimiter);
364          Result.FMailTo := RemoveToken(Line, delimiter);          Result.FMailTo := RemoveToken(Line, delimiter);
# Line 372  begin Line 372  begin
372                  Result.FBody := '&nbsp;';                  Result.FBody := '&nbsp;';
373    
374          Result.FTitle := RemoveToken(Line, delimiter);          Result.FTitle := RemoveToken(Line, delimiter);
375            }
376            PRes^.FType := glt2chNew;
377            //Trimしてはいけない気がする byもじゅ
378            PRes^.FName := RemoveToken(Line, delimiter);
379            PRes^.FMailTo := RemoveToken(Line, delimiter);
380            PRes^.FDateTime := RemoveToken(Line, delimiter);
381            PRes^.FBody := RemoveToken(Line, delimiter);
382            //2ちゃんねるとかだと、本文の先頭に1つ半角空白が入っているので削除する
383            //他の掲示板で、レス自体の空白かもしれないけどそれは諦める
384            PRes^.FBody := TrimLeft(PRes^.FBody);
385            //空だと問題が起きるから、空白を設定する
386            if PRes^.FBody = '' then
387                    PRes^.FBody := '&nbsp;';
388    
389            PRes^.FTitle := RemoveToken(Line, delimiter);
390  end;  end;
391    
392  (*************************************************************************  (*************************************************************************

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26