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

ldy

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

谢谢版主的回复，刚才又回过头来看版主的分析工具。由于工具中的网址无法进入，改用了这个网址进入
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

好好学习+收藏。谢谢。

bxmy

初学者有福了！

ldy

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

zuike

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

ldy

原帖由 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

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

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

lskuanye

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

zuike

谢谢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
请抽空解答