Reemplazar varias cadenas en una cadena

[Alfonsi]

Hola, ¿existe una función o instrucción en ABAP que reemplace todas las cadenas f en una cadena g?,

por ejemplo, tengo a,b,c,d y quiero a, b, c, d

g= 'a,b,c,d'

pero la instrucción REPLACE ',' WITH ', ' INTO g. da esto: a, b,c,d ( solo reemplaza el primero...)

Gracias.

[axapta]

Has intentado probar lo siguiente:

[SY-SUBRC = 0.]
WHILE SY-SUBRC EQ 0.
REPLACE ',' WITH ', ' INTO G.
ENDWHILE.

[Alfonsi]

No eso no funciona.

Te da a, b,c,d

[tracer]

Has intentado TRANSLATE <string> USING <values>.

[axapta]

Puedes probar con este código:

REPORT ZTESTPDO.

DATA :
X(32) VALUE 'A,B,C,D,E,F',
V_LENGTH(6) TYPE N.

START-OF-SELECTION.

SY-SUBRC = 0.
V_LENGTH = STRLEN( X ).
WHILE SY-SUBRC EQ 0 AND SY-FDPOS LT V_LENGTH.
IF X+SY-FDPOS(2) NE ', '.
REPLACE ',' WITH ', ' INTO X+SY-FDPOS.
V_LENGTH = V_LENGTH + 1.
ENDIF.
SY-FDPOS = SY-FDPOS + 2.
ENDWHILE.

WRITE : / X.

[suvjulen]

Has probado el REPLACE pero con la coletilla ALL OCCURRENCES OF ?

Creo que con esto la instrucción REPLACE te deberia cambiar todas las que encuentra...

Pues nada....saludos.

Julián