|
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.
|