你再看29楼

?Ctobin(Substr(lcFileString,21,4),'4ns')

浮点数的二进制格式转换比较麻烦，用C写来的快，我看这个数据本身也是用C写出来的。我可以用C写一个程序给你生成一个txt文件，你要怎样的格式？

应该是34个字节吧
后面两个字节是回车和换行，可以不用处理

这个是你30楼的数据转换后的txt文件：

以下是形成的可执行文件：


在vfp中用如下命令调用：

run sh sh600005

这里的参数sh600005不要给扩展名.day，程序默认使用.day作扩展名，然后用同样的名字给你生成sh600005.txt。我已设置了静态运行库编译，但不确定在你的机器上运行是否有缺dll提示，如果有，把信息贴上来，我上传相关dll即可。

附上相关代码：

#include <Windows.h>
#include <cstdio>

struct DATA
{
    int date;        // 日期
    int open;        // 开盘
    int max;        // 最高
    int min;        // 最低
    int close;        // 收盘
    float value;    // 成交金额   （这个是浮点数，怎么转换？）
    int quantity;    // 成交量
    int reserve;    // 保留
};

void wmain(int argc, wchar_t* argv[])
{
    if (argc < 2)
    {
        return;
    }

    wchar_t filename[MAX_PATH];

    DATA data;
    FILE* file1;
    FILE* file2;

    wcscpy_s(filename, argv[1]);
    wcscat_s(filename, L".day");
    if (_wfopen_s(&file1, filename, L"rb") == 0)
    {
        wcscpy_s(filename, argv[1]);
        wcscat_s(filename, L".txt");
        _wfopen_s(&file2, filename, L"wt");         // "wb"改为"wt"
        while (fread(&data, sizeof(data), 1, file1) > 0)
        {
            fwprintf_s(file2, L"日期：%d\n", data.date);
            fwprintf_s(file2, L"开盘：%d\n", data.open);
            fwprintf_s(file2, L"最高：%d\n", data.max);
            fwprintf_s(file2, L"最低：%d\n", data.min);
            fwprintf_s(file2, L"收盘：%d\n", data.close);
            fwprintf_s(file2, L"成交金额：%.4f\n", data.value);
            fwprintf_s(file2, L"成交量：%d\n\n", data.quantity);
        }
        fclose(file2);
        fclose(file1);
    }
}

修改一下代码，上面写错了，不应该是"wb"，应用"wt"，否则回车换行只有一个字节，而不是惯用的两个字节。exe文件没改。

[ 本帖最后由 TonyDeng 于 2012-5-12 22:28 编辑 ]

如果你的vfp5能用ctobin()函数，就可以直接用它来读取浮点数，帮助信息如下：



浮点数的二进制储存机制，是比较复杂微妙的，与机器、创建它的语言内部机制都有关，自己写算法解读它还原，不大现实，还原的数据有可能失真。通常，二进制文件，只使用整数结构的（日期、逻辑等都是整数结构），可以那样还原，但若涉及浮点数据，最好是原样怎么写下去就原样怎么读回来，避免偏差。这个二进制数据文件的格式，明显是用C类语言通过fwrite()写出来的，那么用C的fread()读回来，稳妥一些。

如果vfp5不支持ctobin()那样的用法，但又要出来浮点数，还是不要自己写的好，那等于自己写一个ctobin()函数了，里面还有点细节是我们未必了解的。

[ 本帖最后由 TonyDeng 于 2012-5-12 17:45 编辑 ]

谢谢大家的帮助，我的问题都得到解决了。

function bytes_tolong
    para gcstring,start
    byte1=asc(substr(gcstring,start,1))
    byte2=asc(substr(gcstring,start+1,1))
    byte3=asc(substr(gcstring,start+2,1))
    byte4=asc(substr(gcstring,start+3,1))
    result = byte4*256*256*256 + byte3*256*256 + byte2*256 + byte1
return result

function bytes_tofloat
    para gcstring,start
    byte1=asc(substr(gcstring,start,1))
    byte2=asc(substr(gcstring,start+1,1))
    byte3=asc(substr(gcstring,start+2,1))
    byte4=asc(substr(gcstring,start+3,1))
    符号=1
    符号位=int(byte4/128)
    if 符号位=1
        符号=-1
    endif
    指数_整数=mod(byte4,128)*2+int(byte3/128)-127
    尾数小数=mod(byte3,128)*256*256 + byte2*256 + byte1
    指数_小数= -23
    result = 符号*(2^指数_整数 + 尾数小数 * 2^(指数_整数+指数_小数))
return result