如何在capl中将数据从一个文件复制到另一个文件

Question

我正在尝试将数据从一个文件复制到另一个文件。这里文件已成功打开和关闭，但数据未复制到文件中。源文件和目标文件位于同一位置。此外，复制到文件中的数据是字符串格式，在复制到文件之前如何将其转换为十六进制值。

variables
{

    dword fHandler;
    dword handle;
    char DataRecordBuf[15000][50];
    byte recordData[15000][50];
    byte dataRecordLen;
    byte dataRecordTyp;    
}

on start
{

    dword i = 0;
    dword len = 0;
    fHandler = openFileRead("TestFile.hex",0);

    if(fHandler == 0)
    {
        write("%s",fHandler);
        write("Error occured while opening file\n");        
    }
    else
    {
        write("File opened successfully for reading\n");
        while(fileGetStringSZ(DataRecordBuf[i++],elCount(DataRecordBuf),fHandler) != 0);
        len = i;
        i = 0;
        handle = openFileWrite("MyCaplData.txt",2);
        write("File opened successfully for writing\n");
        while(len--)
        {
            filePutString(DataRecordBuf[i++],elCount(DataRecordBuf),handle);
        }
        fileClose(handle);
        write("File Closed Successfully\n");
    }
}

Answer 1

如果你想读一个写二进制数据，你应该使用

openFileRead("TestFile.hex", 1);

和

openFileWrite("MyCaplData.txt", 3);

这将以二进制模式而不是 ASCII 模式打开文件。

然后您应该使用fileGetBinaryBlock 和fileWriteBinaryBlock 来读取和写入数据。