如何验证VB.NET中Like运算符的模式字符串是否有效？

你原来的验证函数存在的核心问题是：Like运算符是从左到右匹配，一旦遇到不匹配的前缀字符，会直接返回False，不会继续解析模式的剩余部分，因此无法检测到后续的无效语法（比如未闭合的[）。

要全面验证Like模式的有效性，无论匹配结果如何，有两种可靠的解决方案：

方案1：生成触发完整模式解析的测试字符串 #

构造一个与模式结构匹配的测试字符串，迫使Like运算符必须解析整个模式内容，从而触发所有可能的无效模式异常。

Private Function ValidateLikePattern(pattern As String) As Boolean
    If String.IsNullOrEmpty(pattern) Then
        Return True ' 空模式可根据业务需求调整是否视为有效
    End If

    Dim testString As New StringBuilder()
    Dim i As Integer = 0

    While i < pattern.Length
        Select Case pattern(i)
            Case "?"c
                testString.Append("x") ' 匹配任意字符
                i += 1
            Case "#"c
                testString.Append("0") ' 匹配数字
                i += 1
            Case "*"c
                testString.Append("x") ' 添加字符，迫使解析后续模式
                i += 1
            Case "["c
                i += 1
                ' 添加字符集中的第一个字符（或默认字符）触发解析
                If i < pattern.Length AndAlso pattern(i) <> "]"c Then
                    testString.Append(pattern(i))
                Else
                    testString.Append("x")
                End If
                ' 跳过字符集内容直到找到]或结尾
                While i < pattern.Length AndAlso pattern(i) <> "]"c
                    i += 1
                End While
                If i < pattern.Length Then i += 1 ' 跳过闭合]
            Case Else
                ' 字面字符直接添加
                testString.Append(pattern(i))
                i += 1
        End Select
    End While

    Try
        ' 用生成的测试字符串匹配模式，触发完整解析
        Dim dummy As Boolean = testString.ToString() Like pattern
        Return True
    Catch
        ' 捕获模式无效的异常
        Return False
    End Try
End Function

方案2：转换为正则表达式验证（更可靠） #

将Like模式转换为等效的正则表达式，通过编译正则表达式来检查语法有效性。这种方法能覆盖所有无效模式场景（比如未闭合的[、无效的字符范围z-a等），比依赖Like的异常更稳定。

步骤1：Like模式转正则表达式 #

Private Function LikeToRegex(pattern As String) As String
    Dim regexBuilder As New StringBuilder("^") ' 匹配字符串开头，对应Like默认行为
    Dim i As Integer = 0

    While i < pattern.Length
        Select Case pattern(i)
            Case "*"c
                regexBuilder.Append(".*")
                i += 1
            Case "?"c
                regexBuilder.Append(".")
                i += 1
            Case "#"c
                regexBuilder.Append("\d")
                i += 1
            Case "["c
                regexBuilder.Append("[")
                i += 1
                ' 处理否定字符集
                If i < pattern.Length AndAlso pattern(i) = "!"c Then
                    regexBuilder.Append("^")
                    i += 1
                End If
                ' 转义正则特殊字符并添加字符集内容
                While i < pattern.Length AndAlso pattern(i) <> "]"c
                    If "[\^$.|?*+(){}".Contains(pattern(i)) Then
                        regexBuilder.Append("\")
                    End If
                    regexBuilder.Append(pattern(i))
                    i += 1
                End While
                regexBuilder.Append("]")
                If i < pattern.Length Then i += 1
            Case Else
                ' 转义正则特殊字符
                If "[\^$.|?*+(){}".Contains(pattern(i)) Then
                    regexBuilder.Append("\")
                End If
                regexBuilder.Append(pattern(i))
                i += 1
        End Select
    End While
    regexBuilder.Append("$") ' 匹配字符串结尾，对应Like默认行为
    Return regexBuilder.ToString()
End Function

步骤2：验证正则表达式有效性 #

Private Function ValidateLikePattern(pattern As String) As Boolean
    If String.IsNullOrEmpty(pattern) Then
        Return True
    End If

    Try
        Dim regexPattern As String = LikeToRegex(pattern)
        ' 编译正则表达式，语法错误会抛出ArgumentException
        Dim regex As New Regex(regexPattern)
        Return True
    Catch ex As ArgumentException
        Return False
    End Try
End Function

两种方案对比：

• 方案1：无需额外依赖，直接使用Like运算符，但需要维护测试字符串的生成逻辑，部分极端场景可能需要调整。
• 方案2：利用正则表达式的严格语法检查，覆盖所有无效模式情况，稳定性更高，但需要实现Like到正则的转换逻辑。

内容的提问来源于stack exchange，提问作者Mesos