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