Visual Basic - Numero Lineas en Archivo TXT

Life is soft - evento anual de software empresarial
 
Vista:

Numero Lineas en Archivo TXT

Publicado por Carlos E. Garcia Cruz (54 intervenciones) el 23/08/2003 21:23:08
quisiera saber cuantas lineas tiene un txt para poder poner en
una barra de progreso el maximo

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Numero Lineas en Archivo TXT

Publicado por maCo (323 intervenciones) el 24/08/2003 03:19:31
se me ocurre esto.

lo abres
lees linea x linea y vas incrementando un contador
y lo cierras

el contador tendra el numero de lineas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Numero Lineas en Archivo TXT

Publicado por Angel (14 intervenciones) el 24/08/2003 20:49:14
Ahiiiiiiiii, hay q ser mas especificos!!, 17 años tengo, pero que bien aprovechados!!

Private Function n_lineas(path_del_archivo) as long
open path_del_archivo for binary as #1
dim i as long
dim a as string * 1
n_lineas=1
do
get #1,i,a
if asc(a)=13 then n_lineas=n_lineas+1
i=i+1
loop until asc(a)=0
end function

luego, desde cualquier procedimiento llama a la funcion asi

msgbox n_lineas("c:\carpeta1\archivo1.dat")

si te falla me llamas ok?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Numero Lineas en Archivo TXT

Publicado por maCo (323 intervenciones) el 25/08/2003 18:08:31
ya que solo es un texto simple, no es necesario abrirlo de modo binario, ya que abriendolo en modo de texto simple agarrara linea por linea, de esta forma no necesitas verificar por los caracteres #13#10 (vbcrlf)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Numero Lineas en Archivo TXT

Publicado por Carlos E. Garcia Cruz (54 intervenciones) el 25/08/2003 18:49:22
Gracias por las respuestas pero la verdad lo que no queria era recorrer el archivo pero si es la unica forma asi sera.

gracias por su ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar