VB获取网页部分代码

要获取网页中<ul class=“abc”>,已知这个ul是在<body><div><div><ul class=“abc”></ul></div></div></body>
网页中只有一个<ul class=“abc”>,应该如何得到获取到这个ul,赋值到i上面,然后后面主要是要获取ul里面的li,用s来保存li,用 for each s in i / next 的格式获取,然后把li里面的代码分别写出来s.inerhtml,按照我这个思路,这应该如何写。

set i =object.GetElementsByTagname("ul").item(0).GetElementsByTagname("li")
dim s
for each s  in i
debug.print s.innerhtml
next


object 是htmlDocument 对象

GetElementsByTagname("ul")  获取ul标签集合

GetElementsByTagname("ul").item(0) 集合中的第一个元素

...... item(0).GetElementsByTagname("li") '获取该元素下的li标签的集合

追问

页面中ul有多个 要获取额这个已知class,

追答Dim uls, ul, lis, li
Set uls = object.getElementsByTagName("ul")
For Each ul In uls
    If ul.className = "abc" Then
        Set lis = s.getElementsByTagName("li")
        For Each li In lis
            Debug.Print li.innerHTML
        Next
    End If
Next

温馨提示:答案为网友推荐,仅供参考