温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

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

发布时间:2021-07-22 15:05:10 来源:亿速云 阅读:101 作者:Leah 栏目:编程语言

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

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

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

一个或多个非空格字符集(已捕获),后跟字符“@”,后跟一个或多个非空格和非句点字符集(已捕获),后跟一个或多个以下各项:

字符“.”,后跟一个或多个非空格和非句点字符集(已捕获)。

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

VB.NET分析电子邮件地址代码示例:

  1. ''' < summary> 

  2. ''' Parses an e-mail address 
    into its parts.  

  3. ''' < /summary> 

  4. ''' < param name="emailString">
    E-mail address to parse.< /param> 

  5. ''' < remarks> For example, this 
    method displays the following   

  6. ''' text when called with 
    "someone@mail.contoso.com":  

  7. ''' User name: someone  

  8. ''' Address part: mail  

  9. ''' Address part: contoso  

  10. ''' Address part: com  

  11. ''' < /remarks> 

  12. Sub ParseEmailAddress(ByVal 
    emailString As String)  

  13. Dim emailRegEx As New Regex
    ("(\S+)@([^\.\s]+)(?:\.
    ([^\.\s]+))+")  

  14. Dim m As Match = emailRegEx.
    Match(emailString)  

  15. If m.Success Then  

  16. Dim output As String = "" 

  17. output &= "User name: " & 
    m.Groups(1).Value & vbCrLf  

  18. For i As Integer = 2 To 
    m.Groups.Count - 1  

  19. Dim g As Group = m.Groups(i)  

  20. For Each c As Capture In g.Captures  

  21. output &= "Address part: " 
    & c.Value & vbCrLf  

  22. Next  

  23. Next  

  24. MsgBox(output)  

  25. Else  

  26. MsgBox("The e-mail address 
    cannot be parsed.")  

  27. End If  

  28. End Sub 

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

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI