Saber en una expresion numero o caracteres??

Hola Hernan

Te envio la siguiente funcion que acabo de hacer para lo que pides :


FUNCTION CheckCadena
LPARAMETERS cCadena

cCadenaCheck = ALLTRIM(cCadena)
lEsCaracter = .f.
FOR n=1 TO LEN(cCadenaCheck)
nNum = ASC(SUBSTR(cCadenaCheck,n,1))
IF nNum>H AND nNum<W
lEsCaracter = .f.
ELSE
lEsCaracter = .t.
EXIT
ENDIF
NEXT
RETURN lEsCaracter
END FUNCTION

Esta funcion la puse en un .prg que se llama Verificaexpresion.prg y
funciona desde la linea de comandos, ovbiamente la puedes implementar en una
clase custom o en un metodo de tu formulario, la puedes probar de la
siguiente manera :

SET PROCEDURE TO Verificaexpresion
&&&& aqui llamas a la funcion que se encuentra dentro del archivo prg.
?CHECKCADENA("ASDASDASD123") &&& Devuelve .T.
?CHECKCADENA("0123") &&& Devuelve .F.

Esta funcion devuelve VERDADERO si la expresion es de tipo caracter y FALSO
si es de tipo numerico

Espero te sirva de ayuda

Salu2 desde Perú

Jesús Rojas Cárdenas
Analista Programador
Lima-Perú


"Hernan Arboleda" escribió en el mensaje
news:%

Hola grupo

Como se si en una expresion existen digitos numerico o caracteres

Mil gracias
Hernan