Contents
Index 🔎︎

# Line Input # Statement

འགྱུར་ཅན་ནང་ཡིག་སྣོད་འབྱུང་རིམ་ལས་ཡིག་རྒྱུན་ཚུ་ལྷགཔ་ཨིན།

## ཚིག་སྦྱོར:

    གྱལ་ཨིན་པུཊི #ཡིག་སྣོད་ཨང་་ཧྲིལ་ཨང་བཟུམ་སྦེ་ ཝར་ཡིག་རྒྱུན་བཟུམ་སྦེ།

## ཚད་བཟུང་ཚུ་:

ཡིག་སྣོད་ཨང་: ཡིག་སྣོད་ཀྱི་ཨང་དེ་ནང་ཁྱོད་ཀྱིས་ལྷག་ནིཨིན་མི་གནད་སྡུད་དེ་ཡོདཔ་ཨིན། ཡིག་སྣོད་དེ་གཙོ་ཚིག་ ལྷག་ ལག་ལེན་འཐབ་དེ་གིས་ཁ་ཕྱེ་གསལ་བཤད་གཅིག་ཁར་སྔ་གཡར་ནང་ཁ་ཕྱེ་དགོཔ་ཨིན།

var: གྲུབ་འབྲས་མཛོད་ཁང་འགྱུར་ཅན་གྱི་མིང་།

གྱལ་ཨིན་པུཊི་ # གསལ་བཤད་གཅིག་ཁར་ ཁྱོད་ཀྱིས་འགྱུར་ཅན་ནང་ན་ཡིག་སྣོད་ཁ་ཕྱེ་ཅིག་ལས་ཡིག་རྒྱུན་ཚུ་ལྷག་བཏུབ། ཡིག་རྒྱུན་འགྱུར་ཅན་ཚུ་ཆ་མཉམ་ཀེརེ་ཇི་དང་པ་སླར་ལོག་ཚུན་ཚོད་ལུ་གྱལ་རེ་རེ་གི་རེ་རེ་འབད་ (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
        དཔར་བསྐྲུན་འབད#ཨའི་ཨང་ "This is a line of text"
        #ཨའི་ཨང་དཔར་བསྐྲུན་འབད། "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