Erl Function

āĻĒā§āϰ⧋āĻ—ā§āϰāĻžāĻŽ āϚāĻžāϞāύāĻžāϰ āϏāĻŽā§Ÿ āϝ⧇ āϏāĻžāϰāĻŋāϤ⧇ āĻ¤ā§āϰ⧁āϟāĻŋ āϏāĻ‚āϘāϟāĻŋāϤ āĻšā§Ÿ āϤāĻž āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:

Erl

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

Integer

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

āύ⧋āϟ āφāχāĻ•āύ

Erl āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻļ⧁āϧ⧁āĻŽāĻžāĻ¤ā§āϰ āϕ⧋āύ āϏāĻžāϰāĻŋ āϞ⧇āĻŦ⧇āϞ āύ⧟, āĻāĻ•āϟāĻŋ āϏāĻžāϰāĻŋāϰ āĻ•ā§āϰāĻŽ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤


āωāĻĻāĻžāĻšāϰāĻŖ:

Sub ExampleError

on error goto ErrorHandler REM āĻ¤ā§āϰ⧁āϟāĻŋ āĻšā§āϝāĻžāĻ¨ā§āĻĄāϞāĻžāϰ āϏ⧇āϟ āφāĻĒ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇

Dim iVar As Integer

Dim sVar As String

āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āύ⧟ āĻāĻŽāύ āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ⧇āϰ āĻĻā§āĻŦāĻžāϰāĻž REM Error āĻšā§Ÿ

    iVar = Freefile

    Open "\file9879.txt" For Input As #iVar

    Line Input #iVar, sVar

    Close #iVar

    Exit Sub

ErrorHandler:

    MsgBox "Error " & err & ": " & error$ + chr(13) + "In line : " + Erl + chr(13) + Now , 16 ,"An error occurred"

End Sub