SoloCodigo

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
  1.  
  2. Dim TextLine
  3. Open TxtSave.Text For Input As #1
  4. Do While Not EOF(1)
  5.     Line Input #1, TextLine
  6.     Text1.Text = TextLine  
  7. Loop
  8. Close #1    
  9. End Sub
  10.  
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