Visual Basic - Leer archivos de texto

Life is soft - evento anual de software empresarial
   
Vista:

Leer archivos de texto

Publicado por Alber (7 intervenciones) el 28/02/2010 12:48:42
Hola buenas,
he hecho un pequeño programa que lee archivos de texto y los muestra en un TextBox. El problema reside en que no reconoce los cambios de línea y al mostrarlos por pantalla la línea anterior me la pone junta, es decir, sin ningún espacio. Os lo enseño con un ejemplo:
Archivo de texto (original):
Esto es un archivo de texto
de prueba. El problema reside
en los cambios de línea.

El TextBox me lo pondría así:
Esto es un archivo de textode prueba. El problema resideen los cambios de línea.

Como podéis observar me junta las palabras de cambio de línea. Si me podéis echar una mano os lo agradecería.
Gracias y un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de A.H.H

RE:Leer archivos de texto

Publicado por A.H.H (116 intervenciones) el 28/02/2010 20:17:56
Hola
tienes que poner las propiedades del textbox:

Multiline= true

ScrollBars= 3 - Both

te pongo un ejemplo para leer archivo de texto por si acaso:

Private Sub Command1_Click()
Dim ruta As String
ruta = "larutaalarchivo.txt" 'metemos en la variable ruta la ruta hacia el archivo de txt'
'Abre el archivo indicado
Open ruta For Input As #1

'Lee todo los datos del archivo y lo almacena en la variable
CONTENIDO = Input$(LOF(1), #1)

'Cierra el archivo abierto
Close #1

'Carga el contenido de la variable en el TextBox
Text1.Text = CONTENIDO

End Sub

salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Leer archivos de texto

Publicado por Alber (7 intervenciones) el 01/03/2010 01:20:56
OK!!! Gracias por la respuesta, me ha sido muy útil.
Saludoss
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar