Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
 Verfasst am: 18.07.2008, 12:49 Titel: |
 |
|
Hallo,
das könnte man wie folgt machen:
| Code: | DIM Person AS STRING, Gebtag AS STRING
DIM Auswahl AS INTEGER, Anzahl AS INTEGER
CLS
PRINT
PRINT " MENš"
PRINT
PRINT " 1 - Datens„tze ausgeben"
PRINT " 2 - Datensatz anlegen"
PRINT " 3 - Programm beenden"
PRINT
INPUT " Auswahl: ", Auswahl
CLS
SELECT CASE Auswahl
CASE 1
Anzahl = 0
OPEN "DATEN.DAT" FOR INPUT AS #1
DO UNTIL EOF(1)
INPUT #1, Person, Gebtag
PRINT USING "\ \ \ \"; Person; Gebtag
Anzahl = Anzahl + 1
LOOP
CLOSE #1
PRINT
PRINT LTRIM$(STR$(Anzahl)); " Datens„tze ausgegeben."
SLEEP
CASE 2
LOCATE 2, 3: PRINT "DATENSATZ ANLEGEN"
LOCATE 4, 5: INPUT "Name: ", Person
LOCATE 5, 5: INPUT "Geburtstag: ", Gebtag
OPEN "DATEN.DAT" FOR APPEND AS #1 'APPEND = An Datei anh„ngen
WRITE #1, Person, Gebtag
CLOSE #1
LOCATE 7, 3: PRINT "Datensatz in Datei geschrieben."
SLEEP
END SELECT
END |
Bevor du Datensätze ausgeben lassen kannst, musst du natürlich welche anlegen. 
Viele Grüße!
Sebastian
_________________
Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen! |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
