Reguläre Ausdrücke mit Replace: suche Beispiel

[edv90020]

Hallo zusammen,

ich habe im ILE-RPG Umfeld noch nicht mit REGEX (z.B. C Routine regcomp, regexec, ...) gearbeitet. Ich möchte eigentlich ungültige Zeichen in einem String mit einem Leerzeichen ersetzen. Hat jemand ein Beispielprogramm ? Über GOOGLE bin ich nicht wirklich fündig geworden.

[Fuerchau]

Nun ja, da ist der %xlate(From:To:Var) eigentlich der schnellste Weg, da du ja Leerzeichen haben willst.

Was auch genauso schnell ist, ist eine kleine eigene Schleife:

d Pos 5I 0
d Var 100
for Pos = 1 to %size(Var)
if %check('gültige Zeichen':%subst(Var:Pos:1)) > 0;
%subst(Var:Pos:1)=*blank;
endif;
endfor;

Den Overhead mit RegEx würde ich bei so einfachen Sachen lassen.

[edv90020]

Nun ja, so kann man das Problem jetzt auch lösen.

Ich werde zukünftig auch öfteres mal über diese Problematik stolperen da würd es mich schon interessieren wie ich das mit RegEx machen könnte.

[Fuerchau]

Hier gibts einen längeren Beitrag dazu:
http://newsolutions.de/forum-systemi...ighlight=regex

Insbesonders ist auf die CCSID-Problematik zu achten.
Der Rest steht eigentlich im C-Handbuch.
Allerdings kann ich keine Replace-Funktion finden.
Hierfür musst du ggf. die %Replace()-BuiltIn bzw. "%subst(Var:Pos:Size) = NewValue" verwenden, nach dem du einen Match (Position und Länge) gefunden hast.

[Khholm]

es geht noch einfacher:

definiere 2 Strings, einmal mit den zu ersetzenden Zeichen, einmal mit den Ersatzzeichen (in diesem Fall blanks) und nutze dann %xlate
d low c 'zäöü'
d trans c '

dattest = %xlate(low:trans:dattest);


es werden die in low definierten Zeichen in dattest durch die entsprechenden aus trans ersetzt.


gruß

kh

[Fuerchau]

Dabei ist das Problem bei Sonderzeichen mit abweichender CCSID zur Laufzeit nicht zu verachten.

[MGJ79]

eine Idee wäre da noch die SQL-Replace Funktion:

Select Replace('abc', 'b' , 'bee') as erg from sysibm.sysdummy1;


Das kann man relativ einfach verwursten. Ist wahrscheinlich nicht die Performanste Lösung aber sollte klappen.

[Fuerchau]

SQL-Funktionen lassen sich auch direkt ohne Cursor verwenden:

exec sql set : MyVar = replace(...);