Teste de expressão regular sensível a caixa.
Function ereg(ByVal Expr, ByVal Varn)
Dim Regex
Set Regex = New RegExp
Regex.Pattern = Expr
Regex.IgnoreCase = False
Regex.Global = True
ereg = Regex.Test(Varn)
Set Regex = Nothing
End Function
Nenhum comentário:
Postar um comentário