0

このような1行の文字列が与えられます

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 の正規表現関数は、上記の必要なものを取得するのに十分な汎用性がありますか? ガイダンスをいただければ幸いです。ありがとうございます。

4

1 に答える 1

2 
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

于 2012-12-20T03:34:01.303 に答える