Verifica stringa

[pegaso22]

Ciao a tutti,
come posso fare per controllare che in una stringa ci siano solo determinati caratteri?

Ci dovrebbero essere:
- tutte le lettere senza acenti
- tutti i numeri
- trattino medio e basso
- punto
- ciocciola

in sostanza deve essere un indirizzo email senza caratteri non validi per un email.

Fatemi sapere.
Grazie, mille.

[br1]

RegExp
Esempi

[vic53]

crei un vettore con i valori che vuoi validare e con un ciclo controlli il campo se contiene caratteri presenti nel vettore....se non li contiene dai l'errore....
[codice]
vet="abc......@_-012..."
[codice]
la routine la puioi fare da solo perchè è sempilicissima, ma se non ci riesci dillo che ti aiutiamo...
ciao

[vic53]

....ragionandoci con il linguaggio ...
oppure fai come dice br1 e usi le regular expression...
ciao

[pegaso22]

risolto con questa funzione:

Function ControlloEmail(email)
Dim ObjRegexp
Dim risultato
Set ObjRegexp = New RegExp
ObjRegexp.Global = True
ObjRegexp.IgnoreCase = True
ObjRegexp.Pattern = "^[_a-z0-9+-]+(\.[_a-z0-9+-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)+$"
risultato = ObjRegexp.Test(email)
Set ObjRegexp = Nothing
ControlloEmail = risultato
End Function