You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
44 lines
1.4 KiB
44 lines
1.4 KiB
Public Class Log
|
|
Dim mLogFileOK As String
|
|
Dim mLogfileNOK As String
|
|
|
|
Dim mLogFileDebug As String
|
|
Dim mdebugmode As Boolean
|
|
|
|
Public Enum Logtype As Integer
|
|
OK = 1
|
|
NOK = 2
|
|
Debug = 3
|
|
End Enum
|
|
|
|
Sub New(ByVal LogFileOK As String, ByVal logfilenok As String, ByVal logfiledebug As String, ByVal debugmode As Boolean)
|
|
mLogFileOK = LogFileOK
|
|
mLogfileNOK = logfilenok
|
|
mLogFileDebug = logfiledebug
|
|
mdebugmode = debugmode
|
|
End Sub
|
|
|
|
Public Sub set_file_names(ByVal LogFileOK As String, ByVal logfilenok As String)
|
|
mLogFileOK = LogFileOK
|
|
mLogfileNOK = logfilenok
|
|
End Sub
|
|
|
|
Public Sub Writelog(ByVal logtype As Logtype, ByVal Inhalt As String)
|
|
Select Case logtype
|
|
Case Log.Logtype.OK
|
|
FileOpen(99, mLogFileOK, OpenMode.Append)
|
|
Case Log.Logtype.NOK
|
|
FileOpen(99, mLogfileNOK, OpenMode.Append)
|
|
Case Log.Logtype.Debug
|
|
FileOpen(99, mLogFileDebug, OpenMode.Append)
|
|
End Select
|
|
If logtype = Log.Logtype.Debug And mdebugmode = True Then
|
|
WriteLine(99, Now.ToString + Chr(9) + Inhalt)
|
|
Else
|
|
If logtype = Log.Logtype.OK Or logtype = Log.Logtype.NOK Then WriteLine(99, Now.ToString + Chr(9) + Inhalt)
|
|
End If
|
|
FileClose(99)
|
|
End Sub
|
|
|
|
End Class
|