Visual Basic bietet die Möglichkeit beim Auftreten eines Fehlers in der undokumentierten Variable "Erl" die Zeilennummer des zuletzt aufgetretenen Fehlers abzufragen. Dies ermöglicht es der Fehlerbehandlung eines Programms die exakte Zeilennummer, in der der Fehler aufgetreten ist, anzuzeigen. In großen Programm ist dies ein unschätzbarer Vorteil, denn sonst hat man keine Chance, herauszufinden, wo der Fehler auftrat.
Beispiel:
Sub Inititilize 10 On Error Goto ErrorHandler 20 Dim x As Integer 30 x = 42 40 x = x / 6 - 7 ' jetzt ist x = 0 50 Call MsgBox ("8 / x = " & CStr( 8 / x) ) 60 End ErrorHandler: 70 Call MsgBox ("Fehler in Beispiel bei Zeile " & CStr(Erl) " :" Err.Description End Sub |
Fehler in Beispiel bei Zeile 60: Division by zero |
Voraussetzung dafür ist, das die Zeilen des Programms mit Zeilennummern versehen sind. Dies von Hand zu pflegen ist sehr mühsam und fehleranfällig.
Es soll ein aus Visual Basic aufrufbares Werkzeug geschrieben werden, das in die Zeilen eine Zeilennummer hineinschreibt. Die Zeilennummern sollen für größere Programmänderungen auch entfernt werden können. Die Schrittweite, das Bestehenlassen von existierenden Zeilennummern und die Nummerierung von Leerzeilen und Kommentaren soll stuerbar sein.
Es wird ein Viisual-Basic-AddIn geschrieben, das die geforderte Funkionalität erfüllt. Das AddIn muß in die Datei C:\Windows\VBAddIn.ini eingetragen werden:
Renum.Connect=1
und dann in Visual Basic über den Menüpunkt Extras->AddIn-Manager zu Visual Basic hinzugefügt werden.
Bei größeren Änderungen ist es sinnvoll, erst die Zeilennummern zu entfernen, die Änderungen durchzuführen und dann die Zeilennummern wieder einzufügen.
Bei kleineren Korrekturn von Fehlern ist es besser, Nummern zwischen die bestehenden Zeilennummern einzuschieben, um die Nummerierung unverändert zu lassen.
Achtung: Die Benutzung dieses Programms erfolgt auf eigene Gefahr! Für Schäden wird nicht gehaftet!
Source (5,5 KB)Probleme mit Zip-Archiven? Probiert es einmal mit der Freeware Power-Archiver!
© Mario Boller-Olfert 1998-2002 - E-Mail:Kontaktformular - 123-Byte - Homepage