Erl Function

рдХрд╛рд░реНрдпрдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░рд┐рд░рд╣реЗрдХреЛ рдмреЗрд▓рд╛рдорд╛ рддреНрд░реБрдЯрд┐ рдЖрдЙрдиреЗ рдард╛рдЙрдБрдорд╛ рд░реЗрдЦрд╛ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


Erl

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдЗрдиреНрдЯрд┐рдЬрд░

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рджреНрд░рд╖реНрдЯрд╡реНрдп рдкреНрд░рддрд┐рдорд╛

Erl рд▓реЗ рд░реЗрдЦрд╛ рдирдореНрдмрд░ рдорд╛рддреНрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ, рд░ рд░реЗрдЦрд╛ рд▓реЗрдмреБрд▓ рдлрд░реНрдХрд╛рдЙрджреИрди ред


рдЙрджрд╛рд╣рд░рдг:


Sub ExampleError
On Error GoTo ErrorHandler ' рдорд╛ рдЬрд╛рдиреБрд╣реЛрд╕реН, рддреНрд░реБрдЯрд┐ рд╣реНрдпрд╛рдиреНрдбрд▓рд░ рд╕реЗрдЯрдЕрдк рдЧрд░реНрдиреБрд╣реЛрд╕реН
Dim iVar As Integer
Dim sVar As String
рдлрд╛рдЗрд▓ рдЕрд╡рд╕реНрдерд┐рдд рдирднрдПрдХреЛ рдХрд╛рд░рдгрд▓реЗ REM рдорд╛ рддреНрд░реБрдЯрд┐
    iVar = Freefile
    Open "\file9879.txt" For Input As #iVar
    Line Input #iVar, sVar
    Close #iVar
    Exit Sub
ErrorHandler:
    рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ "рддреНрд░реБрдЯрд┐ " & err & ": " & error$ + chr(13) + "рд▓рд╛рдЗрдирдорд╛ : " + Erl + chr(13) + рдЕрд╣рд┐рд▓реЗ , 16 ,"рдПрдЙрдЯрд╛ рддреНрд░реБрдЯрд┐ рд░рд╣рди рдЧрдпреЛ"
End Sub

Please support us!