ubiquitour.com

Cómo comprobar una cadena para alfabeto sólo en VB

Aplicaciones Visual Basic normalmente permiten al usuario introducir datos utilizando el teclado. Saneamiento y transformación de esta información cruda en datos utilizables son una tarea crucial para el desarrollador. Por ejemplo, a menudo es necesario para filtrar y quitar los caracteres no alfabéticos para proteger aplicaciones de explotaciones de seguridad. Datos de limpieza y mantenimiento de la uniformidad es importante cuando el almacenamiento de datos, para evitar la creación de registros duplicados. Visual Basic 6 proporciona muchas funciones de manipulación de cadena, lo que es una tarea sencilla para escribir código que comprueba si 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" a la ventana con la etiqueta "Form1", creando un cuadro de texto con la etiqueta "Text1".

4 Arrastre el icono "CommandButton" a la ventana con la etiqueta "Form1", crear un botón "Command1".

5 Haga doble clic en el botón "Command1" para abrir la ventana de código. Debajo de la línea había marcada "Private Sub Command1_Click()" pegar el código:

scompare DIM As String

Dim icount As Integer

Para icount = 1 a Len(Text1.Text)

scompare = Mid$(Text1.Text, icount, 1)

Text1.Text = Mid$(Text1.Text, icount + 1, Len _ (Text1.Textt))

If scompare Like ("[A-Z]") Or _

scompare Like ("[a-z]") Or _

scompare Like ("#") Then

msgbox("Alpa characters only")

Else

msgbox(Non-Alphabetic characters found")

Exit Function

End If

Icount siguiente

6 Presione la tecla "F5" para ejecutar la aplicación Visual Basic. Escriba el texto que desea comprobar en el cuadro de texto. Haga clic en el botón "Command1" y un mensaje será pantalla verificar si el texto es alfabético o no.