Jump to content

regular expression RFC 822


martinszutner
 Share

Recommended Posts

Hi, I did this RE,

but I need test it

$sEMAIL="UNIDOS......VENTA-RENTA.....ICASAS111@YAHOO.COM,Artruo Gonzalez Fernandez"


$RegExp='(?:(?:(?:[^ \t\(\)\<\>@,;\:\\\"\.\[\]\r\n]+)|(?:\"(?:(?:[^\"\\\r\n])|(?:\\.))*\"))(?:\.(?:(?:[^ \t\(\)\<\>@,;\:\\\"\.\[\]\r\n]+)|(?:\"(?:(?:[^\"\\\r\n])|(?:\\.))*\")))*)@(?:(?:(?:[^ \t\(\)\<\>@,;\:\\\"\.\[\]\r\n]+)|(?:\[(?:(?:[^\[\]\\\r\n])|(?:\\.))*\]))(?:\.(?:(?:[^ \t\(\)\<\>@,;\:\\\"\.\[\]\r\n]+)|(?:\[(?:(?:[^\[\]\\\r\n])|(?:\\.))*\])))*)'

    $aEmail = StringRegExp($sEMAIL, $RegExp,3)
    $oEmail=-1
    _ArrayDisplay ($aEmail)
    for $i = 0 to UBound($aEmail) - 1
        $oEmail=$aEmail[$i]
        ConsoleWrite($oEmail&@CRLF)
    Next
Edited by martinszutner
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...