Leer linea por linea un archivo de texto plano

[Pilotillo]

Buenas de nuevo,pues necesito leer linea por linea un archivo plano y cada linea mandarla a un textbox.
El problema es que lo hago segun la msdn y la primera linea me sale ok,pero no se como indicar la segunda linea lo he intentado con for next, pero nada, copio el codigo que llevo.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Declaramos la variable donde tenemos el archivo de texto
Dim text_file As String
text_file = "e:\julian.txt"
'Comprobamos que existe el archivo
If System.IO.File.Exists(text_file) Then
MsgBox("El archivo existe")
Else
MsgBox("El archivo no existe")
End If

' Primera(variable)

Dim leer0 As System.IO.StreamReader
leer0 = My.Computer.FileSystem.OpenTextFileReader(text_fil e)
Dim stringReader As String
stringReader = leer0.ReadLine()
TextBox1.Text = stringReader

'Segunda variable
Dim leer1 As System.IO.StreamReader
Dim stringreader1 As String
For i = 0 To 5

leer1 = My.Computer.FileSystem.OpenTextFileReader(text_fil e)
stringreader1 = leer1.ReadLine()

Next
TextBox2.Text = stringreader1


End Sub
End Class

Luego me gustaria pasar cada textbox a una celda de excel ,para tener un historico de esos datos ¿seria posible?

[bieres]

Hola:

Para leer cada linea puedes hacerlo de esta manera.

Código:

         static internal void Lee_Lineas(string fich)
         {
            string linea = null;
            StreamReader sr = new StreamReader(fich);
            while (!sr.EndOfStream)
            {
                linea = sr.ReadLine();
                // lo que quieras hacer con cada linea
            }
            sr.Close();
        }

[Pilotillo]

El problema es que de esa manera solo lee la primera linea

[Aquaventus]

Hola Pilotillo, espero esto resuelva tu duda, Pero antes tenes que importar el System.IO:

Código vb:

Dim lector As New StreamReader("C:\\texto.txt")
 
' Leer el contenido mientras no se llegue al final
        While lector.Peek() <> -1
            ' Leer una línea del fichero
            Dim linea As String = lector.ReadLine()
            ' Si no está vacía, añadirla al control
            ' Si está vacía, continuar el bucle
            If String.IsNullOrEmpty(linea) Then
                Continue While
            End If
 
            'Aqui ya haces segun lo que deseas con la variable "linea"
            'tu modificas a tu necesidad 
 
        End While
        ' Cerrar el fichero
        lector.Close()
 

Saludos!.