Speicherung von Typ Feldern

Übersicht

BlitzBasic

Beginners-Corner

	Toth Betreff: Speicherung von Typ Feldern	Fr, Dez 30, 2005 14:45 Antworten mit Zitat
Ich hab ne frage zu typ und zwar kann man ein ganzes Typen feld speichern?Und wenn ja wie. Mich würd auch noch interessieren wie man den lageort des programmes ermittelt also z.b. wenn das programm in "C:\BlitzBasic\7c" liegt man dies in einer Variable rausbekommt so in etwa Pfad$=Woliegich() um das dann für loadimage verwenden zu können in etwa Held=Loadimage(Pfad$+"\dd\Held.bmp") Vielen dank für euere antworten im voraus schonmal Toth

Toth

Betreff: Speicherung von Typ Feldern

Fr, Dez 30, 2005 14:45
Antworten mit Zitat

Ich hab ne frage zu typ und zwar kann man ein ganzes Typen feld speichern?Und wenn ja wie.
Mich würd auch noch interessieren wie man den lageort des programmes ermittelt also z.b. wenn das programm in "C:\BlitzBasic\7c" liegt man dies in einer Variable rausbekommt so in etwa Pfad$=Woliegich() um das dann für loadimage verwenden zu können
in etwa Held=Loadimage(Pfad$+"\dd\Held.bmp")
Vielen dank für euere antworten im voraus schonmal
Toth

	BtbN	Fr, Dez 30, 2005 14:58 Antworten mit Zitat
Du kannst einfach relative Pfade verwenden.

BtbN

Fr, Dez 30, 2005 14:58
Antworten mit Zitat

Du kannst einfach relative Pfade verwenden.

	Sir Dan	Fr, Dez 30, 2005 15:48 Antworten mit Zitat
Hallo, wenn du types speichern willst. musst du eigentlich nix anderes machen, als wenn du normale variablen speicherst. Beispiel: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Type Typename Field x# Field y# Field nochwas$ End Type For i = 0 To 2 Variable.Typename = New Typename Variable\x# = Rnd(20) Variable\y# = Rnd(20) Variable\nochwas$ = \"horst_der_\"+Str$ (i)+\"te\" Next Global speicherstream = WriteFile(\"ordner1\ordner2\datei.suchdirwasaus\") For Variable.Typename = Each Typename WriteFloat speicherstream,Variable\x# WriteFloat speicherstream,Variable\y# WriteLine speicherstream,Variable\nochwas$ Next Ich hoffe das hilft dir EDIT: Hab glat vergessen zu posten, wie man das ausliest BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Type Typename Field x# Field y# Field nochwas$ End Type Global speicherstream = ReadFile(\"datei.suchdirwasaus\") While Not Eof(speicherstream) Variable.Typename = New Typename Variable\x# = ReadFloat(speicherstream) Print Variable\x# Variable\y# = ReadFloat(speicherstream) Print Variable\y# Variable\nochwas$ = ReadLine(speicherstream) Print Variable\nochwas$ Print Wend
(\_/) (O.o) (> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Sir Dan

Fr, Dez 30, 2005 15:48
Antworten mit Zitat

Hallo,

wenn du types speichern willst. musst du eigentlich nix anderes machen, als wenn du normale variablen speicherst.

Beispiel:

BlitzBasic: [AUSKLAPPEN]



Type Typename
   Field x#
   Field y#
   Field nochwas$
End Type 

For i = 0 To 2
   Variable.Typename = New Typename
   Variable\x# = Rnd(20)
   Variable\y# = Rnd(20)
   Variable\nochwas$ = \"horst_der_\"+Str$ (i)+\"te\"
Next 

Global speicherstream = WriteFile(\"ordner1\ordner2\datei.suchdirwasaus\")

For Variable.Typename = Each Typename
   WriteFloat speicherstream,Variable\x#
   WriteFloat speicherstream,Variable\y#
   WriteLine speicherstream,Variable\nochwas$
Next

Ich hoffe das hilft dir

EDIT: Hab glat vergessen zu posten, wie man das ausliest

BlitzBasic: [AUSKLAPPEN]


Type Typename 
   Field x# 
   Field y# 
   Field nochwas$ 
End Type 

Global speicherstream = ReadFile(\"datei.suchdirwasaus\") 

While Not Eof(speicherstream)
   Variable.Typename = New Typename   
	 Variable\x# = ReadFloat(speicherstream)
   Print Variable\x# 
	 Variable\y# = ReadFloat(speicherstream) 
   Print Variable\y#
	 Variable\nochwas$ = ReadLine(speicherstream) 
   Print Variable\nochwas$ 
   Print 
Wend

(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

	Rallimen Sieger des 30-EUR-Wettbewerbs	Fr, Dez 30, 2005 16:17 Antworten mit Zitat
Hier ist das gesuchte BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Print \"Program was run from \" + SystemProperty (\"appdir\") Also relative Pfade sind am einfachsten, das heißt nicht das der Befehl über ist! Ich habe Changedir (SystemProperty ("appdir")) auch schon mal angewendet um wieder ins richtige Verzeichnis zu wechseln. Genauso gut kann man beim Starten der Exe Currentdir() in einer Var speichern!
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Fr, Dez 30, 2005 16:17
Antworten mit Zitat

Hier ist das gesuchte
BlitzBasic: [AUSKLAPPEN]

Print \"Program was run from \" + SystemProperty (\"appdir\")

Also relative Pfade sind am einfachsten, das heißt nicht das der Befehl über ist!
Ich habe Changedir (SystemProperty ("appdir")) auch schon mal angewendet um wieder ins richtige Verzeichnis zu wechseln.
Genauso gut kann man beim Starten der Exe Currentdir() in einer Var speichern!

[BB2D | BB3D | BB+]