Visual Basic.NET - Obtener la linea completa de un txt

   
Vista:

Obtener la linea completa de un txt

Publicado por German Martin (1 intervención) el 11/06/2008 18:31:11
Estimados, necesito de su ayuda (en VB.2005), quizas alguien tenga la respuesta, no es algo complicado.

Estoy haciendo un programa para revisar mas rapidamente los archivos logs de mi empresa.
Con este codigo he podido hacer que la palabra "error" sea buscada en un directorio y luego
pegue en un listbox la direccion completa y nombre del archivo.

Lo que necesito hacer (y no se me ocurre como) es lo siguiente:
que la linea completa donde se encuentra la palabra "error" me la muestre en un label o listbox y que tambien me muestre la linea anterior y posterior.

Ej:
Mi backup salio mal y el LOG tiene esto:

********************************************************************************************************
0 \servidor1aplicacsFactoring
0 \servidor1aplicacsFactoringUltimaversion
18 \servidor1aplicacsFactoringUltimaversionDlls
12 \servidor1aplicacsFactoringUltimaversionEjecutables
251 \servidor1aplicacsFactoringUltimaversionEjecutablesSupport
123 \servidor1aplicacsFactoringUltimaversionReportes

Waiting 30 seconds... Retrying...
2008/06/11 00:01:50 ERROR 5 (0x00000005) Scanning Destination Directory \servidor2aplicacs
Access is denied.
********************************************************************************************************

Yo necesito pegar en un label estas lineas
-----------------------------------------------------------------------------------------------------
Waiting 30 seconds... Retrying...
2008/06/11 00:01:50 ERROR 5 (0x00000005) Scanning Destination Directory \servidor2aplicacs
Access is denied.
-----------------------------------------------------------------------------------------------------


Este es mi simple codigo hasta ahora:

Try
'Aqui busca en un directorio los archivos que tienen el texto error

Dim Archivo As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
' busca "Error" en un solo nivel ( SearchTopLevelOnly ) en el directorio c:
Archivo = My.Computer.FileSystem.FindInFiles( _
"C:LOGS", _
"Error", _
True, _
FileIO.SearchOption.SearchTopLevelOnly)
' recorre la lista
For Each name As String In Archivo
' Agrega
ListBox1.Items.Add(name)
Next
' error
Catch oe As Exception
MsgBox(oe.Message, MsgBoxStyle.Critical)
End Try


Muchas muchas gracias maestros!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder