Testando CEP via expressão Regular (Regular Expression)

Expressão Regular (Regular Expression) que testa a sintaxe de um cep (no formato 12345-123) O retorno da função e true (verdadeiro) ou false (falso) teste a função como no exemplo abaixo:

<%

xxx = "12345-123"

if(cep(xxx)) then
 Response.Write("CEP OK!")
else
 Response.Write("CEP Incorreto!")
End If 

function cep(strcep)

 Set regEx = New RegExp  'Cria o Objeto Expressão

 regEx.Pattern = "\d{5}-\d{3}"    ' Expressão Regular
 regEx.IgnoreCase = True         ' Sensitivo ou não
 regEx.Global = True                ' Não sei exatamente o que faz 

 cep = RegEx.Test(strcep)
 
 Set regEx = Nothing

End Function

%>

Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...