Programación General > Visual Basic 6.0 e inferiores

 Abrir Archivo

(1/1)

RadicalEd:
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
--- Fin de la cita ---
[/color]
ME HAGO ENTENDER TENGO ESTE CODIGO PERO SOLO ME SIRVE PARA UNA LINEA COMO LO MEJORO

--- Código: Text --- Dim TextLineOpen TxtSave.Text For Input As #1 Do While Not EOF(1)     Line Input #1, TextLine     Text1.Text = TextLine  LoopClose #1    End Sub GRACIAS CHAO[/color]

Jose Arriagada:
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:
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

RadicalEd:
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

Navegación

[0] Índice de Mensajes