新浪博客

股票软件数据格式详解之-- 同花顺软件数据格式

2008-02-06 12:23阅读：

http://blog.sina.cn/dpool/blog/u/1401310394

股票软件数据格式详解之--
同花顺软件数据格式

由于有朋友在博客上提出同花顺day数据格式的需求,我这星期天(2005年5月20日)特地也整理出来
同花顺是很多传统软件中比较成熟的先进的,至少他目前用以开发程序的平台跟上了软件开发的前沿,尽管它存在着一些不稳定,但同花顺绝对是最具有生命力的,所以大家了解他的格式以后运用也有个稳定的数据来源,同花顺的各类数据整理的很工整也全面开放,这里先介绍它的日数据,大家可以先启动同花顺的工具>数据下载,选中打勾日数据,可以设置历史起始和终结点,目前无限制,只是不能在开市下载,可能是避免别人看行情的速度影响,唉这前几年作这类软件的人都快饿死了,目前虽然行情大好,连服务器都不给买多几台,呵呵,大家同病相怜,日数据为48个字节一天,文件头为64个字节n = (fs.Length - 64) / 48 '可得天数,详细代码如下
VB.net 2005
Case 3 '同花顺
n = (fs.Length - 64) / 48 '文件头占64个字节
LoadDayData = n
ReDim dr(n)
For i = 1 To 8
br.ReadInt64() '读8次64位内存块以越过文件头
Next
For i = 1 To n
Dim d As Integer = br.ReadInt32()
j = j + 1
dr(j).stockdate = DateSerial(d / 10000, (d Mod 10000) / 100, d Mod 100) '日期占4个字节
dr(j).openor = (br.ReadUInt32 And &HFFFFFFF) / 1000 '用无符号32位整型,目前只发现B0开头,所以只需除以1000,不判断,但最好做个异常分支
dr(j).hightor = (br.ReadUInt32 And &HFFFFFFF) / 1000
dr(j).lowor = (br.ReadUInt32 And &HFFFFFFF) / 1000
dr(j).endor = (br.ReadUInt32 And &HFFFFFFF) / 1000
br.ReadInt32() '越过数据,不影响对数据基本数据的获取
dr(j).changor = br.ReadInt32 '(单位手数),成交量,也是32位,可以用无符号整型去读
If dr(j).changor < 0 Then '以B0 开头
dr(j).changor = (dr(j).changor And &HFFFFFFF) / 1000
ElseIf dr(j).changor > 0 Then '这里需要改进 目前发现 90开头
dr(j).changor = dr(j).changor / 100
Else
' ......
End If
br.ReadInt32() '把纪录尾端读完,共20个字节
br.ReadInt64()
br.ReadInt64()
'其实以上越过的数据包含信息为数值,涨幅,振幅,总金额,换手,其实一个日纪录48个字节就只要4个字节未用到的了
Next
case 4 '大智慧level2
'.......

我的更多文章

下载客户端阅读体验更佳

APP专享