Cómo comprobar una cadena de Alphabet Sólo VB

aplicaciones de Visual Basic por lo general permiten a los usuarios introducir datos con el teclado . Desinfecció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 para filtrar y eliminar los caracteres no alfabéticos para proteger las aplicaciones de brechas en la seguridad . Limpieza de 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 los 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 " cuadro de texto " de la ventana " Form1 ", la creación de un cuadro de texto llamado " Text1. "

4

Arrastre el icono " CommandButton " a la ventana " Form1 ", la creación de un botón " Command1 ".
5

doble clic en el botón " Command1 " para abrir el código ventana . Por debajo de la línea denominada "Private Sub Command1_Click ()" pega el código :

scompare dévil como secuencia

dim contadori As Integer

Para contadori = 1 To Len ( Text1. texto)

scompare = MID $ ( Text1.Text , contadori , 1) spanish

Text1.Text = MID $ ( Text1.Text , contadori + 1 , Len _ ( Text1.Textt ) )

Si scompare gusta ( " [AZ ]" ) O _

scompare gusta ( " [ az ]" ) O _

scompare gusta ( "#") Entonces

msgbox ( " caracteres Alpa only" )

demás

msgbox ( caracteres no alfabéticos encontrados " )

Exit Función

End 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 aparecerá un mensaje de visualización de verificar si el texto es alfabético o no.