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()