aplicaciones de Visual Basic normalmente permiten a los usuarios introducir datos usando el teclado. Higienización y transformar esta información en bruto en información utilizable es una tarea crucial para el desarrollador. Por ejemplo, a menudo es necesario filtrar y eliminar los caracteres no alfabéticos para proteger las aplicaciones de vulnerabilidades de seguridad. La limpieza de los datos y el mantenimiento de la uniformidad es importante cuando el almacenamiento de datos, lo que evitará la creación de registros duplicados. Visual Basic 6 proporciona muchas funciones de manejo de cadenas, por lo que es una tarea sencilla para escribir código que comprueba caracteres no alfabéticos.
Instrucciones
1 Abra Visual Basic 6 desde el icono "Inicio", situado en la barra de tareas de Windows.
2 Seleccione "Standard.exe" y haga clic en "Abrir" para iniciar una nueva aplicación de Visual Basic 6.
3 Arrastre el icono de "Cuadro de texto" a la ventana con la etiqueta "Form1", la creación de un cuadro de texto llamado "Text1".
4 Arrastrar el icono "CommandButton" a la ventana con la etiqueta "Form1", creando un botón llamado "Command1".
5 Haga doble clic en el botón "Command1" para abrir la ventana de código. Por debajo de la línea denominada "Private Sub Command1_Click ()" pega el siguiente código:
tenue scompare As String
dim contadori como número entero
Para contadori = 1 Para Len (Text1.Text)
scompare = Mid$(Text1.Text, icount, 1)
Text1.Text = Mid $ (Text1.Text, contadori + 1, Len _ (Text1.Textt))
Si scompare gusta ( "[AZ]") O _
Al igual que scompare ( "[az]") O _
Al igual que scompare ( "#") A continuación,
( "Sólo caracteres Alpa") MsgBox
Más
MsgBox (caracteres no alfabéticos encontraron ")
Función de salida
Terminara si
Siguiente contadori
6 Pulse la tecla "F5" para ejecutar la aplicación de Visual Basic. Escriba el texto que desea comprobar en el cuadro de texto. Haga clic en el botón "Command1", y un mensaje será verificación pantalla si el texto es alfabético o no.