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

yufei8051

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

afan

#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[32][2]
For $i = 0 To 31
        $aOut[$i][0] = $aItem[$i]
        $aOut[$i][1] = $aItem1[$i]
Next
_ArrayDisplay($aOut, '')

yufei8051

#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[32][2]

For $i = 0 To 31

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

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

Next

_ArrayDisplay($aOut, '')
afan 发表于 2012-11-16 00:08

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

yufei8051

回复 2# afan


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

yufei8051

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

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

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

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

afan

回复 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[11], $aItem1[10])

yufei8051

回复  yufei8051


    都在数组里，要学会自己学习基础
afan 发表于 2012-11-20 17:07

感谢超版耐心回复，知道了。
关键是基础太差，对着帮助文件看半天也看不出管所以然。
超版真是好人，诲人不倦，我这几个问题都是超版帮忙，感激不尽

yufei8051

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

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

afan

回复 8# yufei8051


    搜索 雅虎 股票 api 接口

yufei8051

回复  yufei8051


    搜索 雅虎 股票 api 接口
afan 发表于 2012-11-21 22:18

谢谢超版。
原来如此，又学了一招。谢谢