求这个网址数据下载地址

whmwhm

以下是东方财网的网页，我想下载里面的数据，但不知数据真实的网址，那位好心人给找一个
http://data.eastmoney.com/bbsj/201806/zcfz.html

duquancai

抓包               

cwpccna

    呵呵, 这个真的有点好玩, 让我告诉你吧,   你打算怎么截取吧!
   var tablelist = new LoadTable({
            id: "dt_1",
            sort: { id: "noticedate", desc: true },
            cellcount: cellCount,
            param: getParam(),           
            cells: eval('(' + editThead() + ')'),
            dataurl: "http://dcfm.eastmoney.com/em_mutisvcexpandinterface/api/js/get?type=CWBB_ZCFZB&token=70f12f2f4f091e459a279469fe49eca5&st={sortType}&sr={sortRule}&p={page}&ps={pageSize}&js=var {jsname}={pages:(tp),data: (x)}{param}",
            defjson: {pages:1,data: [{"scode":"601952","hycode":"016009","companycode":"80315343","sname":"苏垦农发"

whmwhm

楼上的朋友，你给的下载数据的网址不对
http://dcfm.eastmoney.com/em_mut ... 469fe49eca5&st={sortType}&sr={sortRule}&p={page}&ps={pageSize}&js=var {jsname}={pages:(tp),data: (x)}{param}

跟东财网上的数据不对

另外，你写的那个程序我也看不明白，能讲的详细点吗

whmwhm

dataurl: "http://dcfm.eastmoney.com/em_mutisvcexpandinterface/api/js/get?type=CWBB_ZCFZB&token=70f12f2f4f091e459a279469fe49eca5&st={sortType}&sr={sortRule}&p={page}&ps={pageSize}&js=var {jsname}={pages:(tp),data: (x)}{param}"
上面的{param} 如何修改才能得到网页上的数据

whmwhm

duquancai 发表于 2018-7-12 18:44
抓包

我抓包得到http://dcfm.eastmoney.com/em_mut ... 469fe49eca5&st={sortType}&sr={sortRule}&p={page}&ps={pageSize}&js=var {jsname}={pages:(tp),data: (x)}{param}

如何修改呢？

whmwhm

想得到以下图片的数据

duquancai

1. Sub main()
   
2.     Dim http As Object, js As Object, strText$, s$
   
3.     Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
   
4.     http.Open "GET", "http://data.eastmoney.com/bbsj/201806/zcfz.html", False
   
5.     http.send: Cells.Clear
   
6.     strText = Replace(Replace(Replace(http.responseText, vbCrLf, ""), """", """"), "'", "\'")
   
7.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
8.     js.Language = "JavaScript": js.AddObject "g", Range("a1")
   
9.     s = js.eval("'" & strText & "'.split(/defjson:\s*/)[1].split(/,\s*beforeupdate/)[0];")
   
10.     js.eval ("a=" & s & ".data;j=1;for(k in a[0])g(1,j++)=k;for(i=0;i<a.length;i++){j=1;for(k in a[i])g(i+2,j++)=a[i][k];};")
    
11.     MsgBox "OK!"
    
12. End Sub

复制代码

duquancai

whmwhm 发表于 2018-7-12 23:47
想得到以下图片的数据

1. ' 2018年3月31日，每一页100条数据，下面程序抓3页，共300条数据
   
2. Sub main()
   
3.     Dim http As Object, js As Object, strText$, i&, j$, url$, q$, page$
   
4.     Cells.Clear
   
5.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
6.     js.Language = "JavaScript": js.AddObject "g", Range("a1"): js.eval ("r=2;")
   
7.     Set http = CreateObject("msxml2.xmlhttp")
   
8.     url = "http://dcfm.eastmoney.com/em_mutisvcexpandinterface/api/js/get?type=CWBB_ZCFZB&token=70f12f2f4f091e459a279469fe49eca5&st=noticedate&sr=-1&js=var%20ZHOFfsns={pages:(tp),data:%20(x)}&rt=51047070"
   
9.     q = "&filter=(reportdate=^2018-3-31^)" '设置抓取日期
   
10.     page = "&ps=100" '设置每一页条目数量
    
11.     j = "for(i=0;i<a.length;i++,r++){j=1;for(k in a[i])g(r,j++)=a[i][k]"
    
12.     For i = 1 To 3 '设置页数
    
13.         http.Open "GET", url & "&p=" & i & page & q, False: http.send: strText = http.responseText
    
14.         js.eval (strText & ";a=ZHOFfsns.data;j=1;if(r==2){for(k in a[0])g(1,j++)=k;" & j & ";};}else " & j & ";} ;")
    
15.     Next
    
16.     MsgBox "OK!"
    
17. End Sub

复制代码

whmwhm

duquancai 发表于 2018-7-13 01:35
whmwhm 发表于 2018-7-12 23:47
想得到以下图片的数据

我有以下问题，原来查到的网址，为什么给替换，能给讲一下吗？
data: (x)  为什么替换成  data:%20(x)
{param}为什么替换成rt=51047070