Check whether a string is not equal to any of a list of strings

Question

Is there a way to convert some code like this:

If someString <> \"02\" And someString <> \"03\" And someString <> \"06\" And someString <>         


        

Answer 1

You can (ab)use Select for this in simple cases:

Select Case someString
    Case "02", "03", "06", "07"
    Case Else
        btnButton.Enabled = False
End Select

Also, a common extension that I use is:

Function [In](Of TItem, TColl)(this As TItem, ParamArray items() As TColl)
    Return Array.IndexOf(items, this) > -1
End Function

So:

If Not someString.In("02", "03", "06", "07") Then
    btnButton.Enabled = False
End If