Code archives/File Utilities/Save a type to file
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
Save each instance of your type like so EG "X300Y300D300:" And then load them out again | |||||
Graphics 640,480,32,2 Type example Field x Field y End Type ;-=-=-=-[Saving to a file]-=-=-=- ;create 10 instances of type with handle obj For i=1 To 10 Step 1 obj.example = New example obj\x=Rand(1,640) obj\y=Rand(1,480) Next ;draw them all to screen to show they have been created SetBuffer BackBuffer() For obj.example = Each example Color Rand(50,255),Rand(50,255),Rand(50,255) Rect obj\x,obj\y,20,20 Next Flip Print "PRESS ANYKEY TO SAVE THEM" WaitKey() ;Save The type to a file ;open the file file=WriteFile("type-example.txt") For obj.example = Each example WriteLine ( file,"X" + obj\x + "Y" + obj\y + ":" ) ;I have used the ":" so that it is easier to determin the end of a line Next ;close the file CloseFile file ;-=-=[Clear everything]=-=- For obj.example = Each example Delete obj.example Next Cls Print "PRESS ANY KEY TO LOAD THEM NOW..." WaitKey() ;-=-=-=-[Loading from a file]-=-=-=- file=ReadFile("type-example.txt") While Eof(file)=False ;Grab a line from the text file grab$=ReadLine(file) ;get the two bits of data grabx = Mid ( grab$,Instr(grab$,"X") + 1,Instr(grab$,"Y") - 1 ) graby = Mid ( grab$,Instr(grab$,"Y") + 1,Instr(grab$,":") - 1 ) ;CREATE the new instance using these new grabbed bits of data obj.example = New example obj\x = grabx obj\y = graby Wend ;draw them all to screen to show they have been LOADED SetBuffer BackBuffer() For obj.example = Each example Color Rand(50,255),Rand(50,255),Rand(50,255) Rect obj\x,obj\y,20,20 Next Flip ;close file closefile file RuntimeError "There finished, Check the folder this was saved in and you should see a text file" |
Comments
| ||
I tought this was the magic answer I was looking for, but it is not. It doesn't writea whole type from a simple write command. It's just the same old boring "name all your variables that are in your type" kind of code... |
Code Archives Forum