naheliegend
Level-1
- Beiträge
- 87
- Reaktionspunkte
- 0
-> Hier kostenlos registrieren
Hallo,
leider muss ich euch nerven. :grin:
Ich habe keinen Ansprechpartner und ich bin mit meinem Latein am Ende. Ihr seid meine einzige Hilfe.
Zu meinem Problem: Ich möchte Daten, die als LREAL,INT oder ähnliches in einem Array vorliegen in eine Datei schreiben, die ich dann im Nachhinein mit MATLAB oder Excel auswerten kann. Mir fallen nur .txt und .csv ein.
Ich habe mir dieses Beispiel von Beckhoff sehr genau angeschaut und mich daran orientiert: https://infosys.beckhoff.com/englis...libsystem/html/tcplclibsys_fileio_example.htm
Ich habe anfangs einen Array mit INTs von 0-10 erstellt und habe dann eine .txt Datei erstellt. Ich warte bei jedem FB_ .. darauf, dass die Flag auf FALSE geht mit den IF-Abfragen. Das File wird erstellt, es wird aber nichts darein geschrieben...
i need some help
leider muss ich euch nerven. :grin:
Ich habe keinen Ansprechpartner und ich bin mit meinem Latein am Ende. Ihr seid meine einzige Hilfe.
Zu meinem Problem: Ich möchte Daten, die als LREAL,INT oder ähnliches in einem Array vorliegen in eine Datei schreiben, die ich dann im Nachhinein mit MATLAB oder Excel auswerten kann. Mir fallen nur .txt und .csv ein.
Ich habe mir dieses Beispiel von Beckhoff sehr genau angeschaut und mich daran orientiert: https://infosys.beckhoff.com/englis...libsystem/html/tcplclibsys_fileio_example.htm
Ich habe anfangs einen Array mit INTs von 0-10 erstellt und habe dann eine .txt Datei erstellt. Ich warte bei jedem FB_ .. darauf, dass die Flag auf FALSE geht mit den IF-Abfragen. Das File wird erstellt, es wird aber nichts darein geschrieben...
i need some help
Code:
FOR iState := 0 TO 10 DO
aArray[iState] := iState;
END_FOR
CASE i OF
0: fb_FileOpen( bExecute := FALSE );
fb_FileOpen(sNetId:='',sPathName:='C:\Users\Desktop\test.txt',nMode:=FOPEN_MODEWRITE,tTimeout:=T#3S,bExecute:=TRUE);
i:=5;
5: fb_FileOpen( bExecute := FALSE );
IF NOT fb_FileOpen.bBusy THEN
i := 10;
END_IF
10: fb_FileWrite( bExecute := FALSE );
fb_FileWrite(sNetId:='',hFile:=fb_FileOpen.hFile,pWriteBuff:=ADR(aArray),cbWriteLen:=SIZEOF(aArray),tTimeout:=T#3S,bExecute:=TRUE);
i:=15;
15: fb_FileWrite( bExecute := FALSE );
IF NOT fb_FileWrite.bBusy THEN
i := 20;
END_IF
20: fb_FileClose( bExecute := FALSE );
fb_FileClose(sNetID:='',hFile:=fb_FileOpen.hFile,bExecute:=bStart);
i:=25;
25: fb_FileClose( bExecute := FALSE );
i:=30;
30: //.... ende
END_CASE