(* @NESTEDCOMMENTS := 'Yes' *)
(* @PATH := '' *)
(* @OBJECTFLAGS := '0, 8' *)
(* @SYMFILEFLAGS := '2048' *)
FUNCTION Punkt_zu_Komma : STRING
VAR_INPUT
	real_eingang: REAL;
END_VAR
VAR
	i: INT;
	Hilfsstring: STRING;
	zeiger: POINTER TO BYTE  ;
	punkt: 	BYTE 	:= 16#2E;			(* Code für Punkt *)
	komma:	BYTE 	:= 16#2C;			(* Code für Komma *)
END_VAR
(* @END_DECLARATION := '0' *)
(* Wandelt eine REAL Zahl wie 21.456 in einen String um. Mit Komma als Separator für die Nachkommastellen. 					*)
(* Damit kann Excel (mit der deutschen Ländereinstellung) die csv-Datei direkt öffnen 														*)
(* Diese Funktion kann man auch weglassen. Nur muss man dann Excel so einstellen, das ein Punkt die Kommastelle anzeigt 	*)

Hilfsstring := REAL_TO_STRING (real_eingang);
zeiger :=  ADR(Hilfsstring);						(* Setze den Zeiger auf den Beginn des Hilfsstrings*)

FOR i := 1 TO LEN(Hilfsstring) DO					(* Gehe den String durch *)
	IF zeiger^ = punkt THEN zeiger^ := komma;		(* Falls ein Punkt an der Stelle ist, ersetze ihn durch ein Komma *)
	END_IF
	zeiger := zeiger +1;							(* Schiebe den Zeiger auf das nächste Byte *)
END_FOR;

Punkt_zu_Komma := Hilfsstring;						(* Kopiere das Ergebnis in den Ausgang der Funktion *)
END_FUNCTION