Large arrays

[pollier]

I have a large four-dimensional array in my game and I need the most efficient way of saving/loading it possible. I am currently using four For..Next loops but I'm sure there's a faster way. Anyone?

[Fox]

Sure

Dim Array() as Whatever
Dim Size as Long
Dim FileNum as Integer

Sub Form_Load()
   size = 100000
   Redim array(size)
End Sub

Save(FileName as string)
   Filenum=freefile
   Open filename for binary as filenum
      put filenum,,size
      put filenum,,array
   close filenum
end sub

Save(FileName as string)
   Filenum=freefile
   Open filename for binary as filenum
      get filenum,,size
      redim array(size)
      get filenum,,array
   close filenum
end sub

have fun

[HarryW]

Saving it to a file? Well just do this:

Open strFileName For Binary As #1
    Put #1, , ReallyBigArray
Close #1

You don't have to use loops, just stick the whole thing in like that.

[Fox]

I was faster

[HarryW]

*D'oh*

Hehe

[Koralt]

What exactly are you using this four-dimensional array for?

[oetje]

Originally posted by Fox
Sure

Dim Array() as Whatever
Dim Size as Long
Dim FileNum as Integer

Sub Form_Load()
   size = 100000
   Redim array(size)
End Sub

Save(FileName as string)
   Filenum=freefile
   Open filename for binary as filenum
      put filenum,,size
      put filenum,,array
   close filenum
end sub

Save(FileName as string)
   Filenum=freefile
   Open filename for binary as filenum
      get filenum,,size
      redim array(size)
      get filenum,,array
   close filenum
end sub

have fun

You have 2 Save functions in your code. The 2nd one should be Open.