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