التعامل مع الملفات الثنائية

هذا الكود سيقرأ اول 100 بايت مكتوبة في ملف ثنائي مفترض موجود حجمه 100 بايت على الاقل.

    Dim A(99) As Byte, B As Byte
    Open "c:\test.bin" For Binary Access Read As #1
    For B = 0 To 99
        Get 1, B + 1, A(B)
    Next

اود التذكير هنا بشيئ وهو ان البعض ربما تصور بان الملف الثنائى يجب ان يكون مكتوبا بايت بايت وهذا غير صحيح الا في حالة كنا نكتب متغير من فئة بايت اما لو كنا نكتب متغير من فئة integer او double او غيرها فبالامكان قرائتها كما كتبت وبنفس نوع المتغير. وهذا يعنى ان الملف اذا كان عبارة عن اعداد integer و قمنا بقرائته في متغير بايت فان ذلك لا يعني الكثير وان عليك اجراء عمليات - انت في غنى عنها - لاعادة الارقام لاصلها و الاولى هو قرائتها كما كتبت.