Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: RadicalEd en Viernes 24 de Septiembre de 2004, 20:36
Título: Abrir Archivo
Publicado por: RadicalEd en Viernes 24 de Septiembre de 2004, 20:36
HOLA CHICOS DE SOLOCODIGO AQUI ESTOY OTRA VEZ JODIENDO PERO EL QUE NO SABE PREGUNTA Y APRENDE. AQUI VA COMO HAGO PARA ABRIR UN ARCHIVO DE MULTIPLES LINEAS COMO ASI?, PUES QUE TENGA ESCRITO
Citar
HOLA QUIBO MAMA PAPA
[/color] ME HAGO ENTENDER TENGO ESTE CODIGO PERO SOLO ME SIRVE PARA UNA LINEA COMO LO MEJORO
Código: Text
Dim TextLine
Open TxtSave.Text For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
Text1.Text = TextLine
Loop
Close #1
End Sub
GRACIAS CHAO[/color]
Título: Re: Abrir Archivo
Publicado por: Jose Arriagada en Viernes 24 de Septiembre de 2004, 20:59
Usa lo siguiente
Dim TextLine AS STRING DIM strLinea as string Open TxtSave.Text For Input As #1 strLinea=EMPTY Do While Not EOF(1) Input #1, TextLine strLinea=strLinea & vblf & TextLine Loop Close #1 Text1.text=strLinea End Sub
Ojo: Debes tener las siguientes propiedades en el Text1 MultiLine=true ScrollBars=Vertical
Título: Re: Abrir Archivo
Publicado por: Jose Arriagada en Viernes 24 de Septiembre de 2004, 21:03
La otra solucion que es mucho mas rapida y efectiva es:
Ve al menu Proyectos-> Componentes y haz click sobre el componente: Microsoft Rich TextBox Control 6.0
Agrega este control a tu Form y usa el siguiente codigo
Private Sub Form_Load() Dim Archivo as string Archivo="C:\MISDOCTOS\MIARCHIVO.TXT" '<- Ruta y nombre del archivo de entrada RichTextBox1.LoadFile Archivo End Sub
Título: Re: Abrir Archivo
Publicado por: RadicalEd en Viernes 24 de Septiembre de 2004, 21:10
GRACIAS POR EL PRIMER CODIGO ME SIRVIO DE MUCHO PERO LO PREFIERO ASI YA QUE NO ME TOCARIA AGREGAR CONTROLES PESADOS AL PROGRAMA GRACIAS CHAO