COMO FAZER UMA FILTRAGEM EFICIENTE COM STREAM

    [ô][ô][ô] <summary>
    [ô][ô][ô] -------------------------------------
    [ô][ô][ô] Função para filtrar em uma ListView.
    [ô][ô][ô] -------------------------------------
    [ô][ô][ô] <param name=[Ô] Indica_Ficheiro[Ô]>Indicar onde ler o arquivo de texto</param>
    [ô][ô][ô] <param name=[Ô]Quadro[Ô]>Nome da ListView a utilizar</param>
    [ô][ô][ô] <param name=[Ô]Filtrar_Palavra[Ô]>Pavavra a ser filtrada.</param>
    [ô][ô][ô] 
    [ô][ô][ô] </summary>
    Public Sub Filtrar_Dados(ByVal Indica_Ficheiro As String, ByVal Quadro As System.Object, ByRef Filtrar_Palavra As String)
        [ô]declara um streamReader e passa o caminho e nome do arquivo texto

        Quadro.Items.Clear()
        If ExisteFicheiro(Indica_Ficheiro) = True Then
            If ContaLinhas(Indica_Ficheiro) = 0 Then Exit Sub
            Dim SR As New StreamReader(Indica_Ficheiro)
            Try
                [ô] variavel que trata as linhas que são lidas
                Dim strTemp() As String

                Do While SR.Peek <> -1 [ô] Utilize Peek para ler o arquivo até que não haja mais linhas

                    [ô] cria uma variavel para o ListViewItems
                    Dim LVItem As New ListViewItem

                    [ô] Le a proxima linha no arquivo e a separa se estiver usando TAB
                    strTemp = SR.ReadLine.Split([Ô]|[Ô])

                    [ô] Extrai o primeiro elemento na linha e atribui os dados a primeira coluna

                    If strTemp(0).ToString.Contains(Filtrar_Palavra) Then
                        [ô]  Inclui o item no ListView
                        [ô]  Atribui as demais linhas ao subitens
                        LVItem.Text = strTemp(0).ToString
                        LVItem.SubItems.Add(strTemp(1).ToString)
                        LVItem.SubItems.Add(strTemp(2).ToString)
                        Quadro.Items.Add(LVItem)
                    ElseIf Filtrar_Palavra = Nothing Then
                        LVItem.Text = strTemp(0).ToString
                        LVItem.SubItems.Add(strTemp(1).ToString)
                        LVItem.SubItems.Add(strTemp(2).ToString)
                        Quadro.Items.Add(LVItem)
                    End If

                Loop
                [ô]SR.Dispose()
                [ô] SR.Close() [ô] fehca o StreamReader 

            Catch ex As Exception
                MessageBox.Show([Ô]Erro ao ler o arquivo.[Ô], [Ô]Atenção:[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                SR.Dispose()
                SR.Close()
            End Try
        End If

    End Sub