Buscar en archivo Curso de Programación Visual Basic

Lección:

Gestión Dinámica de Memoria


Ejercicio:

Buscar en archivo 7


Objetivo:

Cree un programa para leer un archivo de texto y pida al usuario oraciones para buscar en él.

Leerá todo el archivo, lo almacenará en un ArrayList, pedirá al usuario una palabra (u oración) y mostrará todas las líneas que contienen dicha palabra. Luego pedirá otra palabra y así sucesivamente, hasta que el usuario ingrese una cadena vacía.


Código:

Imports System
Imports System.Collections
Imports System.IO
Namespace Contains
    Class Program
        Private Shared Sub Main(ByVal args As String())
            Dim myfile As StreamReader = File.OpenText("text.txt")

            Try
                Dim list As ArrayList = New ArrayList()
                Dim line As String

                Do
                    line = myfile.ReadLine()
                    If line IsNot Nothing Then list.Add(line)
                Loop While line IsNot Nothing

                myfile.Close()
                Dim sentence As String
                Dim [exit] As Boolean = False

                Do
                    Console.Write("Enter word or sentence: ")
                    sentence = Console.ReadLine()

                    If sentence = "" Then
                        [exit] = True
                    Else

                        For i As Integer = 0 To list.Count - 1
                            Dim sentenceList As String = CStr(list(i))

                            If sentenceList.Contains(sentence) Then
                                Console.WriteLine(sentenceList)
                            End If
                        Next
                    End If
                Loop While Not [exit]

            Catch e As Exception
                Console.WriteLine("Error, " & e.Message)
            End Try
        End Sub
    End Class
End Namespace