ذخیره و بازیابی آرایه در فایل

[amirsajjadi]

با سلام
چجوری یک آرایه رو در فایل ذخیره و سپس اون رو از داخل فایل بخونیم ؟ (آرایه ی بینهایت)

[babak23]

این یه نمونه برنام هست

[amirsajjadi]

آقا بابک من منظورم ذخیره یک آرایه ی بی نهایت در فایل بود نه سریالی کردن داده ها و ذخیره آنها در فایل ولی دستت درد نکنه زحمت کشیدی
خودم آخر پیداش کردن اینم کدش


برای خوندن از فایل و قرار دادن اطلاعات در آرایه :
Dim arr() AsString = NewString() {""}
FileOpen(1,"C:\C.Dat", OpenMode.Binary, OpenAccess.Read)
FileGet(1, arr, -1, True)
FileClose(1)

برای نوشتن آرایه در فایل :
FileOpen(1, "C:\C.Dat", OpenMode.Binary, OpenAccess.Write)
FilePut(1,نام آرایه, -1, True)
FileClose(1)