「VB.NET」正規表現式で連続文字を判定する

書式
1.正規表現式 :文字列{回数}
2.Public Function IIf (Expression As Boolean, TruePart As Object, FalsePart As Object) As Object
式の評価に応じて、2 つのオブジェクトのうち 1 つを返します。

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Imports System.Text.RegularExpressions
Module Module1
Sub Main()
'文字列型配列
Dim ptArr() As String = {"TSSS1", "KSS2", "HsTs"}
'連続文字「S」を指定
Dim pattern As String = "S{2}"
'ループで文字を判定
For Each pn As String In ptArr
Console.WriteLine("{0}が正規表現式に{1} ", pn, IIf(Regex.IsMatch(pn, pattern), "一致", "不一致"))
Next
Console.ReadKey()
End Sub
End Module
Imports System.Text.RegularExpressions Module Module1 Sub Main() '文字列型配列 Dim ptArr() As String = {"TSSS1", "KSS2", "HsTs"} '連続文字「S」を指定 Dim pattern As String = "S{2}" 'ループで文字を判定 For Each pn As String In ptArr Console.WriteLine("{0}が正規表現式に{1} ", pn, IIf(Regex.IsMatch(pn, pattern), "一致", "不一致")) Next Console.ReadKey() End Sub End Module
Imports System.Text.RegularExpressions

Module Module1

    Sub Main()
        '文字列型配列
        Dim ptArr() As String = {"TSSS1", "KSS2", "HsTs"}

        '連続文字「S」を指定
        Dim pattern As String = "S{2}"

        'ループで文字を判定
        For Each pn As String In ptArr
            Console.WriteLine("{0}が正規表現式に{1} ", pn, IIf(Regex.IsMatch(pn, pattern), "一致", "不一致"))
        Next

        Console.ReadKey()

    End Sub

End Module

結果
TSSS1が正規表現式に一致
KSS2が正規表現式に一致
HsTsが正規表現式に不一致

VB.net

Posted by arkgame