Leerzeichen ersetzen?

[CaddyMajor]

Hallo zusammen,

eine Frage:

Ich habe ein 5stelliges Char-Feld:

'AB 05'

Nach dem AB ist ein Leerzeichen, dann kommt 05.

Ich möchte dieses Leerzeichen per Programm rauslöschen das es dann so ausschaut:

'AB05 '

Hat jemand einen Tip wie ich das mache?

P.S. Das Feld ist in wirklichkeit 64 Stellen groß und das Leerzeichen innerhalb eines String ist variabel.

Vielen Dank

[B.Hauser]

Hallo zusammen,

eine Frage:

Ich habe ein 5stelliges Char-Feld:

'AB 05'

Nach dem AB ist ein Leerzeichen, dann kommt 05.

Ich möchte dieses Leerzeichen per Programm rauslöschen das es dann so ausschaut:

'AB05 '

Hat jemand einen Tip wie ich das mache?

P.S. Das Feld ist in wirklichkeit 64 Stellen groß und das Leerzeichen innerhalb eines String ist variabel.

Vielen Dank

Eine Möglichkeit wäre:


D Text50 S 50A inz('Dies ist mein Beispiel')
D MyString S 50A varying
*--------------------------------------------------------
/free

MyString = %Trim(Text50);
DoW %Scan(' ': MyString) <> *Zeros;
MyString = %Replace('' : MyString: %Scan(' ': MyString): 1);
EndDo;

Dsply MyString;
*InLR = *On;
/End-Free


Birgitta

[CaddyMajor]

Danke Birgitta,

hat super funktioniert.

Wieder viel gelernt....

Carsten