Question

VB使用WebBrowser1遍历标签的子标签

对于单个标签，可以使用使用类似如下的方法进行遍历
For Each a In WebBrowser1.Document.All
If a.tagname = "A" Then

end if
next
假设网页结构如下：
<ul id='a'>
<li>b</li>
<li>c</li>
<li>d</li>
<li>e</li>
</ul>
我希望遍历id=a的<ul>标签下的所有<li>标签，请问如何编写代码？

Answer 1

首先说明你的代码有一个错误If a.tagname = "A" Then
<ul id='a'>这个TagName为 "ul"
<li>b</li>这个TagName为"li"
需要获取id='a'元素的对象，直接Doc=WebBrowser1.Document.All("a")就可以了
其次，Webb对象中也不能直接获得诸如id='a'对象中下层的不明确的对象
如果结构是固定的，那么可以加一个开关来控制
Dim isCheck As Boolean,isNum As Long

Dim Strs(3) As String '定义一个字符串数组存放标签

For Each a In WebBrowser1.Document.All
If isNum > 3 then

Exit for

Elseif a.id = "a" Then
isCheck = True
ElseIf IsCheck = True And UCase(a.TagName) = "LI" Then
Strs(isNum) = a.innerText
isNum = isNum + 1
End If
Next