Hola gente!
Tito, te muestra el ultimo, porque estas haciendo un while, que cada vez lee una línea y la coloca en los campos de texto que tienes en el formulario. O sea, lee línea 1 y pone el contenido en el formulario. Lee línea 2 y pone el contenido en el formulario. Lee línea 3 . Lee ultima línea y pone el contenido en el formulario. Con lo que siempre queda visible la ultima línea. No se cual es el problema a resolver, pero veria de usar, como baby step, simplemente System.IO.File.ReadAllLines(DGBox.FileName) Que te devuelve un arreglo con todas las lineas. Ahí vas a estar mas comodo para procesar lo que quieras, en el orden que quieras y demás. Nos leemos! Angel Java Lopez @ajlopez github:ajlopez From: [email protected] [mailto:[email protected]] On Behalf Of Tito Molina Sent: Wednesday, January 09, 2013 11:14 AM To: vbnet List Member Subject: [vbnet] consulta sobre archivo de texto Hola, resulta que quiero recorrer todas las lineas de un archivo de texto. Cuando ejecuto el siguiente código me muestra el último Private Sub btnCargarArchivo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCargarArchivo.Click Dim DGBox As New OpenFileDialog DGBox.Filter = "Archivos de texto plano (.txt)|*.txt" DGBox.Multiselect = False DGBox.ShowDialog() If DGBox.FileName.Length > 0 Then Using Archivo As New System.IO.StreamReader(DGBox.FileName) Dim Columna() As String While Not Archivo.EndOfStream Columna = Archivo.ReadLine.Split(";") txtCasa.Text = String.Format("{0}", Columna(0)) txtOficina.Text = String.Format("{0}", Columna(1)) txtCuenta.Text = String.Format("{0}", Columna(2)) txtAño.Text = String.Format("{0}", Columna(3)) txtMes.Text = String.Format("{0}", Columna(4)) txtImporte.Text = String.Format("{0:C}", Columna(5)) txtNumeroCuota.Text = String.Format("{0}", Columna(6)) txtDNI.Text = String.Format("{0}", Columna(7)) txtReparticion.Text = String.Format("{0}", Columna(8)) txtBoleta.Text = String.Format("{0}", Columna(9)) txtAfiliado.Text = String.Format("{0}", Columna(10)) End While End Using End If End Sub Me interesaría saber como hacer para leer la primera fila de dicho registro. Luego yo me daría maña para leer cualquier fila que es lo que en realidad quiero hacer. Muchas gracias -- Roberto Miguel Molina
