Logger schreiben

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von siycah.

    Logger schreiben

    Hallo liebes Forum!
    Ich schreibe ebend ein Logger in VB.Net der wie folgt aussieht
    (Code zur Veranschaulichung, besseres Verständnis)

    Quellcode

    1. ​Imports System.IO
    2. Imports System.Text
    4. Public Class Logger
    6. Private Shared lgr As Logger
    7. Private Shared logSettings As LoggerSettings
    8. Private Shared logFilePath As String
    9. Private Shared logFileLevel As LogLevel
    10. Private Shared locker As New Object()
    12. Public Shared Function getLogger(ByVal logFilePath As String, ByVal logFileLevel As LogLevel) As Logger
    13. If lgr Is Nothing Then
    14. SyncLock locker
    15. If lgr Is Nothing Then
    16. logSettings = New LoggerSettings(logFileLevel, logFilePath)
    17. lgr = New Logger()
    18. End If
    19. End SyncLock
    20. End If
    21. Return lgr
    22. End Function
    24. Public Sub debug(ByVal message As String)
    25. If logSettings.LogFileLevel <= LogLevel.LDEBUG Then
    26. log(LogLevel.LDEBUG, message)
    27. End If
    28. End Sub
    30. Public Sub info(ByVal message As String)
    31. If logSettings.LogFileLevel <= LogLevel.LINFO Then
    32. log(LogLevel.LINFO, message)
    33. End If
    34. End Sub
    36. Public Sub warning(ByVal message As String)
    37. If logSettings.LogFileLevel <= LogLevel.LWARNING Then
    38. log(LogLevel.LWARNING, message)
    39. End If
    40. End Sub
    42. Public Sub err(ByVal message As String)
    43. If logSettings.LogFileLevel <= LogLevel.LError Then
    44. log(LogLevel.LError, message)
    45. End If
    46. End Sub
    48. Public Sub fatal(ByVal message As String)
    49. If logSettings.LogFileLevel <= LogLevel.LFATAL Then
    50. log(LogLevel.LFATAL, message)
    51. End If
    52. End Sub
    54. Private Sub log(ByVal logLevel As LogLevel, ByVal message As String)
    55. Dim logFileDirectory As String = Path.GetDirectoryName(logSettings.LogFilePath)
    56. If Not Directory.Exists(logFileDirectory) Then
    57. Directory.CreateDirectory(logFileDirectory)
    58. End If
    60. Dim logText As String = String.Format("[{0}] [{1}] {2}", DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss"), logLevel.ToString(), message)
    61. Using sw As New StreamWriter(logSettings.LogFilePath, True)
    62. sw.WriteLine(logText)
    63. End Using
    64. End Sub
    66. End Class
    68. Public Class LoggerSettings
    70. Public Property LogFileLevel As LogLevel
    71. Public Property LogFilePath As String
    73. Public Sub New(ByVal logFileLevel As LogLevel, ByVal logFilePath As String)
    74. Me.LogFileLevel = logFileLevel
    75. Me.LogFilePath = logFilePath
    76. End Sub
    78. End Class
    80. Private Function GetFormattedLogMsg(ByVal logLevel As String, ByVal msg As String) As String
    81. Dim time As DateTime = DateTime.Now
    82. Return "[" & time.ToString("yyyy.MM.dd-HH:mm:ss") & "] [" & logLevel & "] <" & logLevel & ">: " & msg
    83. End Function
    85. Public Enum LogLevel
    86. LDEBUG
    87. LINFO
    88. LWARNING
    89. LError
    90. LFATAL
    91. End Enum


    Bei "Private Function GetFormattedLogMsg" muss ich noch nach dem Return den Aufbau verändern.
    Aber warum ich jetzt nach Lösung frage ist folgende Zeile:

    Quellcode

    1. ​Private Function GetFormattedLogMsg(ByVal logLevel As String, ByVal msg As String) As String


    Denn dort wird als Fehler angegeben das die Anweisung in einem Namespace ungültig ist.
    Ich glaube ich übersehe etwas in dem Code.
    Bitte um Hilfe.
    Danke! 8o

    Moin, dein Thema ist zwar als erledigt markiert, aber dennoch wollte ich gerne einmal fragen, weshalb du einen eigenen Logger schreibst, und nicht einen der zahlreichen Logger verwendest, die es bereits gibt?
    Ich habe in der Vergangenheit nur positive Erfahrungen mit Serilog und Log4Net gemacht.

    Gibt's da bestimmte Voraussetzungen bei dir?
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

    JoJo129 schrieb:

    Und die finden die fertigen logger nicht so gut.


    Verrückt. Da würden mich ja die Hintergründe interessieren. Da steckt ein Haufen Arbeit drin, in den existierenden Loggern. Ich habe es in der Vergangenheit auch schon gemacht, meine eigenen Logger zu schreiben, aber das war bei mir damals einfach, weil ich nicht verstand, wie die anderen Logger funktionieren.

    Na gut, aber dann man ran an die Arbeit ;)
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

Facebook
Telefonspende