String。包含未按预期工作

Question

我有54​​,000个文件，每个文件的命名方法略有不同，我需要检查文件名是否包含特定的字符串。但是，我找不到使Select语句正常工作的方法。

我的代码意外失败。请谁能告诉我为什么在“ BARITONE”中找不到字符串“ BAR”？

---

Dim tempCheck as string = "1st BARITONE"
Dim GoodOne as Boolean = False
Select Case tempCheck
    Case tempCheck.Contains("CORN")
        GoodOne = True
    Case tempCheck.Contains("HORN")
        GoodOne = True
    Case tempCheck.Contains("BAR")
        GoodOne = True
    Case tempCheck.Contains("TROM")
        GoodOne = True
    Case tempCheck.Contains("EUP")
        GoodOne = True
    Case Else
        GoodOne = False
End Select

Answer 1

像这样尝试：

    Dim tempCheck as string = "1st BARITONE"
    Dim GoodOne as Boolean = False
    Select Case True
        Case tempCheck.Contains("CORN")
            GoodOne = True
        Case tempCheck.Contains("HORN")
            GoodOne = True
        Case tempCheck.Contains("BAR")
            GoodOne = True
        Case tempCheck.Contains("TROM")
            GoodOne = True
        Case tempCheck.Contains("EUP")
            GoodOne = True
        Case Else
            GoodOne = False
    End Select

SELECT CASE在这样的字符串上不起作用（您必须将字符串与字符串进行比较，在这种情况下，必须将其与布尔值进行比较）。与布尔值相比，它确实适用于布尔值