| 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 |
| 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 |
| 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); |
| 372 |
Result.FBody := ' '; |
Result.FBody := ' '; |
| 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 := ' '; |
| 388 |
|
|
| 389 |
|
PRes^.FTitle := RemoveToken(Line, delimiter); |
| 390 |
end; |
end; |
| 391 |
|
|
| 392 |
(************************************************************************* |
(************************************************************************* |