Module
Contents
Index 🔎︎

# Open Statement

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

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

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

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

FileName ៖ ឈ្មោះ និង​ផ្លូវ​នៃ​ឯកសារ ដែល​អ្នក​ចង់​បើក ។ ប្រសិន​បើ​អ្នក​ព្យាយាម​អាន​ឯកសារ​ដែល​មិនមាន (សិទ្ធិ​ដំណើរការ = អាន) នោះ​សារ​កំហុស​នឹង​លេចឡើង ។ ប្រសិន​បើ​អ្នក​ព្យាយាម​សរសេរ​ឯកសារ​ដែល​មិនមាន (សិទ្ធិ​ដំណើរការ = សរសេរ) នោះ​ឯកសារ​ថ្មី​គឺ​ត្រូវ​បង្កើត ។

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