Comprobacion de Cadenas

Muchas veces en los formularios nos vemos obligados a comparar una cadena para que se ajuste a unas especificaciones.

Por ejemplo para saber si un E-Mail esta bien escrito o una pagina web, etc.

Hay una forma muy simple de hacerlo.

Podemos usar un codigo como este:

Dim check As Boolean = Me.TextEmail.Text Like "*@*.*"

IF check = True
___MsgBox ("E-Mail Correcto")
Else
___MsgBox ("E-Mail Incorrecto")

End If

Es bastante simple.

Despues del Like colocamos la expresion que determinara la validacion del texto.
Esta expresion esta compuesta por los * que implican que se podra usar cualquier caracter.
Los caracteres de @ y el . son obligatorios para que se cumpla la comprobacion.

De esta manera solo seran validos los E-Mail de tipo "nombre@dominio.com" y no valdra ninguno que sea "nombre@dominio" .

Podemos encontrar mas ejemplos y una descripcion mas detallada de los operadores que podemos usar para realizar los filtros siguiendo este enlace.