Algunas veces necesitas evaluar una expresión o una cadena de texto y determinar los valores numéricos o caracteres que tiene esta. A continuación un pequeño de como hacerlo
cCadena = "512 96 m sd 7ecbx */ t553rdv"
cAnchoCadena = len(cCadena)
cNumeros = ""
FOR nCnt = 1 TO cAnchoCadena
cCharacter = SUBSTR(cCadena, nCnt, 1)
IF ISDIGIT(cCharacter)
cNumeros = cNumeros + cCharacter
? cNumeros
ENDIF
ENDFOR
El primer paso es tener la cadena de caracteres a
evaluar. Luego determinamos el ancho de la cadena a través de la función
LEN; Utilizamos una variable donde almacenaremos los caracteres que sean dígitos
(de 0 - 9). Hacemos un ciclo hasta el numero de caracteres de la cadena y vamos
evaluando numero por numero; si el carácter es digito entonces será agregado a la
variable cNumeros.
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
