Autor Tema: Contar líneas fichero texto  (Leído 17 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 200
Contar líneas fichero texto
« en: Enero 22, 2023, 11:11:48 am »
Palabras clave: contar, lineas, fichero, texto
Autor: no lo recuerdo

Objetivo
Obtener la cantidad de líneas que contiene un fichero de texto

Código: [Seleccionar]
Function DameLineasFichero(ByVal strRuta As String) As Long
    Dim f As Integer
    Dim strTexto As String
    Dim arrLineas() As String
   
    f = FreeFile
    Open strRuta For Input As #f
    strTexto = Input(LOF(f), #f)
    Close #f
    arrLineas = Split(strTexto, vbNewLine)
    DameLineasFichero = UBound(arrLineas) - LBound(arrLineas) + 1
    Erase arrLineas
End Function