.:$n!p3r:.
Cadet 3rd Year
- Registriert
- Dez. 2005
- Beiträge
- 51
Ich schreib gerade ein kleines Programm, welches ein Record enthält. In diesem Record befindet sich auch ein mehrdimensionales Array.
Jetzt möchte ich das ganze Record am besten in einem Rutsch abspeichern (in einer Textdatei!).
Ohne internem Array geht das ja ohne Probleme!
hier ein Beispiel:
Modul: Record
Hauptprogramm:
Und jetzt das eigentliche Speichern:
Wenn ich die ganze Schose jetzt wieder einlese ist mein mehrdimensionales Array leer!
mir wurde zwar gesagt das es irgendwie so geht, aber wie genau wusste er auch nicht.
Vllt könnt ihr mir ja helfen...
Jetzt möchte ich das ganze Record am besten in einem Rutsch abspeichern (in einer Textdatei!).
Ohne internem Array geht das ja ohne Probleme!
hier ein Beispiel:
Modul: Record
Code:
Public Type Daten
Name as String
Nachname as String
Array() as String
End Type
Hauptprogramm:
Code:
Public Daten(1 to AnzahlMitglieder).Record as Daten
Sub Initialisieren
DIM i as Integer
For i = 1 to Mitglieder
REDIM Daten(i).Array(1 to AnzahlMitglieder, 1 to Eingaben)
Next i
call Speichern
End Sub
Und jetzt das eigentliche Speichern:
Code:
Sub Speichern
DIM FileNr as Byte
FileNr=FreeFile
Open Datei for Binary as FileNr
Put FileNr, ,AnzahlMitglieder
Put FileNr, ,Daten()
close FileNr
End Sub
Wenn ich die ganze Schose jetzt wieder einlese ist mein mehrdimensionales Array leer!
mir wurde zwar gesagt das es irgendwie so geht, aber wie genau wusste er auch nicht.
Vllt könnt ihr mir ja helfen...