Eof Function

ཡིག་ཆའི་སྟོན་མདའ་ཡིག་ཆའི་མཇུག་ཏུ་སླེབས་མིན་གཏན་འཁེལ་བྱེད་པ།

བརྡ་འཕྲོད་

Eof (intexpression As Integer)

ཕྱིར་ལོག་ཐང་

པུའུ་འར་

ཁུགས་གྲངས་

Intexpression:ཁ་ཕྱེ་བའི་ཡིག་ཆའི་རྩིས་རྒྱག་གི་ཨང་སྒྲིག་གི་ཧྲིལ་གྲངས་གང་རུང་གི་མཚོན་ཚུལ་ལ་སྤྱོད་པ།

EOF རྟེན་གྲངས་སྤྱད་ནས་ནང་འཇུག་བྱེད་དུས་ཡིག་ཆའི་མཇུག་མཐའ་ལས་བརྒལ་བའི་ནོར་འཁྲུལ་ལས་གཡོགཡོ་ཆོག། ཁྱེད་ཀྱིས་ Input ཡང་ན་ Get བརྗོད་པའི་ཡིག་ཆ་ཀློག་འདོན་བྱེད་དུས་ ཡིག་ཆའི་སྟོན་མདའ་ཀློག་འདོན་བྱས་པའི་ཡིག་ཚེགས་ཀྱི་གྲངས་གཞིར་བཟུང་ནས་མདུན་ལ་སྤོ་འགུལ་བྱེད་དོ། EOFཕྱིར་ལོག་ "True" (-1)

Error codes:

5 ནུས་མེད་ཀྱི་བརྒྱུད་རིམ་འཁོར་སྤྱོད་

52 ནོར་བའི་ཡི་ཆའི་མིང་ངམ་ཨང་སྒྲིག་

དཔེ་གཞི་

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, "First line of text"

    Print #iNumber, "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