#3
|
|||
|
|||
tengo una cadena y quiero dejar solo los caracteres numericos eliminando tb los 0's de la izquierda , el campo es it_fichero-cantxpza y todas las variables son enteros.
shift it_fichero-cantxpza left deleting leading '0'. clear: cont , elim , cont_1 , y , i , elim_aux , cont_aux. i = strlen( it_fichero-cantxpza ). DO i times. IF ( it_fichero-cantxpza+cont(1) CN '0123456789' ). **Si es la primera letra se elimina directamente sino DUMP IF ( cont = 0 ) . it_fichero-cantxpza+cont(1) = ''. ELSE. elim_aux = elim + 1. y = cont - elim. cont_aux = y + 1. it_fichero-cantxpza+elim_aux(y) = it_fichero-cantxpza+elim(y) . it_fichero-cantxpza+elim(1) = ''. elim = elim + 1. ENDIF. ENDIF. cont = cont + 1. ENDDO. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|