VB.NET中怎么解析电子邮件地址

VB.NET中怎么解析电子邮件地址，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。

成都创新互联是一家集网站建设,海南州企业网站建设,海南州品牌网站建设,网站定制,海南州网站建设报价,网络营销,网络优化,海南州网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

此示例演示一个用于分析电子邮件地址的简单的正则表达式。

此示例使用正则表达式 (\S+)@([^\.\s]+)(?:\.([^\.\s]+))+，该表达式的意思是：

一个或多个非空格字符集（已捕获），后跟字符“@”，后跟一个或多个非空格和非句点字符集（已捕获），后跟一个或多个以下各项：

字符“.”，后跟一个或多个非空格和非句点字符集（已捕获）。

正则表达式的 Match 方法返回一个 Match 对象，该对象包含有关正则表达式与输入字符串的哪一部分相匹配的信息。

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 

看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注创新互联行业资讯频道，感谢您对创新互联的支持。