none
Buscar palabras en archivo de texto y mostrarlas en listbox RRS feed

 > 

  • Pregunta

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Hola, estoy ingresando al mundo de VB.Net. Ya tengo los conceptos de programación en general, por lo que quiero arrancar haciendo este ejercicio que me propuse, en el cual tendría que hacer un programa que busque palabras en un archivo .txt:

    Crear un form con un listbox, un textbox y 2 botones: "Examinar" y "Buscar".

    El boton "Examinar"deberá seleccionar la ruta de un archivo en texto plano.

    En el textbox se ingresará la palabra a buscar.

    El boton "Buscar" deberá ejecutar la accion de buscar todas las palabras en el texto seleccionado. 

    En el listbox finalmente se mostraran todas las lineas en las que aparece esa palabra.

    Obviamente tengo que ir por partes. Primero quisiera hacer la funcion de busqueda. Por ahora la haría con una ruta estatica: (Ej: c:/texto.txt) y despues veré como adaptar la ruta a la seleccionada en el boton "Examinar".

    Agradecería cualquier código de ejemplo o ayuda que me sirva para realizar esta primer parte. Gracias!!!

    lunes, 15 de junio de 2015 16:05
    |

Respuestas

  • Question
    Inicie sesión para votar
    1
    Inicie sesión para votar

    Puedes hacer algo parecido.

    Lees linea a linea el archivo y si en una fila existe la palabra entonces lo metemos en un Stringbuilder

    Private Sub btnBuscar_Click(sender As Object, e As EventArgs)
	Dim counter As Integer = 0
	Dim line As String
	Dim sb As New StringBuilder()

	' Leer el fichero              
	Using file As New System.IO.StreamReader("c:\texto.txt")
		While (line = file.ReadLine() AndAlso line IsNot Nothing)
			If line.Contains(txtSearchWord.Text) Then
				' añadimos la linea que contiene la palabra       
				sb.AppendLine(line.ToString())
			End If
		End While
	End Using
	txtResult.Text = sb.ToString()
End Sub

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos




    lunes, 15 de junio de 2015 16:22
    |