In einer Seite nach einem Wert suchen... [TWebBrowser]

[NeoXan]

Code:

<td bgcolor='#880000' width='129.07894736842' align='center' height='14'>
15
</td>

Moin,

wie könnte ich den Wert [15] auslesen. Die Property bgcolor und align sind unter den gesamten td Tags einmalig...oder könnte man angeben das der Wert in der so-und-so-vielten Zeile/Spalte ausgelesen werden soll.

mfg
NeoXan

[Stanlay Hanks]

Hi! Schau mal hier. Der Beitrag zeigt, wie man den Quelltext einer Internet Seite in ein Memo bekommt. Wenn die Zeichenfolge wirklich einmalig ist, könntest du mit

Delphi-Quellcode:

FPosition := Pos('Einmalige Zeichenfolge', Memo1.Text);

Den Afang des Tags suchen und dann mit

Delphi-Quellcode:

IntegerVariable := FPosition + Length('Einmalige Zeichenfolge');

an das Ende dieses Strings navigieren. Wenn du dann schreibst

Delphi-Quellcode:

StringVariable := Copy(Memo1.Text, IntegerVariable, 2); //2 ist die Länge des Strings der ausgelesen werden soll

dann solltest du die Zahl haben. (Das würde natürlich bedingen, dass die Zahl immer 2 Stellig oder dreistellig usw ist. Aber das is ja noch abänderbar).

Du kannst auch eine ganze Zeile auslesen:

Delphi-Quellcode:

Memo1.Lines[1]

liefert dir den String aus der zweiten Zeile eines Memos.

Man liest sich, Stanlay :hi:

[NeoXan]

boah herlich...dat funzt allet ;)

hmm...jetzt fehlt nur noch diese eine Überprüfung...also vielleicht könnte man das ja mit AnsiContainsStr machen...also überprüfen ob die Stringvariable NUR 0-9 enthält...und wenn es andere Werte enthält, dann ist die Zahl vermutlich kleiner als 2 stellig bzw. die falsche posi, richtig?

[Stanlay Hanks]

Du könntest auch einfach schreiben:

Delphi-Quellcode:

var str : String;
FLength : Integer;
begin
.
.
.
str := Copy(Memo1.Text,IntegerVariable, Memo1.Text - IntegerVariable); //Kopiert alles nach dem einleitenden <td..> Tag in die String Variable "Str"

FLength := Pos('</td>',Memo1.Text); //FLength ist die Position des ersten Vorkommens von </td>, also den abschließenden html Tags.

Dann könntest du die "Copy" Funktion aus meinem ersten Beitrag abändern in:

Delphi-Quellcode:

StringVariable := Copy(Memo1.Text, IntegerVariable, FLength);

Wenn ich mich nicht vertan hab, müsstest du dann den gesamten Wert zwischen den zwei Tags kriegen.

Man liest sich, Stanlay :hi: