| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
masterherpo
Anmeldungsdatum: 22.01.2006
Beiträge: 102
|
 Verfasst am: 21.07.2007, 23:16 Titel: variablen speichern |
 |
|
Hallo,
ich habe folgendes Problem: Ich will Variablen in ner Datei speichern. Und es sind ZIEMLICH viele. Wenn ich alle in eine Reihe schreibe kann man sie später nicht mehr öffnen (weil die Zeile zulang ist?). Ich hatte das Problem bisher nicht, aber ein Tester meines Progs. Wenn ich jetzt aber in zwei Zeilen schreiben will, werden die nicht richtig geladen  Was kann ich tun?
Hier mein Code zum Speichern:
| Code: |
SELECT CASE OPEN (exepath+"\Sicherung.dat" FOR OUTPUT AS #1)
CASE 0
WRITE #1, a,b,c,d,e....
CLOSE #1
|
Hier mein Code zum Laden:
| Code: |
SELECT CASE OPEN (exepath+"\Sicherung.dat" FOR INPUT AS #1)
CASE 0
INPUT #1, a,b,c,d,e....
CLOSE #1
|
Und wenn ich in zwei reihe Schreibe und Lade, wird es halt falsch geladen:
| Code: |
SELECT CASE OPEN (exepath+"\Sicherung.dat" FOR INPUT AS #1)
CASE 0
INPUT #1, a,b,c,....
INPUT #1, d,e....
CLOSE #1
|
Es müssen INTEGER's und STRING's gespeichert werden. Und grade wenn ich alle INEGER's in eine Zeile Schreibe und die STRING's in die 2.te, werden die Strings falsch ausgelesen
Zuletzt bearbeitet von masterherpo am 21.07.2007, 23:26, insgesamt einmal bearbeitet |
|
| Nach oben |
|
 |
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 21.07.2007, 23:32 Titel: |
|
|
koennte man beispielsweise so machen....
| Code: |
Randomize Timer
Const NEWLINE = !"\r\n"
dim vari(0 to 10) as Integer
dim vars(0 to 10) as String
Function RandomString (byval SLen as Integer) as String
Dim buffer as String
Dim char as string
Dim RChar as Ubyte
for l as integer=1 to Slen
rchar=int(rnd*26)+65
char=chr(rchar)
buffer+=char
next l
return buffer
End Function
for l as integer=0 to 10
vars(l)=RandomString (int(rnd*10)+1)
vari(l)=Int(rnd*100000)
next l
''VORHER
for l as integer=0 to 10
?vari(l),vars(l)
next l
'speichern!
open "variablen.dat" for binary as #1
for l as integer=0 to 10
put #1,,str(vari(l))+newline
put #1,,vars(l)+newline
next l
close #1
'laden!
open "variablen.dat" for input as #1
for l as integer=0 to 10
input #1,vari(l)
input #1,vars(l)
next l
close #1
''NACHHER
?"Neu geladen
for l as integer=0 to 10
?vari(l),vars(l)
next l
sleep
|
_________________
 |
|
| Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
|
| Verfasst am: 22.07.2007, 00:49 Titel: |
|
|
Du kannst auch mal schauen, ob dir zum Auslesen der Strings LINE INPUT # weiterhilft.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
| Nach oben |
|
|
oktagon
Anmeldungsdatum: 12.02.2006
Beiträge: 55
Wohnort: niederlande 4,21Gr.öl 51,54GR.nb
|
| Verfasst am: 22.07.2007, 18:47 Titel: variabelen ausschalten? |
|
|
Waere vielleicht das folgende moeglich:
Die meisten oder alleinige variabelen werden eingebracht mittels Inputs,
zb.Laenge in mtr : Input eine zahl.
Am ende eines programs koente man einfuehren:
If input =(ungleich an) NUL then input= 0 ;ich kann die codierung von "ungleich an"nicht entdecken,muss irgendwo etwas mit LATEX-coden zu regeln sein!
[/list][/list] |
|
| Nach oben |
|
|
The real Agent D
Anmeldungsdatum: 24.11.2005
Beiträge: 605
Wohnort: Hall i. T.
|
| Verfasst am: 22.07.2007, 19:58 Titel: |
|
|
| Alle variablen in Strings umwandeln und dann mit chr$(13) hinten dran speichern? |
|
| Nach oben |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
|
| Nach oben |
|
|
The real Agent D
Anmeldungsdatum: 24.11.2005
Beiträge: 605
Wohnort: Hall i. T.
|
| Verfasst am: 22.07.2007, 20:04 Titel: |
|
|
Primitiv, funzt aber!  |
|
| Nach oben |
|
|
Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
| Verfasst am: 22.07.2007, 20:19 Titel: |
|
|
wer auf meinen source geachtet haette, wuerde sehen das es genau so arbeitet 
_________________
|
|
| Nach oben |
|
|
The real Agent D
Anmeldungsdatum: 24.11.2005
Beiträge: 605
Wohnort: Hall i. T.
|
| Verfasst am: 22.07.2007, 20:27 Titel: |
|
|
oh.... 
äh... übersehen |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
