• Sábado 19 de Abril de 2014, 19:03

Autor Tema:  Abrir Archivo  (Leído 428 veces)

Edo

  • Moderador
  • ******
  • Mensajes: 2422
  • Nacionalidad: co
    • Ver Perfil
    • http://radicalpython.blogspot.com
Abrir Archivo
« en: Viernes 24 de Septiembre de 2004, 20:36 »
0

Publicidad 
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]
El pasado son solo recuerdos, el futuro son solo sueños

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Abrir Archivo
« Respuesta #1 en: Viernes 24 de Septiembre de 2004, 20:59 »
0
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

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Abrir Archivo
« Respuesta #2 en: Viernes 24 de Septiembre de 2004, 21:03 »
0
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

Edo

  • Moderador
  • ******
  • Mensajes: 2422
  • Nacionalidad: co
    • Ver Perfil
    • http://radicalpython.blogspot.com
Re: Abrir Archivo
« Respuesta #3 en: Viernes 24 de Septiembre de 2004, 21:10 »
0
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
El pasado son solo recuerdos, el futuro son solo sueños