Zeichenkette als ASCII Zeichen in ein Array of Byte zu speichern

[John Doe 67]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

ich versuche gerade vergeblich unter PC Worx eine Zeichenkette (z.B. sString := '789ABC') als ASCII Zeichen in ein Array of Byte zu speichern (bArray[0] = 16#37, bArray[1] = 16#38, bArray[2] = 16#39, bArray[3] = 16#41, bArray[4] = 16#42, bArray[5] = 16#43). Komme aber leider auf keine funktionierende Lösung. Könnte mir jemand ein Beispiel zeigen?
Vielen dank im Voraus.
MfG John

 

[Heinileini]

FOR idx := 1 TO LEN(string) DO
    array(idx) := MID(string, 1, idx) ;
END_FOR ;

 

[PN/DP]

Zuviel Werbung?
-> Hier kostenlos registrieren

Kann Dein PC Worx die Überlagerung von Variablen per UNION oder AT?

Harald

 

[Oberchefe]

Ich gehe davon aus, dass es auf Codesys basiert? Falls ja:

Deklaration:
sString : STRING; idx : INT; bArray : ARRAY[0..50] OF BYTE; ptString : POINTER TO ARRAY[0..50] OF BYTE;
Und Code:
sString := '789ABC'; ptString := ADR(sString); FOR idx := 0 TO LEN(sSTRING) -1 DO bArray[idx]:= ptString^[idx]; END_FOR ; bArray[LEN(sSTRING)] := 0;

 

[John Doe 67]

Hallo, vielen Dank für eure Bemühungen. PC Worx (V6.30.2972) ist aber schon speziell und leider überhaupt nicht mit Codesys basierenden Programmierumgebungen zu vergleichen.
Ich habe mittlerweile eine Lösung mittels einer For Schleife gefunden: