CAmbio de línea en archivos de texto

[sitiom]

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

[erbuson]

Si te refieres que en esta sentencia:
txtContenido.Text = txtContenido.Text & contenido

no hay separación entre una y otra linea, deberías añadir al final
txtContenido.Text = txtContenido.Text & contenido & " "

con lo que conseguirás lo que quieres.

Saludos

[sitiom]

Muchas gracias erbuson funciona correctamente. Me queda otra duda, ¿es posible que los cambios de línea aparezcan en el TextBox? Es decir, que si el archivo de texto tiene 4 líneas, en el TextBox también aparezcan? Muchas gracias por su tiempo.
Saludos!!!

[erbuson]

De la manera que lo estas procesando, simplemente debes sustituir el " " comentado en el anterior mensaje por vbCrLf o sea:

txtContenido.Text = txtContenido.Text & contenido & vbCrLf

De este modo lo que haces es añadir a cada linea los Intros que indican el fin de registro.

De todos modos, si lo que pretendes es leer TODO un fichero secuencial, la manera mas rápida es esta:

Código:

Private Sub Command1_Click()
  Dim Numero As Integer, Fichero As String
  Fichero = "C:\ElFichero.txt"
  Numero = FreeFile
  Open Fichero For Binary As #Numero
    Text1 = Input(LOF(Numero), Numero)
  Close #Numero
End Sub

Abres el fichero en modo Binario y de una "tacada" lo lees todo asignándolo a l textBox directamente.

Saludos

[sitiom]

Muchas gracias!!! Has sido muy rápido y muy atento. De verdad me has ayudado mucho.
Gracias y un saludo