SeekFile equivalent

BlitzMax Forums/BlitzMax Beginners Area/SeekFile equivalent

Rooster

(Posted 2016) [#1]

I'm moving over from Blitz3D, and I was trying to read a .dat file. I haven't been able to find a equivalent for SeekFile, so my question is how do port this code to BlitzMax?

 gendat =OpenFile ("anything.dat")

;checks to see if the file was loaded, if not it returns a err code 
 If(gendat = 0)
  RuntimeError("The file anything.dat has Not been loaded")
 EndIf

;checks to see if there is something in the file 
 SeekFile (gendat,tempmove)
  temp =ReadInt (gendat) =0
;If there is nothing in it, temp is set to 1 to skip over the reading loop
  If temp >0
   temp =1
  EndIf

 While temp =0

;adds a new npc to the list
  npc .npc_T =New npc_T

   SeekFile (gendat,tempmove)

;reads the x coordinate from the file
   npc\x = ReadInt (gendat)      

;this will move the seekfile command spaces down the file  
     tempmove =tempmove  +4

   SeekFile (gendat,tempmove)

;reads the y coordinate from the file 
    npc\y= ReadInt (gendat)


     tempmove =tempmove  +4

;checks to see if there anything else in the file
   SeekFile (gendat,tempmove)
    temp =ReadInt (gendat) =0
;if not temp is set to 1 to skip over the reading loop
    If temp >0
     temp =1
    EndIf

 Wend

Thanks for reading.

Henri

(Posted 2016) [#2]

Hi and welcome,

you can use SeekStream instead.

-Henri

Rooster

(Posted 2016) [#3]

Many thanks Henri! :)