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 !!!! |
Problema con cadenas
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 |
Husos Horarios son GMT. La hora en este momento es 18:49:55. |
www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web