2013-02-20 46 views

回答

1

一種可能性:

sString = "[email protected] xxx [email protected] yyy [email protected]" 
asString = Split(sString, " ") 
For i = 0 To UBound(asString) 
    If asString(i) Like "*@*.*" Then 
     sEmail = sEmail & "," & asString(i) 
    End If 
Next 

MsgBox Mid(sEmail, 2) 
+0

謝謝!真的行。這個問題讓我在正規的表達中不知所措...... – user2090666 2013-04-24 02:03:59

相關問題