Discussion :

[rpedro0921]

Bonjour , j'essayer de tester la validité d'une adresse email dans un textbox , donc j'ai mis le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
If TxtAdrClient.Text.IndexOf("@") = -1 Or TxtAdrClient.Text.IndexOf(".") = -1 Then
MessageBox.Show("Veuillez entrer un email valide !", "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)

mais si on met dans l email juste @. ou .@ ça passe . donc j'ai mis ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
If TxtAdrClient.Text Like "*[a-zA-Z]*[\.\-]*[a-zA-Z]@*[a-zA-Z]*[\.\-]*[a-zA-Z]" = Nothing Then 
MessageBox.Show("Veuillez entrer un email valide !", "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)

et le problème avec ce dernier code c'est que il doit y avoir un point avant @ par exemple si je met pedro@gmail.com il me fait erreur

Quelqu'un à une idée comment faire ? Merci

[wallace1]

Bonjour rpedro0921,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
  Private Function IsValidEmail(email As String) As Boolean
        Try
            Dim addr = New System.Net.Mail.MailAddress(email)
            Return True
        Catch
            Return False
        End Try
    End Function

Source

[ebastien]

Bonjour,

Ou bien à l'aide d'une expression régulière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Function IsValidEmail(Byval email as string) as boolean
  dim emailExpr As new System.Text.RegularExpressions.Regex("^([\w]+)@([\w]+)\.([\w]+)$")
  return emailExpr.IsMatch(email) 
End Function

Ah, j'avais pas vu que sans le lien proposé par Wallace1, la solution de l'expression régulière était aussi proposée mais avec une expression relativement complexe que je n'ai pas le courage d'étudier

[Pol63]

lever une exception quand on peut l'éviter est légèrement dérangeant
le regex est chiant à écrire mais d'autres se sont posés la question avant donc c'est juste du code à reprendre

[rpedro0921]

Voilà la solution , ça marche bien , pas la peine d écrire une fonction , 1 ligne de code suffisante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
If TxtAdrClient.Text Like "*[a-zA-Z0-9\.\-\_]*[a-zA-Z0-9]@[a-zA-Z]*[\.]*[a-zA-Z]" = Nothing Then
MessageBox.Show("Veuillez entrer un email valide !", "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)

[callo]

Voilà la solution , ça marche bien , pas la peine d écrire une fonction , 1 ligne de code suffisante

Et si tu devrais faire le test à plusieurs endroits dans ton programme? Reproduirais-tu n fois la même ligne de code?
C'est pas parce que c'est une seule ligne qu'on de devrait pas en faire forcément une fonction.