2013-02-20 45 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

相关问题