Find/Replace eines Text-Strings mit RPG

[R.Plaugraud]

Hallo zusammen,

eine ganz einfache Frage, aber da ich schon länger nicht mehr auf AS/400 programmiert habe, kriegs ich einfach nicht hin.

Aufgabenstellung ist:
einem RPG-Programm sollen per Parameter ein Text-String, der Such- und der Replace-String übergeben werden. Dann soll im Text-String gesucht und der Replace-String ersetzt werden.
Alternative Variante bzw. Erweiterung: Die Sätze einer Datei sollen sequentiell durchgelesen werden und die Textstrings nach obiger Methode ersetzt werden, dann entweder upgedatet oder noch besser in ein neues Member ausgegeben werden.

Ich denke dies wurde in der Vergangenheit bereits mehrfach gelöst. Vielleicht hat jemand eine simple Lösung dafür.

Grüsse,
Rudolf.

[B.Hauser]

Was ist Dein Problem das Suchen und Ersetzen?

Dies kann relativ einfach mit der Built-in-Funktion %Replace() bewerkstelligt werden.

%Replace(NeuerString: StartPosition: LängeAlterString)

Es wird jeweils nur das erste Vorkommen ersetzt. Wenn also alle Vorkommen ersetzt werden müssen, muss eine Schleife programmiert werden.

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


Falls Du bereits auf Release V5R3M0 bist, kannst Du auch die SQL-Funktion REPLACE verwenden, die alle Vorkommen ersetzt.


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


Birgitta

[R.Plaugraud]

Hallo Birgitta,
das ging ja schnell mit Deiner Antwort. Dies ist ganau das was ich brauche.
Jetzt muss ich nur noch ein einfaches I/O-Programm schreiben, satzweise eine Source-Datei durchlesen und bestimmte Strings austauschen. Dann noch ein CLP darüber und fertig. Das krieg ich gerade noch hin.

Besten Dank.
Rudolf.