#7
|
|||
|
|||
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|