OT Email Well-Formed Checkers

[John Craig]

Ken, don't feel bad - I sometimes fall asleep on the keyboard too ..... zzz

:-)


Ken Ray wrote:
> Mais, bien sûr! ;-)
> Here it is (watch for line wraps):
>
> function isEmail pWhat
>   put 
> matchText(pWhat,"^[A-z0-9_\-\.]+[@][A-z0-9_\-]+([.][A-z0-9_\-]+)+[A-z]$")
> into tNotIP
>   put 
> matchText(pWhat,"^(1*\d{1,2}|2[0-4]\d|25[0-5])\.(1*\d{1,2}|2[0-4]\d|25[0-5])
> \.(1*\d{1,2}|2[0-4]\d|25[0-5])\.(1*\d{1,2}|2[0-4]\d|25[0-5])(:\d{1,5})*$")
> into tIsIP
>   return (tIsIP or tNotIP)
> end isEmail
>