SoloCodigo

Hola a todos, tengo el siguiente problema.

Estoy utilizando Gambas (Linux) y necesito que un textbox sólo me permita introducir números y comas y otro TexBox sólo me permita intruducir letras. He estado buscando información y he probado varios códigos, pero ninguno me funciona:

  ¿Podeis ayudarme?
Saludos y gracias

Es más cómod usar la función 'IsNumeric'. Esta función eválua una expresión y devuelve un valor buleano que indica si se puede tomar como número.

entonces un código podría ser algo así como:

La parte de 'else' no determina que sean sólo texto sólo que la expresión no puede valorarse como numérica, sin embargo puede aprovecharse para no repetir código añadiendo más cófigo y diferenciando la validación de cuando se pide valorar sólo números o sólo letras.
En tonces el código enterior embebido en una función sería algo como:


En vb ila función 'IsStr' permite buscar una cadena dentro de otra, si se existe devuelve la posición donde empieza la coincidencia, por ellos usa 3 parámetros, el primero es para indicarle la posición del carácter desde el que queremos iniciar la búsqueda, los otros son la cadena donde buscar y la cadena que se busca...

Nuestro amigo cpMario ha cometido un pequeño lapsus, ya que si le pasamos la cadena "0123456789" como cadena a buscar intentará encontrar ese texto exacto y no cualquiera de los caracteres que contiene, por ello es necesario usar un bucle o intentar otra función más compleja...


No sé en 'gambas' pero visual Basic, hay que tener a veces cuidado con los puntos y las comas, ya que en español se usan de modo inverso al inglés y determinadas funciones pueden 'comportarse' de un modo no esperado. Si es el caso, conviene añadir código para controlarlo...

Ignoro si en 'gambas' la función IsNumber' que utilizas determina sólo si es un valor numérico o si se puede interpretar como tal, si es el primer caso, puedes implementar la función 'IsNumeric' con una sencilla  función como la siguiente:


El mecanismo de esta función se basa en que si no no se puede cuantificar como número se origina un error .  hay 3 casos posibles: todo el texto sean números: ejmplo: "3456734",  en los demás casos dará error, pero todavía se acptarán como válidos aquellos que empiecen por números.
esto: "3456123" devolcerá true
esto: "dfjghd999" devolverá false
esto: "3456asjfht" devolverá true
esto: "0" devolverá true

Te agradezco nos ilustres en GAMBAS


Esto va para Nebire

Me disculpas pero el lapsus lo has cometido tu.
Ya que
Hace el trabajo de localizar cualquiera de los caracteres anotados en la cadena.

Esa rutina es la que uso para detectar cualquier conjunto de caracteres que deseo filtrar.

En todo caso lo que tienes que hacer es colocar la rutina en el evento de un TextBox y ver si funciona
 

Código: Text

1. '''''Solo numeros enteros******************
2. PUBLIC SUB TextBox3_Change()
3.  
4.    CInt(textbox3.Text)'Convierte el numero en entero
5.   
6.  CATCH
7.  
8.  textbox3.Text = Mid$(textbox3.Text, 1, -1)'Si no es un numero borra el caracter
9.  
10.  STOP EVENT
11.  
12. END
13.  
14. 'Formato numero decimal ******************************************************
15. PUBLIC SUB TextBox4_Change()
16.  
17.   CFloat(textbox4.Text)
18.   
19.  CATCH
20.  
21.  textbox4.Text = Mid$(textbox4.Text, 1, -1)
22.  
23.  STOP EVENT
24.  
25. END
26.  
27.  
28.  

Hola Zaida, el caso es que  la 1ª parte del código no me acaba de convencer,  ya que la psoición que corriges no necesariamente tiene que coincidir con la posición en donde está el caracter mal.

Es frecuente que uno escriba algo como: 'El herido valbuciente gritó...'  y después de escribir se percate que debe corregir un carácter entonces cambia Balbuciente por Valbuciente, pero la posición de escritura no es ya la última del texto.  Tu rutina de textos funcionaría en ese caso porque atacas al carácter pulsado, en cambio no sucedera igual  con los números.

El mismo ejemplo con números aunque lógicamente sea menos frecuente, también ocurre y en tu código daría error, supongamos que escribo '0123456789' pero luego me percato que que el 6 era en realidad un '0' y quiero corregirlo, retrocedo el cursor pero debido a la proximidad en tre la 'o' y el '0' pongamos que cometo el error de pulsar la 'o' y quedaría así: '012345o789'  ... cómo no sé como se comporta gambas, no puedo predecir que ocurrirá exactamente, pero en el mejor de los casos te daría una cadena como esta: '012345' ( se supone que tras modificar el texto nuevamente se ejecuta el evento change y va eliminado caracteres uno a uno) y en el peor de los casos te dará una cadena como esta: '012345o78' (no creo, pero no conozco gambas).

Entonces tendemos que en el primer caso será un fastidio reintroducir nuevamente todos los caracteres eliminados, tanto más molesto cuanto más largo sea el contenido borrado, y en el 2º caso te ha borrado un carácter, pero persiste un error en la cadena no corregido.

Yo te sugiero que si utilizas el evento change del textbox examines todo el contenido de la cadena, porque suponer que sólo ha sido modificado el último carácter es demasiado atrevido sin haber tomado medidas al caso (podría perfectamente pegar un texto copiado de otro lugar lleno de letras y caracteres) y tu función iría eliminado sucesivamente caracteres hasta que toda la cadena RESTANTE fueran números, es decir si el primer caracter fuera una letra se borraría el contenido pegado completamente. Por tanto en el evento change realiza un examen completo de la cadena y ofrece al textbox una cadena corregida antes de salir del evento, le ahorrarás molestias al usuario.

En cambio si utilizas el evento keypress, tal como haces para las letras en efecto te bastará con comprobar sólo la tecla pulsada (y sólo si el texto es introducido por teclado, si el texto se introduce por pegado del usuario o por código interno mediante asignación, no saltará el evento keypress, entonces o limitas la forma de introducir texto a sólo por teclado o debes usar el evento change para dichos casos. Si usas keypress, siempre podrás usar tal como hiciste para las letras pero delimitanto  el valor ASCII desde el 48 hasta el 57 ambos inclusive.  El método de cpmario es si cabe más elegante que comparar los límites de código pués te permite reunir en una sola función cualquier posibilidad de letras o números creando unas constantes de 'strValidChars' como lo llamó cpmario, y en cada caso pasar a la función dicha constante.

Más aún, si admites la posibilidad de que pueda pegarse texto, podrías proveer una función que devuelve todos los caracteres numéricos existentes en dicha cadena eliminando todos los caracteres no numéricos o viceversa... para ello necesitarías un bucle que recorra toda la cadena cortando carácter a carácter y 'sumándolo' a la salida los válidos, es una limpieza de cadena bastante útil para casos como por ejemplo recibir entradas de tipo 'Vicente Pérez 12 años' y donde sólo te interesa tomar la parte numérica.