VB.NET分析电子邮件地址示例解读

经常阅读我们技术文章的朋友们肯能还记得我们曾经向大家介绍过两种VB.NET发送邮件方法解读这篇文章，那么今天我们会从另一个角度来为大家讲解一下VB.NET分析电子邮件地址的实现方法，让大家彻底掌握VB.NET对于电子邮件操作的相关技巧。#t#

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

此示例使用正则表达式 (\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 
"[email protected]":  
  
  
  
''' 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 
 
 
 

此VB.NET分析电子邮件地址示例要求使用 Imports 语句来导入 System.Text.RegularExpressions 命名空间。有关更多信息，请参见 Imports 语句（.NET 命名空间和类型）。