Array of Byte in String SCL

Tach Gemeinde

Habe ein Problem mit einer Funktin in SCL,
die mir ein Array [40] of Byte in einen String wandelt!?
Bevor Ich über die Funktion gehe steht alles richtg im DB.
Keine Fehler und Warnungen beim übersetzen.

Danke

*********************************************************************************************************)
VAR_INPUT
//Modes for BCR
ArrayOfByte_Code : ARRAY[0..39] OF BYTE; // array of 40 byte with string
EndChar : CHAR; // End of string charater
END_VAR

VAR_OUTPUT
String_Code : STRING[254]; // string format (Lenght254)
END_VAR

VAR
TempCHAR : CHAR; // Local character to convert received bytes to a string
ReadStringInternal : STRING[254]; // Received string internal
END_VAR

VAR_TEMP
i : INT;
END_VAR

CONST
ClearString := ''; // Local string to clear other strings
END_CONST

//*****************************************************************************************************************************************
BEGIN

ReadStringInternal := ClearString;
String_Code := ClearString;


// Convert from BYTE array to local STRING
i := 0;
FOR i:=0 TO 39 BY 1 DO
TempCHAR := BYTE_TO_CHAR (ArrayOfByte_Code[i]);
IF TempCHAR = EndChar THEN
EXIT;
ELSE
ReadStringInternal := CONCAT(IN1 := ReadStringInternal,IN2 := CHAR_TO_STRING (TempCHAR));
END_IF;
END_FOR;

String_Code := ReadStringInternal;

END_FUNCTION_BLOCK

Hi, ich hab mal ne kleine Änderung für dich:

CONST
ClearString := ' '; // Local string to clear other strings
END_CONST

//*****************************************************************************************************************************************
BEGIN

ReadStringInternal := '';
String_Code := ClearString;

Dein "ClearString" musst du mit leerzeichen auffüllen. Denn wenn dein ClearString 0 Zeichen lang ist, werden deine "ReadStringInternal" & "String_Code" nicht überschrieben. Wobei "ReadStringInternal" mit 0 Zeichen initialisiert werden muss.

Gruß
Stefan

Hallo, ich habe deinen Quellcode genommen, einen FB daraus generiert und mit PLCSIM getestet:

L '0'
T #tmpArrayB[0]

L '1'
T #tmpArrayB[1]

L '2'
T #tmpArrayB[2]

L '3'
T #tmpArrayB[3]

L '4'
T #tmpArrayB[4]

L '5'
T #tmpArrayB[5]

L '6'
T #tmpArrayB[6]

L '7'
T #tmpArrayB[7]

L '8'
T #tmpArrayB[8]

L '9'
T #tmpArrayB[9]

L 'a'
T #tmpArrayB[10]

L 'b'
T #tmpArrayB[11]

L 'c'
T #tmpArrayB[12]

L 'd'
T #tmpArrayB[13]

L 'e'
T #tmpArrayB[14]

L 'f'
T #tmpArrayB[15]

L 'g'
T #tmpArrayB[16]

L 'h'
T #tmpArrayB[17]

L 'i'
T #tmpArrayB[18]

L 'j'
T #tmpArrayB[19]

L 'k'
T #tmpArrayB[20]

CALL FB 1234 , DB1234
ArrayOfByte_Code:=#tmpArrayB
EndChar :='b'
String_Code :="DB_Test".str

Wobei "DB_Test".str ein Datenbaustein mit einer Stringvariablen, max Länge 254, ist. Das einzige was mir aufgefallen ist, ist das die Variablen im FB nicht richtig initialisiert wurden und dadurch das vorige Ergebnis nicht überschrieben wurde, wenn es länger als das aktuelle ist. Wenn du noch andere Probleme hast, solltest du 1. das Problem etwas genauer beschreiben, siehe Antwort von sps-concept. Und 2. dein Programm genauer beschreiben, wo und wie wird der Baustein aufgerufen, was für Variablen stehen an den Parametern der Schnittstelle...

Gruß
Stefan