Reemplazar varias cadenas en una cadena
 

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.

Has intentado probar lo siguiente:

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

No eso no funciona.

Te da a, b,c,d

Has intentado TRANSLATE <string> USING <values>.

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.

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

al hacer un replace a secas solo lo hace la primera vez. Prueba con un bucl como el que te paso.

REPORT ZC402REPLACE .
DATA: CAMPO(50) VALUE 'EN UN LUGAR DE LA DECHA DE CUYO DE DE DE SOY'.
DATA: LONGITUD TYPE I.
DATA: CONTADOR TYPE I VALUE 0.
LONGITUD = STRLEN( CAMPO ).
WRITE:/ 'TEXTO INICIAL:' , CAMPO.
WRITE:/.
WRITE:/ 'LONGITUD DEL TEXTO:' , LONGITUD.
WRITE:/.
ULINE.
WHILE CONTADOR <= LONGITUD.
REPLACE 'DE' WITH 'POR' INTO CAMPO.
CONTADOR = CONTADOR + 1.
ENDWHILE.

WRITE:/ 'TEXTO FINAL:' , CAMPO.

data: g(20).

data: uno(2),
dos(2),
tres(2),
cuatro(2).



g = 'a,b,c,d'.


split g at ',' into uno dos tres cuatro.

clear g.

concatenate uno ',' into uno.

concatenate dos ',' into dos.

concatenate tres ',' into tres.

concatenate cuatro ',' into cuatro.

concatenate uno dos tres cuatro into g separated by space.

Sencillito.

Salud

El último funciona bien pero te convendría realizarlo dentro de un loop, do times, o el caso que sea, y concatenas en cada pasada agregándole el espacio.

Espero sirva.:D

otra versión
 

DATA: g(20),
h(20).

DATA: uno(2),
pos(2) TYPE n.

START-OF-SELECTION.

g = 'a,b,c,d,'.

clear h.

WHILE sy-subrc = 0.

SEARCH g FOR ','.

IF sy-subrc = 0.
pos = sy-fdpos.
pos = pos - 1.

MOVE g+pos(2) TO uno.

REPLACE ',' WITH space INTO g.

CONCATENATE h uno INTO h SEPARATED BY space.

CLEAR uno.

ENDIF.

ENDWHILE.


WRITE:/ h.



Saludos !!!!