VB.NET 列表中的 If-Else

Question

我只是想知道 VB.NET 中是否有一种方法可以查找列表中是否存在特定值或可以在我的 If-else 条件中使用的值。我现在正在做的是使用这个：

If ToStatus = "1CE" Or ToStatus = "2TL" Or ToStatus = "2PM" Then
    'Do something
Else
    'Do something
End If

这工作得很好，但是如果我将来有数百个字符串要与 ToStatus 进行比较怎么办？这将是一场噩梦！现在，如果存在这样的功能，我如何在语句中添加“And”和“Or”？

提前致谢！

Answer 1

您可以使用 Contains 函数：

Dim someList = New List(Of String) From { ... }
If Not someList.Contains(ToStatus) Then

Answer 2

您可以执行以下操作：

If {"1CE","2TL","2PM"}.Contains(ToStatus) Then
    ' ...
End If

Answer 3

就像 Slaks 指出的一样，您可以在 enumerable 上使用 Contains收藏。但我认为可读性会受到影响。我不在乎某个列表是否包含我的变量；我想知道我的变量是否在某个列表中。

您可以将 contains 包装在扩展方法中，如下所示：

Imports System.Runtime.CompilerServices
Module ExtensionMethods

    <Extension()> _
    Public Function [In](Of T)(ByVal item As T, ByVal ParamArray range() As T) As Boolean
        Return range.Cast(Of T).Contains(item)
    End Function

End Module

然后像这样调用：

If ToStatus.In("1CE","2TL","2PM") Then

Answer 4

你可以使用选择案例

select case A
   case 5,6,7,8
       msgbox "you are in"
   case else
       msgbox "you are excluded"
end select

Answer 5

对于 .NET 2.0

我遇到了 SLaks 解决方案不起作用的另一个问题，即如果您使用 .NET 2.0，其中方法 Contains 不存在。所以这是解决方案：

If (Array.IndexOf(New String() {"1CE", "2TL", "2PM"}), ToStatus > -1) Then
    'Do something if ToStatus is equal to any of the strings
Else
    'Do something if ToStatus is not equal to any of the strings
End If

VB.NET - Array.Contains 的替代方案？

Answer 6

从列表中删除重复项

Dim ListWithoutDuplicates As New List(Of String)
For Each item As String In ListWithDuplicates

    If ListWithoutDuplicates.Contains(item) Then

     ' string already in a list - do nothing

    Else

        ListWithoutDuplicates.Add(item)

    End If

Next