Wie bekomme ich eine HTMl Tabelle in ein StringGrid

[mschaefer]

Moin zusammen,

ja die Überschrift sagt es schon ziemlich exakt. Habe Mehrere HTML-Tabellen und würde die geren in ein Stringgrid importieren. Oder zumindestens in eine Form, wo ich relaitv simnple auf die einezelnen Zellen zugreifen kann. Leider war auch meine Komponentensuche da nicht wirklich erfolgreich... :?

Grüße in die Runde // Martin

[Lannes]

Hallo,

Du könntest Dir eine WebBrowser-Komponente auf die Form legen und dann mit WebBrowser1.OleObject.Document.all.tags('X') auf die HTML-Elemente zugreifen.
Das ist natürlich stark abhängig von der Struktur der Web-Seite.
Welche Tabelle ist die betreffende, sind die Tabellen verschachtelt, liegen sie in einem Frame, u.s.w. ...
Einlesen einer ASCII-Tabelle, ein Beispiel:

Delphi-Quellcode:

procedure TForm1.LadenClick(Sender: TObject);
var f : Olevariant;
begin
WebBrowser1.Navigate('http://www.manderby.com/mandalex/a/ascii.php?id=30',f,f,f,f);
end;

procedure TForm1.KonvertierenClick(Sender: TObject);
var aNode,aNode2 : Olevariant;
   r,c,z,z2 : Integer;
begin
  //item(6) = 7te Tabelle in der Webseite 
  aNode := WebBrowser1.OleObject.Document.all.tags('table').Item(6);
  r := aNode.all.tags('tr').Length;//Zeilen feststellen
  StringGrid1.RowCount := r;
  for z := 0 to r-1 do
    begin
    aNode2 := aNode.all.tags('tr').Item(z);
    c := aNode2.all.tags('th').Length;
    if c > 0 then
      begin
      if c > StringGrid1.ColCount then
        StringGrid1.ColCount := c;
      for z2 := 0 to c-1 do
        StringGrid1.Cells[z2,z] := aNode2.all.tags('th').Item(z2).innerText;
      end;
    c := aNode2.all.tags('td').Length;
    if c > 0 then
      begin
      if c > StringGrid1.ColCount then
        StringGrid1.ColCount := c;
      for z2 := 0 to c-1 do
        StringGrid1.Cells[z2,z] := aNode2.all.tags('td').Item(z2).innerText;
      end;
    end;
end;

Der Code geht von einer einfachen Tabelle aus.
Z.B. sind Attribute(Colspan,rowspan, align ...) der th u. td-Elemente nicht berücksichtigt,
diese lassen sich aber auch auslesen und im Ziel-StringGrid berücksichtigen.

[marabu]

Wenn der HTML-Text nicht unnötig gerendert werden soll, dann geht es auch ohne WebBrowser. Man nimmt dann einfach nur den Parser - Stichwort markup services - demo code in diesem thread: klick

Grüße vom marabu

[sniper_w]

Interesant wird es sollte es eine neue Tabelle in einer der Zeillen befinden. ;)

[Lannes]

Hallo,
deshalb :arrow:

Zitat:

Zitat von Lannes

...
Das ist natürlich stark abhängig von der Struktur der Web-Seite.
Welche Tabelle ist die betreffende, sind die Tabellen verschachtelt, liegen sie in einem Frame, u.s.w. ...

Bei dem Code würde -habs noch nicht getestet- der gesamte Text der inneren Tabelle in der Zelle des StringGrid ausgegeben,
denn InnerText erfasst auch diese Inhalte.

[sniper_w]

@Lannes: Habe dein Post schnell überflogen... :stupid:

[mschaefer]

Ja allen Beteiligten sei hiermit gedankt. Da ich hier keine weitere Anzeige brauche habe ich mich an die Parser-Lösung gemacht. Da zum Glück keine verschachtelten Tabellen auftreten, brauchte ich halt nur nach dem Table-Statement suchen und dann die Werte in den "td /td"-Statements herausfischen.

Kurzum: Eure Hinweise haben geholfen.


Viele Grüße // Martin