-> Hier kostenlos registrieren
Hallo,
Ich habe ein Problem bei es schreiben van mehrere Word nach ein File(CSV format).
Ich woll ein array von 10 WORDte nach ein file schreiben, in CSV format.
Wenn ich es mache mit FB_Fileopen und FB_FileWrite dann bekomme ich kein nützliche data.
Jetzt habe ich es auch auf die nächste weise gemacht:
Data1 ist 32767
In die testfile4.txt steht jetzt ‘32767‘, aber ich woll die ganze array rein schreiben.(bzw. ‘32767‘32767‘32767‘32767‘32767‘32767‘32767‘32767‘10‘100‘1000‘
Wie kann ich das am besten machen.
Ich habe ein Problem bei es schreiben van mehrere Word nach ein File(CSV format).
Ich woll ein array von 10 WORDte nach ein file schreiben, in CSV format.
Wenn ich es mache mit FB_Fileopen und FB_FileWrite dann bekomme ich kein nützliche data.
Code:
Data : ARRAY[1..10] OF UINT;
Data1 AT%IW0:WORD:= 32767; (*QW2*)
Data2 AT%IW2:WORD := 32767; (*QW4*)
Data3 AT%IW4:WORD := 32767; (*QW6*)
Data4 AT%IW6:WORD := 32767; (*QW8*)
Data5 AT%IW8:WORD := 32767; (*QW10*)
Data6 AT%IW10:WORD := 32767; (*QW12*)
Data7 AT%IW12:WORD := 32767; (*QW14*)
Data8 AT%IW14:WORD :=10; (*QW16*)
Data9 AT%IW16:WORD :=100; (*QW18*)
Data10 AT%IW18:WORD :=1000; (*QW20*)
Code:
FB_FileOpen(
sNetId:='' ,
sPathName:= 'Hard Disk2\logs\testfile3.txt' ,
nMode:=FOPEN_MODEWRITE OR FOPEN_MODETEXT,
ePath:=PATH_GENERIC ,
bExecute:= fileopen,
tTimeout:=t#5s ,
bBusy=> ,
bError=> ,
nErrId=> ,
hFile=>hFile );
FB_FileWrite(
sNetId:= '',
hFile:=hFile ,
pWriteBuff:= ADR (Data) ,
cbWriteLen:=SIZEOF (Data) ,
bExecute:=filewrite ,
tTimeout:=t#5s ,
bBusy=> ,
bError=> ,
nErrId=> ,
cbWrite=> );
Jetzt habe ich es auch auf die nächste weise gemacht:
Data1 ist 32767
Code:
Stringtest:= WORD_TO_STRING(Data1);
CSVtest:= STRING_TO_CSVFIELD(Stringtest,TRUE);
FB_FileOpen(
sNetId:='' ,
sPathName:= 'Hard Disk2\logs\testfile4.txt' ,
nMode:=FOPEN_MODEWRITE OR FOPEN_MODETEXT,
ePath:=PATH_GENERIC ,
bExecute:= fileopen,
tTimeout:=t#5s ,
bBusy=> ,
bError=> ,
nErrId=> ,
hFile=>hFile );
FB_FilePuts(
sNetId:='' ,
hFile:= hFile,
sLine:=CSVtest,
bExecute:=FILEWRITE ,
tTimeout:= ,
bBusy=> ,
bError=> ,
nErrId=> );
In die testfile4.txt steht jetzt ‘32767‘, aber ich woll die ganze array rein schreiben.(bzw. ‘32767‘32767‘32767‘32767‘32767‘32767‘32767‘32767‘10‘100‘1000‘
Wie kann ich das am besten machen.