PosEx gibt die Stelle des gefundenen SubStr in Str zurück. Wird SubStr
nicht in Str gefunden, so ist der Rückgabewert 0
Delphi-Quellcode:
procedure GetUrls(Str: string; stringliste: TStringList);
var
index: Integer;
indexStringEnde: Integer;
begin
stringliste.Clear;
index := Pos('<a href="', Str);
while (index > 0) do
begin
// Hier dein Copy-Befehl und sonstiges um die Daten zu ermitteln
// z.B.
indexStringEnde := PosEx('"', Str, index + Length('<a href="'));
stringliste.Add(Copy(Str, index + Length('<a href="'), indexStringEnde));
index := PosEx(SubStr, Str, index + 1);
end;
end;
Aus Mangel an Delphi (im Moment), konnte ich das gerade nicht testen (v.a. bin ich mir gerade mit dem korrekten Aufruf von Copy und PosEx nicht sicher
).
Es sollte aber so funktionieren.
Grüße,
Marc