PROGRAM Daten_schreiben(* Writing of CSV file in text mode. None of the field value is containing any non-printing control characters like line feed, carriage return, quotation marks, semicolon... *)
.
.
.
VAR
// Rising edge starts program execution
dateiname : STRING := 'DefaultDateiname';
bWrite : BOOL := FALSE;
sNetId : T_AmsNetId := ''; (* TwinCAT Netzwerkadresse *)
sFileName : T_MaxString := CONCAT(CONCAT('C:\Users\Administrator\Desktop\Messdatenerfassung_Ver0.7\',dateiname),'.csv');(* CSV destination file path and name *)
sCSVLine : T_MAXSTRING := '';(* Einzelne CSV Line (Zeile) *)
sCSVField : T_MAXSTRING := '';(* Einzelnes CSV-Feld (Spalte)*)
bBusy : BOOL;
bError : BOOL;
nErrId : UDINT;
nZeile : UDINT := 1;(* Nummer der Zeile *)
nSpalte : UDINT := 1;(* Nummer der Spalte *)
hFile : UINT := 0;(* "File handle" der Zieldatei *)
step : DWORD := 0;
fbFileOpen : FB_FileOpen;(* Öffnet die Datei *)
fbFileClose : FB_FileClose;(* Schließt die Datei *)
fbFilePuts : FB_FileWrite;(* Schreibe eine Zeile *)
fbWriter : FB_CSVMemBufferWriter;(* Helfer-Funktion zur Erzeugung von CSV-Daten-Bytes (einzelne Zeile)*)
sCSVField_array : ARRAY [0..999] of BYTE;
getTime : NT_GetTime; (* Funktion zurm Holen der Windows-Systemzeit *)
systemTime : TIMESTRUCT; (* Variable zur Zwischenspeicherung der Systemzeit *)
bGetTimeStart : BOOL:=FALSE;
bGetTimeBusy : BOOL;
bGetTimeERR : BOOL;
bGetTimeERRID : UDINT;
.
.
.
database : ARRAY[1..MAX_CSV_SPALTEN, 1..MAX_CSV_ZEILEN ] OF STRING (MAX_CSV_FELD_LAENGE); (* Zwischespeicher für eine gesamte Messdatenerfassung zu einem einzelnen Zeitpunkt *)
END_VAR
_____________PROGRAMM________________________________________________________________________________________
.
.
.
sCSVField_array := null; (* sCSVField_array "Löschen"*)
fbWriter.eCmd := eEnumCmd_First;(* Schreibe ersten Feldwert *)
IF nZeile <= MAX_CSV_ZEILEN THEN
FOR nSpalte := 1 TO ANZAHL_SPALTEN BY 1 DO
sCSVField := STRING_TO_CSVFIELD(database[ nSpalte, nZeile ], TRUE ); //-------------
(* Add new field to the record buffer *)
fbWriter(pBuffer := ADR(sCSVField_Array), cbBuffer := SIZEOF(sCSVField_Array), putValue := '', pValue := ADR(sCSVField), cbValue := SIZEOF(sCSVField),
bCRLF := ( nSpalte = ANZAHL_SPALTEN ) );(* bCRLF == TRUE => Neuer Datensatz (Zeile)*)
IF fbWriter.bOk THEN
fbWriter.eCmd := eEnumCmd_Next;(* Schreibe den nächsten Feldwert *)
ELSE(* Error *)
step := 100;
RETURN;
END_IF
END_FOR(* FOR Spalte 0... Anzahl an Spalten *)
(* FB_FilePuts fügt eine s. g. carriage Return der geschriebenen Zeile zum Abschluss der Zeile hinzu.
Dazu muss abgefragt werden, ob die letzten beiden Zeichen R und L sind und je nach dem nur durch ein L ersetzt werden,
um einen doppelten Zeilenumbruch zu vermeiden. *)
//IF RIGHT( sCSVField_array, 2 ) = '$R$L' THEN
//sCSVLine := REPLACE( sCSVLine, '$L', 2, LEN( sCSVLine ) - 1 );
//END_IF
nZeile := nZeile + 1;(* Increment-Nummer der erzeugten Zeilen. Hier wird nur Zeilenweise geschrieben *)
step := 4;
ELSE
nZeile := 1;
END_IF
ELSE (* Daten Schreiben stoppen *)
step := 10;
END_IF
4: (* Schreibe eine einzelne Textzeile *)
IF RUN AND bWrite THEN
fbFilePuts( bExecute := FALSE );
fbFilePuts( sNetId := sNetId, hFile := hFile, pWriteBuff := ADR(sCSVField_array),cbWriteLen :=SIZEOF(sCSVField_array), bExecute := TRUE );
step := 5;
ELSE
step := 10;
END_IF
.
.
.
