Bestimmten Link aus Memo raus suchen

RuSsAk · Hält's aus hier Beiträge: 14

hi leute
ich stecke mal wieder fest

ich lade mir die Links einer seite in ein memo1:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
    memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i));
end;

so das funktioniert ja alles gut aber jetzt zu meiner frage
wie kann ich ein ein link suchen der zb das "wort" blubb drinne hat?

also zb so:
www.site.de/afghtr.php
www.site.de/ordner/dgs/haha.php
www.site.de/index.html
www.site.de/blubb/25657
www.site.de/agfg/sgfrga/564/

und nur diesen link will ich haben "www.site.de/blubb/25657" und die restlichen sollen gelöscht werden kann mir da jemand helfen?

ps. im memo sind eigl. nich so wenig links das sind so immer ca. 50-100

wäre für eure hilfe sehr dankbar

mfg,

JoelH · Verfasst: Do 19.11.09 13:22

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  for i := 0 to memo1.lines.Count - 1 do
  begin
    if pos('blubb',memo1.lines.Strings[i]) > 0  then
      showmessage('blubb gefunden in Zeile '+InttoStr(i));
  end;

_________________
mfg. Joel

RuSsAk · Hält's aus hier Beiträge: 14

Moderiert von Narses: Komplett-Zitat des letzten Beitrags entfernt.

hi JoelH Danke für deine antwort

dieser code findet zwar "blubb" aber die restlichen zeilen werden garnicht gelöscht

Nersgatt · Verfasst: Do 19.11.09 14:05

Warum lädst Du denn erst Zeilen ins Memo, die Du dann wieder löschen willst? Frage doch schon beim Laden ab, ob die Zeile 'blubb' enthält und falls nicht, füge die Zeile gar nicht erst ein.

Gruß,
Jens

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

RuSsAk · Hält's aus hier Beiträge: 14

Moderiert von Narses: Komplett-Zitat des letzten Beitrags entfernt.

weil das die einzigste möglichkeit ist die ich durch googeln gefunden habe die den link "unverändert" lässt

....der ändert sich nähmlich bei jeden "Reload" und damit bleibt dieser so wie ich ihn brauche

mfg,

Nersgatt · Verfasst: Do 19.11.09 14:18

Versteh ich nicht. Beschreib mal genauer, was Du überhaupt vor hast.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

RuSsAk · Hält's aus hier Beiträge: 14

Nersgatt hat folgendes geschrieben :

Versteh ich nicht. Beschreib mal genauer, was Du überhaupt vor hast.

also ich will ein link der sich immer verändert von einer hp in ein memo kopieren und wenn ich diesen nur ausm quellcode parse zb. so

markieren

Delphi-Quelltext

1:
2:

s := WebBrowser1.OleObject.Document.Body.InnerHtml;
    Memo2.lines.add(s);

wird dieser verändert und wird unbrauchbar für mich und deswegen mache ich das so

markieren

Delphi-Quelltext

1:
2:

  for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
    memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i));

also ich hole mir alle links in ein memo und den richtigen will ich da rausholn weil mit den anderen kann ich nichts anfangen und dabei brauch ich hilfe

Nersgatt · Verfasst: Do 19.11.09 14:28

Und warum nicht so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
begin
  if pos('blubb',Webbrowser1.OleObject.Document.Links.Item(i)) > 0 then
    memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i));
end;

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

RuSsAk · Hält's aus hier Beiträge: 14

Moderiert von Narses: Komplett-Zitat des letzten Beitrags entfernt.

oh geil es funktioniert

vielen vielen dank

JoelH · Verfasst: Do 19.11.09 17:18

RuSsAk hat folgendes geschrieben :

dieser code findet zwar "blubb" aber die restlichen zeilen werden garnicht gelöscht

Irgendwas musst du ja auch noch selbst machen müssen, ansonsten hättest du auch gleich nach dem gesamten Quellcode fragen können, dann wäre aber gar kein Lerneffekt da, das wäre doch langweilig

_________________
mfg. Joel

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme