VB获取网页部分代码
要获取网页中<ulclass=“abc”>,已知这个ul是在<body><div><div><ulclass=“abc”></ul></div></div></body>...
要获取网页中<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，按照我这个思路，这应该如何写。 展开
网页中只有一个<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
nextobject 是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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
