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:	Views:  20.721
www.aeitforum.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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)

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.