CLASSIC ASP：替换电子邮件字符串中的所有字符-减@和“

问题描述

我正在尝试替换电子邮件字符串中的所有字符-减去@和“。使用经典ASP

类似这样的东西：

[e-mail] 
****.***@*****.***

[e-mail]
**********@*****.***

我尝试使用“ REPLACE（EMAIL，J，*）”-但这需要替换每个字符（而且还包括特殊字符，例如“ _”“-”等。）

还有其他选择吗？

tks！

== 更新：

使用REGEX，我有一个更好的解决方案：

Dim regEx
Set regEx = New RegExp
regEx.Pattern = "[A-Za-z]"
regEx.Global = True
tipEmail = regEx.Replace(Email,"*")

但是我不是那么专家。此RegEX模式不包括AZ / az，而我需要排除所有字符-减去@和“。”

tks。

解决方法

我明白了！

解决方案-

Dim regEx
Set regEx = New RegExp
regEx.Pattern = "[^@.]"
regEx.Global = True
tipEmail = regEx.Replace(Email,"*")