投资人服务邮箱：
公司地址：深圳市南山区科苑路科兴科学园A2栋-14019516人阅读
股票数据的获取目前有如下两种方法可以获取:
1.http/javascript接口取数据2.web-service接口
1.http/javascript接口取数据
1.1Sina股票数据接口以大秦铁路（股票代码：601006）为例，如果要获取它的最新行情，只需访问新浪的股票数据接口：/list=sh601006这个url会返回一串文本，例如：
var hq_str_sh601006="大秦铁路, 27.55, 27.25, 26.91, 27.55, 26.20, 26.91, 26.92, 95, 26.91, 5, 1, 14300,&26.88, 1, , , 1, 2, 1, , 15:05:32";
这个字符串由许多数据拼接在一起，不同含义的数据用逗号隔开了，按照程序员的思路，顺序号从0开始。0：&大秦铁路&，股票名字；1：&27.55&P，今日开盘价；2：&27.25&P，昨日收盘价；3：&26.91&P，当前价格；4：&27.55&P，今日最高价；5：&26.20&P，今日最低价；6：&26.91&P，竞买价，即&买一&报价；7：&26.92&P，竞卖价，即&卖一&报价；8：&&P，成交的股票数，由于股票交易以一百股为基本单位，所以在使用时，通常把该值除以一百；9：&&P，成交金额，单位为&元&，为了一目了然，通常以&万元&为成交金额的单位，所以通常把该值除以一万；10：&4695&P，&买一&申请4695股，即47手；11：&26.91&P，&买一&报价；12：&57590&P，&买二&13：&26.90&P，&买二&14：&14700&P，&买三&15：&26.89&P，&买三&16：&14300&P，&买四&17：&26.88&P，&买四&18：&15100&P，&买五&19：&26.87&P，&买五&20：&3100&P，&卖一&申报3100股，即31手；21：&26.92&P，&卖一&报价(22, 23), (24, 25), (26,27), (28, 29)分别为&卖二&至&卖四的情况&30：&&P，日期；31：&15:05:32&P，时间；
这个接口对于JavaScript程序非常方便，通常的使用方式为，静态或动态地在页面中插入：
&script type="text/javascript" src="/list=sh601006" charset="gb2312"&
&&script type="text/javascript"&
&var elements=hq_str_sh601006.split(",");
document.write("current price:"+elements[3]);
这段代码输出大秦铁路（股票代码：601006）的当前股价
current price:14.20
如果你要同时查询多个股票，那么在URL最后加上一个逗号，再加上股票代码就可以了；比如你要一次查询大秦铁路（601006）和大同煤业（601001）的行情，就这样使用URL：/list=sh601003,sh601001
但如果你要查询大盘指数，情况会有不同，比如查询上证综合指数（000001），使用如下URL：/list=s_sh000001 服务器返回的数据为：
var hq_str_s_sh000001="上证指数,8.073,-3.97,8126";
数据含义分别为：指数名称，当前点数，当前价格，涨跌率，成交量（手），成交额（万元）；
查询深圳成指的URL为：/list=s_sz399001
对于股票的K线图，日线图等的获取可以通过请求/&./&/*.gif此URL获取，其中*代表股票代码，详见如下：
查看日K线图：
/newchart/daily/n/sh601006.gif
分时线的查询：
/newchart/min/n/sh000001.gif
日K线查询：
/newchart/daily/n/sh000001.gif
周K线查询：
/newchart/weekly/n/sh000001.gif
月K线查询：
/newchart/monthly/n/sh000001.gif
1.2&&&&&&&&&&&&& Baidu Google的财经数据在baidu ,google中搜索某只股票代码时，将会在头条显示此股票的相关信息，例如在google搜索601006时，第一条搜索结果如下图：
通过点击左边的图片我们发现会将此图片链接到sina财经频道上，也就是说google股票数据的获取也是从sina获取。后经抓包分析，发现google也是采用1.1中介绍的接口。
Baidu的股票数据来自baidu的财经频道.
1.3&&&&&&&&&&&&& 其他方式除了sina，baidu等网站提供股票信息外，其他网站也有类似的接口。我们分析了一款论坛上采用的股票插件，其中有关于实时股票数据获取的介绍，详见如下代码，其中可以看到有些数据来自sina。
&==========================
& file: stock_getdata.asp
& version: 1.0.0
& copyright (c)
all rights reserved.
&==========================
&&&&&&&& function gethttp(rurl)
&&&&&&&&&&&&&&&&&& dim xml
&&&&&&&&&&&&&&&&&& on error resume next
&&&&&&&&&&&&&&&&&& set xml=server.createobject("Microsoft.XMLHTTP")
&&&&&&&&&&&&&&&&&& xml.open "get",rurl,false
&&&&&&&&&&&&&&&&&& xml.send
&&&&&&&&&&&&&&&&&& if not xml.readystate=4 or not xml.status=200 or err then gethttp="":exit function
&&&&&&&&&&&&&&&&&& gethttp=xml.responsetext
&&&&&&&&&&&&&&&&&& set xml=nothing
&&&&&&&& end function
&&&&&&&& function getstockdata(code)
&&&&&&&&&&&&&&&&&& &0=股票名称,1=开盘价格,2=昨收盘价格,3=当前价格,4=最高价,5=最低价,30,31=更新时间
&&&&&&&&&&&&&&&&&& dim checkcode,stockdata,stockdatasplit
&&&&&&&&&&&&&&&&&& if len(code)&5 then stockdata="0,0,0,0,0,0,0,0,0,0,0,0":exit function
&&&&&&&&&&&&&&&&&& checkcode=mid(code,len(code)-5,1)
&&&&&&&&&&&&&&&&&& if int(checkcode)&=4 then
&&&&&&&&&&&&&&&&&&&&&&&&&&& stockdata=gethttp("/list=sz"&code&"")
&&&&&&&&&&&&&&&&&&&&&&&&&&& if not len(stockdata)=0 then stockdata=split(stockdata,chr(34))(1)
&&&&&&&&&&&&&&&&&& end if
&&&&&&&&&&&&&&&&&& if int(checkcode)&=5 then
&&&&&&&&&&&&&&&&&&&&&&&&&&& stockdata=gethttp("/list=sh"&code&"")
&&&&&&&&&&&&&&&&&&&&&&&&&&& if not len(stockdata)=0 then stockdata=split(stockdata,chr(34))(1)
&&&&&&&&&&&&&&&&&& end if
&&&&&&&&&&&&&&&&&& if len(stockdata)=0 then
&&&&&&&&&&&&&&&&&&&&&&&&&&& stockdata="0,0,0,0,0,0,0,0,0,0,0,0"
&&&&&&&&&&&&&&&&&& else
&&&&&&&&&&&&&&&&&&&&&&&&&&& stockdatasplit=split(stockdata,",")
&&&&&&&&&&&&&&&&&& stockdata=""&exstock.checkstr(stockdatasplit(0))&","&stockdatasplit(1)&","&stockdatasplit(2)&","&stockdatasplit(3)&","&stockdatasplit(4)&","&stockdatasplit(5)&","&formatdatetime(""&stockdatasplit(30)&" "&stockdatasplit(31)&"",0)&""
&&&&&&&&&&&&&&&&&& end if
&&&&&&&&&&&&&&&&&& &0=股票名称,1=开盘价格,2=昨收盘价格,3=当前价格,4=最高价,5=最低价,6=更新时间
&&&&&&&&&&&&&&&&&& getstockdata=stockdata
&&&&&&&& end function
&&&&&&&& function getstockimg(code)
&&&&&&&&&&&&&&&&&& dim rndnum,addnum,checkcode,imgsource
&&&&&&&&&&&&&&&&&& if len(code)&5 then exit function
&&&&&&&&&&&&&&&&&& addnum=4
&&&&&&&&&&&&&&&&&& randomize:rndnum=cint(rnd*addnum)
&&&&&&&&&&&&&&&&&& select case rndnum
&&&&&&&&&&&&&&&&&&&&&&&&&&& case 0
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getstockimg=".cn/curve/kline/?code="&code&""
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& imgsource=".cn"
&&&&&&&&&&&&&&&&&&&&&&&&&&& case 1
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getstockimg=".cn/htmdata/KLINE/"&code&".png"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& imgsource=".cn"
&&&&&&&&&&&&&&&&&&&&&&&&&&& case 2
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& checkcode=mid(code,len(code)-5,1)
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& if int(checkcode)&=4 then
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getstockimg="/newchart/daily/n/sz"&code&".gif"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& end if
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& if int(checkcode)&=5 then
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getstockimg="/newchart/daily/n/sh"&code&".gif"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& end if
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& imgsource=".cn"
&&&&&&&&&&&&&&&&&&&&&&&&&&& case 3
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getstockimg="/stockchart/realline.chart?"&code&"&1003&SZ 500 330"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& imgsource=""
&&&&&&&&&&&&&&&&&&&&&&&&&&& case 4
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getstockimg="/chartserver?code="&code&""
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& imgsource="/"
&&&&&&&&&&&&&&&&&& end select
&&&&&&&&&&&&&&&&&& getstockimg=split(""&getstockimg&"||"&imgsource&"","||")
&&&&&&&& end function
&&&&&&&& function getastockimg()
&&&&&&&&&&&&&&&&&& dim rndnum,addnum,checkcode
&&&&&&&&&&&&&&&&&& dim getastockimgb,imgsource
&&&&&&&&&&&&&&&&&& addnum=6
&&&&&&&&&&&&&&&&&& randomize:rndnum=cint(rnd*addnum)
&&&&&&&&&&&&&&&&&& select case rndnum
&&&&&&&&&&&&&&&&&&&&&&&&&&& case 0
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimg="http://202.109.106.1/gifchartse/gif/000001.gif"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimgb="http://202.109.106.1/gifchartse/gif/399001.gif"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& imgsource="/"
&&&&&&&&&&&&&&&&&&&&&&&&&&& case 1
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimg="/special/100.gif?C39"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimgb="/special/101.gif?HrS"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& imgsource=""
&&&&&&&&&&&&&&&&&&&&&&&&&&& case 2
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimg=".cn/curve/realtime/index2.php?code=1a0001&w=180&h=140"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimgb=".cn/curve/realtime/index2.php?code=399001&w=180&h=140"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& imgsource=".cn"
&&&&&&&&&&&&&&&&&&&&&&&&&&& case 3
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimg="/stockchart/realline.chart?1a&SZ 180 140"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimgb="/stockchart/realline.chart?2&SZ 180 140"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& imgsource="/"
&&&&&&&&&&&&&&&&&&&&&&&&&&& case 4
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimg="/newchart/small/ish000001.gif?8"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimgb="/newchart/small/isz399001.gif?8"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& imgsource=""
&&&&&&&&&&&&&&&&&&&&&&&&&&& case 5
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimg="http://218.1.72.66/cgi/pic/sh/realtime/JA.png"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimgb="http://218.1.72.66/cgi/pic/sz/realtime/JA.png"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& imgsource="/"
&&&&&&&&&&&&&&&&&&&&&&&&&&& case 6
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimg="http://222.73.29.85/img/000001.png"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& getastockimgb="http://222.73.29.85/img/399001.png"
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& imgsource="/"
&&&&&&&&&&&&&&&&&& end select
&&&&&&&&&&&&&&&&&& getastockimg=split(""&getastockimg&"||"&getastockimgb&"||"&imgsource&"","||")
&&&&&&&& end function
2.&& web-service接口
2.1& CHINAstock的web-service：.cn/WebServices/ChinaStockWebService.asmx
中国股票行情数据 WEB 服务（支持深圳和上海股市的全部基金、债券和股票），数据即时更新。输出GIF分时走势图、日/周/月 K 线图、及时行情数据（股票名称、行情时间、最新价、昨收盘、今开盘、涨跌额、最低、最高、涨跌幅、成交量、成交额、竞买价、竞卖价、委比、买一 - 买五、卖一 - 卖五）。此WEB服务提供了如下几个接口：
2.1.1& getStockImageByCodeGET 股票GIF分时走势图
INput：theStockCode = 股票代号，如：sh000001
POST /WebServices/ChinaStockWebService.asmx HTTP/1.1
Content-Type: text/ charset=utf-8
Content-Length: length
SOAPAction: ".cn/getStockImageByCode"
&?xml version="1.0" encoding="utf-8"?&
&soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"&
& &soap:Body&
&&& &getStockImageByCode xmlns=".cn/"&
&&&&& &theStockCode&string&/theStockCode&
&&& &/getStockImageByCode&
& &/soap:Body&
&/soap:Envelope&
2.1.2 getStockImageByteByCode获得中国股票GIF分时走势图字节数组
INput：theStockCode = 股票代号，如：sh000001
POST /WebServices/ChinaStockWebService.asmx HTTP/1.1Host: .cnContent-Type: text/ charset=utf-8Content-Length: lengthSOAPAction: ".cn/getStockImageByteByCode" &?xml version="1.0" encoding="utf-8"?&&soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"&& &soap:Body&&&& &getStockImageByteByCode xmlns=".cn/"&&&&&& &theStockCode&string&/theStockCode&&&& &/getStockImageByteByCode&& &/soap:Body&&/soap:Envelope&
返回的数据如下：
&?xml version="1.0" encoding="utf-8" ?&
& &base64Binary xmlns=".cn/"&R0lGODlhIQIsAfcAAAAAAAwLBxkGBQ4ODhAQEBsSChUVFS4TDB8eGQkA9koPCDAAzy4mFVgAp2UYC0IqEUYuBVwiDEAsI1QnFX8AgDU1NUozFlgxD6cBWVY5FnIwEmQ4Gc0AMlhDHPEADlVJMEpKSm1IHOUBWpY3FZMyVY9IGXRWIEFmWGNYUmpdPXJgHQB8HK9EGGBgX4lXIACoAHhkMyt4m4VkJtstbv8A
2.1.3& getStockImage_kByCode直接获得中国股票GIF日/周/月 K 线图（545*300pixel/72dpi）INPUT: theStockCode = 股票代号
&&&&& theType = K 线图类型（D：日[默认]、W：周、M：月），
POST /WebServices/ChinaStockWebService.asmx HTTP/1.1Host: .cnContent-Type: text/ charset=utf-8Content-Length: lengthSOAPAction: ".cn/getStockImage_kByCode" &?xml version="1.0" encoding="utf-8"?&&soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"&& &soap:Body&&&& &getStockImage_kByCode xmlns=".cn/"&&&&&& &theStockCode&string&/theStockCode&&&&&& &theType&string&/theType&&&& &/getStockImage_kByCode&& &/soap:Body&&/soap:Envelope&
比如按照下图所示输入：
返回的结果就是周K线图：
2.1.4& getStockImage_kByteByCode获得中国股票GIF日/周/月 K 线图字节数组
Input：theStockCode = 股票代号，如：sh000001
POST /WebServices/ChinaStockWebService.asmx HTTP/1.1Host: .cnContent-Type: text/ charset=utf-8Content-Length: lengthSOAPAction: ".cn/getStockImage_kByteByCode" &?xml version="1.0" encoding="utf-8"?&&soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"&& &soap:Body&&&& &getStockImage_kByteByCode xmlns=".cn/"&&&&&& &theStockCode&string&/theStockCode&&&&&& &theType&string&/theType&&&& &/getStockImage_kByteByCode&& &/soap:Body&&/soap:Envelope&HTTP/1.1 200 OKContent-Type: text/ charset=utf-8Content-Length: length &?xml version="1.0" encoding="utf-8"?&&soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"&& &soap:Body&&&& &getStockImage_kByteByCodeResponse xmlns=".cn/"&&&&&& &getStockImage_kByteByCodeResult&base64Binary&/getStockImage_kByteByCodeResult&&&& &/getStockImage_kByteByCodeResponse&& &/soap:Body&&/soap:Envelope&比如按照下图输入
返回的结果就是周K线图字节数组
&?xml version="1.0" encoding="utf-8" ?&
& &base64Binary xmlns=".cn/"&R0lGODlhIQIsAfcAAAAAAAwLBxkGBQ4ODhAQEBsSChUVFS4TDB8eGQkA9koPCDAAzy4mFVgAp2UYC0IqEUYuBVwiDEAsI1QnFX8AgDU1NUozFlgxD6cBWVY5FnIwEmQ4Gc0AMlhDHPEADlVJMEpKSm1IHOUBWpY3FZMyVY9IGXRWIEFmWGNYUmpdPXJgHQB8HK9EGGBgX4lXIACoAHhkMyt4m4VkJtstbv8A
2.1.5& getStockInfoByCode获得中国股票及时行情input：theStockCode = 股票代号
POST /WebServices/ChinaStockWebService.asmx HTTP/1.1Host: .cnContent-Type: text/ charset=utf-8Content-Length: lengthSOAPAction: ".cn/getStockInfoByCode" &?xml version="1.0" encoding="utf-8"?&&soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"&& &soap:Body&&&& &getStockInfoByCode xmlns=".cn/"&&&&&& &theStockCode&string&/theStockCode&&&& &/getStockInfoByCode&& &/soap:Body&&/soap:Envelope&返回的值一个一维字符串数组 String(24)，结构为：String(0)股票代号、String(1)股票名称、String(2)行情时间、String(3)最新价（元）、String(4)昨收盘（元）、String(5)今开盘（元）、String(6)涨跌额（元）、String(7)最低（元）、String(8)最高（元）、String(9)涨跌幅（%）、String(10)成交量（手）、String(11)成交额（万元）、String(12)竞买价（元）、String(13)竞卖价（元）、String(14)委比（%）、String(15)-String(19)买一 - 买五（元）/手、String(20)-String(24)卖一 - 卖五（元）/手。
Web service的方法类似于现在concurrent项目的DBWS数据的获取，都是通过SOAP协议向DBWS服务器获取相关的数据。
利用雅虎查中国股票
/d/quotes.csv?s=MSFT&f=slc1wop返回微软的股票价格
"MSFT","4:00pm - &b&30.70&/b&",+1.04,"21.46 - 30.75",29.77,29.66/d/quotes.csv?s=000969.SZ&f=slc1wop这个返回安泰科技的，一般有半个小时的延迟。
但是s=000969.sz 这个后面的sz是什么意思呢？深圳:)沪市是SS后缀
我之所以开始这个题目，是因为我又看到有人问起如何从WEB中取了。随着炒股的人越来越多，可能很多人喜欢用EXCEL来分析股票信息。可是，如何得到股价信息呢？这又是一个。
我之前看到的程序，都是从类似或.cn中取数据。用XMLHTTP读取大段的网页然后进行数据分离。这种做是对的，但是却不是最快的。要知道用XMLHTTP读取数据的过程，其实就是你打开网页的过程。你打开网页有多快，XMLHTTP就有多快。因此，如何获取最低层的那个GET是最重要的。 经过一段的努力，我找到了金融街网站的股票数据信息的最底层的那个GET，速度快，底层的返回数据没有一句http语言，纯，易于处理。
现在就将这两个公开，希望能对用到的朋友提供一点帮助。
对于其他网页数据的获取，请参照下面的GetHttp函数。只需要在函数参数中加入自己的网址就行了。另外，如果你是经常需要从不同的网页获取数据，为了便于处理得到的文本，建议学习一下&正则表达式&，我们论坛上用的。
好了，言归正传。下面就介绍这两个函数。
取金融街某支股票当天数据的函数Jrj0DayData
函数使用说明
参数StockCode输入股票
函数以形式返回当天数据
Function Jrj0DayData(ByRef StockCode As String)&&& &&& Dim Url As String&&& &&& Url = "" & StockCode & ".htm" &&& Url = GetHttp(Url)&&& Jrj0DayData = Split(Url, ",")&&& End Function
返回的数组有元素38个，数组元素含义如下：
数组的各元素的含义如下所示：
&&& Debug.Print "" & arrA(1)&&& Debug.Print "时间" & arrA(2)&&& Debug.Print "成交价" & arrA(3)&&& Debug.Print "现手" & arrA(4)&&& Debug.Print "涨跌" & arrA(5)&&& Debug.Print "幅度" & arrA(6)&&& Debug.Print "均价" & arrA(7)&&& Debug.Print "总量" & arrA(8) &&& Debug.Print "金额" & arrA(9)&&& Debug.Print "主买或外盘" & arrA(10)&&& Debug.Print "主卖或内盘" & arrA(11)&&& Debug.Print "昨收" & arrA(12)&&& Debug.Print "开盘" & arrA(13) &&& Debug.Print "最高" & arrA(14)&&& Debug.Print "最低" & arrA(15)&&& Debug.Print "委比" & arrA(16)&&& Debug.Print "委差" & arrA(17)&&& Debug.Print "量比" & arrA(18) &&& '下面的就是买卖交替，从19－38&&& Debug.Print "买①" & arrA(19)&&& Debug.Print "买①量" & arrA(20)&&& Debug.Print "卖①" & arrA(21)&&& Debug.Print "卖①量" & arrA(22)
可以说，这一个数组已经包括了某支股票当日的基本信息，全了。
第二个函数，获取历史价格信息
金融街取某一股票80天数据的函数
用法：参数StockCode输入某股票代码。函数以数组形式返回80天数据，数组每个元素中存贮着类似(-04-20& 开:48.23& 高:50.79& 低:48.00& 收:50.27& 量:461974& 额: )的数据。
Function Jrj80DayData(ByRef StockCode As String)&&& &&& Dim Url As String&&& Dim objREGEXP As Object&&& &&& Url = "" & StockCode & ".js"&&& Url = GetHttp(Url)&&& &&& Set objREGEXP = CreateObject("SCRIPT.REGEXP")&&& With objREGEXP&& &&&&&&& .Global = True &&&&&&& .Pattern = "[a/[][^/]]*[/]]" &&&&&&& Url = .Replace(Url, "")&&&&&&& &&& End With&&& Set objREGEXP = Nothing&&& &&& Url = Replace(Url, "= ", "")&&& Url = Replace(Url, """", "") &&& Url = Replace(Url, Chr(13), "")&&& Url = Replace(Url, ";", "")&&& &&& Jrj80DayData = Split(Url, Chr(10))&&& End Function
函数返回的数组有80个元素，从0－79中依次存着类似& 开:48.23& 高:50.79& 低:48.00& 收:50.27& 量:461974& 额: 这样的内容。至于你要事先此字符串还是要只取数据进行分析，那就随你自己了。
前面两个函数的运用，是要用到下面的这两个函数的。这两个函数是必须的。一个是xmlhttp组件的运用，一个是纠正乱码的。
Function GetHttp(Url)&&& Dim objXML&&& On Error Resume Next&&& Set objXML = CreateObject("Microsoft.XMLHTTP")&&& With objXML&&&&&&& .Open "Get", Url, False, "", "" &&&&&&& .Send&&&&&&& GetHttp = .ResponseBody&&& End With&&& GetHttp = BytesToBstr(GetHttp, "GB2312")&&& Set objXML = Nothing&&& On Error GoTo 0End Function
Function BytesToBstr(strBody, CodeBase)&&& Dim objStream&&& Set objStream = CreateObject("Adodb.Stream")&&& &&& With objStream&&&&&&& .Type = 1&&&&&&& .Mode = 3&&&&&&& .Open&&&&&&& .Write strBody &&&&&&& .Position = 0&&&&&&& .Type = 2&&&&&&& .Charset = CodeBase&&&&&&& BytesToBstr = .ReadText&&& End With&&& objStream.Close&&& Set objStream = NothingEnd Function
&&相关文章推荐
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：162820次
积分：2605
积分：2605
排名：第13784名
原创：90篇
转载：53篇
评论：15条
(1)(1)(2)(1)(2)(3)(2)(2)(5)(1)(6)(1)(3)(1)(2)(3)(3)(2)(2)(2)(2)(9)(9)(11)(2)(6)(1)(2)(1)(2)(1)(1)(1)(3)(10)(3)(1)(2)(2)(4)(2)(3)(5)(5)(3)(5)(1)(1)财经首页 - 东方财富网
3237.160.000.00%10364.820.000.00%3728.300.000.00%1690.150.000.00%
29808.00(亿元)
67000.00(亿元)
17082.00(亿元)
80074.00(亿元)
14474.00(亿元)
-465.07亿美元
08-04澳大利亚：PSI低08-04菲律宾：CPI：所有项目：同...高08-04菲律宾：PPI：总制造业：同...高08-04澳门：M2高08-04马来西亚：对外贸易：贸易差...高
08月01日&07月24日&07月19日&07月15日&07月13日&07月05日&
中国-居民消费价格指数
阿联酋迪拉姆
澳大利亚元
基准利率(%)
美国联邦基金目标利率1至1.25欧元区再融资利率0日本央行利率决议-0.1英国央行利率决议0.25加拿大隔夜目标利率0.75澳大利亚隔夜利率1.5新西兰官方现金利率1.75
龙虎榜成交额(元)
7.17%535,444,9287.01%1,223,179,4401.27%1,508,775,9687.06%337,956,6247.33%833,064,70410.00%216,383,273-8.10%222,118,878
融资余额(元)
融资买入(元)
21,428,407581,670,3370505,327,62815,866,8751,000,357,32612,490,665697,927,98513,950301,251,7732,169,384332,333,1942,413,920475,590,214
今日增仓&&
25.87%25.87%25.87%15.91%9.70%7.18%25.55%6.34%1.42%9.46%9.46%9.46%18.26%5.28%2.13%11.71%3.00%0.84%45.00%18.39%18.39%
成交额(万)
4.919.84%53045.7210.886.04%17411.125.723.06%85819.4415.472.65%35327.415.562.21%7.391.93%6220.218.111.88%38946.46
上海成品油价92#
单位：元/升
新建住宅价格指数
271.600.000.00%270.450.000.00%278.100.000.00%277.850.200.07%278.450.400.14%279.950.000.00%280.700.250.09%
26.7910.02%121万33.756.37%35831万19.483.89%12347万19.553.38%11624万26.643.18%9394万6.033.08%12373万8.853.03%7332万
扫一扫下载APP
东方财富产品
关注东方财富
天天基金网
扫一扫下载APP
关注天天基金