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