VB.NET - 在 ArrayList、StringCollection 或 List(Of String) 中查找子字符串

Question

我有一些代码可以创建用户所属的 AD 组列表，其目的是说“如果用户是 GroupX 的成员，则允许管理员访问，如果不允许基本访问”。

我使用 StringCollection 来存储此组列表，并打算使用 Contains 方法来测试我的管理组的成员身份，但问题是此方法仅比较完整字符串 - 但我的 AD 组值的格式为 <代码>cn=GroupX，等等...。

我希望能够轻松确定特定子字符串（即“GroupX”）是否出现在组列表中。我总是可以遍历组检查每个组是否有代表我的 AD 组名称的子字符串，但我更感兴趣的是找出是否有“更好”的方法。

显然，组列表有许多存储库，并且似乎泛型（List(Of String)）更常见（无论如何我都可以很好地实现），但没有内部-也可以使用此方法构建检查子字符串的方法。

有什么建议吗？或者我应该迭代组列表？

结果：

我决定使用 List(Of)，并且借用了 Dan 的代码来迭代列表。

Answer 1

我认为您不会找到比枚举集合*更好的方法。

也就是说，这是一个独立于集合类型的好方法：

Public Function ContainsSubstring(ByVal objects As IEnumerable, ByVal substring As String) As Boolean
    Dim strings = objects.OfType(Of String)()
    For Each str As String in strings
        If str.Contains(substring) Then Return True
    Next

    Return False
End Function

这是解决“使用哪个集合？”的好方法。问题是因为基本上所有集合，无论是否通用（ArrayList、List(Of String) 等），都实现 IEnumerable。

_{*为什么我相信这即将到来的理由。}

Answer 2

编写一个辅助函数来迭代检查子字符串并返回布尔标志的项目似乎是您最好的选择。

Answer 3

您可以为此使用谓词函数。这是一个布尔函数，可以帮助您过滤掉一些条目。

例如，要从列表中获取非隐藏文件：

Public ReadOnly Property NotHiddenFiles As List(Of FileInfo)

    Get
        Dim filesDirInfo As New DirectoryInfo(FileStorageDirectory)
        Return filesDirInfo.GetFiles.ToList.FindAll(AddressOf NotHiddenPredicate)
    End Get

End Property



Private Function NotHiddenPredicate(ByVal f As FileInfo) As Boolean

    Return Not ((f.Attributes And FileAttributes.Hidden) = FileAttributes.Hidden)

End Function