Daten aus Array speichern

Stephan Herzog

unread,

Jan 30, 2003, 11:40:02 AM1/30/03

to

Hi NG,

folgendes ist mein Problem:

Ich programmiere mit Dark Basic, was zwar möglicherweise wenige kennen (?),
aber grundsätzlich auf den allgemein verbreiteten BASIC-Befehlen aufbaut,
weshalb mir vielleicht doch jemand helfen kann.
Ich möchte "einfach nur" Daten eines (float-)Arrays in einer externen Datei
speichern, um sie per Knopfdruck bei Neustart des Programms wieder ins Array
laden zu können. Da das Problem bereits beim Speichern auftritt, werde ich
fürs erste nur den Code posten, der für's Speichern verantworltlich sein
sollte. Wäre sehr dankbar, wenn jemand den Fehler fände ...

Danke im Vorraus,
MfG Stephan

[code ->]

Rem ***************************
Rem *** Datenbank Speichern ***
Rem ***************************

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 Schreibe Quellen

for x=1 to 50
Quelle$(x)=b$
write string 1,b$ : Print Quelle$;(x)
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

[<-code]

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.427 / Virus Database: 240 - Release Date: 06.12.2002

Stephan Herzog

unread,

Jan 30, 2003, 12:30:53 PM1/30/03

to

Es hat sich erübrigt, Problem gelöst!

Markus Hoffmann

unread,

Jan 31, 2003, 1:16:53 PM1/31/03

to

> Ich möchte "einfach nur" Daten eines (float-)Arrays in einer externen Datei
> speichern, um sie per Knopfdruck bei Neustart des Programms wieder ins Array

In X11-Basic saehe es so aus:

a() haelt die daten

bsave "datei.dat",varptr(a()),dim?(a())*8

gruss
M.

el...@jpberlin.de

unread,

Jan 31, 2003, 3:22:00 PM1/31/03

to

Hallo Stephan!

Stephan Herzog am 30.01.03 / 17:30 (Donnerstag):
> Es hat sich eruebrigt, Problem geloest!

Das kann ja jeder sagen. Jetzt will ich gefaelligst lesen, wie Du es
gemacht hast, sonst war das das letzte Mal, das ich Dir geholfen
habe. ;-)

Gruss elek
--
"Die Menschen muessen leiden, um stark zu werden, dacht' ich.
Jetzt denk ich, sie muessen Freude haben, um gut zu werden."

Wilhelm von Humboldt

Stephan Herzog

unread,

Feb 1, 2003, 12:08:09 PM2/1/03

to

rem Benenne Datei um
if file exist("store.dat")=0
rename file "data.dat","store.dat"
endif

Das Problem war, dass die Datei store.dat existierte- deshalb wurde die
if-Bedingung nicht erfüllt- somit kein rename "data.dat", was wiederum
führte, dass die gespeicherten Daten store.dat nie erreicht haben ... (so
denke ich mir das zumindest- den konkreten Hinweis bekam ich von einem
Poster aus http://www.allbasiccode.com)

So, freu mich also auch auf weitere Hilfe und Unterstützung ...
MfG

<el...@jpberlin.de> schrieb im Newsbeitrag
news:8etvM...@jpberlin-elek.jpberlin.de...