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.
(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
Open "C:\hh.txt" For Binary Access Write As #1
Put #1, , "Variable"
Close #1
'leer un fichero
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
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.
Cita de: 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.
Para eso tienes la funcion
Instr que te dice la posicion en la que se encuentra un string dentro de otro.
mira este ejemplo:
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:
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.