將字符串轉換為電子郵件地址

Question

我正在編寫一個腳本，該腳本將重命名，以便導出的PST文件與導入到新系統所需的格式匹配。

我正在嘗試在VBScript中使用正則表達式以及“替換”來做到這一點。

一個示例字符串：

JoeBloggs_Export_001.pst

所需的最終結果：

Joe.Bloggs@emaildomain.com._001.pst

我顯然已經用@ emaildomain.com替換了Export 。 使用替換。

我正在努力獲得的插入。 在名和姓之間，我認為使用正則表達式可以做到這一點。 我正在努力使它起作用。 顯然，名字的長度是變化的。

我現在已經嘗試了各種正則表達式，因此與其共享其中的任何一種，我希望能看到一些新的知識，這有助於突出我出了問題的地方。

提前謝謝了。

標記

Answer 1

假設您想打破大寫的pascal大小寫名稱，可以先捕獲小寫字母，再捕獲大寫字母，並插入“。”；

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