¿Ayudenme a corregir esta parte del codigo?
En este código deseo que en el text box aparezcan las cinco lineas del texto, sin embargo solo me aparece la ultima, ¿Alguien me podria ayudar?
Imports System.IO
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim srLector As StreamReader = New StreamReader("c:\test.txt")
Dim Linea As String
Dim ContadorLin As Integer = 1
Linea = srLector.ReadLine()
Do While Not (Linea Is Nothing)
TextBox1.Text = Linea
ContadorLin = ContadorLin + 1
Linea = srLector.ReadLine()
Loop
End Sub
End Class
Imports System.IO
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim srLector As StreamReader = New StreamReader("c:\test.txt")
Dim Linea As String
Dim ContadorLin As Integer = 1
Linea = srLector.ReadLine()
Do While Not (Linea Is Nothing)
TextBox1.Text = Linea
ContadorLin = ContadorLin + 1
Linea = srLector.ReadLine()
Loop
End Sub
End Class
Hola Logan:
Lo que tienes que hacer es ir concatenando la linea, por ese motivo solo te sale la ultima, porque es la ultima que recoge. Ejemplo:
Do While Not (Linea Is Nothing)
TextBox1.Text = TextBox1.Text & vbCrLf & Linea
ContadorLin = ContadorLin + 1
Linea = srLector.ReadLine()
Loop
Esta es una manera de hacerlo. El vbCrLf es el salto de linea.
La otra manera es crear un variable y pasarle la cadena al textbox:
Dim vCadena as String
Do While Not (Linea Is Nothing)
vCadena = vCadena & vbCrLf & Linea
ContadorLin = ContadorLin + 1
Linea = srLector.ReadLine()
Loop
TextBox1.Text = vCadena
Espero que te sirva.
Saludos
Ana
Lo que tienes que hacer es ir concatenando la linea, por ese motivo solo te sale la ultima, porque es la ultima que recoge. Ejemplo:
Do While Not (Linea Is Nothing)
TextBox1.Text = TextBox1.Text & vbCrLf & Linea
ContadorLin = ContadorLin + 1
Linea = srLector.ReadLine()
Loop
Esta es una manera de hacerlo. El vbCrLf es el salto de linea.
La otra manera es crear un variable y pasarle la cadena al textbox:
Dim vCadena as String
Do While Not (Linea Is Nothing)
vCadena = vCadena & vbCrLf & Linea
ContadorLin = ContadorLin + 1
Linea = srLector.ReadLine()
Loop
TextBox1.Text = vCadena
Espero que te sirva.
Saludos
Ana