VALIDATION D'UN EMAIL, EN QUELQUES LIGNES...
Myster Cool
-
23 juil. 2001 à 10:02
cs_Pedrosa Messages postés 42 Date d'inscription lundi 3 juillet 2006 Statut Membre Dernière intervention 2 juin 2008 - 31 août 2006 à 15:37
cs_Pedrosa Messages postés 42 Date d'inscription lundi 3 juillet 2006 Statut Membre Dernière intervention 2 juin 2008 - 31 août 2006 à 15:37
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8665-validation-d-un-email-en-quelques-lignes
https://codes-sources.commentcamarche.net/source/8665-validation-d-un-email-en-quelques-lignes
31 août 2006 à 15:37
Et en VB.NET comment valide-t-on un e-mail?
Merci.
19 juin 2003 à 20:04
On enlève : var M = UnEmail.value.toLowerCase();
Et on rajoute /gi; à la place de /g; pour ignorer la casse.
Cela donne
<script langage="JavaScript">
<!--
function EmailOK(UnEmail)
{
var re = /([a-z0-9]+([-_]?[a-z0-9]+)*.)*[a-z0-9]+([-_]?[a-z0-9]+)*@([a-z0-9]+([-_]?[a-z0-9]+)*.)+[a-z]{2,4}/gi;
return (UnEmail.value.match(re) == UnEmail.value);
}
//-->
</script>
Ce test est effectivement plus efficace que l'original qui laisse passer
quelques bizarreries.
a+
23 juil. 2002 à 11:24
néanmoins elle marche bien
a++ les gens
26 avril 2002 à 22:58
Par contre, ton expression régulière laisse passer des mails du type
_@_.xxxxxxx ce qui fait plusieurs erreurs.
Voila ce que j'utilise :
Function EmailOK(UnEmail)
' expression régulière : email de type minimum : x@x.xx
'maxi : n(nx.)nx@n(nx.)xxxx
Dim re
Set re = New RegExp ' Crée l'expression réguliere.
re.Pattern = "([a-z0-9]+([-_]?[a-z0-9]+)*.)*[a-z0-9]+([-_]?[a-z0-9]+)*@([a-z0-9]+([-_]?[a-z0-9]+)*.)+[a-z]{2,4}$"
re.IgnoreCase = True ' Définit le respect de la casse.
re.Global = True ' Définit le champ d'application
EmailOK = re.test(UnEmail)
End Function
Voila pour le code ASP.
J'utilise aussi l'équivalent Javascript :
<script langage="JavaScript">
<!--
function EmailOK(UnEmail)
{
var re = /([a-z0-9]+([-_]?[a-z0-9]+)*.)*[a-z0-9]+([-_]?[a-z0-9]+)*@([a-z0-9]+([-_]?[a-z0-9]+)*.)+[a-z]{2,4}/g;
var M = UnEmail.value.toLowerCase();
return (M.match(re) == M);
}
//-->
</script>
26 août 2001 à 19:18
23 août 2001 à 15:24
marche po
31 juil. 2001 à 16:47
http://www.microsoft.com/france/scripting/vbscript/doc/vsobjRegExp.htm
Entre autre, le lien pointant vers la propiété Pattern contient pas mal d'infos intéressantes!
31 juil. 2001 à 16:47
http://www.microsoft.com/france/scripting/vbscript/doc/vsobjRegExp.htm
Entre autre, le lien pointant vers la propiété Pattern contient pas mal d'infos intéressantes!
30 juil. 2001 à 15:14
merci
25 juil. 2001 à 19:35
Je dis pas que mon code est génial, mais, si vous voulez y mettre une note nulle, ayant au moins le savoir vivre d'en profiter pour ajouter un commentaire constructif.
S'il a des failles, je ne demande qu'à l'améliorer!!!
23 juil. 2001 à 10:02