Eof Function

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

Syntax:

Eof (intexpression As Integer)

Return type:

ប៊ូល

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 = "~/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

Please support us!