投资日历网页数据提取

liu-aguang

kings12333 发表于 2016-8-30 19:23
一看这图标就是高手啊....高手,我有话不好意思说..能不能帮讲一下代码的注解

不想抄代码,就等等. 代码正审核中.....
不懂javaScript,注解也白搭.

kings12333

liu-aguang 发表于 2016-8-30 19:31
不想抄代码,就等等. 代码正审核中.....
不懂javaScript,注解也白搭.

如果我想用VB6.0的LISTVIEW控件来显示,代码该如何改?

kings12333

liu-aguang 发表于 2016-8-30 19:31
不想抄代码,就等等. 代码正审核中.....
不懂javaScript,注解也白搭.

VB的LIST控件也行...谢谢了

liu-aguang

kings12333 发表于 2016-8-30 20:00
VB的LIST控件也行...谢谢了

自己去搞吧，俺很少用你说的东西。

kings12333

liu-aguang 发表于 2016-8-30 20:04
自己去搞吧，俺很少用你说的东西。

也非常感谢你了..怎么数据中没有"重要性"那栏的标识,是不是原网页数据中没有啊...看看原网址:http://stock.10jqka.com.cn/fincalendar.shtml#2016-08-30

YZC51

liu-aguang 发表于 2016-8-30 19:11
Sub js()
    Dim arr(1 To 100, 1 To 5)
    sURL = "http://comment.10jqka.com.cn/tzrl/getTzrlData.p ...

学习老师的代码，谢谢老师！

1. Sub js()
   
2.     Dim arr(1 To 100, 1 To 5)
   
3.     sURL = "http://comment.10jqka.com.cn/tzrl/getTzrlData.php?callback=callback_dt&type=data&date=201608"
   
4.     Set oDom = CreateObject("HTMLFILE")
   
5.     Set oWindow = oDom.parentWindow
   
6.     Set oHTML = CreateObject("MSXML2.XMLHTTP")
   
7.     oHTML.Open "GET", sURL, False
   
8.     oHTML.send
   
9.     oWindow.execScript oHTML.responseText & ";function callback_dt(o){oj=o};n=oj.data.length"
   
10.    
    
11.     r = 0
    
12.    
    
13.     For i = 0 To oWindow.n - 1
    
14.         dt = oWindow.eval("var oi=oj.data[" & i & "]; oi.date+oi.week")
    
15.         m = oWindow.eval("oi.events.length")
    
16.         r = r + 1: arr(r, 1) = dt
    
17.         For j = 0 To m - 1
    
18.             arr(r, 2) = oWindow.eval("oi.events[" & j & "][0]")
    
19.             For Each u In Array("field", "concept")
    
20.             arr(r, 3) = arr(r, 3) & "," & oWindow.eval("ar=[];k=oi." & u & "[" & j & "];for(x in k){ar.push(k[x].name);ar}")
    
21.             Next
    
22.             arr(r, 3) = Trim(Replace(arr(r, 3), ",", " "))
    
23.             arr(r, 4) = oWindow.eval("ar=[];k=oi.stocks[" & j & "];for(x in k){ar.push(k[x].name);ar}")
    
24.             arr(r, 4) = Replace(arr(r, 4), ",", " ")
    
25.             r = r + 1
    
26.         Next
    
27.         r = r - 1
    
28.     Next
    
29.     Range("a2").Resize(r, 4) = arr
    
30. End Sub
    

复制代码

liu-aguang

kings12333 发表于 2016-8-30 20:09
也非常感谢你了..怎么数据中没有"重要性"那栏的标识,是不是原网页数据中没有啊...看看原网址:http://stoc ...

json.rar (21.21 KB, 下载次数: 89)

2016-8-30 21:56 上传

点击文件名下载附件

kings12333

liu-aguang 发表于 2016-8-30 22:00

高手..真的高手.虽然看不懂代码,谢谢是必须的.....