Contar lineas de un archivo

[ema21del9]

Hay alguna forma de saber la cantidad de lineas con datos que tiene un archivo sin usar un while para contar las mismas?

[vicentecamesella]

con una sentencia Sql que es count(*) as variable de esta manera recorres todo los registros sin while

[ema21del9]

Iniciado por vicentecamesella

con una sentencia Sql que es count(*) as variable de esta manera recorres todo los registros sin while

Pero no me sirve tu comentario, aunque me adelanto y te agradezco, ya que las lineas que tengo que contar no estan en una base de datos, sino en un archivo.

Edit: me adelante y logre hacerlo utilizando una referencia especial, esto es muy util ya que evita desbordamientos al utilizar un bucle while, para el que entienda sabe lo que digo.

[seba123neo]

Hola, lees linea por linea hasta el final del archivo(EOF) y en While le agregas un contador y listo...

saludos.

[ema21del9]

Iniciado por seba123neo

Hola, lees linea por linea hasta el final del archivo(EOF) y en While le agregas un contador y listo...

saludos.

Perfecto, pero arriba puse sin usar while.

[Sergestux]

Iniciado por ema21del9

Edit: me adelante y logre hacerlo utilizando una referencia especial, esto es muy util ya que evita desbordamientos al utilizar un bucle while, para el que entienda sabe lo que digo.

Pero no pusiste el codigo y nadie mas que tu salio benefeciado de este post

[ema21del9]

Iniciado por Sergestux

Pero no pusiste el codigo y nadie mas que tu salio benefeciado de este post

Tenes razon, de todas formas lo tuve que hacer por mi cuenta, aca esta como:

Primero agregamos una "referencia", no componente, a Microsoft Scripting Runtime, luego en el codigo propio de la aplicacion:

'Dimensionamos propiamente un objeto y el archivo de referencia:
Dim objeto As FileSystemObject
Dim archivo As TextStream

'Seteamos correctamente el archivo como objeto para poder trabajar con este:
Set objeto = New FileSystemObject
Set archivo = objeto.OpenTextFile("ruta del archivo", ForAppending)

'Aplicamos la funcion propiapara saber la cantidad de lineas:
lineas = archivo.Line

'Cerramos el archivo para evitar impedancias:
archivo.Close

Espero que les sirva, me costo trabajo.