如何提取含有iframe网页(HTML)的表格(table)数据??????
想提取网页里的表格(table标签)数据,因为session的原来,所以用了,但些网页被包含在一个iframe里,所以在论坛上找到了一高人的代码(参考代码一),用FrameWin.document.body.outerHTML得到了源码,但问题是,我想得到table表里的数据,好像没有FrameWin.document.all.tags('table').item(0).outerHTML这种形式,但WebBrowser却有.如参考代码二,因为要提取的网页的表格是通过另一同级iframe网页的javascript赋值的,所以不能直接通过FrameWin.document.body.outerHTML用字符串直接分析,那样得的数据都是空格。
大家有什么好办法。。
参考代码一:
usr mshtml;
procedure TMainForm.ToolButton56Click(Sender: TObject);
var
Index: Integer;
Document: IHTMLDocument2;
FrameIdx: OleVariant;
FrameDis: IDispatch;
FrameWin: IHTMLWindow2;
begin
while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
if WebBrowser1.Document = nil then Exit;
if WebBrowser1.Document.QueryInterface(IHTMLDocument2, Document) <> 0 then Exit;
if Document.frames.length > 0 then
begin
for Index := 0 to Document.frames.length - 1 do
begin
FrameIdx := Index;
FrameDis := Document.frames.item(FrameIdx);
if FrameDis.QueryInterface(IHTMLWindow2, FrameWin) <> 0 then Exit;
ShowMessage(FrameWin.document.body.outerHTML);
//FrameWin.document 就是你要的每个 Frame 的文档
end;
end;
end;
参考:http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/mshtml/reference/ifaces/document2/onclick.asp
参考代码二:
procedure Form1.Button1Click(Sender: TObject);
var i,j : integer;
GetTable : OleVariant;
begin
WebBrowser1.Navigate('http://www.chinaexplore.com.cn/minalnew/MyHTML.htm');
while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do //頁面激活
Application.ProcessMessages;
Memo1.Lines.Add(WebBrowser1.OleObject.Document.all.tags('table').item(0).outerhtml);
GetTable:= WebBrowser1.OleObject.Document.all.tags('table').item(0);
For i:=0 to (GetTable.Rows.Length-1) do
begin
For j:=0 to (GetTable.Rows.Item(i).Cells.Length-1) do
begin
Memo2.Lines.Add(GetTable.Rows.Item(i).Cells.Item(j).innerhtml);
end;
end;
end;