Contents
Index 🔎︎

# Eof Function

កំណត់​ប្រសិន​បើ​ទ្រនិច​ឯកសារ បាន​ទៅ​ដល់​ចុង​បញ្ចប់​នៃ​ឯកសារ ។

### Syntax:

    Eof (intexpression As Integer)

### Return value:

ប៊ូល

### Parameters:

Intexpression ៖ កន្សោម​ចំនួន​គត់​ណា​មួយ ដែល​វាយ​តម្លៃ​លេខ​ឯកសារ​ដែល​បើក ។

ប្រើ EOF ដើម្បី​ចៀសវាង​កំហុស​នៅ​ពេល​អ្នក​ប៉ុនប៉ង​ទទួល​ព័ត៌មាន​បញ្ចូល​ហួស​ចុង​បញ្ចប់​នៃ​ឯកសារ ។ នៅ​ពេល​អ្នក​ប្រើ​សេចក្តី​ថ្លែង​ការណ៍ Input ឬ Get ដើម្បី​អាន​ពី​ឯកសារ​មួយ ទ្រនិច​ឯកសារ​ត្រូវ​បាន​រំកិល​ទៅ​មុខ​តាម​ចំនួន​បៃ​ដែល​បាន​អាន ។ នៅ​ពេល​ឈាន​ដល់​ចុង​បញ្ចប់​នៃ​ឯកសារ EOF ត្រឡប់​តម្លៃ "True" (-1) ។

### Error codes:

5 ការ​ហៅ​បែបបទ​មិន​ត្រឹមត្រូវ

52 ឈ្មោះ ឬ​លេខ​ឯកសារ​មិន​ត្រឹមត្រូវ

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

ប្រធានបទ​ទាក់ទង

Close Statement

Print# Statement

Input# Statement

Open Statement