网页分析不求人附分析工具实例

ldy · 发表于 2009-12-13 20:31

Private Sub CommandButton26_Click()
Set dmt = WebBrowser1.Document
k = 2
For i = 0 To dmt.all.tags("table").Length - 1
      If InStr(dmt.all.tags("table")(i).innerText, "笔订单资料") > 0 Then
         Set R = dmt.all.tags("table")(i).Rows
set obj = dmt.all.tags("table")(i)
msgbox "在本地窗口中查看 obj 的那\哪个属性是所需要的,然后自己修改!!!!!!!!!"
stop
         Sheet3.Cells(k, 1) = dmt.all.tags("table")(i).Caption.innerText
         For j = 0 To R(0).Cells.Length - 1
            Sheet3.Cells(j + k, 3) = R(0).Cells(j).innerText
            k = k + 1
         Next
      End If
Next
End Sub

zhua · 发表于 2009-12-14 16:04

谢谢版主的回复，刚才又回过头来看版主的分析工具。由于工具中的网址无法进入，改用了这个网址进入
http://baidu.hexun.com/stock/sort_all.php?sh_sz=0&isB=0

看来分析操作的文字，找了下没有找到cells。以下这些文字的说明能否麻烦楼主用图解的方式说明下，谢谢楼主！~

别不好意思，我也是学VBA半年后才会在代码界面的视图菜单中找到用本地窗口的，又过了3个月才明白它的妙处。
本地窗口中看到一个 T 前面有个+号，点击+号展开………… 100 多个属性，都是按字母顺序排列的，先找熟悉的吧，
很快，看到个 cells 属性，前面也有个+号，点开，看到length属性（相当于VBA中的count）=192，下面跟着 Item1到 Item192，
前面也都有个+号。这个表 16行 12 列  16*12可不就等于 192，还是要编个函数去去拆分？？
对了，还有个熟人 row，刚才cell 变cells 那row不会也变成 rows吧？果然有个rows 点开+号 length =16 刚好16 行，跟着item1-16
点开item1的+号，又是100多属性，再次见到熟人，也有cells 点开+号  length = 12 嘿嘿，刚好12列，跟着item1-12 再点开 item1的+号
又是一堆属性，怎么老是这么多属性，看吧，……
看到 "序号"了，又看到"序号"，又看到"序号"，好几个地方都写着"序号",回头瞄了一眼网页上的那个表，第1行第1列正是 "序号"
至此这个table的中的有用数据是如何存放的都搞清楚了,其他数据用两个循环嵌套就像在工作表中取值一样。一串简洁高效的代码出现了
Set dmt = WebBrowser1.Document
Set R = dmt.all.tags("table")(4).Rows
For i = 0 To R.Length - 1
      For j = 0 To R(i).Cells.Length - 1
         Sheet3.Cells(i + 1, j + 1) = R(i).Cells(j).innerText
      Next
Next

[ 本帖最后由 zhua 于 2009-12-14 16:07 编辑 ]

lskuanye · 发表于 2009-12-21 10:09

好好学习+收藏。谢谢。

bxmy · 发表于 2009-12-21 13:58

初学者有福了！

ldy · 发表于 2010-1-2 18:32

你提供的链接我看了，是aspx的，如果用xmlhttp 需要获取页面中的base64加密的内容，就是源文件中那一大块乱码。
然后在post + Send +参数获取下一页，比较麻烦，最近好几天没上网了，事情太多。
建议你用WEB 或IE打开，然后模拟点击下一页。

zuike · 发表于 2010-1-8 22:23

LDY版主啊,
http://product.pconline.com.cn/case/?frame
这个网页,全部分析怎么在SHEET分析里 ,只有前面8行,下面没有数据出来?

ldy · 发表于 2010-1-10 13:29

原帖由 zuike 于 2010-1-8 22:23 发表
LDY版主啊,
http://product.pconline.com.cn/case/?frame
这个网页,全部分析怎么在SHEET分析里 ,只有前面8行,下面没有数据出来?

这是框架套框架的网页，比较特殊，需要修改代码，找到窗体中 sub D() 过程

Sub D()
Dim dmt As HTMLDocument
Dim htMent As HTMLCommentElement ' As IHTMLElementCollection
Dim i As Integer
Set dmt = WebBrowser1.Document
Set dmt = dmt.all(6) ' 加上这一句再进行分析
下面相同，略。。。。

lskuanye · 发表于 2010-1-13 10:16

新手，只能理解一点，不知如何应用到代码中，若有具体实例就好，附件中实例不会。慢慢学习。请版主写个代码做参考，谢谢。

[ 本帖最后由 lskuanye 于 2010-1-13 10:59 编辑 ]

lskuanye · 发表于 2010-1-14 10:59

我用工具分析结果如附件，从网页http://stock.jrj.com.cn/cominfo/ ... &or_gpdm=000039中提取表格，请版主写个代码做参考，谢谢。

zuike · 发表于 2010-1-15 00:30

谢谢LDY版主的回复.
问题继续,网站 http://product.pconline.com.cn/case/?frame
Sub D()
Dim dmt As HTMLDocument
Dim htMent As HTMLCommentElement ' As IHTMLElementCollection
Dim i As Integer
Set dmt = WebBrowser1.Document
Set dmt = dmt.all(6) ' 加上这一句再进行分析
分析出来了,下面是如何应用的问题.
我想到得到的是网页中产品的型号,
例:
动力火车绝尘侠X3 ·商家报价(10) ·网友成交价
要得到动力火车绝尘侠X3
请抽空解答

		自动登录	找回密码
密码			免费注册

[原创] 网页分析不求人附分析工具实例

回复 926楼舒琼的帖子

浏览过的版块

[原创] 网页分析不求人 附 分析工具 实例

回复 926楼 舒琼 的帖子

浏览过的版块

[原创] 网页分析不求人附分析工具实例

回复 926楼舒琼的帖子