Visual Basic.NET - leer linea por linea

   
Vista:

leer linea por linea

Publicado por jadder (1 intervención) el 22/11/2008 20:49:02
Hola como le hago para leer un fichero.txt lina por linea, ejemplo tengo un buttom1 y un textbox1 , lo que quiero hacer es que cada vez que le de al buttom1 en el textbox1 aparesca la primer linea y cuando le de nuevamente aparesca la segunda linea, asi .. etc

Muchas gracias amigos.
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

RE:leer linea por linea

Publicado por Sandra (13 intervenciones) el 02/12/2008 16:28:20
A ver si esto te sirve:

Imports System
Imports System.IO
Imports System.Collections

Public Class Form1
Dim i As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
i = i + 1
Dim objReader As New StreamReader("leer.txt")
Dim sLine As String = ""
Dim arrText As New ArrayList()
Dim arrayDatos
Dim longArray As Integer
Do
sLine = objReader.ReadLine()
If Not sLine Is Nothing Then
arrayDatos = Split(sLine, "-")
longArray = (UBound(arrayDatos))
If i - 1 <= longArray Then
TextBox1.Text = arrayDatos(i - 1)
arrText.Add(sLine)
Else
MsgBox("termino de leer el archivo")
TextBox1.Text = ""
End If
End If
Loop Until sLine Is Nothing
End Sub
End Class

*********************************************************************************************************************************************************************************************
El archivo leer.txt contiene lo siguiente:

111111111111111111111111111111-222222222222222222222222222222-333333333333333333333333333333-4444444444444444444444444444-55555555555555

*********************************************************************************************************************************************************************************************

Saludos,

Sandra
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar