ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Valider une addresse e-mail avec l'expression régulière.   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Windows Scripting

Valider une addresse e-mail avec l'expression régulière.
# 0000000091
ajouté le 24/11/2004 19:56:49 et modifié le 10/07/2011
consulté 8104 fois
Niveau débutant

Version(s) Foxpro :
VFP 7.0

Code source :
m.email = 'mgagnon@hotmail.net'
LOCAL loRegExp
loRegExp = CreateObject("VBScript.RegExp")
loRegExp.IgnoreCase = .T.
loRegExp.Pattern =  '^(([A-Za-z0-9]+_+)|([A-Za-z0-9]+\-+)|([A-Za-z0-9]+\.+)|([A-Za-z0-9]+\++))*[A-Za-z0-9]+@((\w+\-+)|(\w+\.))*\w{1,63}\.[a-zA-Z]{2,6}$'
m.valid = loRegExp.Test(m.email)
RELEASE loRegExp
IF m.valid
  MESSAGEBOX("Addresse valide")
else
  MESSAGEBOX("Addresse non valide")
ENDIF
Commentaires
le 10/07/2011, JpG a écrit :
Bonjour Mike.
Comme j'ai trouvé cette contribution bien interessante (comme toujours...) pour valider une adresse, je l'ai mise dans un module qui balaye une table avec un champ qui contient des adresses mails (environ 2.000), pour afficher les erreurs sur les saisies déjà effectuées. J'ai un petit problème car la fonction bloque sur les adresses suivantes, sans que je comprenne pourquoi...
andre.diethelm@comptoirsfinanciers.com
pierre-henri.segui@cepac.caisse-epargne.fr
matthieu.gordien@agglo-grandavignon;fr
andrew.stacey@pointparkproperties.com..
La fonction ne me renvoi rien et bloque tout le programme (EXE).
Si tu as une piste ... je suis preneur.
POUR TOUTES LES AUTRES, C'EST PARFAIT, le retour est exact.

VFP 9 / WINDOWS 7
Cordialement,
JP GRANGER

le 10/07/2011, Mike Gagnon a écrit :
J'ai corrigé le Pattern. À re-tester S.V.P.
le 10/07/2011, JpG a écrit :
Mike,
Un grand merci pour ta réactivité !
J'ai le plaisir de t'annoncer qu'il n'y a plus aucun problème avec cette pattern.
Les 2000 adresses sont parfaitement testées en 1 sec.
Remarquable...
Encore merci à toi.


Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3