大智慧股票本地数据读取接口（含源码） CSDN 下载频道
http://download.csdn.net/source/1133331/

通达信技术(二) ——个人随笔——东方财富网博客
http://blog.eastmoney.com/bjdjg/blog_100041965.html

股票数据格式文档 2009.11.09 增加大智慧权息数据格式 – 网站域名已由http://alantop.5166.info转为http://think007.cn – C++博客
http://www.cppblog.com/alantop/archive/2009/11/09/100492.html

免费提供一个完整股票分析软件源码（包含开发文档） – 网站域名已由http://alantop.5166.info转为http://think007.cn – C++博客
http://www.cppblog.com/alantop/archive/2008/10/15/64020.html

股票数据格式文档 – 网站域名已由http://alantop.5166.info转为http://think007.cn – C++博客
http://www.cppblog.com/alantop/archive/2008/09/25/62776.html

股票数据格式文档-适用于股票软件开发人员 – docin.com豆丁网
http://www.docin.com/p-2626628.html

从历史来看当前股票操作思路 – 网站域名已由http://alantop.5166.info转为http://think007.cn – C++博客
http://www.cppblog.com/alantop/archive/2008/09/21/62430.html

重新改写了一下通达信数据格式提取工具 – 网站域名已由http://alantop.5166.info转为http://think007.cn – C++博客
http://www.cppblog.com/alantop/archive/2008/02/21/43054.html

[转贴]读取通达信、天网、钱龙数据的VBA例子_武汉男征婚，结婚不要孩子不行么？冷承键 中国武汉汉口电脑维护高手,免费咨询。
http://hi.baidu.com/lengcj/blog/item/4326b30a65616439b0351d0c.html

我用的是中投的通达信股票软件,请问如何把现在这台电脑的资料保存到另外一台电脑上继续操作尼._已解决问题_搜狗问答
http://money.wenda.sogou.com/question/26602027.html

股票数据格式文档-适用于股票软件开发人员 – docin.com豆丁网
http://www.docin.com/p-2626628.html

通达信目录结构 – 常用软件使用交流区 – 股票论坛 股票培训|股票行情|股票学习|学习炒股|股票入门|操盘手培训|股票网|
http://www.arsjedu.com/viewthread.php?tid=28749&extra=page%3D1

安信证券通达信－大智慧股票分析 常用股票软件目录结构 (大智慧_股票行情中心
http://www.wzxiandai.com.cn/a/gupiaofenxi/561.html

大智慧DzhData.cs股票数据获取代码 CSDN 下载频道
http://download.csdn.net/source/1525426

开篇：近期打算将所研究的关于大智慧股票软件数据分析的代码公布出来，有兴趣者报名留mail – Kusamba, 玫瑰鸦片浆, 股票中线投机策略 – 博客园
http://www.cnblogs.com/kusamba/archive/2009/08/05/1539687.html

Console程序禁止点击“X”关闭，代码 – Kusamba, 玫瑰鸦片浆, 股票中线投机策略 – 博客园
http://www.cnblogs.com/kusamba/archive/2009/12/04/1617341.html

读取通达信、钱龙日线数据文件的“源代码”────及解说-易和文潭-搜狐博客
http://eroom365.blog.sohu.com/86234761.html

EXCEL读取通达信股票日线数据 – 王朝网络 – wangchao.net.cn
http://www.wangchao.net.cn/bbsdetail_1847103.html

通达信的数据格式 – 股票权证 – 数码鹭岛论坛 数码,手机,GPS,短信,电脑,网络,心理测试,笑话,小说,股票
http://www.clore.net/forum/thread-9551-1-1.html

大智慧数据接口组件（引用）_难得糊涂的空间
http://hi.baidu.com/beginnerliuh/blog/item/3cbf9b283cf0c3f599250ad6.html

钱龙3.0版数据存储格式_国荣的BLOG
http://hi.baidu.com/jgr8224/blog/item/51a0a1effef581e8ce1b3e88.html

钱龙数据格式c++语言定义版本_国荣的BLOG
http://hi.baidu.com/jgr8224/blog/item/3c3388014ba4d004738da589.html

通达信股票软件日线数据分析_国荣的BLOG
http://hi.baidu.com/jgr8224/blog/item/cd5d65e748e50929b9382089.html

2009年基金晨星数据分析_liqun空间
http://hi.baidu.com/li%5Fqun/blog/item/f8ef6fde6bc4ce186327989d.html

常用股票软件目录结构 (大智慧，飞狐，通达信，分析家)_股票-大盘-和半挂汽车
http://hi.baidu.com/%D6%D0%B9%FA%B9%A4%C8%CB%C1%AA%C3%CB%C2%DB%CC%B3/blog/item/aa449cc35ced445db219a833.html

通达信技巧（股票软件）_给我给我感觉
http://hi.baidu.com/benyuanshan/blog/item/5c2c83447aa8ea83b3b7dcf4.html

股票软件各家函数对照(软件一栏中飞狐3.0以H、分析家4.9以F、通达信4.2以T、大智慧4.8以D表示)_技术联盟☜♡☞工具文章
http://hi.baidu.com/zgq666/blog/item/2d517ac68c6e6c1a9c163d25.html

 

标签：股票, 软件

股票名称和股票代码_favole的空间
http://hi.baidu.com/favole/blog/item/bd91c1b2bdb20caed8335a05.html
股票的命名有一定的原则。到目前为止，沪深两地的股票简称大多数是4个字，其中上交所规定前两个字反映上市公司所在地，后两个字反映公司名称，一般情况下，上海本地的上市公司不注明所在地。如“成都量具”是成都的一家上市公司，其全称是：成都量具刃具股份有限公司；“延中实业”则是上海一家实业公司，所以不注地名，其全称是：上海延中实业股份有限公司。如果不注明地名容易与其他公司混淆时，则须予以特别区分，如浙江凤凰上市时间较早，当上海凤凰自行车股份有限公司上市时，为示区别便将其称为“上海凤凰”。所以，投资者看股票名称时，一般可以从前两字中了解上市公司所在地，从后两字中了解公司的名称。
　　深交所则习惯于将地名简化为一个字，公司名称简为两个字，第四个字则是区分A股和B股的。如深长城A、琼能源A、皖美菱A等。
　　在特殊情况下，上交所的股票也简化为3个字，如哈医药、二纺机、中纺机等；深交所的股票也可以不要地名，如飞亚达A、沙隆达A等。还要注意，有些股票的名称有时会进行更改，如1996年汽油机改长春长铃。还有些股票由于各种原因名称不是很好，也有待于更改。
　　股票的名称尽管被简化，但随着上市公司数量的增多，要投资者记住所有的公司名称显然力不从心，因此将股票进行编号有助于投资者的记忆。更重要的原因在于随着股票市场规模的日益壮大，对股票进行编号（编码）是为了对越来越多的股票进行分类，特别是为了便于电子化操作和管理，因为电脑对数字和字母的识别能力要比对中文字形强得多。
　　股票代码除了区分各种股票，也有其潜在的意义，比如600***是大盘股，002***是小盘股，6006**是最早上市的股票，有时候，一个公司的股票代码跟车牌号差不多，能够显示出这个公司的实力以及知名度，比如000088盐田港，000888峨眉山。
　　股票的编号也有一定的规律。每只股票均有一个相应的代码，代码共6位数。600600–600699代表从青岛啤酒到辽源得亨；600700一600799代表从百隆股分到阿城钢铁；600800–600899代表从天津磁卡到信联股份；600051–600106代表从宁波联合到重庆路桥。除了部分股票外，绝大多数股票是按照上市时间排序而定的。如600657比600656上市要晚。以后增加新股票，则依序排列即可。另外，上证B股代码依次是900901–900946，代表了从真空B股到轻骑B股。
　　以前深交所的证券代码是４位（2001年升为6位），其中深圳本地上市公司前两位数是00，后两位数代表顺序（按上市时间早晚排列），如0001是深发展A；0002是深万科A。非深圳本地上市公司的代号，第一位数是0，第二位数从5开始排列，后又补加4，所以现在的代号第二位数从4开始排列。后3位数总体上表示上市先后的顺序，如0501是鄂武商等。0001–0068代表从深发展到赛格中康；0400–0498代表从许继电气到丹东化纤；0501–0599代表从鄂武商到青岛双星；0600–0699代表从国际大厦到佳纸股份；0700–0788代表从兴澄股份到合成制药；0800–0828代表从一汽轿车到广东福地。此外，深证B股到1997年6月底共48次，代码从2开始编列，依次是2002–2725，代表从深万科B到京东方B。
　　2001年，深交所发布通知，将深交所现行的证券代码升至6位，升位采用在原证券代码的左端添加“00”完成，需要特别指出的是，升位后的深市证券代码有两只A股股票“ST联益(000696)”和“豫能控股(000896)”，与上交所的两只国债“96国债(6)(000696)”和“96国债(8)(000896)”的代码相同，因此更改为“ST联益(001696)”和“豫能控股(001896)”。

 

标签：股票

VB2005代码与通达信数据格式 – same – 博客园
http://www.cnblogs.com/same/archive/2007/05/18/752058.html
通达信日线数据格式，每32个字节为一日
1-4字节 Date:LongInt; //日期
　　 5-8字节 OPen:LongInt; //开盘*100(元)
　　 9-12字节 Close:LongInt; //收盘*100(元)
　　 13-16字节 High:LongInt; //最高价*100(元)
　　 17-20字节 Low:LongInt; //最低价*100(元)
　　 21-24字节 Money:single; //成交额(元)
25-28字节 Volume:LongInt; //成交量(股)
29-32字节 保留

从网上搜到了一个VBA程序可以把日线转换成excel格式，但是目前有一个问题没有解决，就成交额，由于成交额是单精度型数据，没有找到正确的表示方法。

VB2005代码与通达信数据格式 – same – 博客园
http://www.cnblogs.com/same/archive/2007/05/18/752058.html
VB2005代码与通达信数据格式

基本声明
    Public NumBase(5) As Long ‘通达信格式基数
    Public NumUnit(4) As Long ‘每单位对应的16进制数
    Public NumUnitPrice(4) As Long ‘每单位对于的10进制数,已被从元为单位扩大1000倍

 基本模块
    Public Sub intTDXelg()Sub intTDXelg()
        NumBase(0) = 1065353216 : NumBase(1) = 1082130432 : NumBase(2) = 1090519040 : NumBase(3) = 1098907648 : NumBase(4) = 1109655552 ‘: NumBase(5) = 1118830592
        NumUnit(0) = 4194304 : NumUnit(1) = 2097152 : NumUnit(2) = 1048576 : NumUnit(3) = 524288 ‘: NumUnit(4) = 262144
        NumUnitPrice(0) = 0 : NumUnitPrice(1) = 4000 : NumUnitPrice(2) = 8000 : NumUnitPrice(3) = 16000 ‘: NumUnitPrice(4) = 32000
    End Sub

在ｆｏｒｍ　ｌｏａｄ　事件中调用ｉｎｔＴＤＸｅｌｇ
    Public Structure stockDayRecordStructure stockDayRecord ‘保存一门股票的日数据信息
        Dim stockdate As Date
        Dim openor As Single
        Dim hightor As Single
        Dim lowor As Single
        Dim endor As Single
        Dim changor As Integer
        Dim id As Integer
        Dim VbP As Integer
    End Structure

 
    Public Function getRealPrice()Function getRealPrice(ByVal formerPrice As Long) As Long  ‘注意移植此函数是要把公共变量NumBase预NumUnit移动移植
        Dim i As Integer
        For i = 1 To 4                                 ‘该函数可返回32元人民币以下对于的准确价格
            If formerPrice < NumBase(i) Then
                getRealPrice = (Val((formerPrice – NumBase(i – 1)) & “000″) / NumUnit(i – 1)) + NumUnitPrice(i – 1)
                Exit For                                  ‘ & 000 相当于 * 1000,以‰为单位
            End If
        Next i
    End Function

读取模块
Function LoadDayData()Function LoadDayData(ByVal filename As String, ByRef dr() As stockDayRecord, ByVal t As Short) As Long
 ’股票读取接口,第一个参数为装载股票数据的结构体
        Dim fs As FileStream = File.OpenRead(filename)
        Dim br As New BinaryReader(fs)
        Dim n As Integer
        Dim i As Integer, j As Integer
        Select Case t
            Case 1 ‘中天
              Case 2 ‘通达信 暂时不用
                n = (fs.Length – 4) / 32
                LoadDayData = n
                ReDim dr(n)
                br.ReadInt32() ‘文件头到底是什么,另外是头天顺序颠放到了某个地方
                For i = 1 To n
                    Dim d As Integer = br.ReadInt32()
                    dr(i).stockdate = DateSerial(d / 10000, (d Mod 10000) / 100, d Mod 100)
                    dr(i).openor = getRealPrice(br.ReadInt32) / 1000
                    dr(i).hightor = getRealPrice(br.ReadInt32) / 1000
                    dr(i).lowor = getRealPrice(br.ReadInt32) / 1000
                    dr(i).endor = getRealPrice(br.ReadInt32) / 1000
                    br.ReadInt32()
                    dr(i).changor = br.ReadInt32
                    dr(i).id = i
                    If (dr(i).hightor <> dr(i).lowor) Then dr(i).VbP = dr(i).changor / ((dr(i).hightor – dr(i).lowor) * 1000)
                    br.ReadInt32()
                Next
        End Select
        fs.Dispose()
        LoadDayData = j
    End Function

 

标签：股票, 通达信

关于通达信数据格式的发布 – same – 博客园
http://www.cnblogs.com/same/archive/2007/04/13/711466.html
关于通达信数据格式的发布
本月将发布有关通达信日线和分时图数据格式的文章将放在个人的金融学文章板块,请有关关注这方面的朋友届时注意
目前进度:已分布分时图数据格式在http://www.cnblogs.com/same/articles/722400.html,这里公布两种代码VB6 和VB2005 作用一样
①VB6 
Public tempdata() As Long
Public NumBase(5) As Long ‘基数
Public NumUnit(4) As Long ‘每单位对应的16进制数
Public NumUnitPrice(4) As Long ‘每单位对于的10进制数,已被从元为单位扩大1000倍

Public Type tempFSTrecord ‘每一条记录的长度为26字节:
    FSTtime As Integer
    price As Long
    avgPrice As Long
    changor As Integer
    unUse0 As Integer
    unUse1 As Long
    unUse2 As Long
    unUse3 As Long
End Type
Function LoadFSTdata(ByVal filename As String, fst() As FSTrecord) ‘240个分记录,26个字节一个记录,6508字节一天
    Dim ifile As Integer, i As Integer, j As Integer
    Dim TFR As tempFSTrecord
    Dim fileP As Long
    Dim lenDayFST As Long: longDayFST = 6508
    Dim lenminuteFST As Long: lenminuteFST = 26
    ifile = FreeFile
    Open filename For Binary As ifile
    ‘LoadFSTdata = (LOF(ifile) – / 26 – 10
    LoadFSTdata = LOF(ifile) / 6508

    ReDim fst(1 To LoadFSTdata, 239)
    ReDim tempdata(1 To LoadFSTdata)
    ReDim tempMidprice(1 To LoadFSTdata)
    ReDim fstMaxPrice(1 To LoadFSTdata)
    For j = 1 To LoadFSTdata
        Get ifile, 1 + (j – 1) * longDayFST, tempdata(j)
        Get ifile, 5 + (j – 1) * longDayFST, tempMidprice(j)
        fstMaxPrice(j) = 0
        For i = 0 To 239
            fileP = (j – 1) * longDayFST + i * lenminuteFST + 8 + 1
            Get ifile, fileP, TFR
            fst(j, i).FSTtime = TFR.FSTtime + 1 ‘fst(i).FSTtime = TimeSerial(0, TFR.FSTtime + 1, 0)
            fst(j, i).price = TFR.price
            fst(j, i).avgPrice = TFR.avgPrice
            fst(j, i).changor = TFR.changor
            If Abs(TFR.price – tempMidprice(j)) > fstMaxPrice(j) Then
                   fstMaxPrice(j) = Abs(TFR.price – tempMidprice(j))
            End If
        Next i
    Next j
    Close ifile
End Function
Function getRealPrice(formerPrice As Long) As Long  ‘注意移植此函数是要把公共变量NumBase预NumUnit移动移植
 Dim i As Integer
    For i = 1 To 4                                 ‘该函数可返回32元人民币以下对于的准确价格
       If formerPrice < NumBase(i) Then
          getRealPrice = (Val((formerPrice – NumBase(i – 1)) & “000″) / NumUnit(i – 1)) + NumUnitPrice(i – 1)
          Exit For                                  ‘ & 000 相当于 * 1000,以‰为单位
       End If
    Next i
End Function

Public Sub main()
    NumBase(0) = 1065353216: NumBase(1) = 1082130432: NumBase(2) = 1090519040: NumBase(3) = 1098907648: NumBase(4) = 1109655552 ‘: NumBase(5) = 1118830592
    NumUnit(0) = 4194304: NumUnit(1) = 2097152: NumUnit(2) = 1048576: NumUnit(3) = 524288 ‘: NumUnit(4) = 262144
    NumUnitPrice(0) = 0: NumUnitPrice(1) = 4000: NumUnitPrice(2) = 8000: NumUnitPrice(3) = 16000 ‘: NumUnitPrice(4) = 32000
    readZST.Show’由这个窗体去调用以上的函数,自己写
End Sub

关于通达信数据格式的发布 – same – 博客园
http://www.cnblogs.com/same/archive/2007/04/13/711466.html
static void LoadData( string sFile ) {
FileStream fs = File.OpenRead( sFile );
BinaryReader br = new BinaryReader( fs );

// for ….
// 取出一条记录
// 32 个字节为一条记录，00H-01H 日期，02H-03H 时间
short iDay = br.ReadInt16();
short iTime = br.ReadInt16();
decimal dPriceBegin = Convert.ToDecimal( br.ReadSingle() ); // 开
decimal dPriceTop = Convert.ToDecimal( br.ReadSingle() ); // 高
decimal dPriceBottom = Convert.ToDecimal( br.ReadSingle() ); // 低
decimal dPriceEnd = Convert.ToDecimal( br.ReadSingle() ); // 收
decimal dMoney = Convert.ToDecimal( br.ReadSingle() );
// 18H-1BH 成交量
uint dMount = br.ReadUInt32();
// …

br.Close();
fs.Close();

 

标签：股票, 通达信

关于通达信数据格式的发布 – same – 博客园
http://www.cnblogs.com/same/archive/2007/04/13/711466.html
#include <iostream>
#include <stdlib.h>
#include <vector>

using namespace std;

struct StockRecord {
int date;
int open;
int high;
int low;
int close;
int amount;
int vol;
int reservation;
};

int main(int argc, const char * argv[])
{
StockRecord stock;
vector<StockRecord> stockDb;
const char * data = “C:\\Program Files\\国信证券\\Vipdoc\\sz\\lday\\sz000001.day“;

FILE * fp = fopen(data, “rb”);
if (!fp) {
printf(“ERROR, unable to open file: %s\n”, data);
return (-1);
}

while (!feof(fp)) {
if (fread(&stock, 1, sizeof(stock), fp) != sizeof(stock))
break;
stockDb.push_back(stock);
printf(“date = %d, open = %.2f, high = %.2f, amount = %d\n”,
stock.date, stock.open / 100.0f , stock.high /100.0f, stock.amount);
}

if (fp != NULL)
fclose(fp);

return (0);
}   回复  引用   

通达信分时图数据结构 – same – 博客园
http://www.cnblogs.com/same/articles/722400.html
通达信的zst的数据记录是每6508个字节为一天的数据,每26个字节为一个分钟的记录,这26个字节是这样分配的,时间占两个字节化为十进制为570的话表示9:30分(570/60=9.5) 下一个是占四个字节的叫现价,再下四个字节叫均价,另外还有两个字节为该分钟成交量(现在有可能已经改为四个字节),剩下的14个字节是预留的,那么大家会发现用我以前所有介绍的方法求出的现价和均价都是个天文数字,和股票价格相差甚远但又有规律似的,一般好像玛雅人才用到似的,我介绍一种最简单的办法给大家去求价格的对应关系,大家任找门股票把他的在整数位价格对应的四个字节的16进制和价格位记下来,如4元对应40800000 其实这时你如果对zstli任意个16进制的价格x 想求出他的对应的真实价格,只要用过比例式就能求出,不过先别高兴去操作,因为并不是所有价格档次都是同个比例的,大家看下面的表对照一下,我已经帮大家总结到32的价格,可算到64块钱内个股票64和128元的各位有兴趣在回复中补上,补充一点就是该方法是我导师陈尹力教授指导下完成的,程序代码将公布在个人随笔里的思想里面,也是这个月四月发布,由于笔记本被偷失去很多资料,具体公布的东西仅供大家参考,也作为抛砖引玉,支持我的朋友请在回复中发表您的发现,丰富知识内容。
该算法适用与所有通达信行情软件,如南方证券,鑫网通达信行情软件,并且价格的换算算法对通达信的day日数据里面的价格也适用

RMB  zst数据  zst数据10进制  1￥对应的16进制间隔  人民币间隔  1￥对应的10进制间隔
A  B  C  D  E  F
0  3F800000  1065353216  400000  1￥  4194304
4  40800000  1082130432  200000  1￥  2097152
8  41000000  1090519040  100000  1￥  1048576
16  41800000  1098907648  80000  1￥  524288
32  42240000  1109655552  40000  1￥  262144
　  　  1118830592  　  　  　

按比例算法求。设取到的数为X(化为十进制的了),那么(X-C)/real(x)=F/(1￥*1000) 扩大一千倍,其实以上的C和F就是你可以通过判断逻辑求出取哪个对应的哪个C只有real(x)未知
移动方程两边可求出准确的价格(均价可达到0.001精度),求出后的十进制价格是放大了1000倍的
程序代码链接:http://www.cnblogs.com/same/archive/2007/04/13/711466.html
通达信日数据链接:

 

标签：股票, 通达信

Excel VBA在股票行情中的应用_技术指标

一、演示主要内容:
1.将行情软件中的股票代码、名称导出的Table.txt 与Stock.xls同目录。[股票代码、名称可以选择性，不一定要将沪深A股全部导出]
2.Stock.xls中导入同目录下的Table.txt 主要是取获股票的代码、名称，以网上下载该股票数据而进行技术面的分析。[虽然行情软件中，什么都可以下载，但没有Excel的自主性。嘿嘿]
3.第三方面、演示的是，在Excel中，通过复制股票代码轻而易举地加入自选股[这尤其是当你在Excel数据分析完成后，看好的股票快速加入行情软件中]
以上三方面是Excel与行情软件之间的关系，是用Excel分析行情最基本、最常用的操作。
[attach]518348[/attach]
二、以下代码的主要内容：
1.导入同目录下的Table.txt中的股票代码、名称。
2.升降排序、清除数据以及删除含“S”的股票。
都是一些常规操作所必要的代码
Dim ads$
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Row = 1 Then
        y = Cells(65536, 1).End(xlUp).Row
        If Target.Column <= 10 And y > 2 Then
            If ads = Target.Address Then
                Range(“a3:h” & y).Sort Key1:=Cells(3, Target.Column), Order1:=xlDescending
            Else
                Range(“a3:h” & y).Sort Key1:=Cells(3, Target.Column), Order1:=xlAscending
            End If
            ads = Target.Address
        End If
    End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    y = Cells(65536, 1).End(xlUp).Row
    If Target.Row = 1 Then
        If Target.Column <= 10 And y > 2 Then Call Worksheet_SelectionChange(Target)
    Else
        [a3].Select
        Application.ScreenUpdating = False
        For j = y To 3 Step -1
            If InStr(Cells(j, 2), “S”) > 0 Then Rows(j).Delete
        Next
        Application.ScreenUpdating = True
    End If
End Sub
Private Sub CommandButton1_Click()
    ync = MsgBox(“清除!”, vbInformation + vbYesNoCancel, “股票行情”)
    y = Cells(65536, 1).End(xlUp).Row
    If ync = vbYes Then
        [c3].Resize(y, 6).ClearContents
    ElseIf ync = vbNo Then
        [a3].Resize(y, 8).ClearContents
    Else
        Exit Sub
    End If
End Sub
Private Sub CommandButton2_Click()
    Dim s$, arr$(), n&
    If Dir(ThisWorkbook.Path & “\Table.txt”) <> “” Then
        If MsgBox(“导入!”, vbInformation + vbYesNo, “股票行情”) = vbYes Then
            On Error Resume Next
            Open ThisWorkbook.Path & “\Table.txt” For Input As #1
            Do Until EOF(1)
                Line Input #1, s
                If InStr(s, “SH”) > 0 Or InStr(s, “SZ”) > 0 Then
                    n = n + 1
                    ReDim Preserve arr(1 To 2, 1 To n)
                    arr(1, n) = Right(Split(s, vbTab)(0), 6)
                    arr(2, n) = Split(s, vbTab)(1)
                End If
            Loop
            Close #1
            If n > 0 Then Cells(Cells(65536, 1).End(xlUp).Row + 1, 1).Resize(n, 2) = WorksheetFunction.Transpose(arr): MsgBox “ok.”, 0, “股票行情”
        Else
        End If
    End If
End Sub
Private Sub CommandButton3_Click()

标签：股票

 Java从网络获取股票实时数据，2种方法webservice和javascript 收藏

两种方法：
1.http/javascript接口取数据
2.web-service接口
1. http/javascript接口取数据
1.1 Sina股票数据接口
以大秦铁路（股票代码：601006）为例，如果要获取它的最新行情，只需访问新浪的股票数据
接口：http://hq.sinajs.cn/list=sh601006 这个url会返回一串文本，例如：
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″;
这个字符串由许多数据拼接在一起，不同含义的数据用逗号隔开了，按照程序员的思路，顺序号从0开始。
0：”大秦铁路”，股票名字；
1：”27.55″，今日开盘价；
2：”27.25″，昨日收盘价；
3：”26.91″，当前价格；
4：”27.55″，今日最高价；
5：”26.20″，今日最低价；
6：”26.91″，竞买价，即“买一”报价；
7：”26.92″，竞卖价，即“卖一”报价；
8：”22114263″，成交的股票数，由于股票交易以一百股为基本单位，所以在使用时，通常把该值除以一百；
9：”589824680″，成交金额，单位为“元”，为了一目了然，通常以“万元”为成交金额的单位，所以通常把该值除以一万；
10：”4695″，“买一”申请4695股，即47手；
11：”26.91″，“买一”报价；
12：”57590″，“买二”
13：”26.90″，“买二”
14：”14700″，“买三”
15：”26.89″，“买三”
16：”14300″，“买四”
17：”26.88″，“买四”
18：”15100″，“买五”
19：”26.87″，“买五”
20：”3100″，“卖一”申报3100股，即31手；
21：”26.92″，“卖一”报价
(22, 23), (24, 25), (26,27), (28, 29)分别为“卖二”至“卖四的情况”
30：”2008-01-11″，日期；
31：”15:05:32″，时间；
这个接口对于JavaScript程序非常方便，通常的使用方式为，静态或动态地在页面中插入：
<script type=”text/javascript” src=”http://hq.sinajs.cn/list=sh601006” charset=”gb2312″>
</script>
 <script type=”text/javascript”>
 var elements=hq_str_sh601006.split(“,”);
document.write(“current price:”+elements[3]);
</script>
这段代码输出大秦铁路（股票代码：601006）的当前股价
current price:14.20
如果你要同时查询多个股票，那么在URL最后加上一个逗号，再加上股票代码就可以了；比如你要一次查询大秦铁路（601006）和大同煤业（601001）的行情，就这样使用URL：
http://hq.sinajs.cn/list=sh601003,sh601001
但如果你要查询大盘指数，情况会有不同，比如查询上证综合指数（000001），使用如下URL：
http://hq.sinajs.cn/list=s_sh000001 服务器返回的数据为：
var hq_str_s_sh000001=”上证指数,3094.668,-128.073,-3.97,436653,5458126″;
数据含义分别为：指数名称，当前点数，当前价格，涨跌率，成交量（手），成交额（万元）；
查询深圳成指的URL为：
http://hq.sinajs.cn/list=s_sz399001
 
对于股票的K线图，日线图等的获取可以通过请求http://image.sinajs.cn/…./…/*.gif此URL获取，其中*代表股票代码，详见如下：
查看日K线图：
http://image.sinajs.cn/newchart/daily/n/sh601006.gif
分时线的查询：
http://image.sinajs.cn/newchart/min/n/sh000001.gif
日K线查询：
http://image.sinajs.cn/newchart/daily/n/sh000001.gif
周K线查询：
http://image.sinajs.cn/newchart/weekly/n/sh000001.gif
月K线查询：
http://image.sinajs.cn/newchart/monthly/n/sh000001.gif
 
2.   web-service接口
2.1  CHINAstock的web-service：
http://www.webxml.com.cn/WebServices/ChinaStockWebService.asmx
中国股票行情数据 WEB 服务（支持深圳和上海股市的全部基金、债券和股票），数据即时更新。输出GIF分时走势图、日/周/月 K 线图、及时行情数据（股票名称、行情时间、最新价、昨收盘、今开盘、涨跌额、最低、最高、涨跌幅、成交量、成交额、竞买价、竞卖价、委比、买一 – 买五、卖一 – 卖五）。此WEB服务提供了如下几个接口：
2.1.1  getStockImageByCode
GET 股票GIF分时走势图
INput：theStockCode = 股票代号，如：sh000001
POST /WebServices/ChinaStockWebService.asmx HTTP/1.1
Host: www.webxml.com.cn
Content-Type: text/xml; charset=utf-8
Content-Length: length
SOAPAction: http://WebXml.com.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=”http://WebXml.com.cn/“>
      <theStockCode>string</theStockCode>
    </getStockImageByCode>
  </soap:Body>
</soap:Envelope>
Output：
2.1.2 getStockImageByteByCode
获得中国股票GIF分时走势图字节数组
INput：theStockCode = 股票代号，如：sh000001
POST /WebServices/ChinaStockWebService.asmx HTTP/1.1Host: www.webxml.com.cnContent-Type: text/xml; charset=utf-8Content-Length: lengthSOAPAction: “http://WebXml.com.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=”http://WebXml.com.cn/“>      <theStockCode>string</theStockCode>    </getStockImageByteByCode>  </soap:Body></soap:Envelope>
返回的数据如下：
<?xml version=”1.0″ encoding=”utf-8″ ?>
  <base64Binary xmlns=”R0lGODlhIQIsAfcAAAAAAAwLBxkGBQ4ODhAQEBsSChUVFS4TDB8eGQkA9koPCDAAzy4mFVgAp2UYC0IqEUYuBVwiDEAsI1QnFX8AgDU1NUozFlgxD6cBWVY5FnIwEmQ4Gc0AMlhDHPEADlVJMEpKSm1IHOUBWpY3FZMyVY9IGXRWIEFmWGNYUmpdPXJgHQB8HK9EGGBgX4lXIACoAHhkMyt4m4VkJtstbv8A’>http://WebXml.com.cn/”>R0lGODlhIQIsAfcAAAAAAAwLBxkGBQ4ODhAQEBsSChUVFS4TDB8eGQkA9koPCDAAzy4mFVgAp2UYC0IqEUYuBVwiDEAsI1QnFX8AgDU1NUozFlgxD6cBWVY5FnIwEmQ4Gc0AMlhDHPEADlVJMEpKSm1IHOUBWpY3FZMyVY9IGXRWIEFmWGNYUmpdPXJgHQB8HK9EGGBgX4lXIACoAHhkMyt4m4VkJtstbv8A
 
2.1.5  getStockInfoByCode
获得中国股票及时行情
input：theStockCode = 股票代号
POST /WebServices/ChinaStockWebService.asmx HTTP/1.1Host: www.webxml.com.cnContent-Type: text/xml; charset=utf-8Content-Length: lengthSOAPAction: “http://WebXml.com.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=”http://WebXml.com.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服务器获取相关的数据。

标签：java, 股票

   1.
      News results for 湘鄂情
       湘鄂情登陆A股 老板孟凯身价19亿‎ – 4 hours ago
      本报讯(记者杨滨)中国股市又迎来了一只餐饮股，昨天，北京湘鄂情股份有限公司公布首次公开发行A股的招股意向书，这也意味着湘鄂情成为国内首家登陆A股市场的民营餐饮 …
      新浪网 – 222 related articles »
      湘鄂情：获IPO批文 下周一正式招股‎ – 证券之星 – 12 related articles »
   2.
      北京湘鄂情餐饮管理有限公司
       – [ Translate this page ]
      湘鄂情餐饮投资管理公司.
      www.xeq.com.cn/ – Cached – Similar
   3.
      北京湘鄂情餐饮管理有限公司
       – [ Translate this page ]
      北京湘鄂情餐饮管理有限公司是一家大型的餐饮投资连锁机构。公司雏形于荆楚大地，发展于特区深圳，成熟于首都北京，现拥有湘鄂情、源、湘鄂春等餐饮品牌，分店遍布 …
      www.xeq.com.cn/newEbiz1/…/html/ProgramShow.html?… – Cached – Similar
   4.
      湘鄂情(阜成路店)(图)_北京_大众点评网
       – [ Translate this page ]
      湘鄂情. (阜成路店). 口味 22 环境 25 服务 23 人均 ￥184 分数详情 …. 不是自己买单具体金额也记不清了，光记得不知道湘鄂情也是会员卡用户白白浪费了积分的好机会 …
      www.dianping.com/shop/508479 – Cached – Similar
   5.
      湘鄂情(西单店)(图)_北京_大众点评网
       – [ Translate this page ]
      个人觉得湘鄂情的装修阿环境还是较适合商务宴请的。但是也要分清是请谁？！：）有些时候显得嘈杂一些。菜品应该以湘菜主打，但是口味觉得很一般！ …
      www.dianping.com/shop/510832 – Cached – Similar
   6.
      湘鄂情与北新路桥正式启动IPO – 京华时报·京华网
       – [ Translate this page ]
      2009年10月27日 … 据了解，湘鄂情此次拟发行不超过5000万股A股，占发行后总股本的25%，发行后公司的总股本将达到2亿股。发行前每股净资产为1.62元/股。公开资料显示，湘 …
      epaper.jinghua.cn/html/2009-10/…/content_478091.htm – 16 hours ago – Similar
   7.
      湘鄂情(上海)
       – [ Translate this page ]
      湘鄂情-湖南菜湖北粤菜本帮88折除河海鲜香烟酒水饮料特价菜节假日等肇嘉浜路500号好望角大酒店裙楼近岳阳路人均消费:150-200 免费订餐电话:021-57575777，唯一提供360 …
      www.fg114.com/AESH10003542/detail.aspx – Cached – Similar
   8.
      湘鄂情董事长孟凯有望夺中国餐饮富豪榜眼_网易财经
       – [ Translate this page ]
      2009年7月29日 … 湘鄂情创始人兼董事长孟凯共持有公司上市后总股本2亿股的67%，孟凯个人 … 在深圳， 湘鄂情是一个餐饮业传奇，来自湖北武汉的孟凯1988年南下深圳， …
      money.163.com/09/0729/19/5FDO82HP002526O3.html – Cached – Similar
   9.
      湘鄂情(世纪金源店)【图】_新浪生活_新浪网
       – [ Translate this page ]
      简 介：: 湘鄂情源是在充分挖掘地道湘菜特色的基础上，结合最时尚的现代元素打造的全新形象，是湘鄂情餐饮管理有限公司重拳推出的全新品牌，与以往传统风格有着截然 …
      life.sina.com.cn/info/63/789 – Cached – Similar
  10.
      湘鄂情将上会金健米业无缘分享-百度和讯财经网
       – [ Translate this page ]
      2009年7月29日 … 目前,有关方面也在对金健米业以“低价” 转让北京湘鄂情股份有限公司（下称“湘鄂情”） 股权一事展开调查,希望了解其中是否存在利益链。 …
      stock.baidu.com/2009-07-29/120031394.html – Cached – Similar
  11.
      饮食体验湘鄂情『 美食天地』 加拿大|多伦多|中文论坛- 约克论坛 …
       – [ Translate this page ]
      15 posts – 14 authors – Last post: 22 Jan
      引用: 原帖由露小西于1/21/2009 4:44:00 PM 发表我觉得酸豆角肉末和剁椒鱼头都是我会再点的东西。。。。推荐说不上，但是在多伦多能吃到这样的水准， …
      forum.torontobbs.com/showtopic-1401021-2.aspx – Cached – Similar

      北京湘鄂情餐饮管理有限公司
…
www.xeq.com.cn/ 2K 2009-10-11 – 百度快照

湘鄂情(002306)_股票行情_腾讯证券
湘鄂情 (深圳:002306) 加入自选股 — 昨收: — 今开: — 最高: — 最低: — 成交量: — 成交额:… 09-10-26·北京湘鄂情股份有限公司 09-10-26·北京湘鄂情股份有限公司首次公开发行股票初步询.. 更多>>公司公告 …
stockhtm.finance.qq.com/sstock/ggcx/00230 … 54K 2009-10-26 – 百度快照
stockhtm.finance.qq.com 上的更多结果

湘鄂情老总4桌子起家身家19亿 – 波波的日志 – 网易博客
&nbsp;&nbsp;“我只是一个卖菜的,没有什么可多说的,最大的愿望是希望大家都可以吃得好。”作为即将在深圳中小板IPO的北京湘鄂情股份有限公司(下称“湘鄂情”)创始人,被认为即将跻身中国餐饮富豪榜的孟凯低调而朴实。按他的说法,起名“…

标签：股票

新疆北新路桥建设股份有限公司 昨天，北新路桥公司下发文件，对其西安分公司所属的陕西潼关—西安高速公路改扩建工程第一合同段在短短的三月至五月内，连受业主四次嘉奖予以通报… 北新路桥打赢非洲市场攻坚第一战 (2009-06-17) 巴控克什米尔总理视察我公司驻… www.bxlq.com/ 30K 2009-7-19 - 百度快照

北新路桥的相关新闻

湘鄂情北新路桥今起招股 中国证券报 1天前 …发展成为西北地区乃至“中西南亚经济圈”最具竞争力的、具有施工总承包特级资质的、大型专业路桥建设集团公司。 根据发行时间安排,北新路桥将… 国内外业务并举 北新成西部路桥建设之星 中国证券网 14小时前 北新路桥拟于11月3日发行 和讯网 1天前

湘鄂情北新路桥26日起招股_中国证券网·上海证券报主办 2009年10月26日… 新疆北新路桥建设股份有限公司和餐饮企业北京湘鄂情股份有限公司26日发布招股意向书。北新路桥（002307）拟发4750万股，湘鄂情（002306）拟发5000万股，11月3日网上申购。 湘鄂情雏形于荆楚大地，起步于特区深圳，发展于首都… www.cnstock.com/paper_new/html/2009-10/26 … 25K 2009-10-26 - 百度快照

北新路桥(002307)首次公开发行股票发行保荐工作报告 2009年10月26日…关于新疆北新路桥建设股份有限公司 首次公开发行股票发行保荐工作报告 【保荐机构及保荐代表人声明】 本保荐机构及其保荐代表人根据《公司法》、《证券法》等有关法律、法规和中国证监会的有关规定，诚实守信，勤勉尽责，严格… www.i618.com.cn/news/NewsContent.jsp?docI … 36K 2009-10-26 - 百度快照 www.i618.com.cn 上的更多结果

国内外业务并举 北新成西部路桥建设之星 _焦点透视_新浪财经_新浪网 2009年10月27日… 北新路桥通过国内外业务并举，形成了业务收入、利润稳步增长，竞争力持续增强的态势，逐渐成为中国西部令人瞩目的路桥建设之星。 紧抓机遇“走出”新疆 稳固国内市场份额是北新路桥战略的重要组成部分。北新路桥目前是新疆维吾尔… finance.sina.com.cn/stock/t/20091027/0511 … 119K 2009-10-27 - 百度快照

北新路桥(002307)_股票行情_腾讯证券 09-10-26·北新路桥：首次公开发行股票的发行保荐书 09-10-26·北新路桥：内部控制鉴证报告 09-10-26·北新路桥：首次公开发行A股初步询价及推介公告 09-10-26·北新路桥：审计报告 09-10-26·北新路桥：首次公开发行股票招股意向书… stockhtm.finance.qq.com/sstock/ggcx/00230 … 54K 2009-10-26 - 百度快照 stockhtm.finance.qq.com 上的更多结果

百度_北新路桥吧_北新路桥拆迁造成恶劣影响 我们是新疆兵团工一师北新路桥职工,现就“北新路桥平房住宅区非正常征用、不合理安置问题”投诉,在哀叹不安和几乎绝望中向您们汇报,为民请愿,希望得到您的关注及解决。 工一师北新路桥平房住宅生活区位于乌鲁木齐市河滩北路与苏州路立交桥交界… tieba.baidu.com/f?kz=406740951 36K 2008-6-13 - 百度快照 tieba.baidu.com 上的更多结果

新疆北新路桥建设股份有限公司首次公开发行A股初步询价及推介公告.. 2009年10月26日… 新疆北新路桥建设股份有限公司根据《证券发行与承销管理办法》和《关于进一步改革和完善新股发行体制的指导意见》公开发行A股，本次初步询价及网下发行均通过深圳证券交易所（以下简称“深交所”）网下发行电子平台实施，请询价… finance.sina.com.cn/roll/20091026/0802688 … 123K 2009-10-26 - 百度快照 finance.sina.com.cn 上的更多结果

北新路桥和湘鄂情发行新股 11月3日为实施申购日 股票技术俱乐部 -.. 北新路桥和湘鄂情发行新股 11月3日为实施申购日湘鄂情拟发5000万股新股 11月3日实施申购湘鄂情周日晚间发布招股意向书，公司计划于11月3日公开发行5000万股新股，并在深交所中小板上市。发行后的总股本为2亿股。 本次发行采用网下向… softbbs.pconline.com.cn/10692412.html 23K 2009-10-26 - 百度快照

新疆最大公路施工企业今起招股 北新路桥拟募资37659万元::全景证… 2009年10月26日… 新疆北新路桥建设股份有限公司（下称北新路桥）首次公开发行A股今日开始招股。根据招股说明书，北新路桥计划公开发行4750万股，计划募资37659万元，按轻重缓急投向购置施工机械设备、补充公路工程施工业务运营资金等两个项目。 北新… www.p5w.net/stock/news/ … /t2633487.htm 28K 2009-10-26 - 百度快照

标签：股票