Hola Amigos estoy creando una aplicacion que me crea archivos planos
por ejemplo esto... No tiene ningun problema y crea el archivo
Public Sub crear()
Try
Dim strescritor As StreamWriter
Dim strruta As String = ("D:\cortesuprema.txt")
strescritor = New StreamWriter(strruta)
strescritor.WriteLine(Me.RichTextBox1.Text)
strescritor.Close()
MsgBox("OK")
Catch ex As Exception
MsgBox("FALLO CREACIÒN DE ARCHIVO")
End Try
End Sub
pero cuando lo voy a leer
Public Sub leer_archivo()
Dim strruta As String = ("D:\cortesuprema.txt")
Me.RichTextBox1.Refresh()
Me.RichTextBox1.Multiline = True
Try
Dim strreader As New StreamReader(strruta)
Dim linea As String
Dim contador As Integer = 1
linea = strreader.ReadLine
Do While Not (linea Is Nothing)
Me.RichTextBox1.Text += linea & " "
contador += 1
linea = strreader.ReadLine
Loop
Catch ex As Exception
MsgBox("FALLÒ LECTURA DE ARCHIVO", MsgBoxStyle.Critical)
End Try
End Sub
me lo trae pero no con los saltos de linea sino todo pegado me explico;
si yo por ejemplo ingrese de esta manera
primera linea
segunda linea
tercera linea
lo que me trae es:
primera lineasegunda lineatercera linea
y no se por que
agradezco cualquier colaboracion
Gracias y Saludos
