Link aus memo rauskopieren

[RuSsAk]

Hallo Leute :thumb:
Ich bräuchte ein bisschen hilfe :oops:

ich lade mir den Webbrowser Quellcode einer Website in ein memo jetzt würde ich gerne nur ein bestimmten Link zwischen:

Code:

src="https://home.navigator......

und

Code:

"

rauskopieren

ich Krieg es aber nicht hin:x kann mir bitte jemand helfen?

[Puke]

Entweder du nimmst ein HTML-Parser oder du versucht es Copy, Delete, Pos und PosEx.

Viel Spaß damit
Puke

[mkinzler]

Ist ein klassisches Anwendungsgebiet für reguläre Ausdrücke.

[Sir Rufo]

Und was ist jetzt der Unterschied zu deiner letzten Frage?
http://www.delphipraxis.net/181285-w...skopieren.html

Genau das kommt dabei raus, wenn man sich zu sehr auf die Controls versteift und dafür Methoden entwickelt.

Mit den Erkenntnissen aus der letzten Frage hättest du das bauen können:

Delphi-Quellcode:

  Edit1.Text := StringBetween( Memo1.Text, 'src="', '"' );

Warum der HTML-Text überhaupt in das Memo geladen wird und von dort für die weitere Verarbeitung geholt werden soll ist auch ein grober Fehler. Controls benutzt man ausschließlich für den Dialog mit dem Benutzer und nicht als Datenspeicher!

Insgesamt wäre ein HTML-Parser allerdings genau das richtige Werkzeug dafür.

[mkinzler]

Findet alle URLs in einem Memo:

Delphi-Quellcode:

Uses ... RegularExpressions ...
const
  pattern = '(http|ftp|https):\/\/[\w\-_]+(\.[\w\-_]+)+([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?';
var
  matches: TMatchCollection;
  match: TMatch;
begin
  matches := TRegEx.Matches( Memo.Text, pattern);
  Caption := IntToStr( matches.Count);
  for match in  matches do
  begin
    //Url in match.Value
    ...
  end;

[Puke]

Wie du siehst: Ganz einfach :mrgreen:

:gruebel::gruebel::gruebel: