Input# Statement

អាន​ទិន្នន័យ​ពី​ឯកសារ​ដែល​បាន​បើក​ត​គ្នា ។

Syntax:

Input Statement diagram


Input #fileNum {,|;} var1 [, var2 [, ...]]

Parameters:

fileNum: Number of the file that contains the data that you want to read. The file must be opened with the Open statement using the key word INPUT.

var: A numeric or string variable that you assign the values read from the opened file to.

សេចក្តី​ថ្លែង​ការណ៍ Input# អាន​តម្លៃ​លេខ ឬ​ខ្សែ​អក្សរ​ពី​ឯកសារ​ដែល​បើក និង​ផ្តល់​តម្លៃ​ទិន្នន័យ​ទៅ​អថេរ​មួយ ឬ​ច្រើន ។ អថេរ​លេខ​ត្រូវ​បាន​អាន​រហូត​ដល់​ចូល​បន្ទាត់​ថ្មី​ដំបូង (Asc=13) ចុះ​បន្ទាត់ (Asc=10) ដកឃ្លា ឬ​សញ្ញា​ក្បៀស ។ អថេរ​ខ្សែ​អក្សរ​ត្រូវ​បាន​អាន​រហូត​ដល់​ចូល​បន្ទាត់​ថ្មី (Asc=13) ចុះ​បន្ទាត់ (Asc=10) ឬ​សញ្ញា​ក្បៀស ។

ទិន្នន័យ និង​ប្រភេទ​ទិន្នន័យ​ក្នុង​ឯកសារ​ដែល​បាន​បើក ត្រូវ​តែ​លេច​ឡើង​ក្នុង​លំដាប់​ដូច​គ្នា​ទៅ​នឹង​អថេរ​ដែល​ត្រូវ​បាន​ហុច​ក្នុង​ប៉ារ៉ាម៉ែត្រ "var" ។ ប្រសិន​បើ​អ្នក​ផ្តល់​តម្លៃ​មិន​មែន​ជា​លេខ​ទៅ​អថេរ​លេខ "var" ត្រូវ​បាន​ផ្តល់​តម្លៃ "0" ។

កំណត់​ត្រា​ដែល​ត្រូវ​បាន​បំបែក​ដោយ​សញ្ញា​ក្បៀស សញ្ញា​ក្បៀស​មិន​អាច​ត្រូវ​បាន​ផ្តល់​តម្លៃ​ទៅ​អថេរ​ខ្សែ​អក្សរ ។ សញ្ញា​សម្រង់ (") ក្នុង​ឯកសារ​ក៏​មិន​ត្រូវ​បាន​គោរព​ផង​ដែរ ។ ប្រសិន​បើ​អ្នក​ចង់​អាន​តួ​អក្សរ​ទាំង​នេះ​ពី​ឯកសារ ប្រើ​សេចក្តី​ថ្លែង​ការណ៍ Line Input# ដើម្បី​អាន​ឯកសារ​អត្ថបទ​សុទ្ធ (ឯកសារ​ដែល​មាន​តែ​តួ​អក្សរ​អាច​បោះពុម្ព) ម្តង​មួយ​ជួរ​ៗ ។

ប្រសិន​បើ​ទៅ​ដល់​ចុង​ឯកសារ ខណៈ​ពេល​អាន​ធាតុ​ទិន្នន័យ កំហុស​មួយ​កើត​ឡើង និង​​ដំណើរការ​ត្រូវ​បាន​បញ្ឈប់ ។

Example:


Sub ExampleWorkWithAFile
    Dim iCount As Integer, sFileName As String
    Dim sName As String, sValue As Integer
    sFileName = "C:\Users\ThisUser\data.txt"
    iCount = Freefile
    ' សរសេរ​ទិន្នន័យ (ដែល​យើង​នឹង​អាន​នៅ​ពេល​ក្រោយ​ជាមួយ​ព័ត៌មាន​បញ្ចូល) ទៅកាន់​ឯកសារ
    Open sFileName For Output As iCount
    sName = "Hamburg" : sValue = 200
    Write #iCount, sName, sValue
    sName = "New York" : sValue = 300
    Write #iCount; sName, sValue
    sName = "Miami" : sValue = 459
    Write #iCount, sName, sValue
    Close #iCount
    ' អាន​ឯកសារ​ទិន្នន័យ​ដោយ​ប្រើ​ព័ត៌មាន​បញ្ចូល
    iCount = Freefile
    Open sFileName For Input As iCount
    Input #iCount, sName, sValue
    MsgBox sName & " " & sValue
    Input #iCount; sName, sValue
    MsgBox sName & " " & sValue
    Input #iCount, sName, sValue
    MsgBox sName & " " & sValue
    Close #iCount
End Sub