fb:porticula NoPaste
Einstellungen speichern
Uploader: | Sebastian |
Datum/Zeit: | 09.06.2014 01:42:27 |
' Pfad fuer die Einstellungsdatei.
' Sie soll im gleichen Verzeichnis wie das Programm liegen und "config.txt" heissen.
' Achtung: Das Programm bzw. der Benutzer, der es ausführt, braucht Schreibrechte
' fuer dieses Verzeichnis!
Dim As String ConfigFile = ExePath + "\config.txt"
Dim As Integer a, b
Dim As String c
Input "Geben Sie eine Ganzzahl ein: ", a
Input "Geben Sie eine zweite Ganzzahl ein: ", b
Input "Und jetzt geben Sie ein Wort ein: ", c
' Einstellungsdatei schreibend oeffnen. Achtung: Bestehende Daten in dieser Datei
' werden dabei ueberschrieben!
Open ConfigFile For Output As #1
' Die drei Werte nacheinander in die Datei schreiben:
Write #1, a, b, c
' Datei schliessen, nachdem alles geschrieben wurde:
Close #1
Print
Print "Ihre Eingaben wurden abgespeichert und koennen spaeter wieder geladen werden."
Print "Beliebige Taste zum Beenden druecken."
Getkey
End