Contar cantidad de renglones de archivo TXT????

Tienes alguna función en VB o en .NET que te permite hacer eso, como por ejemplo usar esta parte de una clase sacada de http://www.pro-3.com.mx/ab30.htm


Private Sub doCuentaLineas()
' Cuenta la cantidad de líneas del archivo de texto

' Var
Dim strLinea As String

' Contará la cantidad de líneas que hay en el archivo
strLinea = Space(128)
Do
If (Loc(intArchivo) + Len(strLinea)) > LongArchivo Then
strLinea = Space(LongArchivo - Loc(intArchivo))
End If
If Len(strLinea) > 0 Then
Get #intArchivo, , strLinea
doAnaliza strLinea
End If
Loop Until Len(strLinea) < 128
End Sub


Saludos

Marc
MS MVP Windows - Shell/User
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos beneficiamos todos.

Reglas de conducta de los grupos de noticias: http://support.microsoft.com/defaul...newsreglas

"c" escribió en el mensaje news:04e101c3a9e2$eea3a170$
Cómo hago para saber cuantos renglones tiene un TXT.
Hay alguna utilidad para saber esto????

No sé si te podrán valer FINDSTR o FIND.

Un saludo
Fernando Reyes [MS MVP]

(déjame sin merienda si quieres escribirme)

Visita news://marcmcoll.net cortesía de Marc Martínez Coll

"c" escribió en el mensaje
news:04e101c3a9e2$eea3a170$

Cómo hago para saber cuantos renglones tiene un TXT.
Hay alguna utilidad para saber esto????

Hola,
Gracias por contestar.
Dos dudas:
1) El nombre del archivo donde se lo indicas.
2) Qué es doAnaliza????

Tienes alguna función en VB o en .NET que te permite

hacer eso, como por ejemplo usar esta parte de una clase
sacada de http://www.pro-3.com.mx/ab30.htm

Private Sub doCuentaLineas()
' Cuenta la cantidad de líneas del archivo de texto

' Var
Dim strLinea As String

' Contará la cantidad de líneas que hay en el archivo
strLinea = Space(128)
Do
If (Loc(intArchivo) + Len(strLinea)) > LongArchivo

Then

strLinea = Space(LongArchivo - Loc(intArchivo))
End If
If Len(strLinea) > 0 Then
Get #intArchivo, , strLinea
doAnaliza strLinea
End If
Loop Until Len(strLinea) < 128
End Sub


Saludos

Marc
MS MVP Windows - Shell/User
NOTA. Por favor, las preguntas y comentarios en los

grupos, así nos beneficiamos todos.

Reglas de conducta de los grupos de noticias:

http://support.microsoft.com/defaul...cid=fh;ES-
ES;newsreglas

"c" escribió en el

mensaje news:04e101c3a9e2$eea3a170$

Cómo hago para saber cuantos renglones tiene un TXT.
Hay alguna utilidad para saber esto????

.

1) El nombre del archivo donde se lo indicas.

El código que te he puesto es parte de una Clase de VB6.0, y por tanto, has de incluir esa clase en un proyecto de VB y usar las funciones y procedimientos de la misma para abrir y contar el fichero. En el link que te he pasado está todo explicado.

2) Un procedimiento de la clase clsArchivos.


Saludos

Marc
MS MVP Windows - Shell/User
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos beneficiamos todos.

Reglas de conducta de los grupos de noticias: http://support.microsoft.com/defaul...newsreglas

"c" escribió en el mensaje news:31b201c3a9f2$cf4ebed0$
Hola,
Gracias por contestar.
Dos dudas:
1) El nombre del archivo donde se lo indicas.
2) Qué es doAnaliza????

Tienes alguna función en VB o en .NET que te permite

hacer eso, como por ejemplo usar esta parte de una clase
sacada de http://www.pro-3.com.mx/ab30.htm

Private Sub doCuentaLineas()
' Cuenta la cantidad de líneas del archivo de texto

' Var
Dim strLinea As String

' Contará la cantidad de líneas que hay en el archivo
strLinea = Space(128)
Do
If (Loc(intArchivo) + Len(strLinea)) > LongArchivo

Then

strLinea = Space(LongArchivo - Loc(intArchivo))
End If
If Len(strLinea) > 0 Then
Get #intArchivo, , strLinea
doAnaliza strLinea
End If
Loop Until Len(strLinea) < 128
End Sub


Saludos

Marc
MS MVP Windows - Shell/User
NOTA. Por favor, las preguntas y comentarios en los

grupos, así nos beneficiamos todos.

Reglas de conducta de los grupos de noticias:

http://support.microsoft.com/defaul...cid=fh;ES-
ES;newsreglas

"c" escribió en el

mensaje news:04e101c3a9e2$eea3a170$

Cómo hago para saber cuantos renglones tiene un TXT.
Hay alguna utilidad para saber esto????

.

Che, lo mas rapido, me parece, seria usar el edit del command prompt. (creo
que la pregunta se limitaba a eso nada mas).

"c" escribió en el mensaje
news:04e101c3a9e2$eea3a170$
Cómo hago para saber cuantos renglones tiene un TXT.
Hay alguna utilidad para saber esto????