LEER SOLO NUMEROS

[email protected]
18 de Octubre del 2003
POR FAVOR NECESITO AYUDA A ESTE PROBLEMA:
EN UNA ETIQUETA IMPRIMO EL NOMBRE DE LA MAQUINA EJEMPLO "TERMINAL01" .
¿COMO HACER QUE EN UN CUADRO DE TEXTO ME IMPRIMA SOLAMENTE EL NUMERO INDEPENDIENTEMENTE DE LA LONGITUD DEL NOMBRE QUE SEA DE LA MAQUINA ME IMPRIMA EL NUMERO FINAL

Baltasar
18 de Octubre del 2003
Veamos:

si la longitud del número siempre es la misma, digamos 2, la solución sería:

minumero=right(nombremaquina,2) ésto extraería los dos caracteres de la derecha.

de ser una cantidad variable de cifras, entonces has de hacerte una función que extraiga de derecha a izquierda los caracteres que sean numéricos:

private function SACANUM(TEXTO as string) as string
dim A as integer
dim RESULT as string
RESULT=""
A=lenght(TEXTO)
do while mid(TEXTO,A,1)>='0' and mid(TEXTO,A,1)<='9'
RESULT=mid(TEXTO,A,1)+RESULT
A=A-1
loop
SACANUM=RESULT
end function

Por supuesto que hay maneras más "perfectas" de obtener la información, pero con este ejemplo estoy seguro de que se entenderá mejor.

Saludos

Baltasar
18 de Octubre del 2003
Uys, me olvidé de una cosita en la respuesta anterior:

en el DO WHILE hay que añadir:
and a>0 al final

lo que quedaría:

do while mid(TEXTO,A,1)>='0' and mid(TEXTO,A,1)<='9' and a>0


lesly
18 de Octubre del 2003
Hola gracias por su respuesta, lo voy a checar, de antemano gracias por tu apoyo muchas gracias.

lesly
18 de Octubre del 2003
Hola gracias por su respuesta, lovoy a checar, de antemano gracias por tu apoyo muchas gracias.