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

Question

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

像这样：

JOHN.DOE@EMAIL.COM 
****.***@*****.***

CARL_SAGAN@EMAIL.COM
**********@*****.***

我尝试使用“REPLACE(EMAIL, J, *)” - 但是我需要替换每个字符（这也包括特殊字符，如“_”“-”和其他字符..）

还有其他选择吗？

谢谢！

== 更新：

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

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

但我不是很专业。此 RegEX 模式排除 AZ/az 并且我需要排除所有字符 - 少 @ 和 "."

谢谢。

Answer 1

我明白了！

解决方案-

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

CLASSIC ASP: Replace all characters from email string - less @ and "."