VB.NET中怎么解析電子郵件地址

VB.NET中怎么解析電子郵件地址，很多新手對(duì)此不是很清楚，為了幫助大家解決這個(gè)難題，下面小編將為大家詳細(xì)講解，有這方面需求的人可以來(lái)學(xué)習(xí)下，希望你能有所收獲。

此示例演示一個(gè)用于分析電子郵件地址的簡(jiǎn)單的正則表達(dá)式。

此示例使用正則表達(dá)式 (\S+)@([^\.\s]+)(?:\.([^\.\s]+))+，該表達(dá)式的意思是：

一個(gè)或多個(gè)非空格字符集（已捕獲），后跟字符“@”，后跟一個(gè)或多個(gè)非空格和非句點(diǎn)字符集（已捕獲），后跟一個(gè)或多個(gè)以下各項(xiàng)：

字符“.”，后跟一個(gè)或多個(gè)非空格和非句點(diǎn)字符集（已捕獲）。

正則表達(dá)式的 Match 方法返回一個(gè) Match 對(duì)象，該對(duì)象包含有關(guān)正則表達(dá)式與輸入字符串的哪一部分相匹配的信息。

VB.NET分析電子郵件地址代碼示例：

''' < summary> 
''' Parses an e-mail address 
into its parts.  
''' < /summary> 
''' < param name="emailString">
E-mail address to parse.< /param> 
''' < remarks> For example, this 
method displays the following   
''' text when called with 
"someone@mail.contoso.com":  
''' User name: someone  
''' Address part: mail  
''' Address part: contoso  
''' Address part: com  
''' < /remarks> 
Sub ParseEmailAddress(ByVal 
emailString As String)  
Dim emailRegEx As New Regex
("(\S+)@([^\.\s]+)(?:\.
([^\.\s]+))+")  
Dim m As Match = emailRegEx.
Match(emailString)  
If m.Success Then  
Dim output As String = "" 
output &= "User name: " & 
m.Groups(1).Value & vbCrLf  
For i As Integer = 2 To 
m.Groups.Count - 1  
Dim g As Group = m.Groups(i)  
For Each c As Capture In g.Captures  
output &= "Address part: " 
& c.Value & vbCrLf  
Next  
Next  
MsgBox(output)  
Else  
MsgBox("The e-mail address 
cannot be parsed.")  
End If  
End Sub 

看完上述內(nèi)容是否對(duì)您有幫助呢？如果還想對(duì)相關(guān)知識(shí)有進(jìn)一步的了解或閱讀更多相關(guān)文章，請(qǐng)關(guān)注億速云行業(yè)資訊頻道，感謝您對(duì)億速云的支持。