关于通达信数据格式的发布

本月将发布有关通达信日线和分时图数据格式的文章将放在个人的金融学文章板块,请有关关注这方面的朋友届时注意 
目前进度:已分布分时图数据格式在 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) - 8) / 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