Anzahl Zeilen einer (Text-)Datei schnell ermittelt Mit dieser Funktion lässt sich die Anzahl der Zeilen einer beliebigen (Text-)Datei schnell ermitteln.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  33.471
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 11 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Benötigt man die Information, wieviele Zeilen in einer beliebigen (Text-)Datei gespeichert sind, gibt es verschiedene Möglichkeiten dies "herauszufinden".

1. Möglichkeit
Man öffnet die Datei sequentiell und liest eine Zeile nach der anderen aus der Datei aus:

Public Function FileLineCount(ByVal sFile As String) As Long
  Dim F As Integer
  Dim sLine As String
  Dim nCount As Long
 
  ' Datei sequentiell öffnen und zeilenweise auslesen  
  F = FreeFile
  Open sFile For Input As #F
  While Not EOF(F)
    Line Input #F, sLine
    nCount = nCount + 1
  Wend
  Close #F
 
  FileLineCount = nCount
End Function

Handelt es sich bei der Datei mit wenigen Zeilen, ist obiger Code was die Performance betrifft völlig ausreichend. Was aber, wenn in der Datei mehrere hundertausend Zeilen gespeichert sind oder noch mehr?

In diesem Fall sollte man die Datei blockweise im Binary-Mode auslesen und die im gelesenen "Block" enthaltenen Zeilenumbruchzeichen zählen.

2. Möglichkeit
Inhalt der Datei blockweise "verarbeiten" und gezielt nach Zeilenumbruchzeichen suchen.

Public Function FileLineCount(ByVal sFile As String) As Long
  Dim F As Integer
  Dim nCount As Long
  Dim sBuffer As String
  Dim nFilePos As Long
  Dim nSize As Long
  Dim nBytes As Long
  Dim nPos As Long
 
  ' Blockgröße
  Const nBlockSize = 16384
 
  ' Datei im Binary-Mode öffnen
  F = FreeFile
  Open sFile For Binary As #F
 
  ' Datei blockweise auslesen
  nSize = LOF(F)
  nFilePos = 0
  Do While nFilePos < nSize
    nBytes = nBlockSize
    If nFilePos + nBytes > nSize Then nBytes = nSize - nFilePos
 
    ' Inhalt lesen
    sBuffer = Space$(nBytes)
    Get #F, , sBuffer
 
    ' Zeilenumbrüche zählen
    nPos = 0
    Do
      nPos = InStr(nPos + 1, sBuffer, Chr$(13))
      If nPos > 0 Then nCount = nCount + 1
    Loop Until nPos = 0
    nFilePos = nFilePos + nBytes
  Loop
  Close #F
 
  FileLineCount = nCount
End Function

Wenn man jetzt einmal die "Arbeitszeit" beider Funktion miteinander vergleicht, stellt man fest, dass der Code der 2. Variante deutlich schneller arbeitet - auch bei kleineren Dateien.