Como abrir y leer un fichero de texto en visual basic?

[El_Marine]

Hola, queria saber como puedo puedo ir leyendo de un fichero de texto y almacenandolo en un text1 o en otro fichero de texto...

Espero sus respuestas, muchas gracías por adelantado,saludos.

[WarGhost]

es algo muy elemental de vb6.

Dos ejemplo muy básicos:

'Escribir un Fichero

Código [Seleccionar] Expandir

Open "C:\hh.txt" For Binary Access Write As #1
Put #1, , "Variable"
Close #1

'leer un fichero

Código [Seleccionar] Expandir

dim data as string
Open "C:\hh.txt"  For Binary As #1
data = Space(LOF(1))
Get #1, , data
Close #1
msgbox data

Salu2

[El_Marine]

Como puedo hacer, para que, por ej, en un text1 ponga; leer desde: hola,  y en otro text: hasta luego.


Como puedo hacer para que lea desde la palabra hola, hasta que encuentre la palabra hasta luego?

Espero sus respuestas,saludos.

[Gorky]

Como puedo hacer, para que, por ej, en un text1 ponga; leer desde: hola,  y en otro text: hasta luego.


Como puedo hacer para que lea desde la palabra hola, hasta que encuentre la palabra hasta luego?

Espero sus respuestas,saludos.

Para eso tienes la funcion Instr que te dice la posicion en la que se encuentra un string dentro de otro.

[WarGhost]

mira este ejemplo:

Código [Seleccionar] Expandir

Dim data As String
Open "C:\beta.txt" For Binary As #1
data = Space(LOF(1))
Get #1, , data
Close #1

MsgBox Mid(data, InStr(1, UCase(data), "HOLA"), InStr(1, UCase(data), "HASTA LUEGO"))

el texto del fichero es:

Código [Seleccionar] Expandir


dfgdfgdfg
dfgdfgdfg
hola
Texto
Texto
Texto
Texto
Texto
Texto
Texto
Texto
Texto
hasta luego
sdfsfsdfsdf
sdfdfgdgdgf
dsf

simplemente empieza a leer desde el hola y termina en el hasta luego.