匹配练习

 

Imports System.Text.RegularExpressions

    Private Sub btnExcute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcute.Click

        Dim laryCheckUPNs As String()

        Try

            If Me.txtRule.Text = String.Empty Then

                Me.txtResult.Text = "NG"

            End If

            laryCheckUPNs = Me.txtRule.Text.Split(",")

            For Each lstrEachCheckUPN As String In laryCheckUPNs

                If Regex.IsMatch(Me.txtUPN.Text, "^" & lstrEachCheckUPN.Replace("*", "(.*)") & "$") Then

                    Me.txtResult.Text = "OK, " & Me.txtUPN.Text & ", " & lstrEachCheckUPN

                    Exit For

                Else

                    Me.txtResult.Text = "NG"

                End If

            Next

        Catch ex As Exception

            Me.txtResult.Text = "exception :" & ex.Message

        End Try

    End Sub

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.txtUPN.Text = "55.5J701.011G"

        Me.txtRule.Text = "ABC,??.5J701.0*,A,55.5J701.D*"

    End Sub