IBM Lotus Symphony
|
Gibt die Zeilennummer zurück, an der ein Fehler in der Programmausführung aufgetreten ist.
Erl
Integer
![]() |
Die Erl-Funktion gibt lediglich eine Zeilennummer, jedoch kein Zeilenlabel zurück. |
sub ExampleError
on error goto ErrorHandler REM Fehlerbehandlung anmelden
Dim iVar as Integer
Dim sVar As String
REM Hier wird ein Fehler verursacht, da die Datei nicht existiert
iVar = Freefile
Open "\file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
exit sub
ErrorHandler:
MsgBox "Fehler " & err & ": " & error$ + chr(13) + "In Zeile: " + Erl + chr(13) + Now , 16 ,"ist ein Fehler aufgetreten"
end sub