VB.Net filtre tableau équivalent de VB6

Question

Googling google pendant une heure et n'arrive pas à trouver la réponse. Ce qui suit va supprimer « stupide » et imprime « Bonjour tout le monde »

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

Quel est l'équivalent VB.Net pour filtre? Toute aide serait grandement appréciée! Edit: (Je suis à la recherche d'une solution Framework 2.0 NET)

Answer 1

Pour .NET 2.0 vous pouvez utiliser la méthode Array.FindAll, comme ceci:

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

Usi ng ce prédicat:

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

Answer 2

Quelque chose comme ça peut-être (Suppose VB 10):

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

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

Une alternative est d'utiliser Sauf (qui est disponible en .Net 3.5) :

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

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