HAllo,
ich habe ein Problem. Ich habe eine aufwendige WWW Seite mit TWebbrowser in Delphi XE5 angezeigt, wo viele Tabellen vorkommen.
Nun mochte ich eine spez. Tabelle die eine id aufweist in ein Stringgrid parsen. Kann mir da jemand sagen wie ich das intelligent lösen kann.
ich habe diesen Ansatz, doch da kommt nirgdwo die id Bezeichnung der Table vor.
Delphi-Quellcode:
procedure TForm1.Button25Click(Sender: TObject);
var
i,k, j: integer;
ovTable: OleVariant;
begin
for k := 0 to 79 do
begin
try
ovTable := WebBrowser2.OleObject.Document.all.tags('table').item(k);
for i := 0 to (ovTable.Rows.Length - 1) do
begin
for j := 0 to (ovTable.Rows.Item(i).Cells.Length - 1) do
begin
//StringGrid1.Cells[j,i]:=ovTable.Rows.Item(i).Cells.Item(j).InnerText;
Memo5.Lines.Add('TableItem:'+inttostr(k)+'_'+INttostr(j)+','+Inttostr(i)+': '+ovTable.Rows.Item(i).Cells.Item(j).InnerText)
end;
end;
except
UpDate_LOG.Lines.Add(DateTimeToStr(Now)+': k_Error : '+inttostr(k)+' ! ');
end;
end;
end;
ANbei ist auch die spe. Table als ZIP.
Zitat
Baum-Darstellung
