yufei8051 发表于 2012-11-15 22:57:00

（已解决）求教：如何获取网络实时数据？

本帖最后由 yufei8051 于 2012-11-20 16:18 编辑

如题。
比如，在单位不好看股票，我想从新浪财经频道获取某只股票的实时报价，通过一个小对话框显示到桌面一角，怎么弄？
注意，不是在电脑上打开网页抓取，是直接从新浪网站获得数据，这个实在一点思路都没有，哪位高手指点下？谢谢了先

afan 发表于 2012-11-16 00:08:01

#include <INet.au3>
#include <Array.au3>

Local $sName = 'sh600009'        ;----填写需要的股票代码
Local $sItem = '股票名;开盘价;昨收盘价;当前价格;最高价;最低价;竞买价;竞卖价;成交数;成交额;;;;;;;;;;;;;;;;;;;;;日期;时间'
Local $aItem = StringSplit($sItem, ';', 2)
Local $str = _INetGetSource('http://hq.sinajs.cn/list=' & $sName)
Local $aItem1 = StringRegExp($str, '(?<="|,)[^,;]+', 3)
If @error Then Exit
Local $aOut
For $i = 0 To 31
        $aOut[$i] = $aItem[$i]
        $aOut[$i] = $aItem1[$i]
Next
_ArrayDisplay($aOut, '')

yufei8051 发表于 2012-11-16 10:45:36


#include <INet.au3>

#include <Array.au3>



Local $sName = 'sh600009'      ;----填写需要的股票代码

Local $sItem = '股票名;开盘价;昨收盘价;当前价格;最高价;最低价;竞买价;竞卖价;成交数;成交额;;;;;;;;;;;;;;;;;;;;;日期;时间'

Local $aItem = StringSplit($sItem, ';', 2)

Local $str = _INetGetSource('http://hq.sinajs.cn/list=' & $sName)

Local $aItem1 = StringRegExp($str, '(?<="|,)[^,;]+', 3)

If @error Then Exit

Local $aOut

For $i = 0 To 31

      $aOut[$i] = $aItem[$i]

      $aOut[$i] = $aItem1[$i]

Next

_ArrayDisplay($aOut, '')
afan 发表于 2012-11-16 00:08 http://www.autoitx.com/images/common/back.gif

感谢超版回复！！
晚上实验，谢谢

yufei8051 发表于 2012-11-17 14:38:46

回复 2# afan


    试验成功，再次感谢超版帮助！

yufei8051 发表于 2012-11-20 16:40:24

本帖最后由 yufei8051 于 2012-11-20 16:42 编辑


afan 发表于 2012-11-16 00:08 http://www.autoitx.com/images/common/back.gif

再向版主请教一个问题，是
http://www.autoitx.com/thread-36202-1-1.html
的另一种解决方法。

比如在：
http://finance.sina.com.cn/realstock/company/sh601996/nc.shtml

或者你上面的源码中，我想获得下图中红框内的两个数字，上面的源码怎么改？

afan 发表于 2012-11-20 17:07:16

回复 5# yufei8051


    都在数组里，要学会自己学习基础#include <INet.au3>
Local $sName = 'sh601996'
$str = _INetGetSource('http://hq.sinajs.cn/list=' & $sName)
Local $aItem1 = StringRegExp($str, '(?<="|,)[^,;]+', 3)
If @Error Then Exit
MsgBox(0, $aItem1, $aItem1)

yufei8051 发表于 2012-11-20 18:27:11

回复yufei8051


    都在数组里，要学会自己学习基础
afan 发表于 2012-11-20 17:07 http://www.autoitx.com/images/common/back.gif
感谢超版耐心回复，知道了。
关键是基础太差，对着帮助文件看半天也看不出管所以然。
超版真是好人，诲人不倦，我这几个问题都是超版帮忙，感激不尽

yufei8051 发表于 2012-11-21 22:15:08


afan 发表于 2012-11-16 00:08 http://www.autoitx.com/images/common/back.gif

版主你太厉害了，佩服
我很奇怪，你是怎么知道新浪财经股票行情的网址应当是：'http://hq.sinajs.cn/list='   ？
从什么地方可以查到啊？
还有，我要是想取出雅虎中国财经频道股票实时行情，网址应当是啥呀？
我改成：
_INetGetSource('http://hq.yahoojs.cn/list=' & $sName)
也不行啊？

afan 发表于 2012-11-21 22:18:24

回复 8# yufei8051


    搜索 雅虎 股票 api 接口

yufei8051 发表于 2012-11-22 11:15:30

回复yufei8051


    搜索 雅虎 股票 api 接口
afan 发表于 2012-11-21 22:18 http://www.autoitx.com/images/common/back.gif

谢谢超版。
原来如此，又学了一招。谢谢
页: [1]
查看完整版本: （已解决）求教：如何获取网络实时数据？