基於朱利安的答案,我想出了這一點:
- 配置方法 -
Protected Sub ConfigureLogging(ServiceName As String)
Dim oBuilder As StringBuilder
Dim oConfig As LoggingConfiguration
Dim oTarget As EventLogTarget
Dim oRule As LoggingRule
oBuilder = New StringBuilder
oBuilder.Append($"Method:{vbTab}{vbTab}{Layouts.CallSite}(){Layouts.NewLine}")
oBuilder.Append($"Level:{vbTab}{vbTab}{Layouts.Level}{Layouts.NewLine}")
oBuilder.Append($"Message:{vbTab}{Layouts.Message}{Layouts.NewLine}")
oTarget = New EventLogTarget("EventLog")
oTarget.Layout = oBuilder.ToString
oTarget.Source = ServiceName
oRule = New LoggingRule("*", LogLevel.Debug, oTarget)
oConfig = New LoggingConfiguration
oConfig.AddTarget(oTarget)
oConfig.LoggingRules.Add(oRule)
LogManager.Configuration = oConfig
Me.Logger = LogManager.GetLogger(ServiceName)
End Sub
--Helper分類 -
Public Class Layouts
Public Sub New(Layouts As List(Of String))
Me.Layouts = Layouts
End Sub
Shared Sub New()
_CallSite = "${callsite}"
_Message = "${message}"
_NewLine = "${newline}"
End Sub
Public Overrides Function ToString() As String
Return Join(Me.Layouts.ToArray, "|")
End Function
Private Layouts As List(Of String)
''' <summary>
''' The call site (class name, method name and source information).
''' </summary>
Public Shared ReadOnly Property CallSite As String
''' <summary>
''' The formatted log message.
''' </summary>
Public Shared ReadOnly Property Message As String
''' <summary>
''' A newline literal.
''' </summary>
Public Shared ReadOnly Property NewLine As String
End Class
...產生這樣的:
Method: ServiceBase.Manager.StartService()
Level: Info
Message: Service started
這是newline
佈局做的伎倆。
非常好!這就是'NewLine'佈局,這是關鍵。我想在日誌記錄調用的詳細程度上稍微介紹一下,所以我只是在我的初始配置中使用了佈局。看到我的代碼的替代答案。 – InteXX
不過,瞭解'event-properties'佈局是很好的。我將能夠很好地利用這一點。流暢的語法也是如此。謝謝。 – InteXX