「VB.NET」IsMatchで正規表現と一致するか判定

2021年9月9日

書式
Regex.IsMatch(指定文字列, “^[0-9\-]*$")
正規表現と一致する箇所が見つかった場合は true。それ以外の場合は false です。

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Imports System.Text.RegularExpressions
Module ModuleTest
Sub Main()
Dim resRet As Boolean
'正規表現関数を呼び出す 引数 23-
resRet = isNumber("23-")
Console.WriteLine(resRet)
'引数 23
resRet = isNumber("23")
Console.WriteLine(resRet)
'引数 -
resRet = isNumber("-")
Console.WriteLine(resRet)
'引数 abc
resRet = isNumber("abc")
Console.WriteLine(resRet)
Console.ReadKey()
End Sub
'正規表現に一致するかどうか
Public Function isNumber(ByVal strNo As String) As Boolean
'正規表現式^[0-9\-]*$
If Regex.IsMatch(strNo, "^[0-9\-]*$") Then '0-9と-の文字のみ
Return True
End If
End Function
End Module
Imports System.Text.RegularExpressions Module ModuleTest Sub Main() Dim resRet As Boolean '正規表現関数を呼び出す 引数 23- resRet = isNumber("23-") Console.WriteLine(resRet) '引数 23 resRet = isNumber("23") Console.WriteLine(resRet) '引数 - resRet = isNumber("-") Console.WriteLine(resRet) '引数 abc resRet = isNumber("abc") Console.WriteLine(resRet) Console.ReadKey() End Sub '正規表現に一致するかどうか Public Function isNumber(ByVal strNo As String) As Boolean '正規表現式^[0-9\-]*$ If Regex.IsMatch(strNo, "^[0-9\-]*$") Then '0-9と-の文字のみ Return True End If End Function End Module
Imports System.Text.RegularExpressions

Module ModuleTest
    Sub Main()

        Dim resRet As Boolean

        '正規表現関数を呼び出す 引数 23-
        resRet = isNumber("23-")
        Console.WriteLine(resRet)
        '引数 23
        resRet = isNumber("23")
        Console.WriteLine(resRet)
        '引数 -
        resRet = isNumber("-")
        Console.WriteLine(resRet)

        '引数 abc
        resRet = isNumber("abc")
        Console.WriteLine(resRet)

        Console.ReadKey()


    End Sub

    '正規表現に一致するかどうか
    Public Function isNumber(ByVal strNo As String) As Boolean
        '正規表現式^[0-9\-]*$
        If Regex.IsMatch(strNo, "^[0-9\-]*$") Then '0-9と-の文字のみ
            Return True
        End If

    End Function
End Module

結果
True
True
True
False

VB.net

Posted by arkgame