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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 540 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

Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003

Vivi k!
Messages postés
128
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!!!
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
Messages postés
128
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.
Messages postés
128
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!!!
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.