Module Module1
    Structure ZeitStruc
        Public h, m, s As Integer
    End Structure

    Structure Laeufer
        Public VName As String
        Public FName As String
        Public Zeit As ZeitStruc
    End Structure

    Function FormatiereLaeufer(L As Laeufer) As String
        Dim ausgabe As String = ""

        ausgabe = ausgabe + L.VName
        While ausgabe.Length < 16
            ausgabe = ausgabe + " "
        End While
        ausgabe = ausgabe + L.FName
        While ausgabe.Length < 32
            ausgabe = ausgabe + " "
        End While

        ausgabe = ausgabe + Format(L.Zeit.h, "00") + ":" + Format(L.Zeit.m, "00") + ":" + Format(L.Zeit.s, "00")
        Return ausgabe
    End Function

    Sub AusgabeLaeufer(n As Integer, L As Laeufer)
        Console.Write("Nr." + Format(n, "000") + " :")
        Console.WriteLine(FormatiereLaeufer(L))
    End Sub

    Sub Main()
        Dim zeile As String
        Dim z_anz As Integer = 0
        Dim L As Laeufer
        FileOpen(1, "T:\\TEMP\\laeufer.txt", OpenMode.Input)
        Do Until EOF(1)  REM Wiederhole bis Dateiende erreicht
            zeile = LineInput(1)
            REM MsgBox("Zeile gelesen:" + zeile) 'zur Kontrolle 
            If zeile.Length > 30 Then
                L.VName = zeile.Substring(0, 16)
                L.FName = zeile.Substring(16, 12)
                L.Zeit.h = Integer.Parse(zeile.Substring(32, 2))
                L.Zeit.m = Integer.Parse(zeile.Substring(35, 2))
                L.Zeit.s = Integer.Parse(zeile.Substring(38, 2))
                z_anz = z_anz + 1
                AusgabeLaeufer(z_anz, L)
            End If
        Loop
        FileClose(1)
    End Sub
End Module