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

Please support us!