Se a qualcuno serve ho questa funzione di controllo per le date, mi servirebbe una funzione che mi controlla la validità dell'indirizzo email.
Thx
PUBLIC FUNCTION ControlloData(sData AS String) AS Boolean
DIM sDati AS String[]
DIM sValori AS Variant[]
sDati = Split(sData, "/")
IF sData LIKE "[0-9][0-9]/[0-9][0-9]/[0-9][0-9][0-9][0-9]" THEN
IF CheckDate(sDati[0], sDati[1], sDati[2]) = TRUE THEN
RETURN FALSE
ELSE
RETURN TRUE
ENDIF
ELSE
RETURN TRUE
ENDIF
END
PUBLIC SUB Main()
DIM myemail AS String
DIM validemail AS String
DIM re AS RegExp
myemail = "f...@bar."
re = NEW RegExp(myemail, "(?i)\\b[a-z0-9._%\\-]+@[a-z0-9._%\\-]+\\.[A-Z]{2,4}\\b")
validemail = re.Text
IF NOT validemail THEN
PRINT myemail & " is not a legal email address.\n"
ELSE
PRINT myemail & "\n"
END IF
END
A me questo funziona. Devi abilitare il componente gb.pcre, ma questo lo sai.