Ver la Versión Completa : Reemplazar varias cadenas en una cadena
Alfonsi
07/02/06, 11:30:49
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.
Alfonsi
07/02/06, 11:37:53
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.
suvjulen
28/03/06, 15:13:44
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
apozosanz
30/05/06, 13:56:22
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
conrad10ar
13/06/06, 15:48:34
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
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 !!!!
Hola!
Tengo un problema con cadenas, quiza puedan darme una mano con esto.
Mi texto es mas o menos asi.
blablabla & blablabla & blabla &.
Necesito reemplezar en el primer & con x.
El segundo & con y.
Y el tercer & con z.
Ya probe algunas cosas pero no funciona
Espero respuesta.
Gracias
www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web