东方财富网天天练

五指山888

dst1213 发表于 2015-4-28 13:44
15-4-28 13:16:19 |倒序浏览 | 取消回复通知 |(自己) 分享到： 0
大神！
如何提取东方财富网的核心题材信 ...

请问只能提取一个股票数据，还不如直接输入代码就能看到，能说说用途吗？

jinsha2002

照瓢画不了符，是我的要求没说清楚，再顶一次请求老师帮助

1. 6889051这期比赛，成绩还没出来（5.6出成绩）
   换一期 2015年4月第17期（04.24-04.30）成绩已出！（总第74期）
   网址 http://www.55188.com/thread-6881709-1-1.html
   参赛会员网页URL：http://www.55188.com/viewthread. ... egin=0&loop=500
   成绩排名网页URL：http://www.55188.com/viewthread. ... egin=0&loop=500

2.据onlycxb 老师的程序，参赛会员网页、成绩排名网页这二个网页能分别提取相应的数据；

3.求助：如何把二个网页的数据合并在一张表格（用户名是唯一的关联标记），本人搞多日未成，要求见附件

先谢，

jinsha2002

顶一下，
求助：把二网页合并成一个表格附件 在102楼

onlycxb

jinsha2002 发表于 2015-5-4 21:35
照瓢画不了符，是我的要求没说清楚，再顶一次请求老师帮助

1. 6889051这期比赛，成绩还没出来（5.6出成绩 ...

不知道你会不会网页分析,学会抓数据地址,加上贴子中的示例代码,应该能够得到想要的结果.

.无论是谁复杂的网页需要消耗长时间的分析\编码\调试过程。你从提出问题到现在也仅仅是两天时间，换作我来抓取这个网页，也不知道具体多长时间能完成,还是自己多动脑,多动手。

jinsha2002

onlycxb 老师 你说得很对，网页分析,抓数据，我一真在学，但没修成正果，

51三天都在搞 102楼 附件这个东西，但搞不定

lcjy11185

学习并做记号

vfhpsssqa

神级牛人，膜拜

onlycxb

jinsha2002 发表于 2015-5-4 21:35
照瓢画不了符，是我的要求没说清楚，再顶一次请求老师帮助

1. 6889051这期比赛，成绩还没出来（5.6出成绩 ...

没时间，仅做一个示例
Sub t()
    Dim Html As Object, DB As Object, a, i, s
    Set Html = CreateObject("htmlfile")
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", " http://www.55188.com/viewthread. ... amp;_=1431296439020", False
        .send
        Html.body.innerhtml = "<table>" + .responsetext + "</table>"
    End With
    Set DB = Html.all.tags("table")(0).Rows
    '以下代码仅作一个输出示例
    For Each a In DB
      For i = 1 To a.Cells.Length - 1
       s = s + Chr(9) + Trim(a.Cells(i).innertext)
      Next
      s = s + Chr(10)
    Next
MsgBox s           '
End Sub

cyc333

请教一下你的第一楼  1.东方财富_开发式基金净值
你的地址进去是json数据，但是我去网站上，发现它是表格的源代码，不知道是怎么把这个数据网址找出来的，谢谢
另外，作为学习，我改了循环语句，成功在表格里面写出来了
slen = js.eval("db.datas.length") - 1
        For i = 0 To slen
            ar = Split(js.eval("db.datas[" & i & "]"), ",")
            Cells(i + 2, 1).Resize(1, UBound(ar)) = ar
        Next

cyc333

然后 我有安装fiddler 请教楼主怎么找到真的json地址