Como cuento el numero de lineas que contiene un archivo de texto?

[Leonardo A. Sanchez]

Hola!! he estado usando el objeto Scripting.FileSystemObject para accesar y modificar archivos de texto y ahora me gustaria hacer una clase que me manejara este tratamiento que le hago a las lineas del archivo, y para ello necesitaria conocer el numero de lineas que contiene antes de empezar a procesarlo, de modo que pueda ir actualizando un contador porcentual, alguien tiene idea de como puedo saber el numero de lineas que contiene un archivo de texto?

Ejemplo:


Este es un texto <------ Linea 1
que es para hacer <------ Linea 2
una prueba de lo <------ Linea 3
que trato de preguntar <------ Linea 4

Respuesta el archivo tiene 4 lineas.

[u_goldman]

A ver si esto te sirve:
<%
path= Server.MapPath(".")
Function parse_my_file(this_file)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set my_file= fso.OpenTextFile(path & "\" & this_file, 1)
i=0
Do while not my_file.AtEndOfStream
my_file.readline
i= i + 1
Loop
parse_my_file= i
End Function
%>
<%
cuenta= parse_my_file("archivo.xxx ")
Response.Write("El archivo tiene " & cuenta & "lineas")
%>

Salu2,

[AlZuwaga]

se me ocurre que metas el cotenido de todo el texto en una variable, le apliques un split en el salto de línea y te fijes cuál es el valor del vector más alto del array + 1.. algo así

Texto = Archivo.ReadAll
arrTexto = Split(Texto, vbcrlf)
CantidadDeLineas = UBound(ArrTexto) + 1



se me adelanto u_goldman

[u_goldman]

je je je, güeno, curiosamente estaba haciendo lo mismo, pero creo que tu solución es mejor