CodeSyS の CAA-File ライブラリを使用して、データをテキスト ファイルに書き込みます。ファイルに文字列を書き込むと問題なく動作しますが、2 つの文字列を CONCAT で結合すると、ランダムな文字で奇妙なファイル出力が得られます (以下を参照)。これを修正する方法を知っている人はいますか?ありがとうございました!
たとえば、lString = 'test'
正常に動作しますが、lString = CONCAT('str1', 'str2')
動作しません。
PROGRAM initDataLogger
VAR_INPUT
lString : STRING;
END_VAR
VAR
lString : STRING:= CONCAT('str1', 'str2');
xFileStdInit: BOOL:=FALSE;
uiFileStdState: UINT:=0;
sFileName: CAA.FILENAME:= '/var/www/html/TestFile.txt';
hFile: CAA.HANDLE;
szFileSize1: CAA.SIZE := 0;
szFileSize2: CAA.SIZE := 0;
filop: FILE.Open;
filwr: FILE.Write;
filcl: FILE.Close;
loop: INT := 0;
fString: STRING;
END_VAR
IF NOT xFileStdInit THEN
filop(xExecute:=FALSE);
filcl(xExecute:=FALSE);
filwr(xExecute:=FALSE);
xFileStdInit:=TRUE;
uiFileStdState:=0;
ELSE
CASE uiFileStdState OF
0: (* create a new file *)
filop.sFileName:=sFileName;
filop.eFileMode:=FILE.MODE.MAPPD;
filop.xExclusive:=TRUE;
filop( xExecute:=TRUE);
IF filop.xDone THEN
hFile:=filop.hFile;
uiFileStdState:=1;
END_IF
IF filop.xError THEN
(* error handling*)
;
END_IF
1:(* write text in the file *)
//fString := CONCAT('$R$L', lString);
fString := lString;
filwr.hFile:=hFile;
filwr.pBuffer:=ADR(fString);
szFileSize1:=SIZEOF(fString);
filwr.szSize:=szFileSize1;
filwr.udiTimeOut:=100000; (* 100ms Timeout *)
IF GVL.logData THEN
filwr( xExecute:=TRUE);
END_IF
IF filwr.xDone THEN
uiFileStdState:=2;
GVL.logData := FALSE;
END_IF
IF filwr.xError THEN
(* error handling*)
;
END_IF
2: (* close file - TestFile.txt *)
filcl.hFile:=hFile;
filcl( xExecute:=TRUE);
IF filcl.xDone THEN
uiFileStdState:=3;
END_IF
IF filcl.xError THEN
(* error handling*)
;
END_IF
3: (* end of example *)
xFileStdInit := FALSE;
END_CASE
END_IF
私は出力としてlString = CONCAT('str1', 'str2')
期待str1str2
していますが、私はこれを取得します:
str1str2sys??v$??v??v?
?vd?n??
?v?`v??vd
?vK
?v?`v8
?v?v4??v?