final de archivo
HJ
16 de Noviembre del 2002
nesecito uegentemente saber como llegar al final de un archivo pero sin pasar linea por linea
Por favor...
Por favor...
webJose
16 de Noviembre del 2002
Nunca he tenido necesidad de hacer algo como eso, así que no recuerdo bien cómo se hace. En fin, creo que es así:
dim fileN as integer
Open "C:test.txt" for binary access read write lock read write as #fileN
Seek #fileN, lof(fileN)+1
Listo, ahora está posicionado un byte después del último byte.
Ahora bien, si lo que desea es agregar texto al final de un archivo existente, lo puede hacer más fácilmente usando este Open:
Open "C:Test.txt" for Append access write lock read write as #fileN.
Todo lo que escriba con Print# o Write# aparecerá al final del archivo, sin sobreescribir nada.
dim fileN as integer
Open "C:test.txt" for binary access read write lock read write as #fileN
Seek #fileN, lof(fileN)+1
Listo, ahora está posicionado un byte después del último byte.
Ahora bien, si lo que desea es agregar texto al final de un archivo existente, lo puede hacer más fácilmente usando este Open:
Open "C:Test.txt" for Append access write lock read write as #fileN.
Todo lo que escriba con Print# o Write# aparecerá al final del archivo, sin sobreescribir nada.