' Bestimmte Zeile aus einer Textdatei lesen
Public Function ReadLine(ByVal sFile As String, _
  Optional ByVal nLine As Long = 1) As String
 
  Dim sLines() As String
  Dim oFSO As Object
  Dim oFile As Object
 
  ' Fehlerbehandlung aktivieren
  On Error GoTo ErrHandler
 
  ' 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
 
    Select Case Sgn(nLine)
       ' (nLine > 0)
      Case 1
        ' n-te Zeile von vorne beginnend
        ReadLine = sLines(nLine - 1)
 
      ' (nLine < 0)
      Case -1
        ' n-te Zeile von hinten beginnend
        ReadLine = sLines(UBound(sLines) + nLine + 1)
    End Select
  End If
 
ErrHandler:
  ' Objekte zerstören
  Set oFile = Nothing
  Set oFSO = Nothing
End Function
 
 
Private Sub cmdNext_Click()
' nächste Zeile aus Textdatei1.txt einlesen, nächste 3 Zeilen aus 
' Textdatei2.txt einlesen
Dim file As String
Dim filenumber As Integer
filenumber = filenumber +1
file = "C:\Textdatei1.txt"
 
Dim file2 As String
Dim filenumberNummer As Integer
filenumberNummer = filenumberNummer +4
file2 = "C:\Textdatei2.txt"
 
Dim file2 As String
Dim filenumberZeit As Integer
filenumberZeit = filenumberZeit +4
file2 = "C:\Textdatei2.txt"
 
Dim file2 As String
Dim filenumberStrafe As Integer
filenumberStrafe = filenumberStrafe +4
file2 = "C:\Textdatei2.txt"
 
' die eingelesenen neuen Zeilen in Textfeldern ausgeben
txtLine.Text = ReadLine(file, filenumber)
txtNummer.Text = ReadLine(file2, filenumberNummer)
txtZeit.Text = ReadLine(file2, filenumberZeit)
txtStrafe.Text = ReadLine(file2, filenumberStrafe)
End Sub
 
Private Sub cmdShow_Click()
' 1-te Zeile von Textdatei1.txt lesen
Dim file As String
Dim filenumber As Integer
filenumber = 1
file = "C:\Textdatei1.txt"
 
' 1-te bis 3-te Zeile von Textdatei2.txt lesen
Dim file2 As String
Dim filenumberNummer As Integer
filenumberNummer = 1
file2 = "C:\Textdatei2.txt"
 
Dim filenumberZeit As Integer
filenumberZeit = 2
 
Dim filenumberStrafe As Integer
filenumberStrafe = 3
 
' eingelesene Zeilen in TextFelder ausgeben
txtLine.Text = ReadLine(file, filenumber)
txtNummer.Text = ReadLine(file2, filenumberNummer)
txtZeit.Text = ReadLine(file2, filenumberZeit)
txtStrafe.Text = ReadLine(file2, filenumberStrafe)