Von-Bis im Text ausschneiden

[Eppos]

Hallo zusammen,

ich habe folgende Problematik.

Ich habe eine Textdatei in der ich bestimme sachen ausschneiden möchte.
Ich Suche nach der Stelle: <a href="
Wenn ich diese gefunden habe, möchte ich gerne ab dem Gänsefüsschen
bis zum nächsten Gänsefüsschen den Inhalt auslesen.
Im Text sind es meistens ca. 10 st.


Meine Frage,
hat jemand sollch eine Funktion schon oder ein Beispiel?

Vielen Dank

[Dax]

Reguläre Ausdrücke wären was für dich ;) '<a href="(.[^"]*?)"'

[Hador]

Entweder das oder mit PosEx und Copy

[Eppos]

Ok das verstehe ich, aber was ich noch nicht verstehe ist folgendes.

Wenn mehrere Links in dieser Textdatei stehen, wie kann ich das dann
durch eine Schelife laufen lassen?
Also wie springe ich zur nächsten Position und wohere weiss ich
das ich am Ende bin?

[taaktaak]

Du sprichst von einer Textdatei. Die wird üblicherweise zeilenweise gelesen/geschrieben. Innerhalb der Zeile wird dann wie vorstehend beschrieben gesucht und geschnippelt :coder:

[DeddyH]

Und Funktionen wie PosEx() haben einen Rückgabewert, den man auswerten kann ;)

[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