Eof Function

Xác định nếu con trỏ đã tới kết thúc tập tin chưa.

Cú pháp:

Eof (intexpression As Integer)

GIá trị trả về:

Bool

Tham số :

Intexpression: bất cứ biểu thức số nguyên nào mà ước lượng thành số thứ tự của một tập tin còn mở.

Hãy dùng hàm EOF để tránh lỗi khi bạn thử đặt dữ liệu nhập đi qua kết thúc của tập tin. Khi bạn dùng câu lệnh Input (nhập liệu) hoặc Get (lấy) để đọc từ một tập tin, con trỏ tập tin được tiên tiến theo số byte được đọc. Khi tới kết thúc tập tin, hàm EOF trả về giá trị « True » (Đúng): -1.

Error codes:

5 Sai gọi thủ tục

52 Tên/số tập tin sai

Thí dụ :

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Output As #iNumber

    Print #iNumber, "First line of text"

    Print #iNumber, "Another line of text"

    Close #iNumber

    iNumber = Freefile

    Open aFile For Input As iNumber

    While Not eof(iNumber)

        Line Input #iNumber, sLine

        If sLine <>"" Then

            sMsg = sMsg & sLine & chr(13)

        End If

    Wend

    Close #iNumber

    MsgBox sMsg

End Sub