Module
Contents
Index 🔎︎

# Eof Function

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

## វាក្យ​សម្ពន្ធ ៖

    Eof (intexpression As Integer)

## តម្លៃ​ត្រឡប់ ៖

ប៊ូល

## ប៉ារ៉ាម៉ែត្រ ៖

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

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

## Error codes:

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

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

## ឧទាហរណ៍ ៖

    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