投资日历网页数据提取

liu-aguang · 发表于 2016-8-30 19:31

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

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

kings12333 · 发表于 2016-8-30 19:55

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

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

kings12333 · 发表于 2016-8-30 20:00

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

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

liu-aguang · 发表于 2016-8-30 20:04

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

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

kings12333 · 发表于 2016-8-30 20:09

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

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

YZC51 · 发表于 2016-8-30 21:05

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 ...

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

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

复制代码

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

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

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

kings12333 · 发表于 2016-8-30 22:24

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

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

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

[已解决] 投资日历网页数据提取