Contar cantidad de renglones de archivo TXT????

13/11/2003 - 13:37 por c | Informe spam
Cómo hago para saber cuantos renglones tiene un TXT.
Hay alguna utilidad para saber esto????
 

Leer las respuestas

#1 Marc S. [MS MVP]
13/11/2003 - 13:42 | Informe spam
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????

Preguntas similares