mehrere HTML Tabellen in Stringgrid einfügen untereinander

[klaus9]

Hallo,

ich benötige eine Möglichkeit mehrere HTML Tabellen von Webseiten nacheinander und untereinander in ein Stringgrid einzufügen.

Hat jemand eine Idee für mich ?

Gruß

[Perlsau]

Dazu mußt du den zugrundeliegenden HTML-Text parsen. Befasse dich ein wenig mit dem Aufbau von Tabllen in HTML, schau dir den HTML-Quelltext an und lege los.

Und worin besteht dabei dein Problem?

[pelzig]

Kannst Du denn überhaupt schon eine dieser "HTML Tabellen von Webseiten" in ein Stringgrid übernehmen?

Falls JA: Wie denn?
- Woher kommen die Tabellen?
- Wie "zerpflückst" Du sie denn bisher?

MfG

[klaus9]

Hallo,

hier wie folgt mein Code

Delphi-Quellcode:

procedure TForm1.Button9Click(Sender: TObject);
var aNode,aNode2 : Olevariant;
   r,c,z,z2 : Integer;


begin

  aNode := WebBrowser1.OleObject.Document.all.tags('table').Item(5);
    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(Edit6.text).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+1] := 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;

Dieser Code parster mit eine Tabelle aus einer Webseite, ich habe mehrere HTML Seiten, mit dieser Tabellenstruktur, die ich untereinander geparst haben möchte ins Stringgrid.
Seite 1 = 1-50, Seite 2 = 51-100, Seite 3 = 101-150 usw., diese will ich gerne hintereinander anklicken, die HTML Seiten und manuell auswählen und an das vorhande Stringgrid ergebnis anhängen. Derzeit würde er mir, mit obigen Code nur immer eine Tabelle rausparsen.

Gruß