Sauvegarde d'un tableau simple en fichier
Publié : ven. 13/nov./2009 17:50
voilà je créer un tableau avec liste alléatoire.... je la sauvegarde et je la recharge... la ça marche.
maintenant qu'il y a une sauvegarde... vous mettez en commentaire la sauvegarde
et vous recharger la liste et là le dernier chiffre n'est plus le bon .... pourquoi ... je comprends pas trop ...
si quelqu'un a une idée ...
maintenant qu'il y a une sauvegarde... vous mettez en commentaire la sauvegarde
et vous recharger la liste et là le dernier chiffre n'est plus le bon .... pourquoi ... je comprends pas trop ...
si quelqu'un a une idée ...
Code : Tout sélectionner
Global Dim RandomList.l(1)
Procedure SaveRandomList()
Size.l=ArraySize(RandomList())*4; .l = 4 octets
*Target=AllocateMemory(Size+8)
CompressedSize=PackMemory(@RandomList(),*Target, Size , 9)
If CompressedSize
If CreateFile(0,"List.tmp")
WriteLong(0,ArraySize(RandomList()))
WriteData(0, *Target,CompressedSize )
CloseFile(0)
EndIf
EndIf
Debug Size
Debug CompressedSize
Debug *Target
FreeMemory(*Target)
EndProcedure
Procedure LoadRandomList()
If OpenFile(0,"List.tmp")
Size.l=ReadLong(0)*4; .l = 4 octets
ReDim RandomList(Size)
LengthToRead=Lof(0)-4+8;Moins les 4 octets de depart qui serve a connaitre la taille du tableau et +8 comme demandé dans la notice
*Source=AllocateMemory(LengthToRead)
ReadData(0, *Source, LengthToRead)
UnpackMemory(*Source, @RandomList())
CloseFile(0)
EndIf
EndProcedure
Procedure MakeRandomList(Min,Max)
RandomSeed(ElapsedMilliseconds())
ReDim RandomList(Max)
For z=Min To Max
RandomList(z)=z
Next
For z=Min To Max
Swap RandomList(z),RandomList(Min+Random(Max-Min))
Next
EndProcedure
MakeRandomList(1,130)
For z=0 To 130
Debug "RandomList("+Str(z)+")="+Str(RandomList(z))
Next
SaveRandomList()
Debug"_____"
LoadRandomList()
For z=0 To 130
Debug "RandomList("+Str(z)+")="+Str(RandomList(z))
Next