Module
Contents
Index 🔎︎

# Get Statement

Đọc một bản ghi từ một tập tin tương đối, hoặc đọc một dãy byte từ một tập tin nhị phân, vào một biến.

Xem thêm: Câu lệnh PUT

## Cú pháp:

    Get [#] FileNumber As Integer, [Position], Variable

## Tham số :

FileNumber: (Số hiệu tập tin) bất cứ biểu thức số nguyên nào mà xác định số hiệu tập tin.

Position: (Vị trí) đối với các tập tin được mở ở chế độ Ngẫu nhiên, Position là số hiệu của bản ghi bạn muốn đoc.

Đối với các tập tin được mở ở chế độ Nhị phân, Position là vị trí trong tập tin ở đó bắt đầu đọc.

Nếu để trống Position (vị trí) thì vị trí con trỏ hoặc bản ghi hiện thời của tập tin sẽ được sử dụng.

Variable: (Biến) tên của biến cần đọc. Ra khỏi biến đối tượng, bạn vẫn còn có thể sử dụng bất cứ kiểu biến nào.

## Thí dụ :

    Sub ExampleRandomAccess

    Dim iNumber As Integer

    Dim vanBan As Variant REM Phải là Variant

    Dim aFile As String

        aFile = "c:\data.txt"

        iNumber = Freefile

        Open aFile For Random As #iNumber Len=32

        Seek #soNguyen,1 REM Vị trí bắt đầu

        Put #iNumber,, "This is the first line of text" REM Fill line with text

        Put #soNguyen,, "Day la dong thu hai"

        Put #soNguyen,, "Day la dong thu ba"

        Seek #iNumber,2

        Get #iNumber,,sText

        Print sText

        Close #iNumber

        iNumber = Freefile

        Open aFile For Random As #iNumber Len=32

        Get #iNumber,2,sText

        Put #soNguyen,,"Day la mot doan van moi"

        Get #iNumber,1,sText

        Get #iNumber,2,sText

        Put #soNguyen,20,"Day la van ban trong ban ghi 20"

        Print Lof(#iNumber)

        Close #iNumber

    End Sub