Module
Contents
Index 🔎︎

# Get Statement

អាន​កំណត់​ត្រា​មួយ​ពី​ឯកសារ​ប្រែប្រួល ឬ​បៃ​ត​ៗ​គ្នា​ពី​ឯកសារ​គោល​ពីរ​មួយ ទៅ​ក្នុង​អថេរ​មួយ ។

មើល​ផង​ដែរ ៖ សេចក្តីថ្លែងការណ៍ PUT ។

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

    Get [#] FileNumber As Integer, [Position], Variable

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

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

ទីតាំង ៖ សម្រាប់​ឯកសារ​ដែល​បាន​បើក​ក្នុង​របៀប Random ទីតាំង គឺ​ជា​ចំនួន​កំណត់ត្រា​ដែល​អ្នក​ចង់​អាន ។

សម្រាប់​ឯកសារ​ដែល​បាន​បើក​ក្នុង​របៀប Binary Position គឺ​ជា​ទីតាំង​បៃ​ក្នុង​ឯកសារ ដែល​ការ​អាន​ចាប់ផ្តើម ។

ប្រសិន​បើ Position ត្រូវ​បាន​លុប ទីតាំង​បច្ចុប្បន្ន ឬ​កំណត់​ត្រា​ទិន្នន័យ​បច្ចុប្បន្ន​នៃ​ឯកសារ​ត្រូវ​បាន​ប្រើ ។

Variable ៖ ឈ្មោះ​អថេរ​ដែល​នឹង​ត្រូវ​អាន ។ ជាមួយ​ករណី​លើក​លែង​នៃ​អថេរ​វត្ថុ អ្នក​អាច​ប្រើ​ប្រភេទ​អថេរ ។

## ឧទាហរណ៍ ៖

    Sub ExampleRandomAccess
    Dim iNumber As Integer
    Dim sText As Variant REM Must be a variant
    Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Seek #iNumber,1 REM Position at beginning
        Put #iNumber,, "This is the first line of text" REM Fill line with text
        Put #iNumber,, "This is the second line of text"
        Put #iNumber,, "This is the third line of text"
        Seek #iNumber,2
        Get #iNumber,,sText
        Print sText
        Close #iNumber
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Get #iNumber,2,sText
        Put #iNumber,,"This is a new text"
        Get #iNumber,1,sText
        Get #iNumber,2,sText
        Put #iNumber,20,"This is the text in record 20"
        Print Lof(#iNumber)
        Close #iNumber
    End Sub