Module
Contents
Index 🔎︎

# Reset Statement

ཧརཌི་ཌིཀིསི་འདི་ལུ་ཡིག་སྣོད་གནད་ཁོངས་ཚུ་ཆ་མཉམ་གྱི་ནང་དོན་ཚུ་འབྲིཝ་དང་ཁ་ཕྱེ་ཡིག་སྣོད་ཚུ་ཆ་མཉམ་ཁ་བསྡམས་ཨིན།

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

    Reset

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

    Sub ExampleReset
    On Error GoTo ErrorHandler
    Dim iNumber As Integer
    Dim iCount As Integer
    Dim sLine As String
    Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Output As #iNumber
        དཔར་བསྐྲུན་འབད #ཨའི་ཨང "This is a new line of text"
        Close #iNumber
        iNumber = Freefile
        Open aFile For Input As iNumber
        For iCount = 1 To 5
            Line Input #iNumber, sLine
            If sLine <>"" Then
                Rem
            End If
        Next iCount
        Close #iNumber
        Exit Sub
    ErrorHandler:
        Reset
        འཕྲིན་དོན་སྒྲོམ "All files will be closed",0,"Error"
    End Sub