Quelltext laden und durchsuchen

[newuser01]

Hallo

Ich würde gerne nach dem ich eine Webseite geladen hab diese nach einem bestimmten Wort durchsuchen. Delimiter bringt mich da nicht besonders weiter weil das gesuchte Wort ja überall auf der Seite sein könnte. Vielleicht könnt ihr ja helfen

Delphi-Quellcode:

//Seite laden
Memo1.Text := IdHTTP1.Get(sURL);

[SirThornberry]

Generell kann man mit Pos und PosEx nach teilvorkommen in einem String suchen. Könntest du deine Frage eventuelle noch etwas präzisieren warum es mit den genannten Funktionen nicht geht?

[newuser01]

Hallo Jens

Delimiter geht nicht weil das gesuchte Wort nicht immer nach oder vor einem bestimmten Zeichen steht es könnte überall auf der Webseite stehen also ist doch Delimiter nicht geeignet oder?

[newuser01]

Oder könnte man das gesuchte Wort selbst als Delimiter nutzen also Delimiter := 'searchWort' und dann alles vor und nach dem Delimiter abschneiden ginge das?

[Jarmen_Kell]

Ein Delimeter muss vom Typ Char sein, daher ginge das nicht.

Wenn du es unbedingt damit lösen möchtest, ließe sich die delimetierende Eigenschaft des Leerzeichens nutzen, so das gesuchte Wort denn generell alleine steht.

Ansonsten dürfte ein TFileStream oder TMemoryStream eine effizientere Möglichkeit bieten.
Dazu sollte es im Forum genügend Beispiele geben, wenn es noch Fragen gibt, dürfen die natürlich auch in einem entsprechenden Thread gestellt werden ;}

[newuser01]

Also meinst du das Leerzeichen als Delimiter einsetzten? und dann immer zwischen das aktuelle und folgende Leerzeichen schauen ob das gesuchte Wort vorhanden ist oder? Ich weiß nur nicht so genau wie ich das Programmiertechnisch lösen könnte und TFileStream oder TMemoryStream sagen mir bezüglich String suchen auch nicht sehr viel.

[SirThornberry]

wie kommst du im Zusammenhang von pos auf einen delimiter? *grübel* Mit Pos bzw. PosEx einfach nach dem gewünschten Wort suchen und dann prüfen ob vor und Hinter dem Wort kein anderer Buchstabe steht (sonst wäre es nur ein Teil eines anderen Wortes).

[newuser01]

Hab es so gelöst oder geht es noch besser?

Delphi-Quellcode:

 Memo1.Text := IdHTTP1.Get(sURL);

 i := Pos('searchWort', Memo1.Text);

 if i > 0 then
 begin
  MessageDlg('gesuchte Wort gefunden!', mtWarning, [mbOK], 0);
 end
    else
        begin
         MessageDlg('gesuchte Wort nicht gefunden', mtWarning, [mbOK], 0);
 end;//if

[raiguen]

Zitat von SirThornberry:

Generell kann man mit Pos und PosEx nach teilvorkommen in einem String suchen. ...

Somit ist dein Codeschnippsel richtig, kannst ihn sogar noch etwas verkürzen (sofern die Variable i für die gefundene Position des Suchwortes nicht weiter in der Proc genutzt wird):

Delphi-Quellcode:

...
Memo1.Text := IdHTTP1.Get(sURL);
if Pos('searchWort', Memo1.Text) > 0 then
   begin
      //--mach was sinnvolles
   end
else
   begin
      MessageDlg('gesuchte Wort nicht gefunden', mtWarning, [mbOK], 0);
end;//

[bonanza]

kann man auch irgendwie eine suche so programmieren , dass die alles das wegschneidet, was nicht zwischen 2 gesuchten wörtern liegt ?

wenn ja wie würde das gehen ?

danke schonmal