Module
Contents
Index 🔎︎

# Line Input # Statement

អាន​ខ្សែ​អក្សរ​ពី​ឯកសារ​ត​គ្នា​ទៅ​ក្នុង​អថេរ​មួយ ។

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

    Line Input #FileNumber As Integer, Var As String

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

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

var ៖ ឈ្មោះ​អថេរ​ដែល​រក្សាទុក​លទ្ធផល ។

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

## ឧទាហរណ៍ ៖

    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