Module
Contents
Index 🔎︎

# Open Statement

បើក​វិថី​ទិន្នន័យ​មួយ​ ។​

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

    Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]

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

FileName: Name and path of the file to open. If you try to read a file that does not exist (Access = Read), an error message appears. If you try to write to a file that does not exist (Access = Write), a new file is created.

Mode ៖ ពាក្យ​គន្លឹះ​ដែល​បញ្ជាក់​​​របៀប​ឯកសារ ។ តម្លៃ​ត្រឹមត្រូវ ៖ Append (បន្ថែម​ខាង​ចុង​ទៅ​ឯកសារ​ត​គ្នា) Binary (ទិន្នន័យ​អាច​ត្រូវ​បាន​ចូល​ដំណើរការ​ជា​បៃ​ដោយ​ប្រើ Get និង Put) Input (បើក​ប៉ុស្តិ៍​ទិន្នន័យ​សម្រាប់​អាន) Output (បើក​ប៉ុស្ដិ៍​ទិន្នន័យ​សម្រាប់​សរសេរ) និង Random (កែ​សម្រួល​ឯកសារ​ប្រែប្រួល) ។

IOMode ៖ ពាក្យ​គន្លឹះ​ដែល​កំណត់​ប្រភេទ​ចូល​ដំណើរការ ។ តម្លៃ​ត្រឹមត្រូវ ៖ Read (បាន​តែ​អាន), Write (បាន​តែ​សរសេរ), Read Write (ទាំងពីរ) ។

Protected ៖ ពាក្យ​គន្លឹះ​ដែល​កំណត់​ស្ថានភាព​សុវត្ថិភាព​នៃ​ឯកសារ​បន្ទាប់​ពី​បើក ។ តម្លៃ​ត្រឹមត្រូវ ៖ Shared (ឯកសារ​អាច​ត្រូវ​បាន​បើក​ដោយ​កម្មវិធី​ផ្សេង​ទៀត) Lock Read (ឯកសារ​ត្រូវ​បាន​ការពារ​ទល់​នឹង​ការ​អាន) Lock Write (ឯកសារ​ត្រូវ​បាន​ការពារ​ទល់​នឹង​ការ​សរសេរ) Lock Read Write (បដិសេធ​ការ​ចូល​ដំណើរការ​ឯកសារ) ។

ចំនួន​ឯកសារ​ ៖ កន្សោម​ចំនួន​គត់​ណា​មួយ​ពី 0 ដល់ 511 ដើម្បី​ចង្អុល​បង្ហាញ​ចំនួន​នៃ​វិថី​ទិន្នន័យ​ដែល​ទំនេរ ។ បន្ទាប់​មក​អ្នក​អាច​ហុច​ពាក្យ​បញ្ជា​តាម​រយៈ​វិថី​ទិន្នន័យ ដើម្បី​ចូល​ដំណើរការ​ឯកសារ ។ លេខ​ឯកសារ​ត្រូវ​តែ​កំណត់​ដោយ​អនុគមន៍ FreeFile ភ្លាម​ៗ​មុន​សេចក្តី​ថ្លែង​ការណ៍ Open ។

ប្រវែង​សំណុំ​ទិន្នន័យ ៖ សម្រាប់​ការ​ចូល​ដំណើរ​ការ​ឯកសារ​ចៃដន្យ កំណត់​ប្រវែង​របស់​កំណត់​ត្រា ។

អ្នក​អាច​កែប្រែ​តែ​មាតិកា​នៃ​ឯកសារ ដែល​ត្រូវ​បាន​បើក​ជាមួយ​សេចក្តី​ថ្លែង​ការណ៍ Open ។ ប្រសិន​បើ​អ្នក​ព្យាយាម​បើក​ឯកសារ​មួយ​ដែល​បាន​បើក​រួច​ហើយ សារ​កំហុស​មួយ​នឹង​លេច​ឡើង ។

## ឧទាហរណ៍ ៖

    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, "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