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 & vbCrLfFor i As Integer = 2 To
m.Groups.Count - 1Dim g As Group = m.Groups(i)
For Each c As Capture In g.Captures
output &= "Address part: "
& c.Value & vbCrLfNext
Next
MsgBox(output)
Else
MsgBox("The e-mail address
cannot be parsed.")End If
End Sub
看完上述内容是否对您有帮助呢?如果还想对相关知识有进一步的了解或阅读更多相关文章,请关注亿速云行业资讯频道,感谢您对亿速云的支持。
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。