Hallo,
ich versuche mal ein wenig mit Dateizugriff unter Basic:
Code
- 10 REM Daten schreiben--------------
- 20 REM
- 30 DOPEN #1,"rel datei",L100
- 40 FOR i% = 1 TO 5
- 50 RECORD #1,i%
- 60 a$ = "datensatz"+str$(i%)
- 70 b% = 100 + i%
- 80 PRINT#1,a$; b%
- 90 NEXT
- 100 DCLOSE #1
- 110 REM
- 120 REM Daten lesen--------------
- 130 REM
- 140 DOPEN #1,"rel datei",L100
- 150 FOR i% = 1 TO 5
- 160 RECORD #1,i%
- 170 input#1,x$,y%
- 180 PRINT x$;
- 190 PRINT y%
- 200 NEXT
- 210 DCLOSE #1
Das Anlegen der Datei scheint zu funktionieren. Aber y% bleibt beim auslesen mit INPUT# immer 0. Bei x$ ist der Wert mit angehangen der ja in y% rein sollte. Was mache ich denn da falsch?
