Test de la validité d'un EMAIL en VB

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

Code:

---

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:

---

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

Bonjour rpedro0921,

Code:

---

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

Bonjour,

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

Code:

---

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 ;)

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

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

Code:

---

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)

---

Citation:

---

Envoyé par rpedro0921

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? :P
C'est pas parce que c'est une seule ligne qu'on de devrait pas en faire forcément une fonction.

Bonjour,

Comme l'indique callo
il est préférable de factoriser afin d'avoir un code plus simple à maintenir et a lire.

(en reprenant le RegEx du lien de wallace1)
Tu peux donc écrire sur une sur une seule ligne. Déconseillé.

Code:

---

If Not (New System.Text.RegularExpressions.Regex("^(?!\.)(""([^""\r\\]|\\[""\r\\])*""|([-a-z0-9!#$%&'*+/=?^_`{|}~]|(?<!\.)\.)*)(?<!\.)@[a-z0-9][\w\.-]*[a-z0-9]\.[a-z][a-z\.]*[a-z]$")).IsMatch(txtTo.Text) Then MessageBox.Show(String.Format("incorrect : {0}", txtTo.Text))

---

Mais personnellement je préfaire avoir une méthode

Code:

---

1 2 3

Private Function EstUnMailValide(ByVal email As String) As Boolean Return (New System.Text.RegularExpressions.Regex("^(?!\.)(""([^""\r\\]|\\[""\r\\])*""|([-a-z0-9!#$%&'*+/=?^_`{|}~]|(?<!\.)\.)*)(?<!\.)@[a-z0-9][\w\.-]*[a-z0-9]\.[a-z][a-z\.]*[a-z]$")).IsMatch(email) End Function

---

et écrire

Code:

---

If Not (EstUnMailValide(txtTo.Text)) Then MessageBox.Show(String.Format("email incorrect : {0}", txtTo.Text))

---

Le code est clair, lisible, et facile a maintenir.