Link aus Quelltext raussuchen und auflisten

[knolli]

Hallöchen!

ich habe folgendes Problem... Ich möchte ein Programm schreiben, welches mir eine Wortsammlung von Internetseiten zusammstellt.
Dazu hole ich mir den Quelltext einer von mir eingegebenen Startseite und suchen diesen nach Wörtern ab. Damit meine Wortsammlung schön groß wird, möchte ich die im Quelltext gefundenen Links auflisten und nacheinander nach dem gleichen Schema abarbeiten. Wenn das funktioniert, dann müsste das ganze ja unendlich lange gehen nzw bis die Festplatte voll ist(oder halt die DB).
Deswegen möchte ich auch diese PROCEDURE jederzeit unterbrechen können.
mein Problem liegt jetzt darin, dass ich zwar mit POS und COPY den Link lokalisieren und copieren kann, aber keine Länge für COPY angeben kann, da ich ja die Länge des Links nicht kenne. Wie kann man das am besten bewerkstelligen?

was ich bis jetz habe, ist das:

Delphi-Quellcode:

RichEdit_Quellcode.Lines.Add(iDHTTP1.Get('http://'+Editinet.Text)); //<== Protkoll angeben!!!
For i:=1 to RichEdit_Quellcode.Lines.Count do begin
Memo_Links.Lines.Add(Copy(RichEdit_Quellcode.Lines[i],POS('<a href="',RichEdit_Quellcode.Lines[i]),???)));

wo die ??? stehen hörts bei mir auf...
Ich hoffe das mir jemand helfen kann!

mfg
knolli

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Object-Pascal / Delphi-Language" verschoben.

[SirThornberry]

ein Link wird durch "</a>" abgeschlossen. Wenn du also mit PosEx danach suchst (beginnend ab dem Anfang des Links) so kannst du die Länge errechnen.

[knolli]

wie soll der befehl dann aussehen?

Delphi-Quellcode:

Memo_Links.Lines.Add(Copy(RichEdit_Quellcode.Lines[i],POS('<a href="',RichEdit_Quellcode.Lines[i]),PosEx('</a>',RichEdit_Quellcode.Lines[i]))));

oder wie sorry von PosEx höre ich heute zum ersten mal..

[mashutu]

Zitat:

Zitat von knolli

wie soll der befehl dann aussehen?

Delphi-Quellcode:

Memo_Links.Lines.Add(Copy(RichEdit_Quellcode.Lines[i],POS('<a href="',RichEdit_Quellcode.Lines[i]),PosEx('</a>',RichEdit_Quellcode.Lines[i]))));

oder wie sorry von PosEx höre ich heute zum ersten mal..

Fuer PosEx gibbet hier irgendwo im Forum Code. Aber man kann es auch mit Bordmitteln machen.

Uebersichtlicher waere es vielleicht so (kurz und knackig, aber vielleicht nicht fuer alle Zwecke in dieser Form sinnvoll):
[code=delphi]
s:=RichEdit_Quellcode.Lines[i];
i:=pos('foobar
enthalten. Daher sollte das erste Vorkommen von chr(34) NACH dem Anker das Ende des URI sein.

[s-off]

Zitat:

Zitat von mashutu

Fuer PosEx gibbet hier irgendwo im Forum Code. Aber man kann es auch mit Bordmitteln machen.

PosEx ist ein Bordmittel!
Einfach mal in der Hilfe nachschlagen - dafür ist Sie da...

Dennoch würde ich vielleicht zu dem Beispiel von Marabu greifen

Edit: Rechtschreibfehler korrigiert

[mashutu]

Zitat:

Zitat von s-off

PosEx ist ein Bordmittel!

Stimmt, sorry. Hab PosEx eingegeben und der Compiler kannte es nicht weil StrUtils nicht in der uses-anweisung stand.
Da ich vor zwanzig Jahren meine eigenen Routinen dieser Art geschrieben habe - als es die noch nicht so gab, bin ich nicht imnmer auf der Hoehe der Zeit, was mittlerweile alles mitgeliefert wird. Da ich meine eigenen Bibliotheken einsetze.

[EDIT: mit posex finde ich es jedenfalls unuebersichtlicher:

Delphi-Quellcode:

Memo_Links.Lines.Add(Copy(RichEdit_Quellcode.Lines[i],POS('<a href="',RichEdit_Quellcode.Lines[i]),PosEx('"',RichEdit_Quellcode.Lines[i],POS('<a href="',RichEdit_Quellcode.Lines[i])))));

[s-off]

Zitat:

Zitat von mashutu

Stimmt, sorry.

Sollte kein Vorwurf sein :zwinker:

[marabu]

Hallo,

natürlich lässt sich jeder Text als einfache Folge von Zeichen betrachten und mittels PosEx() und Copy() untersuchen. Berücksichtigt man die besondere Semantik (HTML), dann hilft vielleicht ExtractLinks() weiter.

Freundliche Grüße

[mashutu]

Zitat:

Zitat von s-off

Zitat:

Zitat von mashutu

Stimmt, sorry.

Sollte kein Vorwurf sein :zwinker:

Neee, is schon in Ordnung. Bin immer froh, wenn ich mal ein paar alte Assemblerfunktionen aus meinem Code schmiessen kann und was dazulerne... :-)