Eof Function

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

Syntax:

Eof (intexpression As Integer)

Return value:

Bool

Parameters:

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

Example:

Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
    aFile = "C:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "This is a line of text"
    Print #iNumber, "This is 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

Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
    aFile = "~/data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "This is a line of text"
    Print #iNumber, "This is 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