S7-300/400 String To Character Array

I needed a function which will copy a string to a character array.  I found one on here for Step 7 Ver 5, but could not find one for TIA.  The one on here for Step 7 Ver 5 was protected, so I couldn't copy it to TIA. So I wrote the function myself.  Figured others might benefit from it so I'm attaching it here.  It is also available on our web site at:

http://files.rubeautomation.com/S7-300%20Strg_To_Char%20170825.zap13

As incredible as it may seem, Siemens will not allow uploading an attachment with a .zap13 extension.  So I took the .zap13 file and put it in a .zip.  So if you download this attachment you will need to unzip it first, then use TIA to restore the .zap13 archive.

It is 2017, pointers are archaic and should be avoided. Thanks for sharing your work though I'm sure it will be usefull for some people.

This is why I wrote your the same in SCL with an AT overlay, it's literally 3 lines. (Granted I didn't return all the outputs the same way you did, outputs you might need such as the number of characters but you can adapt as you see fit).

FOR #i := 0 TO LEN(#String)-1 DO

#CharArray[#i] := #StringArray[#i + 2];

END_FOR;

Without any magic: