东方财富网天天练

五指山888

onlycxb 发表于 2015-3-29 21:45
补9：

数据采集网址是http://quote.eastmoney.com/center/list.html#33，实现代码所对应的涨跌幅数值

onlycxb老师，能给出全部行情数据代码吗？谢谢啦

dst1213

15-4-28 13:16:19 |倒序浏览 | 取消回复通知 |(自己) 分享到： 0
大神！
如何提取东方财富网的核心题材信息，比如：http://f10.eastmoney.com/f10_v2/CoreConception.aspx?code=sh601618谢谢啦

要点一：所属板块　保险重仓板块，上证380板块，沪股通板块，一带一路板块，上证180_板块，北京板块，工程建设板块，AH股板块，HS300_板块，中字头板块，融资融券板块。

dst1213

如何从核心题材里边提取信息啊，老是出错

onlycxb

dst1213 发表于 2015-4-28 13:59
如何从核心题材里边提取信息啊，老是出错

1. Sub test1()
   
2. 
   
3.     Dim ie, dmt, tb, i&, j&
   
4.     Set ie = CreateObject("InternetExplorer.Application")    '创建一个IE对象
   
5.     'strUrl = "http://vip.stock.finance.sina.com.cn/q/go.php/vInvestConsult/kind/qgqp/index.phtml?symbol=" & stockcode
   
6.     strUrl = "http://f10.eastmoney.com/f10_v2/CoreConception.aspx?code=sh601618"
   
7.     With ie
   
8.         .Visible = False    '显示它
   
9.         .navigate strUrl    '加载某个页面
   
10.         Do Until .ReadyState = 4    '等待页面加载完毕
    
11.             DoEvents
    
12.         Loop
    
13.         Set dmt = .document    '将IE浏览器加载的页面文档，赋予dmt变量
    
14.         Set tb = dmt.all.tags("div")(75) '通过索引号捕捉
    
15.         Debug.Print tb.innertext
    
16.     End With
    
17. End Sub
    

复制代码

onlycxb

五指山888 发表于 2015-4-27 23:54
onlycxb老师，能给出全部行情数据代码吗？谢谢啦

      分析并取得数据地址是网抓的关键，加上多学网页知识，自己多动动脑，多动手，一般问题是可以解决的。不研究网页，只是试着修改代码来完成网页抓取，这样既使给出再多例子也学不会。如果是代工，就另个说法了。

jinsha2002

onlycxb 发表于 2015-4-28 19:12
分析并取得数据地址是网抓的关键，加上多学网页知识，自己多动动脑，多动手，一般问题是可以解决的 ...

1. ' http://www.55188.com/thread-6889051-1-1.html '

复制代码

onlycxb 老师，这种网上数据能下不，

onlycxb

jinsha2002 发表于 2015-4-29 21:37
onlycxb 老师，这种网上数据能下不，

能
Sub t()
    Dim html As Object, Db As Object, strText As String
    Dim m As Integer, P As Integer, a, i, arr(1 To 10000, 1 To 5)
   
    P = 100  '页面显示100条记录
   
    Set html = CreateObject("htmlfile")
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://www.55188.com/viewthread.php?tid=6889051&ajaxlist=5&begin=0&nowtime=1430363466&loop=" & P & "&_=1430363474688", False
        .send
        strText = Replace(.responsetext, "tbody", "li")
        html.body.innerhtml = strText
    End With
    Set Db = html.all.tags("li")
    For Each a In Db
        m = m + 1
        For i = 0 To a.Children.Length - 1
            '测试各要素
            'Debug.Print "[" & i & "]__" & a.Children(i).innertext
            '[0]__
            '[1]__
            '[2]__1
            '[3]__
            '[4]__
            '[5]__风云2677
            '[6]__
            '[7]__
            '[8]__SH600026
            '[9]__
            '[10]__
            '[11]__中海发展
            '[12]__
            '[13]__
            '[14]__
            '[15]__
            '[16]__横有多长，竖有多高。拉升刚刚开始。
            '[17]__
            '[18]__
            '将各要素保存
            arr(m, 1) = a.Children(2).innertext    '序号
            arr(m, 2) = a.Children(5).innertext
            arr(m, 3) = a.Children(8).innertext
            arr(m, 4) = a.Children(11).innertext
            arr(m, 5) = a.Children(16).innertext

        Next i
    Next a
Cells.Clear
[a2].Resize(m, UBound(arr, 2)) = arr
End Sub

jx_shangrila

楼主辛苦，谢谢

jinsha2002

onlycxb 发表于 2015-4-30 12:30
能
Sub t()
    Dim html As Object, Db As Object, strText As String

onlycxb 老师 ，E坛友， 节日快乐

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

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.php?tid=" & Split(Cells(10, 30), "-")(1) & "&ajaxlist=5&begin=0&nowtime=1430363466&loop=500
   成绩排名表URL：http://www.55188.com/viewthread.php?tid=" & Split(Cells(10, 30), "-")(1) & "&ajaxlist=6&begin=0&nowtime=1430363466&loop=500

2.参赛会员表，成绩排名表这二个表合并在一张表格中见附件在下楼
  成绩排名表，只要6项数据 买入时间 卖出时间 名次 收益率 涨停 跌停
                                            买入价格 卖出价格

3. 参赛会员表 中的报名时间这一项要，已解决

先谢，

jinsha2002

附件 55188_T+4赛_20150422.rar