regular expression RFC 822

[martinszutner]

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 February 25, 2009 by martinszutner

[weaponx]

When posting there is an option to disable emoticons, it needs to be used when posting using AutoIt tags.