Link aus Quelltext raussuchen und auflisten

[Larsi]

wende doch nochmal pos mit'http:' oder so an :)

kannste mir vielleicht mal ne exe datei deines projektes schicken. würde das gern bei meiner homepage mal ausprobieren :)

[s-off]

@mashutu:
Mein Kommentar war nicht gegen Dich gerichtet. Er sollte dem Threadersteller lediglich als Antwort auf seine Frage dienen:

Zitat:

Zitat von knolli

@s-off: warum werde ich damit nich tweit kommen?

Darum kann ich auch absolut nicht nachvollziehen, warum er auf biegen und brechen versucht, auf Kopfsteinpflaster an sein Ziel zu kommen, wenn er auch auf Asphalt fahren kann.

@knolli

Zitat:

Zitat von knolli

und ich habe mir das beispiel angeschaut, aber ich finde es zu kompliziert. ich kann da einfach nix draus lesen (sorry aba da bin ich vllt zu blöd dafür)

Und wenn Du etwas nicht verstehst, gibst Du gleich auf? Mit dieser Einstellung wirst Du nicht nur in diesem Projekt scheitern, sondern auf ganzer Linie.
Die Zeit, die Du bisher in diesen Thread investiert hast, hättest Du dafür Aufwenden sollen, Dich in Bezug auf die Dir genannten Vorschläge weiterzubilden.

[HERMES]

Wie wäre es man statt mit pos oder ähnlichem einen richtigen Parser einsetzt? Ich denke man könnte hier auch den MS-XML Parser einsetzen, die benötigten Klassen und Interfaces liefert Delphi mit (mindestens ab D7). Oder man kann beispielweise mit Yacc für Delphi (http://delphiwiki.de/wiki/index.php?title=SRLexYacc) einen eigenen Parser generieren lassen, der ähnlilch schnell und wesentlich besser sein sollte als irgendwelche spielerreien mit pos.

mfg

[knolli]

so ich hab jetz eine eigene Lösung:

Delphi-Quellcode:

procedure TForm1.ExtractLinks(Sender: TObject);
var
i, iStop:integer;
sLink:String;
begin
sLink:='';
iStop:=Memo_Quellcode.Lines.Count-1;
Memo_Temp.Clear;
for i:=0 to iStop do
 begin
  IF MatchesMask(Memo_Quellcode.Lines[i], '*href="http://*"*') then
  begin
   Memo_Temp.Lines.Add(Copy(Memo_Quellcode.Lines[i],POS('href="',Memo_Quellcode.Lines[i])+6,Length(Memo_Quellcode.Lines[i])));
  end;
 end;
 for i:=0 to Memo_Temp.Lines.Count-1 do
  Memo_Links.Lines.Add(Copy(Memo_Temp.Lines[i],0,Pos('"',Memo_Temp.Lines[i])-1));
 end;

sie erscheint euch vllt nicht als die beste, aber für meine zwecke reicht sie.

vielen Dank an euch für die Hilfe!

[edit= man mus noch masks in die USES einbinden]