check mail

[bdr529]

func check_mail_simple($check_mail)
    dim $StringLen,$StringInStr_mail,$StringInStr_point
    $StringLen=StringLen($check_mail)
    $StringInStr_mail=StringInStr($check_mail,"@")
    $StringInStr_point=StringInStr($check_mail,".","",-1)
    if $StringInStr_mail=0 and $StringInStr_point=0 then
        seterror(-1)
        return 'missing "@" and "."'
    elseif $StringInStr_mail=0 then
        seterror(-2)
        return 'missing "@"'
    elseif $StringInStr_point=0 then
        seterror(-3)
        return 'missing "."'    
    endif
    if $StringInStr_mail>1 and $StringLen-$StringInStr_mail>=4 then
        if $StringInStr_point>0 and $StringLen-$StringInStr_point>=2 and $StringInStr_point-$StringInStr_mail>1 then
            seterror(1)
            return 'ok'
        Else
            seterror(-5)
            return 'position error "."' 
        endif
    Else        
        seterror(-4)
        return 'position error "@"'
    endif
endfunc

[water]

And your question is?

[guinness]

You're also missing an example of usage.

[bdr529]

sorry

my english is bad

example

dim $result=check_mail_simple("à@aa.am")

; dim $result=check_mail_simple("@aa.am")

; dim $result=check_mail_simple("a@aa.m")

msgbox(0,@error,$result)

correct function?

[water]

Dim is deprecated and should be replaced with Global.

[guinness]

Also use [autoit][/autoit] tags when posting AutoIt code.

Search the Forum for checking whether an e-mail is valid or not.