VBA网抓过程中调用js返回值

coby001

coby001 发表于 2015-5-30 13:42
?erectDate=2015-05-30&nothing=2015-05-30&pjname=0&page=2

在这个查询所返回的内容中有以下东东：

//画分页代码以及自动调整窗口大小
        var m_nRecordCount = 88;
        var m_nPageSize = 20;

-------------------
你应该看得懂吧， 88 / 20 = 5页

onlycxb

coby001 发表于 2015-5-30 13:42
?erectDate=2015-05-30&nothing=2015-05-30&pjname=0&page=2

我想利用js取总数页。

coby001

onlycxb 发表于 2015-5-30 15:05
我想利用js取总数页。

看9楼
。。。。。。。。。。。。

onlycxb

coby001 发表于 2015-5-30 17:53
看9楼
。。。。。。。。。。。。

自己结贴

1. Sub 抓取总数页()
   
2. 
   
3.     Dim StrJS As String, StrJun As String
   
4.     With CreateObject("msxml2.xmlhttp")
   
5. 
   
6.         '读取js文件，并替换document取值
   
7.         .Open "GET", "http://srh.bankofchina.com/search/js/wcm_page_2013.js", False
   
8.         .Send
   
9.         StrJS = Replace(.responsetext, "document.getElementById(PageContext.PageNav.NavId)", "'list_navigator'")
   
10. 
    
11.         '取网页中相关jscript代码
    
12.         .Open "POST", "http://srh.bankofchina.com/search/whpj/search.jsp", False
    
13.         .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
14.         .Send "erectDate=2015-05-01&nothing=2015-05-30&pjname=0&page=2"
    
15. 
    
16.         StrJun = .responsetext
    
17.         StrJun = Mid(StrJun, InStr(StrJun, "function executeSearch()"))
    
18.         StrJun = Left(StrJun, InStr(StrJun, "function gotoPage(npage)") - 1)
    
19.     End With
    
20.     '将相关代码加入js中，运行相关function,取总页码
    
21.     MsgBox "共计" & JSEval(StrJS & ";" & StrJun & ";init_list();PageContext.params['PageCount']") & "页"
    
22. End Sub
    
23. Function JSEval(StrJS As String)
    
24.     Dim jss As Object
    
25.     Set jss = CreateObject("MSScriptControl.ScriptControl")
    
26.     With jss
    
27.         .Language = "javascript"
    
28.         JSEval = .Eval(StrJS)
    
29.        ' Stop
    
30.     End With
    
31. End Function
    
32. Sub CopyToClipbox(strText As String)
    
33.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    
34.         .SetText strText
    
35.         .PutInClipboard
    
36.     End With
    
37. End Sub
    

复制代码

onlycxb

上述取得总页码方法主要是利用js的原有文件取得，过程比较繁琐，但作为学习还是有价值研究，定有收获！
如果利用向上取整函数实现，则极为简单！

coby001

onlycxb 发表于 2015-5-30 22:52
自己结贴

唉~~
你学了那么久网页爬虫了，还是没学通啊~
完全没领会 9楼 帖子的内容。

.Send "erectDate=2015-05-01&nothing=2015-05-30&pjname=0&page=2"
连这种自己调节的参数也照搬，page 在第一次查询的时候写1就好了。

我在9楼直接给了计算总页数的方法，就不用绕弯弯去折腾 js 了。

onlycxb

领会 9楼 帖子的内容。我只不过换一种方法来偿试一下。

VBA万岁

onlycxb 发表于 2015-5-30 22:52
自己结贴

虽然可以用向上取整法求得总页数，但还是希望通过折腾 js 直接获得该值。
遂Mark如附件，有时间再慢慢研读。
调用js返回值获取中国银行外汇牌价总页数.zip (589.13 KB, 下载次数: 51)

2015-6-1 16:19 上传

点击文件名下载附件

onlycxb

VBA万岁 发表于 2015-6-1 16:19
虽然可以用向上取整法求得总页数，但还是希望通过折腾 js 直接获得该值。
遂Mark如附件，有时间再慢慢研 ...

你收获了什么？

VBA万岁

onlycxb 发表于 2015-6-1 17:23
你收获了什么？

暂时还没有。