5,388
社区成员
发帖
与我相关
我的任务
分享
<table width=100%>
<tr class=title>
<td width=50%>编号:20100501</td>
<td width=50%>19023059</td>
</tr>
<tr class=title>
<td width=50%>查询周期:2010年5月1日-2010年5月31日</td>
<td width=50%>查询日期:2010年6月9日</td>
</tr>
</table>
procedure TForm1.FormClick(Sender: TObject);
Var
ii:Cardinal;
ObjTmp:OleVariant;
begin
{wb1为webbrowser控件}
For ii:=0 To wb1.OleObject.Document.getElementsByTagName('td').Length - 1 Do
Begin
ObjTmp:=wb1.OleObject.Document.getElementsByTagName('td').item(ii);
If Pos('查询周期',objtmp.innerText)>0 Then
Begin
ShowMessage(ObjTmp.innerText);
Break;
end;
end;
end;