[Delphi] bestimmten teil auslesen einer Website

Undzwar bräuchte ich kurz eure hilfe weil ich leider nur Delphi 2010 hier hab
und kein Visual Studio naja egal vllt. könnt ihr mir helfen
undzwar geht es um diese Website Welcome to 0dayKingz.org (Showing last 30 releases) - 0DayKingz NFO Source
ich wollte das es so funktioniert

Welcome to 0dayKingz.org (Showing last 30 releases) - 0DayKingz NFO Source gebe ich in die textbox ein
ich drücke auf auf Button1

und jetzt sollte er von der website den quelltext lesen und dann ein bestimmten teil rauskopieren hier ein teil des quelltext ausdem er die daten rausgeben soll

</tr>
<tr style="background: #eeeeee;">
<td height="20"><a href="/nfo/RKH.Verlag.-.Kulturschock.Frankreich.3.Edition.2009.German.Ret ail.Ebook-ATTiCA">RKH.Verlag.-.Kulturschock.Frankreich.3.Edition.2009.German.Ret ail.Ebook-ATTiCA</a></td>
<td><a href="/group/ATTiCA">ATTiCA</a></td>
<td><a href="/date/2010-08-28">2010-08-28 06:52</a></td>
den grünen teil sollte er rauskopieren und in eine txt. speichern das sollte den so aussehen

RKH.Verlag.-.Kulturschock.Frankreich.3.Edition.2009.German.Ret ail.Ebook-ATTiCA">RKH.Verlag.-.Kulturschock.Frankreich.3.Edition.2009.German.Ret ail.Ebook-ATTiC - 2010-08-28 06:52

und das solange bis er die ganze website ausgelesen hat

dann würde ich halt so eine liste haben

blablabla - 12-12-2012 - 9:35
hallodshskld - 12-12-2012 - 06:55

vllt. könnt ihr mir dabei helfen

mit indy htpp über get die website downloaden und dann einfach verarbeiten ...

der korekte befehl zum suchen einer zeile müsste wohl
for i:=0 to 29 do
begin
text[i]:=copy(text,pos('/nfo')+4,pos('</a>')-pos('/nfo')+4); sein
delete(oder del)(text,pos('/nfo')+4,pos('</a>')-pos('/nfo')-4);
end;

ah vdmt hab den copy befehl falsch im kopf gehabt trixx3r hat recht die letzte stelle gibt die anzahl der zu kopierenden zeichen an

hier mal ne alte function von mir ;)

Zitat:

---

function GetTitleFromHTML(HTMLDoc: String):String;
var
I: Integer;
Found: Boolean;
html: TStringList;
begin
html := TStringList.create;
html.loadfromfile(htmldoc);
i := 0;
found := false;
while not found do
begin
if pos('<a href="/nfo/', html.strings[i]) > 0 then
begin
Result := copy(html.strings[i], pos('<a href="/nfo/', html.strings[i]) + 14, (pos('</a></td>', html.strings[i]) - pos('<a href="/nfo/', html.strings[i]) - 14));
Found := true;
end
else
begin
Inc(i);
end;
end;
html.free;
end;


//Anwendungsbeispiel:
showmessage(GetTitleFromHTML(opendialog1.filename) );

---