WebBrowser控件获取如下网页代码中的值
WebBrowser控件怎样获取如下网页代码中的“二层用电区域”、“2124.1”这两个值？<TDclass="a93"><DIVclass="r11">二层用电区域</...
WebBrowser控件怎样获取如下网页代码中的“二层用电区域”、 “2124.1”这两个值？
<TD class="a93"><DIV class="r11">二层用电区域</DIV></TD><TD class="a94"><DIV class="r11">2124.1</DIV></TD>
我试过对WebBrowser1.Document.All(i)中的tagName、text、InnerText、outerText、Title、Nodename、ID等进行搜索，但还是没定位到他们。
下面这个判断也用了，也没有Dim str As String
str = html_objID.Type & ":" & html_objID.tagName & ":" & html_objID.nodename & ":" & html_objID.Name & html_objID.Text & ":" & html_objID.innerText & ":" & html_objID.innerHtml & ":" & html_objID.id & ":" & html_objID.Title & ":" & html_objID.outerText & ":" & html_objID.outerHtml & "--"
If InStr(1, LCase(WebBrowser1.Document.body.innerHtml), "r11") <> 0 Then Debug.Print "--" End If 展开
<TD class="a93"><DIV class="r11">二层用电区域</DIV></TD><TD class="a94"><DIV class="r11">2124.1</DIV></TD>
我试过对WebBrowser1.Document.All(i)中的tagName、text、InnerText、outerText、Title、Nodename、ID等进行搜索，但还是没定位到他们。
下面这个判断也用了，也没有Dim str As String
str = html_objID.Type & ":" & html_objID.tagName & ":" & html_objID.nodename & ":" & html_objID.Name & html_objID.Text & ":" & html_objID.innerText & ":" & html_objID.innerHtml & ":" & html_objID.id & ":" & html_objID.Title & ":" & html_objID.outerText & ":" & html_objID.outerHtml & "--"
If InStr(1, LCase(WebBrowser1.Document.body.innerHtml), "r11") <> 0 Then Debug.Print "--" End If 展开
2个回答
展开全部
item.tagName =="TD" &&item.getAttriblte("class")=="a93"
第一个回答您的，希望采纳。
第一个回答您的，希望采纳。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
在webbrowser1的DocumentComplete事件中加代码：
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim dd As Object, tmp As String
Set dd = WebBrowser1.Document.getElementsByTagName("DIV") '取得所有DIV对象
For Each d In dd '一个一个读取里面的文本内容
tmp = d.innerText
If tmp <> "" Then MsgBox tmp
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
