'System.Text.RegularExpressions.Regex
Dim regex As Regex
Dim str As String
'Regex生成
regex = New Regex("1$")
'チェック文字
str = "21"
'チェック
If regex.IsMatch(str) Then
Console.WriteLine(str & "はOK")
Else
Console.WriteLine(str & "はNG")
End If
'チェック文字
str = "12"
'チェック
If regex.IsMatch(str) Then
Console.WriteLine(str & "はOK")
Else
Console.WriteLine(str & "はNG")
End If
|