用于拆分电子邮件的VBScript正则表达式

Question

我给了一行像这样的字符串

To: =?ks_c_5601-1987?B?vcW5zsHY?= <test1@test.co.kr>,
    =?ks_c_5601-1987?B?wNO9w8ij?= <test2@gmail.com>, Henry Han
    <test3@hotmail.com>

基本上，它们是以特定字符集编码的电子邮件地址集。

我想将它们拆开并拥有一个只包含电子邮件地址的数组

EX：

toAddress(0) = test1@test.co.kr
toAddress(1) = test2@gmail.com
toAddress(2) = test3@hotmail.com

VBScript的正则表达式功能是否足以满足上述需求？我很感激任何指导，谢谢。

Answer 1

dim regex:set regex=new RegExp
regex.Global=True
regex.IgnoreCase=True
regex.Pattern="<.*?>"
dim ori:ori="To: =?ks_c_5601-1987?B?vcW5zsHY?= <test1@test.co.kr>," & vbLF &_
    "=?ks_c_5601-1987?B?wNO9w8ij?= <test2@gmail.com>, Henry Han " & vbLF &_
    "<test3@hotmail.com>"
Response.Write ori & vbLF 'just for debug
dim matches:set matches=regex.Execute(ori)
For Each match In matches
    Response.Write match.value & vbLF
Next

使用IIS 5测试，输出：

<test1@test.co.kr>
<test2@gmail.com>
<test3@hotmail.com>

您可以在抓取<时删除>和match.Value。