贝加莱PLC。计算写入后的新偏移量或如何将数据写入新行

时间:2019-02-24 09:00:47

标签: file-io offset plc

我有这个程序,可以在USB记忆棒上创建文件。问题在于它仅保存一行(重写同一行)。我需要在每个循环之后将数据写入新行。我认为它必须与偏移量做一些事情,我需要计算偏移量,因此它不会每次都从0开始。这是代码的一部分

10: DevLink_0.enable := TRUE;
        DevLink_0.pDevice := ADR('Disk');
        DevLink_0.pParam := ADR(cesta_k_USB);
        DevLink_0();

        IF DevLink_0.status =0 THEN
            step :=20;
        END_IF

    20: FileCreate_0.enable := TRUE;
        FileCreate_0.pDevice := ADR('Disk');
        FileCreate_0.pFile := ADR('results.csv');
        FileCreate_0();

        IF FileCreate_0.status = 0 THEN
            identification_file := FileCreate_0.ident;
            offset :=0;
            step :=30;
        END_IF

        IF FileCreate_0.status = fiERR_EXIST THEN 
            step :=25;
        END_IF

    25: FileOpen_0.enable := TRUE;
        FileOpen_0.pDevice :=  ADR('Disk');
        FileOpen_0.pFile := ADR('results.csv');
        FileOpen_0.mode := FILE_W;
        FileOpen_0();

        IF FileOpen_0.status = 0 THEN
            identification_file := FileOpen_0.ident;
            offset := FileOpen_0.filelen;
            step := 30;
        END_IF

    30: data:=INT_TO_STRING(y);
        data:=INSERT(data,'$r$n',LEN(data));
        FileWrite_0.enable := TRUE;
        FileWrite_0.ident := identification_file;
        FileWrite_0.pSrc := ADR(data); 
        FileWrite_0.len := LEN(data); 
        FileWrite_0.offset := offset;
        FileWrite_0();


        IF FileWrite_0.status = 0 THEN

                step :=40;

            END_IF



    40: FileClose_0.enable := TRUE;
        FileClose_0.ident := identification_file;
        FileClose_0();

        IF FileClose_0.status =0 THEN
            IF save = FALSE THEN
                step :=50;
            ELSE
                step := 25;
            END_IF
        END_IF

    50: DevUnlink_0.enable := TRUE;
        DevUnlink_0.handle := DevLink_0.handle;
        DevUnlink_0();

        IF DevUnlink_0.status =0 THEN
            stav:= 0;
        END_IF

1 个答案:

答案 0 :(得分:1)

正如评论中已经提到的那样,您将需要在FileWrite FUB中相应地设置偏移量。

我通常使用AS帮助中的FileInfo FUB Guid 6eaf42f0-4ce5-44b7-95cb-275ae1c2fac5 进行此操作。它会告诉您文件是否已经存在,以及文件的大小。

如果存在,下一步将是FileOpen,否则是FileCreate。

最近,我在GitLab上创建了一个小项目,该项目除其他外还向文件添加了一行:https://gitlab.com/kirni/bur_robotic_sample/blob/master/bur_robotic_sample/Logical/Libraries/TeachLib/Teach.c

代码在C语言中,但是我相信您会明白的。

case stTEACH_INFO:

            /*setup fub*/
            this->fbInfo.enable = 1;
            this->fbInfo.pDevice = (UDINT)inst->szDevice;
            this->fbInfo.pName = (UDINT)inst->szFile;
            this->fbInfo.pInfo = &this->Info;

            //call fub
            FileInfo(&this->fbInfo);

            //fub is done..
            if(this->fbInfo.status != ERR_FUB_BUSY)
            {
                //file exists -> open it and append code
                if(this->fbInfo.status == ERR_OK)
                {
                    //start writing to the end of the file
                    this->Offset = this->Info.size;

                    //open existing file
                    this->Step = stTEACH_OPEN;
                }
                //file does not exist -> create it and insert code
                else if(this->fbInfo.status == fiERR_FILE_NOT_FOUND)
                {
                    //start writing at the beginning of the file
                    this->Offset = this->Info.size;

                    //crete new file
                    this->Step = stTEACH_CREATE;
                }
                //error
                else
                {
                    //set error status and goto error state
                    inst->Status = this->fbInfo.status;
                    this->Step = stTEACH_ERROR;
                }

                //disable fub
                this->fbInfo.enable = 0;            
                FileInfo(&this->fbInfo);
            }

            break;

        case stTEACH_CREATE:

            /*setup fub*/
            this->fbCreate.enable = 1;
            this->fbCreate.pDevice = (UDINT)inst->szDevice;
            this->fbCreate.pFile = (UDINT)inst->szFile;

            //call fub
            FileCreate(&this->fbCreate);

            //fub is done..
            if(this->fbCreate.status != ERR_FUB_BUSY)
            {
                //success
                if(this->fbCreate.status == ERR_OK)
                {
                    this->Ident = this->fbCreate.ident;

                    //open existing file
                    this->Step = stTEACH_WRITE;
                }           
                //error
                else
                {
                    //set error status and goto error state
                    inst->Status = this->fbCreate.status;
                    this->Step = stTEACH_ERROR;
                }

                //disable fub
                this->fbCreate.enable = 0;          
                FileCreate(&this->fbCreate);
            }

            break;

        case stTEACH_OPEN:

            /*setup fub*/
            this->fbOpen.enable = 1;
            this->fbOpen.pDevice = (UDINT)inst->szDevice;
            this->fbOpen.pFile = (UDINT)inst->szFile;
            this->fbOpen.mode = fiREAD_WRITE;

            //call fub
            FileOpen(&this->fbOpen);

            //fub is done..
            if(this->fbOpen.status != ERR_FUB_BUSY)
            {
                //success
                if(this->fbOpen.status == ERR_OK)
                {
                    this->Ident = this->fbOpen.ident;

                    //open existing file
                    this->Step = stTEACH_WRITE;
                }           
                //error
                else
                {
                    //set error status and goto error state
                    inst->Status = this->fbOpen.status;
                    this->Step = stTEACH_ERROR;
                }

                //disable fub
                this->fbOpen.enable = 0;            
                FileOpen(&this->fbOpen);
            }
            break;

        case stTEACH_WRITE:

            /*setup fub*/
            this->fbWrite.enable = 1;
            this->fbWrite.ident = this->Ident;
            this->fbWrite.offset = this->Offset;
            this->fbWrite.pSrc = this->szLine;
            this->fbWrite.len = this->Lenght;

            //call fub
            FileWrite(&this->fbWrite);

            //fub is done..
            if(this->fbWrite.status != ERR_FUB_BUSY)
            {
                //success
                if(this->fbWrite.status == ERR_OK)
                {
                    this->Ident = this->fbWrite.ident;

                    //Write existing file
                    this->Step = stTEACH_CLOSE;
                }           
                    //error
                else
                {
                    //set error status and goto error state
                    inst->Status = this->fbWrite.status;
                    this->Step = stTEACH_ERROR;
                }

                //disable fub
                this->fbWrite.enable = 0;           
                FileWrite(&this->fbWrite);
            }
            break;

但是,这也可以与FileOpen FUB的 filelen 输出一起使用-就像您所做的一样。我建议您在写入之前设置一个制动点,并检查偏移量是否在FUB上正确设置。

我还建议您在每个FUB完成之后调用它,再次使用 enable:= 0 (就像我在示例中所做的那样),即禁用它。某些FUB仅在启用,执行,启动等输入命令上的上升沿更新其输入参数。

我希望这会有所帮助!