Número de lÃneas de archivi de texto
Monica Arias
22 de Abril del 2004
Hola a todos. Tengo el siguiente problemilla, y es que necesita saber el nº total de lÃneas de un archivo de texto antes de operar con el, pero el problema es que es bastante grande por lo que no puede meterle un contador que me lea todas las lÃneas antes..... Gracias a todos
Cristian
22 de Abril del 2004
Hola
Tal vez si intentas con esto
Colocalo en un comman o donde lo nesecites
Dim Numero as integer
Dim Registro as string
Open "C:TuArchivo.txt"for append as 1
While not eof(1)
Line Input #1,Registro
If Registro<>""then Contador=Contador+1
Wend
Msgbox "Tienes "& Contador & " Registros"
Espero te sirva
Chao
Tal vez si intentas con esto
Colocalo en un comman o donde lo nesecites
Dim Numero as integer
Dim Registro as string
Open "C:TuArchivo.txt"for append as 1
While not eof(1)
Line Input #1,Registro
If Registro<>""then Contador=Contador+1
Wend
Msgbox "Tienes "& Contador & " Registros"
Espero te sirva
Chao