Contec CONPROSYS nano CPSN-PCB271-S1-041 Reference Manual page 121

ELSE
uiState := 4;
END_IF
3:
CFA_FilePutLine.pszString := ADR(sStringData2);
CFA_FilePutLine(hFile := hFile, eError => eError);
uiState := 4;
4:
CFA_FileClose(hFile := hFile, eError => eError);
uiState := 5;
5:
CFA_FileOpen.eArea := eAreaType;
CFA_FileOpen.sFileName := sFileName;
CFA_FileOpen.sFileMode := 'r';
CFA_FileOpen(hFile => hFile, eError => eError);
IF eError = 0 THEN
uiState := 6;
ELSE
uiState := 8;
END_IF
6:
FOR iIndex := 0 TO 255 DO
sStringData3[iIndex] := 0;
sStringLeft[iIndex] := 0;
sStringRight[iIndex] := 0;
END_FOR
CFA_FileGetLine.pszString := ADR(sStringData3);
CFA_FileGetLine.szString := 256;
CFA_FileGetLine(hFile := hFile, szSize => szSize, eError => eError);
IF eError = 0 THEN
IF szSize <> 0 THEN
CFA_StringSeparate.pszString := ADR(sStringData3);
CFA_StringSeparate.pszSeparator := ADR(sSeparator);
CFA_StringSeparate.pszLeft := ADR(sStringLeft);
CFA_StringSeparate.pszRight := ADR(sStringRight);
CFA_StringSeparate(eError => eError);
ELSE
uiState := 7;
END_IF
ELSE
uiState := 7;
END_IF
7:
CFA_FileClose(hFile := hFile, eError => eError);
uiState := 8;
8:
CFA_FileAccess.eArea := eAreaType;
CFA_FileAccess.bMount := FALSE;
CFA_FileAccess.bWriteEnable := FALSE;
CFA_FileAccess(eError => eError);
uiState := 9;
9:
END_CASE
—
Programing with CODESYS
CPSN-PCB271-S1-041 Reference Manual (Software)
— 121 —
—