Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Email addresses?
Message
 
 
À
21/04/2006 03:19:23
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
01115200
Message ID:
01305720
Vues:
9
>>Thanks for any thoughts.
>
>This is the function I use, I "borrowed" it somewhere, I believe it was made by Tamar Granor.
>Function ValidEmail
>Lparameters lcMail
>Local ox, llReturn
>If Pcount()>0 and Vartype(lcMail)='C'
>  ox=CreateObject('VBScript.RegExp')
>  ox.Pattern= '^[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]' + ;
>    '@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]' + ;
>    '\.[a-zA-Z]{2,4}$'
>  ox.IgnoreCase= .T.
>  ox.Global=.F.
>  llReturn=ox.Test(lcMail)
>  Release ox
>  ox=.NULL.
>EndIf
>Return llReturn
Thanks, will try in ASP.NET in a sec.

Thanks again, it worked a treat.
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform