Zeichenkette als ASCII Zeichen in ein Array of Byte zu speichern

J

John Doe 67

Level-1

Beiträge

3

Reaktionspunkte

0

• 20 Oktober 2022

• #1

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

Level-3

Power-User

Beiträge

6.376

Reaktionspunkte

1.551

• 20 Oktober 2022

• #2

Code:

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

 

PN/DP

User des Jahres 2011-2013; 2015-2017; 2020-2022

FAQ-Team

Power-User

Beiträge

22.268

Reaktionspunkte

6.917

• 20 Oktober 2022

• #3

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

Harald

 

O

Oberchefe

Level-3

Beiträge

3.385

Reaktionspunkte

756

• 20 Oktober 2022

• #4

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;

 

OP

J

John Doe 67

Level-1

Beiträge

3

Reaktionspunkte

0

• 21 Oktober 2022

• #5

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:

Zum Vergrößern anklicken....

 

Zuletzt bearbeitet: 21 Oktober 2022