|
#1
|
|||
|
|||
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. |
#2
|
||||
|
||||
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
__________________
Úlima edición por tomasm fecha: 13/06/06 a las 15:11:00. |
#3
|
|||
|
|||
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. |
#4
|
||||
|
||||
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 !!!!
__________________
|
#5
|
|||
|
|||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|