What am I doing wrong?
With this piece of code I wanted to save my array-data.
Speichern:
cls
rem Lösche Datei
if file exist("data.dat") then delete file "data.dat"
rem Öffne Datei zum schreiben
open to write 1,"data.dat"
rem Schreibe Einkünfte
for x=1 to 50
for y=1 to 2
write float 1, Einkunft#(x,y) : Print Einkunft#(x,y);" ";
next y
print
next x
rem Schließe Datei
close file 1
rem Benenne Datei um
if file exist("store.dat")=0
rename file "data.dat","store.dat"
endif
Print
Print
Print "Datenbank erfolgreich gespeichert. Drücken Sie eine beliebige Taste."
suspend for key
GOSUB Menuewahl
This is the code I intended to open the data I (wished I) saved with.
Oeffnen:
rem Lösche Datei
if file exist("data.dat") then delete file "data.dat"
rem Verschiebe Datei
move file "store.dat","data.dat"
rem Öffne Datei zum lesen
open to read 1,"data.dat"
rem Lese Array Einkünfte
for x=1 to 50
for y=1 to 2
read float 1,Einkunft#(x,y)
next y
next x
rem Zeige Einkünfte
print
for x=1 to 50
for y=1 to 2
print Einkunft#(x,y);" ";
next y
print
next x
rem Schließe Datei
close file 1
rem Verschiebe Datei zurück
move file "data.dat","store.dat"
rem Warte auf Taste
print "Datei geladen"
suspend for key
GOSUB Menuewahl
I'm sorry that the snippets are so long, but I'm a beginner and I don't really know where the mistake lies. I tried a lot of things before I came here (trying to fix it for some hours now)
thanks in advance,
greets
