28/02/2010, 08:57
|
| | | Fecha de Ingreso: febrero-2010
Mensajes: 33
Antigüedad: 14 años, 3 meses Puntos: 1 | |
| CAmbio de línea en archivos de texto
Hola buenas,
tengo un problema al leer un archivo de texto. El código que tengo es este:
dlgArchivo.InitDir = "C:\Escritorio"
dlgArchivo.Filter = "Archivos de Texto (*.txt)|*.txt|Todos los Archivo (*.*)|*.*"
dlgArchivo.ShowOpen
If dlgArchivo.FileName <> Empty Then
txtArchivo.Text = dlgArchivo.FileTitle
Open dlgArchivo.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, contenido
txtContenido.Text = txtContenido.Text & contenido
Loop
Close #1
Else
txtArchivo.Text = "No se pudo abrir archivo"
End If
El problema es que los cambios de línea no me los reconoce y lo que quería es que me los reconociera como un espacio. Si me pudiérais echar una mano os lo agradecería.
Gracias,
SaludoSS |