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