Fehlerbehandlung ist eine der wichtigen Aufgaben in einem Programm. Sie dient dazu
möglich
Fehler während der Laufzeit in der Anwendung und des Anwender abzufangen. Für diese
Fehlerbehandlung stellt StarBasic besondere Funktionen zur Verfügung.
On Error
Mit On Error beginnt jede Fehlerroutine. Mit dieser Anweisung wird die mögliche Fehlerbehandlung
eingeleitet. Mögliche Fehlerbehandlung? Weil natürlich nicht alle Fehler abgefangen werden
können. Es können nur Fehler abgefangen werden für StarBaisc einen Errorhandling bereitstellt.
Desweiteren ist die Fehlerbehandlung im Kern nur eine Variante des Goto-Befehls und mit der
entsprechenden Vorsicht zu verwenden.
On Error Goto Sprungziel
Um jetzt diese Sprungziel festzulegen wird dieselbe Logik verwendet wie bei Goto.
Sub Test
Anweisung
Anweisung
On Error Goto Fehlerbehandlung
Anweisung
Exit Sub
Fehlerbehandlung:
Anweisung
End Sub
Zusätzlich kann man noch festlegen wie das Programm nach der Fehlerbearbeitung weiterarbeiten
soll. Dazu wird der Befehl Resume verwendet. Dieser kann auf zwei Arten eingesetzt werden. Die
erste ist Resume Next. Dabei wird direkt nach der Zeile weitergearbeitet die den Fehler verursacht.
Die andere ist Resume Sprungziel. Das entspricht eigentlich einem Goto. Dann wird das
Programm an einem Sprungziel weiter abgearbeitet.
Variante 1:
Sub Test
Anweisung ....
.... Exit Sub
Fehlerbehandlung:
Anweisung
Resume Next
End Sub
Variante 2:
Variante 1:
Sub Test
Anweisung ....
.... Exit Sub
Fehlerbehandlung:
Anweisung
Resume Weiter
Weiter:
Anweisung
End Sub
Mit der Kombination von On error und resume Next kann man auf jegliche Fehlerbehandlung
verzichten. Dann wird einfach bei einem Fehler die nächste Zeile nach dem Fehler weiter
angearbeitet.
Sub Test
Anweisung
On Error Resume Next
Anweisung
Anweisung
End Sub
Beendet wird die Fehlerprüfung mit dem Befehl On Error Goto 0. Damit wird die Fehlerbehandlung
wieder ausgeschaltet.
Sub Test
On Error Resume Next
Anweisung
On Error Goto 0
Anweisung
End Sub
Da ein Programmier absichtlich keine Fehler programmiert, ist es mir etwas schwer
gefallen ein
Beispiel zu finden. Aber ich habe eines gefunden! Wir wollen eine Datei speichern, aber das
Verzeichnis existiert nicht, die Datei ist dort schon gespeichert oder der Name macht keinen Sinn.
Also erstmal die Routine ohne Fehlerbehandlung.
Sub Speichern
dim args(0) as new com.sun.star.beans.PropertyValue
Dateiname = InputBox ("Geben Sie bitte den Dateinamen ein:")
Speicherort = InputBox ("Geben Sie bitte ein Verzeichnis ein:")
mydoc = ThisComponent
myUrl= Speicherort + Dateiname
mydoc.storeasurl(myurl,args())
End Sub
Die potientelle Problemzeile ist "mydoc.storeasurl.(myurl.args())". Beim
Aufruf dieser Zeile kann ein
Fehler auftreten wenn zum Beispiel das Verzeichnis zum Speichern nicht existiert. Um diesen
Fehler abzufangen machen wir in der einfachsten Version der Fehlerbehandlung nur einen Sprung.
Damit ignorien wir den Fehler einfach.
Sub Speichern
dim ........
......Dateiname
On Error Resume Next
mydoc.storeasurl(myurl,args())
End Sub
Diese Art der Fehlerbehandlung hat nur einen Nachtteil: Unser Programm reagiert nicht
auf den
Fehler. In unserem Beispiel wurde die Datei nicht gespeichert.
Also versuchen wir den Fehler jetzt abzufangen und eine Meldung darüber zu erzeugen.
Dazu
verwenden jetzt die Funktion goto in Kombination mit on error.
Sub SpeichernTest2
dim ........
......Dateiname
On Error Goto ErrorBehandlung
mydoc.storeasurl(myurl,args())
MsgBox "Datei gespeichert"
Exit Sub
ErrorBehandlung:
MsgBox "Speichern gespeichert"
End Sub
So jetzt haben wir schon mal eine Trennung für Anwender. Er erfährt ob das Speichern
geklappt
oder nicht. Wir können es aber noch besser. Wir verwenden den Errorcode den StarOffice mit drei
Funktionen erzeugt und geben eine Meldung über die mögliche Fehlerursache aus.
Die Errorcodes werden von Starbasic nach einem Fehler bereitgestellt und können angezeigt
und
ausgewertet werden.
Folgende Funktioen werden bereitgestellt:
Die Funktion Err übergibt die Nummer des aufgetretenen Fehlers.
Die Funktion Error$ stellt auch eine Beschreibung des Fehlers zur Verfügung.
Die Funktion Erl übergibt die Zeilennummer eines Fehlers.
Der einfachste Weg diese Meldung anzuzeigen ist eine Msgbox.
Sub SpeichernTest4
dim ....
....Sub
ErrorBehandlung:
MsgBox "Error " & Err & ": " & Error$ & "
(Zeile : " & Erl & ")"
End Sub
Bei einem ungültigen Dateinamen wird dann folgende Meldung erzeugt:
Das ist ja schon immerhin etwas. Jetzt haben wir eine Meldung. Damit können wir als
Programmierer etwas anfangen. Naja zumindestens manchmal. Aber für den Anwender ist uns das
zu wenig. Deshalb wollen wir noch zusätzlich die möglichen Fehler mit einen Text der etwas mehr
aussagt. Der Error 1 tritt immer dann auf wenn eine Exception ausgelöst wird. Leider kann das bei
einem falschen Dateinamen, bei vorhandener Datei mit schreibschutz, oder ungültigen Verzeichnis
auftreten. Diese Ursachen können wir aber angeben. Wenn mehrere mögliche Fehlercodes gibt
kann man für jeden ein eigene Meldung schreiben.
Sub SpeichernTest
dim ....
....Sub
ErrorBehandlung:
MsgBox "Error " & Err & ": " & Error$ &
" (Zeile : " & Erl & ")"
If Err=1 then
MsgBox "Angabe führt
zu einem Fehler" + myUrl +"Mögliche Fehler:" + Chr(13)+ _
"Dateiname und Verzeichnis
falsch geschrieben" + Chr(13)+_
"Datei exitiert bereits und
kann nicht überschrieben werden." + Chr(13)+_
"Das Verzeichnis exitiert
nicht"
end if
End Sub
Jetzt bekommt der Anwender eine aussagekräftige Meldung und kann seinen Fehler korregieren.
Man sollte bei der Fehlerbehandlung daruf achten seine Proceduren und Funktioen übersichtlich
zu
halten. Das ist am einfachsten wenn man die Fehlerbehandlungen an das Ende setzt und vorher
seine Routine abschließt. Ebenfalls sollte man auf Rücksprünge in das ursprüngliche Programm
verzichten. Dies ist wichtig für eine später Fehlersuche. Besteht wirklich ein Bedarf das unter
umständen noch bestimmte Aufrufe erfolgen sollen kann man diese auch am Ende als Extracode
für die Fehlerbehandlung einfügen. Der beste Weg dazu ist die Anweisung erstmal ohne
Fehlerbehandlung zu schreiben und entsprechend zu erweitern.
Sub Test
Anweisung
Anweisung
Anweisung
Anweisung
End Sub
Jetzt kommt die Fehlerbehandlung dazu:
Sub Test
Anweisung
On Error Goto Fehlerbehandlung
Anweisung
Anweisung
Anweisung
Exit Sub
Fehlerbehandlung:
Anweisung
End Sub
Auf diese Weise bleibt der Code übersichtlich und man sieht soforft wo die eigentliche
Procedure
aufhört und die Fehlerbehandlung anfängt. Dies ist vor allen sinnvoll wenn man auf verscheidene
Fehlerreagieren will oder sogar muß.
Sub Test
Anweisung0
On Error Goto Fehlerbehandlung1
Anweisung1
On Error Goto 0
Anweisung2
On Error Goto Fehlerbehandlung3
Anweisung3
On Error Goto 0
Anweisung
Exit Sub
Fehlerbehandlung1:
Anweisung
Fehlerbehandlung2:
Anweisung
End Sub