[regexp]tester la validité d'un e-mail

0/5 (12 avis)

Snippet vu 9 763 fois - Téléchargée 40 fois

Contenu du snippet

Bah voila...
EN fait c'est au lieu d'utiliser des boucles pour une variable string j'ai fait comme on me l'a suggéré j'ai utilisé les expressions régulières.

Seul petit chose: Pour faire fonctionner cette expression régulière faut entourer vos e-mails de "<" et de ">"
Par exemple:
<vbtom@free.fr>

Je sais pas pkoi(si kelkun peut m'expliquer) quand je met pas les "<" et ">" (et que je modifie lexpression régulière) bah ca marche pas bien...

Mais en tout cas la ca marche bien

Source / Exemple :


<%
'---- Déclare la variable ----
Dim MyRegExp 
'---- Crée l'objet ----
Set MyRegExp=New RegExp
'---- Définit les propriétés ----
MyRegExp.Global=false 'Ca ne recherche qu'un fois une expression régulière, ca ne cherche pas à toutes les relever
'---- Définit l'expression régulière ----
MyRegExp.Pattern="(<([a-zA-Z0-9]+))(@)([a-zA-Z0-9]+)(\.)(([a-zA-Z0-9]{1,4})>)" 'L'expression régulière
%>

<HTML>
<HEAD>
<TITLE>Test des expressions régulières</TITLE>
</HEAD>
<BODY>
<% = MyRegExp.Test("<vbtom@free.fr>") %>
</BODY>
</HTML>

Conclusion :


Si l'E-mail correspond au modèle alors ca renvoie true sinon... false... :)

A#
vBt0m.

A voir également

Ajouter un commentaire Commentaires
vbtom Messages postés 229 Date d'inscription dimanche 3 juin 2001 Statut Membre Dernière intervention 5 octobre 2003
14 janv. 2002 à 18:07
Vivi k!
cs_Jos Messages postés 128 Date d'inscription mardi 26 juin 2001 Statut Membre Dernière intervention 8 février 2005
13 janv. 2002 à 19:52
Ouais, mais essaie de les remplacer, dans ton pattern (soit < par ^ et > par $) et tu vas voir que ça va fonctionner #1!

Au plaisir!!!
vbtom Messages postés 229 Date d'inscription dimanche 3 juin 2001 Statut Membre Dernière intervention 5 octobre 2003
12 janv. 2002 à 21:50
nan je tassure que si je vire < et > de mon expression reguliere ca marche pas!!
Essaye tu verra!


Merci en tout cas!

PS: G MSDN 2001 ms je men sert pas pr le VBS > pask g acheté un bouquin
cs_Jos Messages postés 128 Date d'inscription mardi 26 juin 2001 Statut Membre Dernière intervention 8 février 2005
12 janv. 2002 à 20:29
Autre petite précision... Si tu dois mettre < et > dans ton adresse email, c'est parce que tu les as mis dans ton pattern!
MyRegExp.Pattern="(<([a-zA-Z0-9]+))(@)([a-zA-Z0-9]+)(.)(([a-zA-Z0-9]{1,4})>)"
Alors, enlèves les
MyRegExp.Pattern="(([a-zA-Z0-9]+))(@)([a-zA-Z0-9]+)(.)(([a-zA-Z0-9]{1,4}))"

Mais tu serais encore mieux ainsi :
MyRegExp.Pattern="(^([a-zA-Z0-9]+))(@)([a-zA-Z0-9]+)(.)(([a-zA-Z0-9]{1,4})$)"

Le signe ^ va indiquer que le premier caractère doit être [a-zA-Z0-9]
et le $ va indiquer que le dernier doit être [a-zA-Z0-9].

Au plaisir.
cs_Jos Messages postés 128 Date d'inscription mardi 26 juin 2001 Statut Membre Dernière intervention 8 février 2005
12 janv. 2002 à 20:24
Tu as bein saisi le pourquoi du RegExp. Tiens, la description exacte du regExp, dans la documentation VBS de microsoft est la suivante : "Permet uniquement la gestion des expressions régulières. "!

Alors, tu vois que je ne pourrais pas vraiment plus t'expliquer à quoi ça sert! héhé ;-)

Mais bon, je ne sais pas si tu as la documentation de VBS??? Si ce n'est pas le cas, je t'assure que c'est une des meilleures ressources pour quelqu'un souhaitant coder en vbs. Alors, si tu ne l'as pas, laisse mon ton email, via la messagerie interne et je te la ferai parvenir!!!
Afficher les 12 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.