数码鹭岛论坛

标题: 通达信的数据格式 [打印本页]

作者: 翔子 时间: 2009-3-5 08:36
标题: 通达信的数据格式
通达信的5分钟数据格式 *.lc5

示例数据：
32字节为单位：
CD 00 3F 02 33 33 0F 42-7B 14 11 42 66 66 0E 42
3D 0A 11 42 B0 2F F6 4B-A4 B2 0D 00 00 00 00 00

>>> struct.unpack('hhfffffii', buf)
(205, 575, 35.799999237060547, 36.270000457763672, 35.599998474121094, 36.259998321533203, 32268128.0, 897700, 0)

205 / 100 : 月
205 %100 : 日
575 / 60 : 小时
575 % 60 : 分钟
（实数）OPEN
（实数）LOW
（实数）HIGH
（实数）CLOSE
（实数）成交额
成交量
保留

实数，就这么简单。

另外，day文件里面的成交额也是实数。

作者: 翔子 时间: 2009-3-5 08:39
标题: 通达信分时图数据结构
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

作者: 翔子 时间: 2009-3-5 08:42
标题: 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

作者: 翔子 时间: 2009-3-5 08:43
标题: 通达信日线数据格式
通达信日线数据格式，每32个字节为一日
1-4字节 Date

ongInt; //日期
　　 5-8字节 OPen

ongInt; //开盘*100(元)
　　 9-12字节 Close

ongInt; //收盘*100(元)
　　 13-16字节 High:LongInt; //最高价*100(元)
　　 17-20字节 Low:LongInt; //最低价*100(元)
　　 21-24字节 Money:single; //成交额(元)
25-28字节 Volume:LongInt; //成交量(股)
29-32字节保留

欢迎光临数码鹭岛论坛 (http://www.clore.net/forum/)