读取股票K线的存盘数据文件，提取数据进行二次分析。
现在知道数据文件每32个字节记录1天K线资料，其中1-4字节表示日期，5-8字节表示开盘价，....（字节排序要倒过来换算）
例如：数据文件的16进制内容为：
        BF 03 33 01   D8 02 00 00 ......
日期为：01 33 03 BF，16进制 0x013303BF =20120511   （日期）
开盘为：00 00 02 D8，16进制 0x000002D8 =728       （开盘价格为7.28）

我处理的方法如下（已转换日期为例）：
my=fopen("sh600004.day")
a1=fread(my,1)  &&第一个字节，是十六进制BF对应的ASC字符
a2=fread(my,1)  &&第二字节
a3=fread(my,1)  &&第三字节
a4=fread(my,1)  &&第四字节
mydate=asc(a4)*256*256*256+asc(a3)*256*256+asc(a2)*256+asc(a1)  &&结果为20120511
**第四字节的asc数字 乘256 x 256 x 256  + 第三字节x256x256 + ......

虽然用以上方法可以得出正确结果，但是太笨了，肯定有捷径的，bintoc()、ctonbin()都不懂什么意思。

从没用过底层文件也不会用其他编程语言，就上面的代码都琢磨了几个小时，请斑竹指点指点。可怜俺没有分送啊。

附件用Hedit查看，附件在12楼。这是通达信股票系统的日K先存盘文件。我想读取记录一定有很快捷的方法。
数据结构每4个字节表示应该如下：
日期
开盘
最高
最低
收盘
成交金额   （这个是浮点数，怎么转换？）
成交量
保留



[ 本帖最后由 sh600839 于 2012-5-12 14:31 编辑 ]

最好能将原始数据文件上传,并注明数据文件的格式
VFP9命令窗口下

?0x000002D8,0x013303BF,0xbf

看下结果

[ 本帖最后由 bccn201203 于 2012-5-12 13:31 编辑 ]

正路就是这样提取数据的，没有更简捷的方法，用什么函数，其内部代码终归都是使用这个公式来做。你看到使用了asc()函数，实际上VFP中这个函数没做什么，asc(a4)直接就是读进来的十六进制0xbf，你写出的表达式，VFP运算的就是0x01*256*256*256+0x33*256*256+0x03*256+0xbf=20120511

你这样fread(my,1)逐个字符读取，文件读写次数多了，效率会降低，一次读取4个字节fread(my,4)甚至32个字节一组记录，再对内存中的字符串进行处理，减少外设操作，效率会稍微提高一点，不过如果文件不是很大的话，差别不明显。

试试

1. lcBinary = fread(my,4)
? ctobin(lbBinary,'4rs')

我不能上传附件，数据文件的内容十分简单，就是二进制串，如我主贴所写的。
0x000002D8,0x013303BF能够得到我要的结果，但是我不知道如何简单地从数据文件里提取这些原始数据。我用的笨方法fread()、asc()然后再计算。

ctobin(lcBinary,'4rs') 参数不对
ctobin(lcBinary) 不是我要的结果

数据文件里的数据顺序要倒过来的， 要4321字节排序才能是正确结果。

每次都要输入验证码，呜呜呜呜

 

在电脑中，字符'A'储存的二进制就是01000001，也可用十六进制0x41表示，这三种表示形式是完全一样的，都是同一个东西。因此你读入的a4字符chr(0xbf)其实已经是用0xbf储存的了，再asc(a4)是不需要做什么的。

这个主意好，我一次读32个字节刚好是一天的完整记录，然后再处理。