Einzelnen Beitrag anzeigen

Benutzerbild von Treffnix
Treffnix

Registriert seit: 25. Jun 2003
Ort: AC
740 Beiträge
 
Delphi 7 Professional
 
#8

Re: Auf Website ohne IE zugreifen, um Daten auszulesen

  Alt 19. Feb 2004, 08:48
Also, wenn sich die Zeilenanzahl vor den relevanten Zeilen nie ändert und die Länge und Position einer MAC-Adresse immer gleich ist, ist es nicht schwer.

Delphi-Quellcode:
Procedure ...
var HTML: TStringlist;
    MACs: TStringList;
    i: Integer;
Begin
  ...
  HTML:= TStringlist.Create;
  MACs:= TStringList.Create;
  HTML.Text := deinHTMLString;
  i:= 33; //Wenn ich mich nicht verzählt habe, steht die erste MAC in Zeile 33
  While Trim( HTML[i] ) <> 'Do Begin
    MACS.Add( copy( HTML[i], 45, 17 ) ); //45-> erster Buchstabe der MAC 17 -> Länge einer MAC
    i:= i+2; //2, sofern die Zwischenzeile nich von DP kommt
  End;
End;
Ist jetzt so das erste, was mir einfällt und ungetestet. Die Zahlen musste auf jeden Fall noch überprüfen. Es ist früher Morgen
Kannste es ja mal testen...

Wenn sich die Positon innerhalb des HTML-Textes musste die Zeilen nach Stichworten durchforsten, um die richtige zu finden.
z.B. in dem du mit pos nach "<tr><td align=center>1</td><td align=center>" suchst...
  Mit Zitat antworten Zitat