Module Module1

    Structure datensatz
        Public id As Integer
        Public name As String
        Public wert As Single
    End Structure


    Sub Main()

        Dim meindatensatz As datensatz
        Dim gelesen As datensatz
        Dim zeile As String
        Dim guthaben As Integer = 99

        REM Formatierte Ausgabe in Textdatei
        FileOpen(1, "C:\TEMP\vbtextdatei.txt", OpenMode.Output)
        Print(1, "Peter Sobe", 99, vbCrLf)
        Print(1, "Max Meier", 103, vbCrLf)
        Print(1, "Fritz Fuchs", 87, vbCrLf)
        Print(1, "Roland Stenzel", 100, vbCrLf)
        Print(1, "Claudia Schmidt", 11.11, vbCrLf)
        PrintLine(1, "Katie Sommer", guthaben) ' hier ist der Zeilenumbruch schon drin
        PrintLine(1, "Clown Ferdindand", 2 * guthaben)
        FileClose(1)

        REM Eingabe von Textdatei
        FileOpen(2, "C:\TEMP\vbtextdatei.txt", OpenMode.Input)
        While (Not EOF(2))
            zeile = LineInput(2)
            Console.WriteLine(zeile)
        End While

        FileClose(2)

        REM Ausgabe in Binärdatei
        FileOpen(3, "C:\TEMP\vbbindatei.bin", OpenMode.Binary, OpenMode.Output)
        meindatensatz.id = 1
        meindatensatz.name = "Schraube"
        meindatensatz.wert = 47.11
        FilePut(3, meindatensatz)
        meindatensatz.id = 5
        meindatensatz.name = "Winkel"
        meindatensatz.wert = 0.815
        FilePut(3, meindatensatz)
        FileClose(3)

        REM eingabe von Binärdatei
        gelesen.id = -1
        gelesen.name = ""
        gelesen.wert = 0.0
        FileOpen(4, "C:\TEMP\vbbindatei.bin", OpenMode.Binary, OpenMode.Input)
        Do
            FileGet(4, gelesen)
            Console.WriteLine("Gelesen: " + Format(gelesen.id) + ", " + gelesen.name + ", " + Format(gelesen.wert))
        Loop While (Not EOF(4))
        FileClose(4)

    End Sub

End Module