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

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 

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


新闻名称:VB.NET中怎么解析电子邮件地址
文章链接:http://pwwzsj.com/article/jioose.html