ذخیره چند ارایه باینری در یک فایل و خواندن آن ها

[rasool.g 135]

کد زیر میاد یک ارایه باینری رو به شکل یک فایل ذخیره میکنه و دوباره باز میخونه

Sub BytesToFile (Dir As String, FileName As String, Data() As Byte)
	Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)
	out.WriteBytes(Data, 0, Data.Length)
	out.Close
End Sub

Sub FileToBytes (Dir As String, FileName As String) As Byte()
	Return Bit.InputStreamToBytes(File.OpenInput(Dir, FileName))
End Sub

بنظرم بشه چند آرایه رو هم با هم در یک فایل ذخیره کرد و با ذخیره شماره بایت اول و طول هر ارایه ، دوباره هر گدوم رو خوند. کسی این کار و بلده؟

کتابخانه زیر هم فکر کنم امکانات زیادی برای اینگونه کار ها داره ولی کار باهاش رو خوب بلد نیستم

RandomAccessFile

https://www.b4x.com/android/help/randomaccessfile.html