vb webbrowser 获取指定元素

Question

有个网页，
<div class="listInfo">
<h3><a href="/view/3510.html" title="冰果" target="_blank">冰果</a></h3>
<P>浏览次数：518278</p>
<P>动漫类型：完结动漫</p>
<P>动漫地区：日本</p>
<P>动漫时间：2012</p>
</div>

<li><a href="/list/7.html">连载动漫</a></li>
<li><a href="/list/18.html" >完结动漫</a></li>

<font color=red>7375</font>部动漫，今日更新<font color=red>7</font>
现在可以使用 for each in getElementsByTagName 函数 获取到这个 DIV段 然后根据 Classname确认
但是下面的 <P> <a> <font> 里面的内容也都是用 for each 遍历的。
我现在有个问题，我能不能直接获取数组
例如 <p>的数组，然后 直接指定元素 例如 我想直接得到 第一个 <p> 的值也就是 218278
第二个 font的值，也就是7 第一个 A的值 也就是="/list/7.html
网上资料说getElementsByTagName获取的是元素集合，应该也就是数组了，而且一般使用for each 也大都是数组
但是我照着一般使用数组的方法，就是不行
想定位于吗某个元素 ，不想使用字符查找，
因为某些网页的数据不定，但是位置肯定。望高手解答。
我使用的是getElementsByTagName
FONT可以找到，但是一定要用 for each 循环遍历

Answer 1

List1.AddItem J.getElementsByName("FONT")(0).innerText
改为
List1.AddItem J.getElementsByTagName("FONT")(0).innerText

Name是指标签的Name属性，如 <span name="font">....</span>
TagName才是标签名，如 <font>...</font>

追问

我打错了，代码用的就是getElementsByTagName，为什么不能调用数组

追答

你那个J按理应该是7375的父元素，如果不是，那么就会出错的。

改成
List1.AddItem WebBrowser1.Document.getElementsByTagName("FONT")(0).innerText

试试

追问

这样子不行，这几个 font 是某个 DIV中的 ，j就是那个 div
整个网页好多 font呢

追答

你先说说WebBrowser1.Document.getElementsByTagName("FONT")(0).innerText能不能取到值，如果能，那就可以肯定是你的J的取值有问题

追问

也许是我的取值有问题吧，但是用WebBrowser1.Document的话就无法准确定位了，因为要以我找到的那个DIV为起点，若是没有好的办法，只能自己转成数组了。
可能里面的层次关系不是我所认为的吧

追答

补充一点：集合不是数组，两者虽然有相似处，但不是同一个概念。
另外getElementsByTagName("xxxx")(0)的用法本身是没问题的，关键是前面的引用对象一定要正确，而且所要找的标签必须至少有一个。
如果是多层关系，你甚至可以这样：
....getElementsByTagName("div")(0).getElementsByTagName("li")(1).getElementById("xxx")
就这样一层一层剥离出来，只要保证它们每相邻的两个对象间确实是父子关系即可。

追问

刚才又重新试了下，可以了，前面可能一个层次没有找对，还有个可能我把getElementsByTagName("li")(1).写成 ("li").(1)了，这里还想请问下，我刚才写了个转数组的函数。
for each i in j.getElementsByTagName("li")
a=a+1
K(a)=i
next
数组K该设为什么类型呢

追答

Dim k() As Object