利用WebBrowser读取网页中表格的数据文档格式.docx
- 文档编号:21737789
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:5
- 大小:14.70KB
利用WebBrowser读取网页中表格的数据文档格式.docx
《利用WebBrowser读取网页中表格的数据文档格式.docx》由会员分享,可在线阅读,更多相关《利用WebBrowser读取网页中表格的数据文档格式.docx(5页珍藏版)》请在冰豆网上搜索。
TButton;
WebBrowser1:
TWebBrowser;
procedureFormCreate(Sender:
TObject);
procedureButton1Click(Sender:
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
implementation{$R*.dfm}function
GetHtmlTableCell(aTable:
IHTMLTable;
aRow,aCol:
Integer):
IHTMLElement;
Row:
IHTMLTableRow;
begin
Result:
=nil;
ifaTable=nilthenExit;
ifaTable.rows=nilthenExit;
Row:
=aTable.rows.item(aRow,aRow)as
IHTMLTableRow;
ifRow=nilthenExit;
=Row.cells.item(aCol,aCol)asIHTMLElement;
functionGetHtmlTable(aDoc:
IHTMLDocument2;
aIndex:
Integer):
list:
IHTMLElementCollection;
ifaDoc=nilthenExit;
ifaDoc.all=nilthenExit;
list:
=aDoc.all.tags('
table'
)asIHTMLElementCollection;
iflist=nilthenExit;
=list.item(aIndex,aIndex)asIHTMLTable;
functionGetWebBrowserHtmlTableCellText(const
AWebBrowser:
constTableIndex,RowIndex,ColIndex:
Integer;
varResValue:
string):
Boolean;
Docintf:
tblintf:
node:
ResValue:
='
'
docintf:
=AWebBrowser.Documentas
IHTMLDocument2;
tblintf:
=GetHtmlTable(docintf,TableIndex);
node:
=GetHtmlTableCell(tblintf,RowIndex,ColIndex);
=node&
lt;
&
gt;
nil;
ifResultthen
=Trim(node.innerText);
functionGetHtmlTableRowHtml(aTable:
aRow:
=RowasIHTMLElement;
functionGetWebBrowserHtmlTableCellHtml(const
;
=Trim(node.innerHTML);
functionGeHtmlTableHtml(aTable:
functionGetWebBrowserHtmlTableHtml(const
constTableIndex,RowIndex:
=GeHtmlTableHtml(tblintf,RowIndex);
=node.innerHtml;
procedureTForm1.FormCreate(Sender:
WebBrowser1.Navigate('
H:
\ReadTable\00.html'
);
procedureTForm1.Button1Click(Sender:
ResValue:
string;
ifGetWebBrowserHtmlTableCellText(WebBrowser1,0,0,0,ResValue)then
ShowMessage(ResValue);
endelse
ShowMessage('
指定的表格不存在'
end.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 利用 WebBrowser 读取 网页 表格 数据