Hi,
also ich habe jetzt erstmal die Anzahl der Einträge ausgelesen:
Delphi-Quellcode:
t := GetHTML(S);
p1 := pos('=', t);
temp := Copy(t, p1+1, length(t)) ;
p2 := pos(#10, Temp);
temp := Copy(temp, 1, p2-1);
a := strtoint(temp);
Bemerkung: Die einzelnen Einträge sind immer mit dem Zeichen #10 getrennt!
Ich bekomme somit die Zahl 4 zurück.
Nun kann ich nach den 4 Einträgen suchen.
Mich interessieren nur
File und
Title:
Delphi-Quellcode:
for i := 1 to a do
begin
temp := t;
str := Format('File%d=',[i]);
p1 := Pos(Str,temp);
temp := Copy(temp, p1 + Length(str), length(temp));
p2 := pos(#10,temp);
temp := Copy(temp,1,p2-1);
Memo1.Lines.add(Format('Stream%d %s', [i, temp]));
temp := t;
str := Format('Title%d=',[i]);
p1 := Pos(Str,temp);
temp := Copy(temp, p1 + Length(str), length(temp));
p2 := pos(#10,temp);
temp := Copy(temp,1,p2-1);
Memo1.Lines.add(Format('Title%d %s', [i, temp]));
end;
Das klappt alles gut! Jetzt wollte ich nur mal wissen, ob man das ganze noch besser
machen kann? Vielleicht hat ja jemand einen Vorschlag?