Help With Dealing and Sorting Varibles

BlitzPlus Forums/BlitzPlus Programming/Help With Dealing and Sorting Varibles

Ryanenu

(Posted 2013) [#1]

What I need is to create a bunch of types like 200+ with say 20 fields each and I need to be able to save, sort, alter, move, and view on demand all this data for my game. I understand the basics involved but am having a hard time wrapping my head around how to perform these tasks.

RemiD

(Posted 2013) [#2]

Here is an example to write then to read datas with Types and with Dim arrays.

Graphics(640,480,32,2)

;---------------------------------------------------

;with types
Type Thing
 Field Id% ;integer
 Field Age% ;integer
 Field Weight# ;float
 Field Name$ ;string
End Type

;create all
For i% = 1 To 200
 t.Thing = New Thing
 t\Id = i
 t\Age = Rand(1,100)
 t\Weight = Rnd(50.0,100.0)
 t\Name = "Thing"+Str(i)
Next

;write all
For t.Thing = Each Thing
 t\Age = Rand(1,100)
 t\Weight = Rnd(50.0,100.0)
 t\Name = "Thing"+Str(i)
Next

;read all
For t.Thing = Each Thing
 Age = t\Age
 Weight = t\Weight
 Name = t\Name
Next

;(Note : there are several ways to access a specific instance of a Type, this is just one way, the easiest but also the least optimised way, once you understand this simple way, you want to learn more about object.type() and Handle())
;write one 
For t.Thing = Each Thing
 If(t\Id = 25)
  t\Age = t\Age + 1
 EndIf
Next

;read one
For t.Thing = Each Thing
 If(t\Id = 25)
  Age = t\Age
 EndIf
Next

;---------------------------------------------------

;with dim arrays
Global ThingsCount% = 0
Dim ThingAge%(200)
Dim ThingWeight#(200)
Dim ThingName$(200)

;create all
For i% = 1 To 200
 ThingsCount = ThingsCount + 1
 TId% = ThingsCount
 ThingAge(TId) = Rand(1,100)
 ThingWeight(TId) = Rnd(50.0,100.0)
 ThingName(TId) = "Thing"+Str(i)
Next

;write all
For TId% = 1 To ThingsCount
 ThingAge(TId) = Rand(1,100)
 ThingWeight(TId) = Rnd(50.0,100.0)
 ThingName(TId) = "Thing"+Str(i)
Next

;read all
For TId% = 1 To ThingsCount
 Age = ThingAge(TId)
 Weight = ThingWeight(TId)
 Name = ThingName(TId)
Next

;write one
TId% = 25
ThingAge(TId) = ThingAge(TId) + 1

;read one
TId% = 25
Age = ThingAge(TId)

;---------------------------------------------------

FlushKeys()
WaitKey()
End()

Also search the forums and the code archive for more examples

Ryanenu

(Posted 2013) [#3]

What about sorting these Types? For instance this is what I have right now, it seams to me to be a very inefficient way to go about sorting especially because in my program I will need to sort in this manner A LOT! Is there a more efficient way to sort and display type fields? I assume maybe I need to use a function?

 
;create type
Type player
Field ovr
End Type

;write type
For b = 1 To 10
	draft.player = New player
	draft\ovr = Rnd(1,100)
	Print draft\ovr
Next

;create sorting variables
Dim Sorter(5)
For b = 0 To 5
	Sorter(b) = 0
Next

;sorting
For draft.player = Each player
	If draft\ovr > Sorter(5)
		Sorter(1) = Sorter(2)
		Sorter(2) = Sorter(3)
		Sorter(3) = Sorter(4)
		Sorter(4) = Sorter(5)
		Sorter(5) = draft\ovr
	ElseIf draft\ovr > Sorter(4)
		Sorter(1) = Sorter(2)
		Sorter(2) = Sorter(3)
		Sorter(3) = Sorter(4)
		Sorter(4) = draft\ovr
	ElseIf draft\ovr > Sorter(3)
		Sorter(1) = Sorter(2)
		Sorter(2) = Sorter(3)
		Sorter(3) = draft\ovr
	ElseIf draft\ovr > Sorter(2)
		Sorter(1) = Sorter(2)
		Sorter(2) = draft\ovr
	ElseIf draft\ovr > Sorter(1)
		Sorter(1) = draft\ovr
	EndIf
Next

;display to indicate the sorted data
Print ""
Print "Sort"
Print ""

;print the sorted data
For b = 1 To 5
	Print sorter(b)
Next
WaitKey()
End

Also how would I go about saving a whole type? Would I need to do something like this?

 
fileout = WriteFile("mydata.dat")

For draft.player = Each player
	WriteByte( fileout, draft\ovr )
Next

If so how would I go about reloading the integers back into a type so they can be processed again by the program?

_PJ_	(Posted 2013) [#4]

filein=ReadFile("mydata.dat")
While Not(EoF(filein))
    draft.player = New player
    player\over=ReadByte(filein)
Wend

You may need some control over the data read in, especially if there are different data types within the file.

___

With regards to Sorting, you may prefer to use some form of hashing rather than re-position each and every element.

Const HASH_BEFORE=0
const HASH_AFTER=1

Dim HashArray(count,2)
HashArray(0,BEFORE)=Handle(First player)
For (x=1 to count-1)
 HashArray(x,BEFORE)=Handle(After(Object.player(HashArray(x-1,BEFORE)))
 HashArray(x-1,AFTER) = HashArray(x,BEFORE))
Next