Mega Code Archive

 

Categories / VB.Net Tutorial / Regular Expressions

 

Determines whether input format is valid for an e-mail address

Imports System.Text.RegularExpressions Public Class Application    Public Shared Sub Main()       Dim emailAddresses() As String = { "david.jones@a.com", "d.j@server1.a.com", _                                          "jones@ms1.a.com", "j.@server1.a.com", _                                          "j@a.com9" }       For Each emailAddress As String In emailAddresses          If RegexUtilities.IsValidEmail(emailAddress) Then             Console.WriteLine("Valid: {0}", emailAddress)          Else             Console.WriteLine("Invalid: {0}", emailAddress)          End If             Next                                                End Sub End Class Module RegexUtilities    Function IsValidEmail(strIn As String) As Boolean        Return Regex.IsMatch(strIn, "^([0-9a-zA-Z]([-\.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$")    End Function End Module