[SOLUCIONADO] leer ultimas 5 lineas de un txt

[shaka025]

Que tal buen día... Espero me puedan ayudar...

Quisiera saber como puedo hacerle para que se pueda leer las ultimas 5 lineas de un archivo de texto.....

Soy nuevo en esto y quisiera que me pudieran ayudar ya que ando completamente perdido...

tengo instalado visual studio 2008 y estoy programando con visual "basic"

Espero me puedan orientar a como realizarlo....

[Namiwis]

Código:

Dim TXT_Parseado As New List(Of String)()

'Leo el archivo TXT desde su origen.
Dim Sr As New StreamReader("RutadelTXT", Encoding.[Default])

'Vacio el vector.
TXT_Parseado.Clear()

'Leo linea por linea para meterlo al vector que contenera el TXT
Do
	'Leo la Linea
	sLine = Sr.ReadLine()
	If (sLine IsNot Nothing) Then
		'Agrego los valores al vector.
		TXT_Parseado.Add(sLine.Trim())
	End If
Loop While Not (sLine Is Nothing)
'Cierro el objeto.
Sr.Close()

Con eso ya tienes el TXT en un Vector TXT_Parseado, ahora solo Lee las ultimas Lineas

Algo como esto.

Tuvariable = TXT_Parseado(TXT_Parseado.Count - 1).ToString()
Tuvariable = TXT_Parseado(TXT_Parseado.Count - 2).ToString()
Tuvariable = TXT_Parseado(TXT_Parseado.Count - 3).ToString()
Tuvariable = TXT_Parseado(TXT_Parseado.Count - 4).ToString()
Tuvariable = TXT_Parseado(TXT_Parseado.Count - 5).ToString()

Espero te sirva

[shaka025]

muchas gracias por la informacion, me sirvio como guia... ya que me cambarion el modo de tomar las lineas les pido me puedan orientar como hacerlo...

Esto es algo de lo que llevo

fichero = ruta de archivo txt

Código:

        Dim Linea As New System.IO.StreamReader(fichero)
        Dim texto As String
        For i=500 to 525
            texto = Linea.readLine()
            System.Console.WriteLine(texto) 'escribe en consola
        Next
    End Sub

Lo que necesito es que pueda mostrarme en consola de las lineas 500 hasta la 525 pero como lo tengo solo me muestra las primeras 25 lineas del txt puesto que el readLine empieza desde la primera liena y no de la 500 a la 525..

Lo que quiero es que el readline empieze desde la variable i y termine de mostrar hasta que se acabe el for...

Espero me halla podido entender...

En espera de respuesta, envio un cordial saludo.

[angel1993]

Prueba esto, lee las últimas 5 líneas...

Código vb:

Dim Lineas() As String = System.IO.File.ReadAllLines("f:\SkyDrive\Descargas\prueba.txt")
      Dim texto As String
      For i = (Lineas.Length - 6) To (Lineas.Length - 1)
         texto = Lineas(i)
      Next
 

[shaka025]

Iniciado por angel1993

Prueba esto, lee las últimas 5 líneas...

Código vb:

Dim Lineas() As String = System.IO.File.ReadAllLines("f:\SkyDrive\Descargas\prueba.txt")
      Dim texto As String
      For i = (Lineas.Length - 6) To (Lineas.Length - 1)
         texto = Lineas(i)
      Next
 

Eso es lo que necesitaba muchisimas gracias amigo....
Es mas sencillo del que yo estaba haciendo...
Saludos desde Guanajuato.