读取股票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 编辑 ]

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

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

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

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

 

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

斑竹我还是不太懂啊，就下面的到底如何写代码？我要从BF 03 33 01 得到20120511 。

例如：数据文件的16进制内容为：
        BF 03 33 01 ......
日期为：01 33 03 BF，16进制 0x013303BF =20120511  

*************
用&宏替换？


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

附件在二楼上传了，这个文件共32字节是1天的行情数据。
我要一个将它转换成txt文件的代码。

? Ctobin(lcBinary,'4rs')

我的系统是vfp5.0，运行后显示参数太多，帮助文件也没有参数说明，是不是升级版本改进了函数？

1楼代码的确可以，但是我感觉太笨了。这是股票行情数据，应该读取很快的。

my = Fopen("sh600004.day")
lcBinary =Fread(my,4)
?lcBinary
? Ctobin(lcBinary,'4rs')   &&这个感觉不错，但是我的vfp5.0不能用。

1326338 是成交量，正确的结果
1259584443 是成交金额（转换不正确），这是个浮点数，正确的值应该是967万。

浮点数怎么转？一点不懂

bintoc()在vfp5.0也有，但是没看到参数说明。

谢谢论坛里的朋友。