terça-feira, 18 de novembro de 2003

Valide endereço de e-mail via Regular Expressions


Aqui está o código:


Dim objRegExpr As RegExp
Dim blnEmailOk As Boolean


Set objRegExpr = New RegExp


objRegExpr.Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
blnEmailOk = objRegExpr.Test(Text1.Text) 


Alguns simbolos usados na Expressão:


\w localiza somente letras e dígitos
\. localiza o caracter .
* localiza zero ou mais ocorrências do caracter precedente
+ localiza uma ou mais ocorrências do caracter precedente



Esta matéria foi postada originalmente no ASP4Developers por Valmir Cinquini (site), que na época era "Analista/Programador C#, VB.Net, ASP, VB, Javascript e T-SQL

www.cinquini.com.br/vcinquini>". Hoje, vai saber...

0 comentários: