VB.net将完整字符串与包含通配符的字符串进行比较

发布时间：2020-12-17 07:22:41 所属栏目：百科来源：网络整理

导读：我有一个方法,需要2个字符串参数.一个包含普通字符串,另一个包含带有一个或多个通配符的字符串.我试过以下代码： Private Function DoesMatchWildcardString(ByVal fullString As String,ByVal wildcardString As String) As Boolean Dim stringParts() As S

我有一个方法,需要2个字符串参数.一个包含普通字符串,另一个包含带有一个或多个通配符的字符串.我试过以下代码：

Private Function DoesMatchWildcardString(ByVal fullString As String,ByVal wildcardString As String) As Boolean
    Dim stringParts() As String
    Dim matches As Boolean = True

    stringParts = wildcardString.Split("*")

    For Each str As String In stringParts
        If fullString.Contains(str) = False Then
            matches = False
        End If
    Next

    Return matches

End Function

我意识到它无法正常工作.如果我将ABCD作为普通字符并将A * CD作为我的通配符字符串,即使我的普通字符串是CDAB,匹配也会起作用,这不是我想要的.

有任何想法吗？？

非常感谢.

解决方法

您的方法很有趣,但即使经过纠正也非常低效.通配符匹配算法的有效实现使用 shift-or algorithm的扩展(根据维基百科也被某些来源称为“bitap”,但我自己从未读过).

对传统移位或算法的唯一更改是在预处理中：对于在模式中遇到的每个*,在此位置启用字母表中的所有字符.

如果要更正自己的算法,请用IndexOf替换Contains调用,并提供它应该开始搜索的位置 – 即在上一次匹配之后.这适用于大多数情况,但它会执行非贪婪搜索,在某些情况下可能会失败.详尽的搜索必然会回溯.正如我所说,这是低效的,并且移位或算法不会受到这个缺点的影响.

但是所有这些都是不必要的,因为VB已经提供了必要的运算符：Like

If fullString Like wildcardString Then
    ' Yep,matches.
End If

关于风格的说明：

在声明变量时始终初始化变量,不要在不必要的情况下单独声明和初始化.

就是写

Dim stringParts As String() = wildcardString.Split("*")
' or,with Option Infer On:
Dim stringParts = wildcardString.Split("*")

此外,将布尔值与文字(If X = False …)进行比较是没有意义的.写吧

If fullString.Contains(str) Then

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!