Contents
Index 🔎︎

# Eof Function

ཡིག་སྣོད་ཀྱི་མཇུག་ལུ་བདའ་ཟུན་ཡོད་པ་ཅིན་ཡིག་སྣོད་དཔག་བྱེད་འདི་གཏན་འབེབས་བཟོཝ་ཨིན།

## ཚིག་སྦྱོར:

    ཨི་གི (intexpression As Integer)

## གནས་གོང་སླར་ལོག:

བུལ།

## ཚད་བཟུང་ཚུ་:

ཨིནཊི་གསལ་བརྗོད: ཧྲིལ་ཨང་གསལ་བརྗོད་གང་རུང་ ཡིག་སྣོད་ཀུན་གྱི་ཨང་གྲངས་ལུ་བརྟག་ཞིབ་འབདཝ་ཨིན།

ཁྱོད་ཀྱིས་ཡིག་སྣོད་ཀྱི་མཇུག་ཨིན་པུཊི་ལེན་ནི་ལུ་དཔའ་བཅམ་མིའི་སྐབས་འཛོལ་བ་ཚུ་ཟུར་ནི་ལུ་ ཨི་ཨོ་ཨེཕ་་ལག་ལེན་འཐབ། ཁྱོད་ཀྱིས་ཨིན་པུཊི་ ཡང་ན་ལེན་གསལ་བཤད་་ཡིག་སྣོད་ལས་ལྷག་ནི་ལུ་ལག་ལེན་འཐབ་ད་ ཡིག་སྣོད་དཔག་བྱེད་དེ་ བཱའིཊིསི་ལྷག་ནི་གི་ཨང་གིས་འབད་རྔ་གཡར་འབད་ཡོདཔ་ཨིན། ཡིག་སྣོད་དེ་གི་མཇུག་དེ་ལྷོདཔ་ད་ ཨི་ཨོ་ཨེཕ་གིས་གནས་གོང་ "True" (-༡)སླར་ལོགཔ་ཨིན།

## Error codes:

༥ ནུས་མེད་བྱ་སྒོའི་ལམ་ལུགས་བོད་བརྡ་

༥༢ བྱང་ཉེས་ཡིག་སྣོད་མིང་ཡང་ན་ཨང་གྲངས་

## དཔེར་བརྗོད:

    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
        དཔར་བསྐྲུན་ #ཨའི་ཨང་ "First line of text"
        དཔར་བསུཔ་ #ཨའི་ཨང་། "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