Programm Logik nach Fehler brauche Ideen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von Amelie.

    RodFromGermany schrieb:

    Wozu?
    Da wäre doch ein Haltepunkt effektiver
    Ein Haltepunkt allein, wäre vollständig wirkungslos bei dem Thema, auf das ich geantwortet gehabt hatte, denn der wird dich nicht vom Try in den Catch Block wechseln lassen.
    Aber ja etwas so ähnliches habe ich direkt im Anschluss vorgeschlagen. Da ist ein Haltepunkt aber auch nicht nötig, es geht ja erstmal ums Ergebnis, debuggt wird erst wenns nicht stimmt.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()

    @RodFromGermany

    ​Dann provoziere einen Fehler und reagiere darauf.

    Ich weiß leider nicht wie?

    Ich habe die Settings.xml mal mit einem Schreibschutz versehen, da wirft dann aber eine andere Exception.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Wenn ich z.B. der Settings.xml einen Schreibschutz gebe, greift die Exception in dieser Sub!

    VB.NET-Quellcode

    1. ​
    2. Private Sub SaveSettings(filePath As String, sourceDrive As String, targetDrive As String)
    3. ...
    4. ' Die XML-Datei speichern
    5. xmlDoc.Save(filePath)
    6. RaiseEvent SaveSuccesfull(Me, New EventClasses.SaveSuccesfullEventArgs(SaveMessage))
    7. ' Erfolgsmeldung protokollieren
    8. GlobalEventLogger.ExceptionToFile(String.Format(SuccessMessage, filePath), ExceptionStatus.Success)
    9. Catch ex As Exception
    10. ' Fehler protokollieren
    11. GlobalEventLogger.ExceptionToFile(String.Format(FailureSaveMessage, filePath, NewCrlLf, ex.Message), ExceptionStatus.Failure)
    12. End Try
    13. End Sub
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Na in der GetEnvironmentData wird doch nur diese SaveSettings Methode aufgerufen, die anderen Zeilen sind nur Zuweisungen. Und Exceptions knallen generell erstmal in der untersten Schublade.
    Und wenn du die in so einer Schublade schon abfänst, dann ist weiter oben wieder alles frisch.
    Machst du in SaveSettings das Try Catch weg, greift Catch ne Ebene weiter oben

    Amelie schrieb:

    Ich weiß leider nicht wie?
    Z.B.:
    Du kannst die Settings-Datei manipulieren.
    oder

    Haudruferzappeltnoch schrieb:

    du schreibst ein Throw New Exception an die Stelle die dich interessiert,

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Moin moin

    Habe die Klasse nochmal umgebaut und einigen Tests unterzogen.
    Fehler, soweit ich welche simulieren konnte, werden richtig protokoliert usw. :)

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. ' Eine Klasse zum Speichern der aktuellen Anwendungseinstellungen in einer XML-Datei
    3. Public Class SaveManager
    4. ' Eine private, statische Instanz der Klasse, um das Singleton-Muster zu implementieren
    5. Private Shared ReadOnly _instance As New SaveManager()
    7. ' Öffentliche Eigenschaft zum Zugriff auf die Singleton-Instanz
    8. Public Shared ReadOnly Property Instance As SaveManager
    9. Get
    10. Return _instance
    11. End Get
    12. End Property
    14. ' Pfad zur XML-Datei aus der Umgebungsinformationen abrufen
    15. Private ReadOnly filePath As String = EnvironmentManager.Instance.XmlFilepath
    16. ' Ereignis, das ausgelöst wird, wenn das Speicher erfolgreich war.
    17. Public Event SaveSuccesfull As EventHandler(Of EventClasses.SaveSuccesfullEventArgs)
    18. ' Meldungstexte
    19. Private Const SuccessMessage As String = "Die Programm-Konfiguration wurden erfolgreich in {0} gespeichert."
    20. Private Const FailureSaveMessage As String = "Fehler beim Speichern der Programm-Konfiguration in die Datei {0}{1}{2}."
    21. Private Const LableSaveMessage As String = "Das Speichern der Daten war erfolgreich."
    23. ' Das XML-Document erstellen
    24. Private Function CreateXmlDocument(sourceDrive As String, targetDrive As String) As XmlDocument
    25. Dim xmlDoc As New XmlDocument()
    26. Dim rootNode As XmlNode = xmlDoc.CreateElement("Application")
    27. xmlDoc.AppendChild(rootNode)
    29. Dim settingsNode As XmlNode = xmlDoc.CreateElement("DriveSettings")
    30. rootNode.AppendChild(settingsNode)
    32. Dim sourceNode As XmlNode = xmlDoc.CreateElement("SourceDrive")
    33. sourceNode.InnerText = sourceDrive
    34. settingsNode.AppendChild(sourceNode)
    36. Dim targetNode As XmlNode = xmlDoc.CreateElement("TargetDrive")
    37. targetNode.InnerText = targetDrive
    38. settingsNode.AppendChild(targetNode)
    40. Return xmlDoc
    41. End Function
    43. ' Das XML-Dokument speichern
    44. Private Sub SaveXmlDocument(xmlDoc As XmlDocument, filePath As String)
    45. xmlDoc.Save(filePath)
    46. End Sub
    48. ' Die Einstellungen speichern
    49. Public Sub SaveSettings()
    50. Try
    51. ' Quell- und Ziel-Laufwerke aus der Umgebungsinformationen abrufen
    52. Dim sourceDrive As String = EnvironmentManager.Instance.SourceDrive
    53. Dim targetDrive As String = EnvironmentManager.Instance.TargetDrive
    55. Dim xmlDoc As XmlDocument = CreateXmlDocument(sourceDrive, targetDrive)
    56. SaveXmlDocument(xmlDoc, filePath)
    58. ' Erfolgsmeldung protokollieren / anzeigen
    59. GlobalEventLogger.ExceptionToFile(String.Format(SuccessMessage, filePath), ExceptionStatus.Success)
    60. RaiseEvent SaveSuccesfull(Me, New EventClasses.SaveSuccesfullEventArgs(LableSaveMessage))
    61. Catch ex As Exception
    62. ' Fehler protokollieren
    63. GlobalEventLogger.ExceptionToFile(String.Format(FailureSaveMessage, filePath, NewCrlLf, ex.Message), ExceptionStatus.Failure)
    64. End Try
    65. End Sub
    66. End Class

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

Facebook
Telefonspende