Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: El_Marine en 28 Septiembre 2006, 04:10 am



Título: Como abrir y leer un fichero de texto en visual basic?
Publicado por: El_Marine en 28 Septiembre 2006, 04:10 am
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.


Título: Re: Como abrir y leer un fichero de texto en visual basic?
Publicado por: WarGhost en 28 Septiembre 2006, 14:19 pm
(http://foro.elhacker.net/Themes/default/images/spanish/search.gif) (http://foro.elhacker.net/Themes/default/images/spanish/search.gif)

es algo muy elemental de vb6.

Dos ejemplo muy básicos:

'Escribir un Fichero
Código:
Open "C:\hh.txt" For Binary Access Write As #1
Put #1, , "Variable"
Close #1

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

;D Salu2


Título: Re: Como abrir y leer un fichero de texto en visual basic?
Publicado por: El_Marine en 29 Septiembre 2006, 03:30 am
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.


Título: Re: Como abrir y leer un fichero de texto en visual basic?
Publicado por: Gorky en 29 Septiembre 2006, 10:30 am
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.


Título: Re: Como abrir y leer un fichero de texto en visual basic?
Publicado por: WarGhost en 29 Septiembre 2006, 13:13 pm
mira este ejemplo:

Código:
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:
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.