7 de febrero de 2002

Extraer la parte numérica de una cadena

Rutina para extraer la parte numérica de una cadena de caracteres.

Extraer la parte numérica, es decir solo devolver los dígitos numéricos del [0]..[9], sin letras ni simbolos especiales.

Ejemplo:

? ExtraerNumeros("AA45BB111C%")

*-------------------------------------
* FUNCTION ExtraerNumeros(tcCadena)
*-------------------------------------
* Extraer la parte numerica de una cadena
* RETORNA: Caracter
* USO: ? ExtraerNumeros("A125FC023")
*-------------------------------------
FUNCTION ExtraerNumeros(tcCadena)
 RETURN CHRTRAN(tcCadena,CHRTRAN(tcCadena,"1234567890",""),"")
ENDFUNC
*-------------------------------------
Luis María Guayán

No hay comentarios. :

Publicar un comentario