Permalink
Fetching contributors…
Cannot retrieve contributors at this time
28 lines (25 sloc) 808 Bytes
' Visual Basic .NET Document
Option Strict On
' <Snippet5>
Imports System.Text.RegularExpressions
Module Example
Public Sub Main()
Dim inputs() As String = { "jack.sprat", "dog#", "dog#1", "me.myself",
"me.myself!" }
Dim pattern As String = "^[A-Z0-9]([-!#$%&'.*+/=?^`{}|~\w])*(?<=[A-Z0-9])$"
For Each input As String In inputs
If Regex.IsMatch(input, pattern, RegexOptions.IgnoreCase) Then
Console.WriteLine("{0}: Valid", input)
Else
Console.WriteLine("{0}: Invalid", input)
End If
Next
End Sub
End Module
' The example displays the following output:
' jack.sprat: Valid
' dog#: Invalid
' dog#1: Valid
' me.myself: Valid
' me.myself!: Invalid
' </Snippet5>