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ß