关于通达信数据格式的发布
本月将发布有关通达信日线和分时图数据格式的文章将放在个人的金融学文章板块,请有关关注这方面的朋友届时注意
目前进度:已分布分时图数据格式在 http://www.cnblogs.com/same/articles/722400.html ,这里公布两种代码VB6 和VB2005 作用一样
①VB6
Public NumBase(5) As Long ' 基数
Public NumUnit(4) As Long ' 每单位对应的16进制数
Public NumUnitPrice(4) As Long ' 每单位对于的10进制数,已被从元为单位扩大1000倍
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
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
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
关于通达信数据格式的发布相关推荐
- php 转通达信数据格式,通达信数据格式
通达信数据格式 日K线数据格式 struct TdxRecord { // 日K线数据结构 unsigned int date; // e.g. 20100304 int _open; // *0.0 ...
- 重新改写了一下通达信数据格式提取工具
程序功能: 1.转换通达信股票数据格式到标准的逗号分割文件. 2.可以自定义软件输入目录和输出目录. 运行只需要点击startconvert.bat即可. 批处理文件如下: ============= ...
- python调用通达信数据_通达信数据格式及5分钟信息提取
一.通达信日线*.day文件 文件名即股票代码 每32个字节为一天数据 每4个字节为一个字段,每个字段内低字节在前 00 ~ 03 字节:年月日, 整型 04 ~ 07 字节:开盘价*100, 整型 ...
- 通达信 数据格式 java_通达信日线 数据格式
一.通达信日线*.day文件 文件名即股票代码 每32个字节为一天数据 每4个字节为一个字段,每个字段内低字节在前 00 ~ 03 字节:年月日, 整型 04 ~ 07 字节:开盘价*1000, 整型 ...
- 通达信的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 0 ...
- python 通达信ebk文件_通达信格式及python读取 | Yu Pengyan's Blog
2016-9-3 使用Yahoo的接口也能够获取到数据 https://github.com/lukaszbanasiak/yahoo-finance 通达信网站为券商系统提供交易数据下载,如:上证所 ...
- 阿里云联合通达信科等上百家知名软件服务商发布金盾宣言
6月27日,阿里云旗下软件交易与交付第一平台--云市场联合通达信科.东软.用友.畅捷通.驻云.数梦.安恒等上百家知名软件服务商,共同发布金盾服务宣言,为云市场用户提供"不满意退款" ...
- 通达信服务器系统日线,券商网络接口分析方法(已经可以与通达信服务器行情数据连接!)(页 1) - 股软开源综合交......
大智慧Internet版 5.58.2760 的数据格式 上海日线数据目录: C:\dzh\DATA\SHase\Day 深圳日线数据目录: C:\dzh\DATA\SZnse\Day 每个数据块40 ...
- 通达信高级服务器最新配置文件,通达信移动证后台服务器配置.doc
通达信移动证后台服务器配置 第 PAGE27 页 / 共 NUMPAGES53 页 通达信移动证券后台服务器配置 版本 时间 修改者 描述 1.00 2011-12-16 张丽君 起草 1.01 20 ...
最新文章
- 《计算机组成原理》----2.6 浮点数
- android混淆多个a b c,混淆A,B,C网络类
- Solr 3.5:配置mmseg4j同义词(已经配置好中文分词)
- 把数据保存到cook_将用户信息保存到Cookie中
- ReactiveCocoa初步
- 吉林电子计算机学校学费多少,收费标准_吉林工商学院学费介绍_高考院校库
- Saltstack_使用指南17_salt-ssh
- 【报告分享】2021-2022年中国人工智能创投数据报告.pdf(附下载链接)
- eclipse 最全快捷键(网络收集)
- 项目经理杂谈(上)____________加速步伐!
- linux读取一行数据命令,常用的linux命令和逐行数据处理的例子
- Linux系统优化之网络IO调优
- java 英文题_java英文试题
- ipsan虚拟存储服务器,IPSAN存储架构
- USACO 4.2 The Perfect Stall 完美的牛栏(最大匹配)
- linux 全选 编辑文本_强烈推荐:Linux终端文本编辑器Micro
- 数据库连接池使用场景,工作原理和实现步骤
- 2011年最差的CES(消费电子展)
- [从头读历史] 第271节 诗经 郑风
- vmos框架_vmos魔改共存版自带roor框架下载-vmos魔改版去广告去更新v1.0.63极简版_新绿资源网...