今コピーしているものをペーストするスレ＠プ板

// subback.html 形式の文字列からスレッド一覧を読み込み
procedure T2chThreadList.LoadFromHtml(Source: String);
var
　Line, Tt, Dt: String;
　List: TStringList;
　I, P: Integer;
begin
　Clear;

　List := TStringList.Create;
//　List.Text := AnsiReplaceStr(Source, #10, #13#10);
　List.Text := Source;
　for I := 0 to List.Count - 1 do
　begin
　　Line := List[I];
　　if AnsiStartsStr('<a href="', Line) then
　　begin
　　　// DAT
　　　System.Delete(Line, 1, Length('<a href="'));
　　　P := AnsiPos('">', Line);
　　　Dt := Copy(Line, 1, P - 1);
　　　P := AnsiPos('/', Dt);
　　　if P <> 0 then
　　　　Dt := Copy(Dt, 1, P - 1);

　　　// Title
　　　P := AnsiPos(': ', Line);
　　　System.Delete(Line, 1, P + Length(': ') - 1);
　　　P := AnsiPos('</a>', Line);
　　　Tt := Copy(Line, 1, P - 1);

　　　if Length(Tt) > 0 then
　　　begin
　　　　if Tt[Length(Tt)] = ')' then
　　　　　P := BackAnsiPos('(', Tt)
　　　　else if Tt[Length(Tt)] = '>' then
　　　　　P := BackAnsiPos('<', Tt);
　　　end else
　　　　Break;

　　　with Add do
　　　begin
　　　　Dat := Dt;
　　　　ResCount := StrToIntDef(Copy(Tt, P + 1, Length(Tt) - P - 1), 0);
　　　　Title := Copy(Tt, 1, P - 1);
　　　end;
　　end;
　end;
　List.Free;
end;