Module
Contents
Index 🔎︎

# Input# Statement

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

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

Input #FileNumber As Integer; var1[, var2[, var3[,...]]]

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

FileNumber ៖ ចំនួន​ឯកសារ​ដែល​មាន​ទិន្នន័យ ដែល​អ្នក​ចង់​អាន ។ ឯកសារ​ត្រូវ​តែ​បើក​ជាមួយ​សេចក្តី​ថ្លែង​ការណ៍ Open ដោយ​ប្រើ​ពាក្យ​គន្លឹះ INPUT ។

var ៖ អថេរ​លេខ ឬ​ខ្សែ​អក្សរ​ដែល​អ្នក​ផ្តល់​តម្លៃ​ដែល​អាន​ពី​ឯកសារ​ដែល​បាន​បើក​ទៅ ។

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

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

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

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

## ឧទាហរណ៍ ៖

    Sub ExampleWorkWithAFile
    Dim iCount As Integer
    Dim sName As String
    Dim sValue As Integer
    Dim sFileName As String

    sFileName = "c:\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