Pesquisando valores nos elementos de um array usando o método FindAll e um predicate

'Este exemplo mostra como pesquisar valores em um
'array usando o método FindAll e um predicate. Uma
'matriz é retornada com todos os valores que se
'encaixam nas condições da pesquisa.

'Neste exemplo vamos obter os valores que começam com
'a letra "C"

Module Module1
  Sub Main()
    ' cria um array de strings
    Dim cidades() As String = {"Goiânia", "Cuiabá", "Curitiba", _
      "São Paulo", "Florianópolis"}

    'obtém os nomes de cidades que começam com a letra "C"
    Dim nomes() As String = Array.FindAll(cidades, _
       AddressOf Encontrar)
    'exibe os valores encontrados
    For i As Integer = 0 To nomes.Length - 1 Step 1
      Console.WriteLine(nomes(i))
    Next

    Console.ReadKey()
  End Sub

  Private Function Encontrar(ByVal str As String) As Boolean
    If str.StartsWith("C") Then
      Return True
    Else
      Return False
    End If
  End Function
End Module