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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 458 fois - Téléchargée 37 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
-
Vivi k!
cs_Jos
Messages postés
130
Date d'inscription
mardi 26 juin 2001
Statut
Membre
Dernière intervention
8 février 2005
-
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
-
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
130
Date d'inscription
mardi 26 juin 2001
Statut
Membre
Dernière intervention
8 février 2005
-
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
130
Date d'inscription
mardi 26 juin 2001
Statut
Membre
Dernière intervention
8 février 2005
-
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!!!

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.