To check user entering email address

[youtuber]

How can I tell if a user entered email address is incorrect

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 448, 242)
$Input1 = GUICtrlCreateInput("Input1", 40, 40, 361, 21)
$Button1 = GUICtrlCreateButton("Button1", 184, 96, 75, 25)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $aReadMail = GUICtrlRead($Input1)
                    For $j = 0 To UBound($aReadMail) - 1
                        if stringregexp($aReadMail[$j],'^[a-zA-Z0-9-_\.]+\@[a-zA-Z0-9-_\.]+\.(com|org|net|mil|edu|ca|co.uk|com.au|gov)\s\([A-Z][a-z]+\s[A-Z][a-z]+\)$') = 1 then
                     MsgBox(0,"Ok","Ok this is a true mail")
                        Else
                         MsgBox(0,"Error","This is not an email!")
                        EndIf
                    next
    EndSwitch
WEnd

 

[BrewManNH]

Try here

[youtuber]

I checked and unfortunately there was not a turn 

http://rubular.com/r/OiGTQrrtFY

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StringConstants.au3>
$Form1 = GUICreate("Form1", 448, 242)
$Input1 = GUICtrlCreateInput("testmymailyoutuber@test.com", 40, 40, 361, 21)
$Button1 = GUICtrlCreateButton("Button1", 184, 96, 75, 25)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $aReadMail = GUICtrlRead($Input1)
                    ;For $j = 0 To UBound($aReadMail) - 1
                    ;For $j = 0 To UBound($aReadMail[0])
                        For $j = 1 To UBound($aReadMail) - 1
        ;if stringregexp($aReadMail[$j],'^[a-zA-Z0-9-_\.]+\@[a-zA-Z0-9-_\.]+\.(com|org|net|mil|edu|ca|co.uk|com.au|gov)\s\([A-Z][a-z]+\s[A-Z][a-z]+\)$') = 1 then
         if stringregexp($aReadMail[$j],'^[a-zA-Z0-9-_\.]+\@[a-zA-Z0-9-_\.]+\.(com|org|net|mil|edu|ca|co.uk|com.au|gov)') = 1 then
             ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $aReadMail[$j] = ' & $aReadMail[$j] & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
                     MsgBox(0,"Ok","Ok this is a true mail")
                        Else
                         MsgBox(0,"Error","This is not an email!")
                        EndIf
                    next
    EndSwitch
WEnd

 

Edited August 24, 2017 by youtuber

[Simpel]

Hi,

check regex for autoit with regex101.com. Example here: https://regex101.com/r/8GPLJU/1

There are different regex syntaxes in different languages. You tried ruby but should use pcre(php).

Conrad

[Simpel]

By the way I use "[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,63}". Because the top level domain should be between 2 and 63 characters.

Conrad

[youtuber]

Thanks, how can I give an error message if this is not an email?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StringConstants.au3>
#include <Array.au3>
$Form1 = GUICreate("Form1", 448, 242)
$Input1 = GUICtrlCreateInput("testmymailyoutuber@test.com", 40, 40, 361, 21)
$Button1 = GUICtrlCreateButton("Button1", 184, 96, 75, 25)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $aReadMail = GUICtrlRead($Input1)
$aRegex = StringRegExp($aReadMail, '[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,63}', 3)
for $i=0 to ubound($aRegex)-1
    If IsArray($aRegex) Then
        MsgBox(0,"Ok",$aRegex[$i])
    Else
    MsgBox(0,"Error","This is not an email!")
EndIf
Next
    EndSwitch
WEnd

 

[mikell]

You check one address, so no need of a For loop 

$aRegex = StringRegExp($aReadMail, ..., 3)  
If IsArray($aRegex) Then
    MsgBox(0,"Ok",$aRegex[0])
Else
    MsgBox(0,"Error","This is not an email!")
EndIf

BTW I suggest to add the "^" (start) and "$" (end) anchors in the regex pattern

[youtuber]

Thanks @mikell Should it be this way?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StringConstants.au3>
#include <Array.au3>
$Form1 = GUICreate("Form1", 448, 242)
$Input1 = GUICtrlCreateInput("testmymailyoutuber@test.com", 40, 40, 361, 21)
$Button1 = GUICtrlCreateButton("Button1", 184, 96, 75, 25)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $aReadMail = GUICtrlRead($Input1)
$aRegex = StringRegExp($aReadMail, '^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,63}$', 3)
If IsArray($aRegex) Then
    MsgBox(0,"Ok",$aRegex[0])
Else
    MsgBox(0,"Error","This is not an email!")
EndIf
    EndSwitch
WEnd

 

[mikell]

24 minutes ago, youtuber said:

Should it be this way?

[Simpel]

^ at the beginning and $ at the end proves that the whole string is matching?

What is possible if I want to allow trailing spaces that I will strip later on (for user comfort reason)? Or should I kill all trailing spaces first and regex later?

Conrad

[mikell]

 

1 hour ago, Simpel said:

^ at the beginning and $ at the end proves that the whole string is matching?

Yes

You can allow trailing spaces in the regex by adding \h* just before the $ and then remove them later if a clean address is needed in the script, or remove them before the check .... both ways are correct, choose your flavour 

[Simpel]

That is my whole snippet for provement:

#include <StringConstants.au3>
Local $sText = 'a@b.cd'
ConsoleWrite($sText & ": " & _ProveMailAdress($sText) & @CRLF)

Func _ProveMailAdress($sAdress)
    Local $sPattern = "^[A-Za-z0-9.!#$%&'*+\-\/=?^_`\{\|\}~]+@[a-zA-Z0-9.-]*?\.[a-zA-Z0-9.-]{2,63}$"
    If StringLeft($sAdress, 1) = "." Then Return 0 ; no dot at start
    If StringRight($sAdress, 1) = "." Then Return 0 ; no dot at end
    StringRegExp($sAdress, $sPattern, $STR_REGEXPARRAYMATCH)
    If @error Then Return 0
    Return 1
EndFunc

As you can see the local part is allowed to include some more symbols.

Conrad