Question

我正在设置一个程序，以测试文本框是否包含某些值并且不包含其他某些值。

For I = 0 To 3

    If textbox(I).Contains("m") And Not textbox(I).Contains(unit(0)) And Not textbox(I).Contains(unit(1)) And Not textbox(I).Contains(unit(2)) Then

        txtResult = textbox(I)

    End If

Next I

代码有效，但是我想知道是否有一种简化方法

textbox(I).Contains(unit(0)) And Not textbox(I).Contains(unit(1)) And Not textbox(I).Contains(unit(2))

正如在实际代码中一样，程序通过的“ unit(I)”值更多，这已得到简化。

Answer 1

尽管问题中的变量名令人困惑，但您似乎想要这样的东西：

Module Module1

    Sub Main()
        Dim data = {"am", "b", "cm", "d"}
        Dim unit = {"c", "d", "e"}

        For i = 0 To 3
            Dim ii = i
            If data(ii).Contains("m") AndAlso Not (unit.Any(Function(x) data(ii).Contains(x))) Then
                Console.WriteLine(data(ii))
            End If
        Next

        Console.ReadLine()

    End Sub

End Module

输出：

am

Dim ii = i的原因是using the iteration variable in a lambda expression may have unexpected results。

有没有一种方法可以简化使用同一数组的多值？

1 个答案: