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

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]

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

SoloCodigo

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

RadicalEd

Abrir Archivo

Jose Arriagada

Re: Abrir Archivo

Jose Arriagada

Re: Abrir Archivo

RadicalEd

Re: Abrir Archivo