Open Statement

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

བརྡ་འཕྲོད་

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

ཁུགས་གྲངས་

FileName ཁ་ཕྱེས་བའི་ཡིག་ཆའི་མིང་དང་བརྒྱུད་ལག་གལ་སྲིད་ཀློག་པའི་ཡིག་ཆ་གནས་མེད་ན་ (Access = Read)ནོར་འཁྲུལ་གྱི་ཆ་འཕྲིན་ཞིག་མངོན།གལ་སྲིད་འབྲི་བཅུག་བྱེད་པའི་ཡིག་ཆ་གནས་མེད་ན་ (Access = Write) ཡིག་ཆ་གསར་པ་ཞིག་བཟོས།

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