Contents

# 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 type:

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

Chủ đề Liên quan

Close Statement

Print# Statement

Input# Statement

Open Statement

Please support us!