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.

ཨིན་པུཊི#་གསལ་བཤད་དེ་གིས་ འགྱུར་ཅན་ཚུ་ལྷགཔ་ཡང་ན་གནད་སྡུད་གཅིག་ལུ་འགན་སྤྲོདཔ་དང་ཁ་ཕྱེ་ཡིག་སྣོད་ལས་ཡིག་རྒྱུན་ཚུ་ཡང་ན་ཨང་གྲངས་ཀྱི་གནས་གོང་ཚུ་ལྷགཔ་ཨིན། ཨང་གྲངས་ཀྱི་འགྱུར་ཅན་དེ་ཀེརེ་ཇི་དང་པ་སླར་ལོག་ (Asc=13), line feed (Asc=10) བར་སྟོང་ཡང་ན་ལྷོད་རྟགས་ཚུན་ཚོད་ལྷགཔ་ཨིན། ཡིག་རྒྱུན་འགྱུར་ཅན་ཚུ་ཆ་མཉམ་ཀེརེ་ཇི་དང་པ་སླརལོག་ (Asc=13), line feed (Asc=10), ཡང་ན་ལྷོད་རྟགས་ཚུན་ཚོད་ལུ་ལྷགཔ་ཨིན།

གནད་སྡུད་དང་གནད་སྡུད་དབྱེ་བ་ཚུ་ཁ་ཕྱེ་ཡོད་པའི་ཡིག་སྣོད་ནང་་ལུ་"var" ཚད་བཟུང་ནང་རྩིས་སྤྲོད་ཡོད་པའི་འགྱུུར་ཅན་བཟུམ་སྦེ་གོ་རིམ་ཅོག་འཐདཔ་ནང་འབྱུང་དགོཔ་ཨིན། ཁྱོད་ཀྱིས་ཨང་གྲངས་ཀྱི་གནས་གོང་ཚུ་མེད་པའི་ཨང་གྲངས་ཀྱི་འགྱུར་ཅན་ལུ་འགན་སྤྲོད་པ་ཅིན་ "var" དེ་"0"གི་གནས་གོང་ལུ་འགན་སྤྲོད་ཡོདཔ་ཨིན།

ཡིག་རྒྱུན་འགྱུར་ཅན་ལུ་ལྷོད་རྟགས་ཚུ་གིས་སོ་སོ་འཕྱལ་ཡོད་མི་ཚུ་འགན་སྤྲོད་འབད་མི་བཏུབ་ནི་ཨིནམ་དྲན་ཐོ་བཀོདཔ་ཨིན། དེ་མ་ཚད་ཡིག་སྣོད་ནང་གི་འདྲེན་རྟགས་ (") ཚུ་མི་བརྩིཝ་ཨིན། ཁྱོད་ཀྱིས་ཡིག་འབྲུ་འདི་ཚུ་ཡིག་སྣོད་ལས་ལྷག་དགོ་མནོ་བ་ཅིན་ གྱལ་ལས་གྱལ་སྦེ་་ (དཔར་བསྐྲུན་འབད་བཏུབ་པའི་ཡིག་འབྲུ་ཚུ་རྐྱངམ་གཅིག་ལྡན་མི་ཡིག་སྣོད་) ཡང་དག་ཚིག་ཡིག་ཡིག་སྣོད་ཚུ་ལྷག་ནི་ལུ་ གྲལ་ཐིག་ཨིན་པུཊི་#གསལ་བཤད་ལག་ལེན་འཐབ།

ཡིག་སྣོད་ཀྱི་མཇུག་དེ་གནད་སྡུད་ཆ་ཤས་ལྷག་པའི་སྐབས་ལྷོད་པ་ཅིན་ འཛོལ་བ་འབྱུངམ་དང་ལས་སྦྱོར་དེ་བར་བཤོལ་འབད་ཡོདཔ་ཨིན།

Example:


Sub ExampleWorkWithAFile
Dim iCount As Integer, sFileName As String
Dim sName As String, sValue As Integer
 
    sFileName = "C:\data.txt"
    iCount = Freefile
 
    ' Write data ( which we will read later with Input ) to file
    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
    ' Read data file using Input
    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

Please support us!