Jesse, here's one for an email address (*really* watch for line breaks - I
put in hard returns and indents so it formats properly and is legible, but
you'll have to take them out):

function isEmail pWhat
  put matchText(pWhat,"[EMAIL PROTECTED]
     ([.][A-z0-9_\-]+)+[A-z]$") into tNotIP
  put matchText(pWhat,"^(\d{1,3})\.(\d{1,3})\.(\d{1,3})
      \.(\d{1,3})$") into tIsIP
  return (tIsIP or tNotIP)
  -- supports:
  --   periods in user address ([EMAIL PROTECTED])
  --   multiple subdomains ([EMAIL PROTECTED])
  --   new domains with more than 2 characters (.info, .museum, etc.)
  --   IP addresses
end isEmail

Thanks Ken!


Jesse _______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to