Estoy realizando expresiones regulares en un formulario de registro usando Web forms. Me gustaría saber si esta bien hecho porque al momento de registrar no pasa nada.
Este es mi código de la expresión regular:
Dim expre_regul As String = "/^[a-zA-Z0-9\._-]+@(hotmail|gmail)[.][a-zA-Z]{2,4}$/"
Dim r As Regex = New Regex(expre_regul)
If Not r.IsMatch(txtCorreo.Text) Then
Return
End If
Este es el código completo de mi botón "Registrar"
Protected Sub btnRegistrar_Click(sender As Object, e As EventArgs) Handles btnRegistrar.Click
Try
Dim clRegistrar As New SIMULADOR_LOG.clsExamenLOG
Dim User As New SIMULADOR_ENT.clsUsuarioSim
With User
.dni_user = txtDNI.Text
.ape_pat_user = txtApellidoPaterno.Text
.ape_mat_user = txtApellidoMaterno.Text
.nombre_user = txtNombres.Text
.direccion_user = txtDireccion.Text
.celular_user = txtCelular.Text
.correo_user = txtCorreo.Text
.dept_user = cmbDepartamento.Text
.prov_user = cmbProvincia.Text
.dist_user = cmbDistrito.Text
.fech_nacimiento = txtFechaNacimiento.Text
End With
Dim expre_regul As String = "/^[a-zA-Z0-9\._-]+@(hotmail|gmail)[.][a-zA-Z]{2,4}$/"
Dim r As Regex = New Regex(expre_regul)
If Not r.IsMatch(txtCorreo.Text) Then
Return
End If
Dim mensajeLog As String = clRegistrar.RegistrarUsuario(User)
Dim Mensaje As String = "<script type=""text/javascript"">" &
"Message('El sistema dice: " & mensajeLog & "')</script>"
ClientScript.RegisterStartupScript(Me.GetType, "msg", Mensaje)
Response.Redirect("SimuladorExamen.aspx")
Catch
'ScriptManager.RegisterStartupScript(Me, GetType(Page), "alerta", "alert('Ingrese un valor válido');", True)
End Try
End Sub
Return
, ¿considerarías cambiarlo para que evalúe la expresión y colocar asíIf r.IsMatch(txtCorreo.Text) Then <tu lógica> End If
? o ¿elReturn
para qué es necesario aquí?. te recomiendo editar tu pregunta agregando ejemplos de correos que estás usando.btnRegistrar_Click
.