Von-Bis im Text ausschneiden

[DevilsCamp]

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