
Cómo avanzar una linea en fichero con -input-
Publicado por Toni (129 intervenciones) el 19/03/2013 00:10:25
Bueno, estoy bloqueado, lo que debe ser muy fácil resulta que no doy con ello.
Quiero poder avanzar a la línea siguiente de un fichero de texto cuando lo estoy leyendo, sin esperar a que llegue al "Wend"
Supongamos que en la linea 1 tengo el valor de "nombre" y en la segunda linea el valor de "apellido"
Quiero tomar esos dos datos en dos variables para poder agregarlos a una tabla. No se pasar a la segunda linea, algo así como "movenext" pero aplicado al fichero.
Dim Linea as string
Open archivo2 For Input As 1
While Not EOF(1)
Line Input #1, Linea
'en este punto cojo datos del fichero para agregarlos a una tabla.
nnombren = Mid(Linea, 22, 40)
'Ahora necesito pasar a la siguiente linea del fichero para seguir tomando
'datos ya que pertenecen al mismo registro aunque figuren en la segunda linea.
napellido= Mid(Linea, 22,50)
wend
Seguramente es muy facil pero lo siento, estoy bloqueado.
Gracias.
Quiero poder avanzar a la línea siguiente de un fichero de texto cuando lo estoy leyendo, sin esperar a que llegue al "Wend"
Supongamos que en la linea 1 tengo el valor de "nombre" y en la segunda linea el valor de "apellido"
Quiero tomar esos dos datos en dos variables para poder agregarlos a una tabla. No se pasar a la segunda linea, algo así como "movenext" pero aplicado al fichero.
Dim Linea as string
Open archivo2 For Input As 1
While Not EOF(1)
Line Input #1, Linea
'en este punto cojo datos del fichero para agregarlos a una tabla.
nnombren = Mid(Linea, 22, 40)
'Ahora necesito pasar a la siguiente linea del fichero para seguir tomando
'datos ya que pertenecen al mismo registro aunque figuren en la segunda linea.
napellido= Mid(Linea, 22,50)
wend
Seguramente es muy facil pero lo siento, estoy bloqueado.
Gracias.
Valora esta pregunta


0