PureBasic

Code : Tout sélectionner

adresse$ = "monadresse@jj.com"

CreateRegularExpression(0,"[\w.-]+@[\w.-]+\.[a-z]{2,6}")
    If MatchRegularExpression(0, adresse$)
      Debug "L'adresse est valide !"
    Else
      Debug "L'adresse n'est pas valide"
    EndIf
    
;explication rapide
;\w Indique un mot. Cela correspond à taper [a-zA-Z0-9_]
;.- on ajoute le point et le tiret dans les caractères reconnu
;+@il faut qu'il y ai @
;[\w.-] idem on veut tout + point et tiret
;\. le point est un caractère spécial on met donc un antislash pour qu'il soit reconnu comme un caractère à avoir
;[a-z]{2,6} ensuite on veut des lettre et il nous en faut entre 2 et 6

Code : Tout sélectionner

[\w.]+@[\w.]+\.[a-z]{2,6}