LibreOffice 24.8 Help
āĻĒā§āĻ°ā§āĻā§āĻ°āĻžāĻŽ āĻāĻžāĻ˛āĻ¨āĻžāĻ° āĻ¸āĻŽā§ āĻ¯ā§ āĻ¸āĻžāĻ°āĻŋāĻ¤ā§ āĻ¤ā§āĻ°ā§āĻāĻŋ āĻ¸āĻāĻāĻāĻŋāĻ¤ āĻšā§ āĻ¤āĻž āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
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