Question

vb中webbrowser如何提取数据？

<TR sizcache="8" sizset="2">
<TD sizcache="8" sizset="2"><A title="个人小群 " href="javascript:void(0)"
rev=#23456789 rel=jump jQuery1266988871781="28">个人小群 </A></TD>
<TD align=right>2010-01-21</TD></TR>1.提取出：个人小群 和 23456789
2.如何跳转到此连接？？？

Answer 1

VB里在用Webbrowser获取源码后，可以用Instr()函数找“title=”和“href=”的字符位置，然后用left()和right()函数便可以取出数值。 有时获取文本也很容易就能获取这类数据，如果擅长xml，还可以利用xml来提取字段属性也能起到不错的效果，但前提是要完全按照页面html的标签解读数据。比如前面说的instr、left、right取字符来的简单。 跳转的连接你要先看群的url链接是怎么写的，然后把群号码加到链接里再用navigate访问即可。我以前就是用这种方法写了一个搜索QQ群，并把数据按照自己的格式存放起来的工具。

Answer 2

Private Sub Command1_Click()temp = W.Document.body.innerHTML
spl = Split(temp, "您可能感兴趣的群")
temp = spl(1)spl = Split(temp, "<A title=")For i = 1 To UBound(spl)
Label1 = spl(i)tt = Split(spl(i), "rev=#")
Label2 = tt(1)NextEnd Sub