regex - 用于拆分电子邮件的 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>

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

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

前任：

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>

您可以在获取时删除<and 。>match.Value