WebBrowser String auslesen

[Mephisto090]

Hallo,

Ich will im TWebBrowser ein bestimmten String auslesen

<a href="/user/string"><img src="...

Problem: dieses "user/string" gibt es mehrmals bloß das bei string immer was anderes steht und davon möchte ich alle haben
in einer MemoBox gibt es dafür eine möglichkeit?

So weit habe ich es hin bekommen.

Delphi-Quellcode:

 
...
var htmlcode: string;
begin
  htmlcode:=WebBrowser1.OleObject.Document.Body.InnerHtml;
end;

[mkinzler]

-Pos()/PosEx()
-Reguläre Ausdrücke

[Mephisto090]

bin noch net so gut im WeBBrowser kannst du mir vllt ein stück Quelltext geben?

[FabianClassen]

Bei

Delphi-Quellcode:

Pos();
//und
PosEx();
//Parameter hab ich weggelassen ;)

hast du es nicht mit Funktionen vom WebBrowser zu tun, sondern es handelt sich um Funktionen zur Stringverabeitung.
Ich hoffe es ist ok, wenn ich hier einen Link von Delphi-Treff post:

http://www.delphi-treff.de/tutorials...gverarbeitung/

Les dir das mal durch, ist ein ganz nettes Tut über Stringverabeitung.

MFG
FC
;)

[mkinzler]

Pos() sucht einen String innerhalb eines anderen (PosEx() mit Offset für das 2. Vorkommen)
Links zu Regulären Ausdrücken
http://www.regular-expressions.info/
http://www.zeitungsjunge.de/

[Mephisto090]

ja der string den ich dann immer suche der is ja bei jedem unterschiedlich sprich ich kann keinen vorher defenieren (hoffe habe bei den seiten jetzt nix überlesen) und die Position ist auch immer unterschiedlich

danke im vorraus

[mkinzler]

'/user/' ist doch immer identisch oder? :zwinker:

[Mephisto090]

ja stimmt stehe gerade voll auf dem schlauch kann einer mal bitte ein bsp posten

[FabianClassen]

Ein Beispiel für die Funktionen an sich findest du in meinem Link ;)
Ich glaube auf der 2. Seite des Tutorials.

In deinem Fall würde ich mit einer Schleife solange in dem HTML-Text nach deinem Suchstring suchen, bis kein andere mehr gefunden wird.
Dazu musst du dann immmer mit PosEx(); hinter dem letzten gefundenen String anfangen zu suchen, damit die Suche auch so funktioniert wie du es dir vorstellst.

Ich hoffe du verstehst was ich meine.

MFG
FC
;)

[Mephisto090]

also wenn ich das richtig verstehe

beispiel aus seite 2.

Delphi-Quellcode:

s := '/user/' + ???;

jetzt weiss ich nicht wie ich das machen muss bsw. was rein muss bei ??? damit da der string ausgelsen wird

[mkinzler]

Delphi-Quellcode:

var 
    htmlcode, such, name: string;
    p,p2: Integer;
...

such := '/user/';
p := Pos( such, htmlcode);
while p > 0 do
begin
    inc(p);
    p2 := Pos( #34, htmlcode, p);
    name := Copy( s, p, p2-p);
   ...
   p := PosEx( such, htmlcode, p);
end;

getippt und nicht getestet

[Mephisto090]

Delphi-Quellcode:

p2 := Pos( #34, htmlcode, p);

da habe ich ein fehler und was meinst du mit den Punkten "..."

[mkinzler]

Delphi-Quellcode:

p2 := Pos( '"', htmlcode, p);

... steht als Platzhalter für weiteren Code

[Mephisto090]

als fehler kommt immer noch ")" gefunden aber "," erwartet

[mkinzler]

Muss PosEx() heissen :oops:

[Mephisto090]

kein Prob ich muss mich schähmen weil ich hier gerade garnix auf die reihe bekomme

der sagt "s" kennt er nicht von welchem Datentyp muss der sein

[mkinzler]

Schreib statt s, htmlcode

[Mephisto090]

kurze frage neben bei kann ich aus einer schleife raus springen und zur nächsten gehen wenn er den wert den ich suche z.b. erreicht hat

ich kenne bei einer Batch datei z.b. GoTo gibt es das auch bei Delphi sowas in der art

gut funktioniert und wie gebe ich die namen jetzt in einem Memo feld aus

Delphi-Quellcode:

Memo5.Lines.Add(...);

[mkinzler]

Der Befehl zum Abbruch einer Schleife heisst

Delphi-Quellcode:

break;