|
新浪的股票的數(shù)據(jù)接口怎么讀取 新浪提供的接口是 新浪的股票數(shù)據(jù)接口：http://hq./list=********** ********** 為股票代碼 如：sh600000，sz000913 (這里sh是上海股市，sz為深圳股市) http://hq./list=sh600000 http://hq./list=sz000913 訪問(wèn): http://hq./list=sh601006 返回 var hq_str_sh601006="大秦鐵路, 27.55, 27.25, 26.91, 27.55, 26.20, 26.91, 26.92, 22114263, 589824680, 4695, 26.91, 57590, 26.90, 14700, 26.89, 14300, 26.88, 15100, 26.87, 3100, 26.92, 8900, 26.93, 14230, 26.94, 25150, 26.95, 15220, 26.96, 2008-01-11, 15:05:32"; 這個(gè)字符串由許多數(shù)據(jù)拼接在一起，不同含義的數(shù)據(jù)用逗號(hào)隔開(kāi)了，按照程序員的思路，順序號(hào)從0開(kāi)始。 0：”大秦鐵路”，股票名字； 1：”27.55″，今日開(kāi)盤(pán)價(jià)； 2：”27.25″，昨日收盤(pán)價(jià)； 3：”26.91″，當(dāng)前價(jià)格； 4：”27.55″，今日最高價(jià)； 5：”26.20″，今日最低價(jià)； 6：”26.91″，競(jìng)買(mǎi)價(jià)，即“買(mǎi)一”報(bào)價(jià)； 7：”26.92″，競(jìng)賣(mài)價(jià)，即“賣(mài)一”報(bào)價(jià)； 8：”22114263″，成交的股票數(shù)，由于股票交易以一百股為基本單位，通常把該值除以一百； 9：”589824680″，成交金額，單位為“元”，通常以“萬(wàn)元”為成交金額的單位，所以通常把該值除以一萬(wàn)； 10：”4695″，“買(mǎi)一”申請(qǐng)4695股，即47手； 11：”26.91″，“買(mǎi)一”報(bào)價(jià)； 12：”57590″，“買(mǎi)二” 13：”26.90″，“買(mǎi)二” 14：”14700″，“買(mǎi)三” 15：”26.89″，“買(mǎi)三” 16：”14300″，“買(mǎi)四” 17：”26.88″，“買(mǎi)四” 18：”15100″，“買(mǎi)五” 19：”26.87″，“買(mǎi)五” 20：”3100″，“賣(mài)一”申報(bào)3100股，即31手； 21：”26.92″，“賣(mài)一”報(bào)價(jià) (22, 23), (24, 25), (26,27), (28, 29)分別為“賣(mài)二”至“賣(mài)五的情況” 30：”2008-01-11″，日期； 31：”15:05:32″，時(shí)間； while 1 Local $hDownload = InetGet("http://hq./list=sh600000", "sh600000.txt", 1, 1) InetClose($hDownload) $file = FileOpen("sh600000.txt", 0) ; Check if file opened for reading OK If $file = -1 Then MsgBox(0, "Error", "Unable to open file. a time until the EOF is reached") EndIf While 1 $chars = FileRead($file) If @error = -1 Then ExitLoop $aArray = StringTrimLeft($chars,21) $aArray = StringTrimRight($aArray,7) $aArray = StringSplit($aArray,",") TrayTip($aArray[1], "最新股價(jià)" & $aArray[4], 10, 1) sleep(2500) Wend FileClose($file) WEnd 謝謝，原來(lái)是下載成txt文件，有沒(méi)有不下載，直接取得字符串再進(jìn)行數(shù)組處理的辦法？ While 1 Local $HTML = BinaryToString(InetRead('http://hq./list=sh600000')) $aArray = StringSplit($HTML, ',') ToolTip('當(dāng)前價(jià): ' & $aArray[4] & ' | 漲跌幅: ' & Round($aArray[4] - $aArray[3], 2), 0, 0, '浦發(fā)銀行', 1) Sleep(3000) WEnd
|
|
|
