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

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

	Code source :
Retour à la liste L'auteur Mike Gagnon 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é 8466 fois Niveau débutant Version(s) Foxpro : VFP 7.0
	`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.

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

Contributions > 09 - Automation > Windows Scripting