如何提取下面网页的表格中的数据?

northwolves 2009-07-27 07:29:56
执行下面代码后,如何取得网页表格中的最后一列的价格值?

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.abazias.com/builder/builder.asp?view=diamondsearch", fasle
While WebBrowser1.ReadyState <> 4
DoEvents
Wend
WebBrowser1.Document.getelementbyid("chicklet_hover_cushion").Click
End Sub
...全文
219 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2009-07-31
  • 打赏
  • 举报
回复
[Quote=引用 6 楼 sysdzw 的回复:]
VB codePrivateSub Command11_Click()
MsgBox WebBrowser1.Document.getElementsByTagName("DIV")(398).INNERHTMLEnd Sub
楼主,我找的好辛苦
[/Quote]
很好!再帮忙看看这个:
http://topic.csdn.net/u/20090731/23/86d6d5f1-500a-40f8-895e-2cd8f090f633.html
goosen 2009-07-29
  • 打赏
  • 举报
回复
网页源码中没有数据的
无·法 2009-07-29
  • 打赏
  • 举报
回复
Private Sub Command11_Click()
MsgBox WebBrowser1.Document.getElementsByTagName("DIV")(398).INNERHTML
End Sub

楼主,我找的好辛苦
无·法 2009-07-29
  • 打赏
  • 举报
回复
Dim l1&, l2&, s$
s = LCase(WebBrowser1.Document.body.innerHTML)
l1 = InStrRev(s, "resultstableprice c fl")
l1 = InStr(l1, s, "$")
l2 = InStr(l1, s, "<")
MsgBox Mid(s, l1, l2 - l1)
griefforyou 2009-07-29
  • 打赏
  • 举报
回复
有几种方法
1. 通过DOM直接访问那个Table的最后一列并取得内容
2. 在网页源代码中通过字符串查找来提取
northwolves 2009-07-29
  • 打赏
  • 举报
回复
继续顶起。
goosen 2009-07-28
  • 打赏
  • 举报
回复
关注
BaoBrother 2009-07-28
  • 打赏
  • 举报
回复
这个网页内容浓度也太够多了吧,简单一些的网页还打算深入去试试。

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧