Input# Statement

ཁ་ཕྱེ་བའི་གོ་རིམ་ཡིག་ཆ་ནས་གཞི་གྲངས་ཀློག་འདོན་བྱེད།

བརྡ་འཕྲོད་

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

ཁུགས་གྲངས་

FileNumber ཀློག་ལེན་བྱ་རྒྱུའི་གཞི་གྲངས་ཀྱི་ཨང་སྒྲིག་ལྡན། ཡིག་ཆ་འདི་ངེས་པར་དུ་འགག་གནད་ཡི་གེ་ INPUT ལྡན་པའི་ Open རྗོད་པ་སྤྱད་ནས་ཁ་ཕྱེ་དགོས།

var གྲངས་ཀའམ་ཡིག་རྟགས་ཕྲེང་བ་ཚད་འགྱུར་ན་ ཁ་ཕྱེ་བའི་ཡིག་ཆའི་ནང་ཀློག་འདོན་གྱི་ཐང་གསོག་ཉར་ལ་སྤྱོད།

Input# རྗོད་པ་ནི་ཁ་ཕྱེ་བའི་ཡིག་ཆའི་ནང་གྲངས་ཐང་ངམ་ཡིག་རྟགས་ཕྲེང་ཀློག་འདོན་བྱེད་པ་མ་ཟད་གཞི་གྲངས་འདི་དག་འགྱུར་ཚད་གཅིག་གམ་མང་པོར་གཏན་འཁེལ་བྱེད། གྲངས་ཀའི་འགྱུར་ཚད་ཀློག་འདོན་བརྒྱུད་རིམ་ལ་Enterམཐེབ་ཨང་དང་པོ་དང་ (Asc=13)ཕྲེང་བརྗེ་ (Asc=10)སྟོང་མིག་གམ་མཚམས་རྟགས་ཐུག་དུས་མཚམས་འཇོག་བྱེད་ ཡིག་རྟགས་ཕྲེང་བ་འགྱུར་ཚད་ཀྱི་བརྒྱུད་རིམ་ཀློག་འདོན་ལ་Enterམཐེབ་ (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

 

' 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