This seems to work as SCL FC:

// reset to empty string all 5 elements of array of 5 strings in ParsedData DB
FOR #elementNum := 1 TO 5 DO
"ParsedData".Element[#elementNum] := '';
END_FOR;

// str2Parse is Input to function
// all other are temporary variables all of Int type except strTemp which is String

#strLen := LEN(#str2Parse);
#strTemp := #str2Parse;
#elementNum := 0;

WHILE #strLen > 0 AND #elementNum < 5 DO
#elementNum := #elementNum + 1;
#delimiterPos := FIND(IN1:=#strTemp, IN2:=';');
IF #delimiterPos > 0 THEN
#elementLen := #delimiterPos - 1;
"ParsedData".Element[#elementNum] := LEFT(IN:=#strTemp, L:=#elementLen);
#restLen := #strLen - #delimiterPos;
#strTemp := RIGHT(IN:=#strTemp, L:=#restLen);
ELSE
"ParsedData".Element[#elementNum] := #strTemp;
#strTemp := '';
END_IF;
#strLen := LEN(#strTemp);
END_WHILE;

 >0_Einstein, Hello!

Could you please help and make comments on each steps of adam_ski´s code?

Thanks.

// reset to empty string all 5 elements of array of 5 strings in ParsedData DB
FOR #elementNum := 1 TO 5 DO
"ParsedData".Element[#elementNum] := '';
END_FOR;

// str2Parse is Input to function
// all other are temporary variables all of Int type except strTemp which is String

#strLen := LEN(#str2Parse);
#strTemp := #str2Parse;
#elementNum := 0;

WHILE #strLen > 0 AND #elementNum < 5 DO
#elementNum := #elementNum + 1;
#delimiterPos := FIND(IN1:=#strTemp, IN2:=';');
IF #delimiterPos > 0 THEN
#elementLen := #delimiterPos - 1;
"ParsedData".Element[#elementNum] := LEFT(IN:=#strTemp, L:=#elementLen);
#restLen := #strLen - #delimiterPos;
#strTemp := RIGHT(IN:=#strTemp, L:=#restLen);
ELSE
"ParsedData".Element[#elementNum] := #strTemp;
#strTemp := '';
END_IF;
#strLen := LEN(#strTemp);
END_WHILE;

0_Einstein

RemoMan

Just wondering how you got it working. I need to do alsmost the exact same thing with a string that is comma delimited. Did you use the SCL FC above?

Any help would be appreciated. Thanks

adam_ski's solution in SCL above looks like a good one. Just replace the ';' with your delimiter (',') and it should work for you as well.

Post your results!

 Awesome! Had troubles splitting a string using "SPLIT" in TIA Portal V16, this works just perfect. Thank you!

adam_ski

This seems to work as SCL FC:

// reset to empty string all 5 elements of array of 5 strings in ParsedData DB
FOR #elementNum := 1 TO 5 DO
"ParsedData".Element[#elementNum] := '';
END_FOR;

// str2Parse is Input to function
// all other are temporary variables all of Int type except strTemp which is String

#strLen := LEN(#str2Parse);
#strTemp := #str2Parse;
#elementNum := 0;

WHILE #strLen > 0 AND #elementNum < 5 DO
#elementNum := #elementNum + 1;
#delimiterPos := FIND(IN1:=#strTemp, IN2:=';');
IF #delimiterPos > 0 THEN
#elementLen := #delimiterPos - 1;
"ParsedData".Element[#elementNum] := LEFT(IN:=#strTemp, L:=#elementLen);
#restLen := #strLen - #delimiterPos;
#strTemp := RIGHT(IN:=#strTemp, L:=#restLen);
ELSE
"ParsedData".Element[#elementNum] := #strTemp;
#strTemp := '';
END_IF;
#strLen := LEN(#strTemp);
END_WHILE;