VB.Net滤波器阵列等效于VB6

Question

一直使用谷歌搜索，似乎无法找到答案。下面将删除“愚蠢”，并打印出“Hello World”的

Dim arr As Variant: arr = Array("hello", "stupid", "world") 
Dim newArr As Variant: newArr = Filter(arr, "stupid", False) 
Debug.Print Join(newArr, " ") 

什么是VB.Net等效过滤器？任何帮助将不胜感激！编辑：（我正在寻找一个2.0 NET框架解决方案）

Answer 1

对于.NET 2.0，你可以使用Array.FindAll方法，像这样：

Dim arr As String() = New String() {"hello", "stupid", "world"} 
Dim newArr As String() = Array.FindAll(arr, AddressOf RemoveElements) 

USI ng这个谓词：

Private Shared Function RemoveElements(ByVal s As String) As Boolean 
    Return Not s.Equals("stupid") 
End Function 

Answer 2

像这样的东西也许（假设VB 10）：

Dim arr As String() = {"hello", "stupid", "world"} 

Dim filteredArray = (from s in arr 
        Where s <> "stupid" 
        Select s).ToArray() 

另一种方法是，区别在于使用（这是可用在.net 3.5） ：

Dim words As String() = {"hello", "stupid", "world"} 
Dim excludedWords As String() = {"stupid"} 

Dim filteredArray = words.Except(excludedWords).ToArray()