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

Please support us!