String und Leerzeichen

[Squall]

Hallo,
ich versuche gerade einen String bei dem ich an bestimmten stellen Werte einsetzen muss zu bearbeiten.(mit %scan und %replace kann ich mir die richtige Stelle suchen und dort etwas einfügen)
Ich habe jedoch das Problem das Leerzeichen die ich bei der Instanzierung angeben fehlen.

zb:

Dheader3 80A inz(' A*== Dateiname : +
D Datum : +
D ==')

Was in der Variable steht ist aber:

A*== Dateiname : Datum : ==

Was muss ich tun damit er mir keine Leerzeichen weglässt?

Gruß Martin

Edit: Der erste PHP Code wird komisch dargestellt...Der Sring der instanziert wird ist folgender:
A*== Dateiname : Datum : ==
Dateiname und Datum will ich über mein Programm einfügen. Die Instanzierung geht über 3 Zeilen weil der String insg. 80 Zeichen lang ist. dh von Keywordanfang bis 79 sind meine Zeichen bei Spalte 80 ein "+".

[Bratmaxxe]

Moinsen,

poste mal bitte Deinen Programmcode, normalerweise dürften nicht automatisch irgendwelche Leerzeichen fehlen, sofern Du %replace benutzt...

Gruß
Maxx


Im folgenden Beispiel wird 'ABC' durch 'ZXYDE' ersetzt.:





D Text50 S 50A inz(*Blanks)
D MyString S 10A varying
D NewString S 10A varying
D Position S 5U 0
*---------------------------------------------------------
/free
Text50 = 'ABCxyABCvwABC123ABC50';
Dsply Text50;
MyString = 'ABC';
NewString = 'ZXYDE';
Position = 1;

DoW %Scan(MyString: Text50: Position) <> *Zeros;
Text50 = %Replace(NewString: Text50:
%Scan(MyString: Text50: Position): %Len(MyString));
Dsply Text50;
Enddo;

Dsply Text50;
*INLR = *ON;
/End-Free




oder per SQL


c/EXEC SQL Set :Text50 = Replace(:Text50, :MyString, :NewString)
C/END-EXEC

[Squall]

Mein Programmcode:


DHeader DS
Dheader1 80A inz(' A* ')
Dheader2U6 80A inz(' A*========================+
D ====================================+
D =========')
Dheader3 80A inz(' A*== Dateiname : +
D Datum : +
D ==')
Dheader4 80A inz(' A*==----------------------+
D ------------------------------------+
D -------==')
Dheader5 80A inz(' A*== Autor : +
D +
D ==')
Ddatnam S 10A inz('DateinameA')
Ddate S 20A
Dautor S 40A

C eval pos=%scan(':':header3)
C eval pos=pos+3
C eval header3=%replace(datnam:header3:pos)

Die Beispiele hatte ich mir schon angeschaut und wie gesagt von der Sache her funktioniert das auch ganz gut nur werden mir halt die Leerzeichen "geklaut".

[Fuerchau]

Ein '+' am Ende bedeutet, Fortsetzung in der nächsten Zeile ab dem 1. Zeichen <> Blank.

Ein '-' am Ende entfernt die Leerzeichen der Folgezeile NICHT !

[Squall]

Ein '+' am Ende bedeutet, Fortsetzung in der nächsten Zeile ab dem 1. Zeichen <> Blank.

Ein '-' am Ende entfernt die Leerzeichen der Folgezeile NICHT !

Ah ok vielen Dank!

Gruß Martin