Open Statement

གཞི་གྲངས་འགྲོད་ལག་ཞིག་ཁ་ཕྱེས།

བརྡ་འཕྲོད་

Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]

ཁུགས་གྲངས་

FileName: Name and path of the file to open. If you try to read a file that does not exist (Access = Read), an error message appears. If you try to write to a file that does not exist (Access = Write), a new file is created.

Mode ཡིག་ཆའི་མ་ཚུལ་གྱི་་འགག་གནད་ཡི་གེ་གཏན་འཁེལ་བྱེད།ནུས་ལྡན་ཐང་ Append(གོ་རིམ་ཡིག་ཆའི་ནང་ཟུར་སྣོན་བྱེད་)、binary( Get དང་ Put ཡིག་ཚེགས་ལྟར་འཚམས་འདྲི་བྱེད་པའི་གཞི་གྲངས་བེད་སྤྱོད་ཆོག་)、Input(གཞི་གྲངས་འགྲོད་ལག་ཁ་ཕྱེས་ནས་ཀློག་ལེན་བྱེད་)、Output(གཞི་གྲངས་འགྲོད་ལག་ཁ་ཕྱེས་ཏེ་འབྲི་བཅུག་བྱེད་)དང་ Random(འབྲེལ་ཡོད་ཡིག་ཆ་རྩོམ་སྒྲིག་བྱེད་)

IOMode འཚམས་འདྲི་རིགས་ཀྱི་འགག་གནད་ཡི་གེ་མཚན་འཇོག་བྱེད།ནུས་ལྡན་ཐང་ Read(ཀློག་)、Write(འབྲི་)དང་ Read Write(འབྲི་ཀློག་)

Protected:ཡིག་ཆ་ཁ་ཕྱེས་རྗེས་ཀྱི་བེད་འཇགས་གནས་སྟགས་ཀྱི་འགག་གནད་ཡི་གེ་གཏན་འཁེལ་བྱེད་ནུས་ལྡན་ཐང་ Shared(ཡི་ཆའིསཉེར་སྤྱོད་བྱ་རིམ་གཞན་ཁ་ཕྱེས་ཐུབ་)、Lock Read(ཡིག་ཆ་ཀློག་པའི་སྲུང་སྐྱོབ་ཐུབ་)、Lock Write(ཡིག་ཆ་འབྲི་བཅུག་སྲུང་སྐྱོབ་ཐུབ་)、Lock Read Write(ཡིག་ཆ་འཚམས་འདྲི་ཆ་རྒྱུ་ཁས་མི་ལེན་པ་)

FileNumber སྤྱོད་རུང་བའི་གཞི་གྲངས་འགྲོད་ལག་ཁ་གྲངས་ཀྱིས་ཧྲིལ་གྲངས་གང་རུང་གི་མཚོན་ཚུལ་གཏན་འཁེལ་བྱེད་ཐང་འདི་ངེས་པར་དུ་ 0 ནས་ 511 དབར་ཡིན་ ཁྱེད་ཀྱིས་གཞི་གྲངས་འགྲོད་ལག་བརྒྱུད་བརྒྱུད་སྐྱེལ་བཀའ་ཚིག་གི་ཡིག་ཆ་འཚམས་འདྲ་བྱེད་ ཡིག་ཆའི་ཨང་སྒྲིག་ Open བརྗེད་པ་རོགས་རམ་མ་གཡར་གོང་གི་ FreeFile རྟེན་གྲངས་ཀྱི་གཏན་འཁེལ་བྱེད།

DatasetLength: འབྲེལ་ཡོད་ཡིག་ཆ་དམིགས་འཛུགས་ཐོ་འགོད་ཀྱིས་རིང་ཚད་ཕྱིར་ལོག་བྱེད་ Random འཚམས་འདྲི་མ་ཚུལ་ཁ་ནལ་ཡིག་ཆ་ཁ་ཕྱེས་བའི་སྐབས་གཞི་ནས་ཞུགས་གྲངས་འདི་དགོས་ངེས་ཡིན།

ཁྱེད་ཀྱིས་ Open བརྗེད་པ་ཁ་ཕྱེས་བ་རྒྱུད་ཡིག་ཆའི་ནང་ནང་དོན་ཁོ་ན་བཟོ་བཅོས་བྱེད་ གལ་སྲིད་ཁྱེད་ཀྱིས་ཁ་ཕྱེས་ཟིན་པའི་ཡིག་ཆ་གཅིག་ཁ་ཕྱེས་རྒྱུ་ཚོད་ལྟ་བྱས་ན་ནོར་འཁྲུལ་གྱི་ཉན་ཞུགས་ཞིག་མངོན་ཐུབ།

དཔེ་གཞི་

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