Imports System
Imports System.Text.RegularExpressions
Public Class SingleCharacterRegularExpression
Public Shared Sub Main(ByVal args As String())
Dim patternString As String = "b.d"
Dim testStrings As String() = {"bud", "bid", "bed", "b d", "bat", "bd", "bead"}
Dim regex As Regex = New Regex(patternString)
For Each testString As String In testStrings
Dim match As Match = regex.Match(testString)
If match.Success Then
Console.WriteLine(1)
Else
Console.WriteLine(0)
End If
Next
End Sub
End Class
' run:
'
' 1
' 1
' 1
' 1
' 0
' 0
' 0
'