Bestimmte Zeile aus einer Textdatei auslesen II Diese Funktion liest eine bestimmte Zeile aus der angegebenen Datei und gibt diese als String zurück.
Autor:   Philip Kleimeyer	Bewertung:     [ Jetzt bewerten ]	Views:  21.301
www.aeitforum.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 25 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgend wird eine Funktion beschrieben, die eine Textdatei zeilenweise in ein StringArray() schreibt! Durch den Aufruf von ReadLine (Dateiname, Zeilennummer) wird dann die entsprechende Zeile im StringArray zurückgegeben.

' Bestimmte Zeile aus einer Textdatei auslesen
Public Function ReadLine(ByVal sFile As String, _
  ByVal nLine As Long) As String
 
  Dim sLines() As String
  Dim oFSO As Object
  Dim oFile As Object
 
  ' Verweis auf das FileSystemObject erstellen
  Set oFSO = CreateObject("Scripting.FileSystemObject")
 
  ' Existiert die Datei überhaupt?
  If oFSO.FileExists(sFile) Then
 
    ' Datei öffnen
    Set oFile = oFSO.OpenTextFile(sFile)
 
    ' Alles lesen und in Array zerlegen
    sLines = Split(oFile.ReadAll, vbCrLf)
 
    ' Datei schließen
    oFile.Close
 
    ReadLine = sLines(nLine - 1)
  End If
End Function

Aufrufbeispiel:

Dim sLine As String
 
' 2. Zeile der Datei "config.txt" auslesen
sLine = ReadLine(App.Path & "\config.txt", 2)