Ejercicio
Buscar en archivo
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