将字符串转换为电子邮件地址

Question

我正在编写一个脚本，它将重命名导出的PST文件，以匹配导入新系统所需的格式。

我正在尝试在VBScript中使用正则表达式与Replace一起执行此操作。

示例字符串：

JoeBloggs_Export_001.pst

必填最终结果：

Joe.Bloggs@emaildomain.com._001.pst

我显然已经用@ emaildomain.com替换了 Export 。使用替换。

我正在努力获得插入。在First-name和Last-name之间，我认为使用正则表达式来做这件事是最好的方法。我正在努力让这个工作。显然，名字的长度各不相同。

我现在尝试过各种正则表达式，所以我不希望分享任何这些正则表达式，而是希望得到一副新鲜的眼睛将有助于突出我出错的地方。

非常感谢提前。

标记

Answer 1

假设您想要打破大写字母上的pascal cased名称，您可以捕获小写，然后是大写＆amp;插入“。”;

set re = New RegExp
re.Pattern = "([a-z])([A-Z])"
re.global = true

filename = "JoeBloggs_Export_001.pst"

msgbox replace(re.Replace(fileName, "$1.$2"), "_Export_", "@emaildomain.com._")

>> Joe.Bloggs@emaildomain.com._001.pst