Debugging von Textdateien

'-------------------------------------------------------------------------------

' BEGINN DES DEBUG-HEADERS FÜR BENUTZERDEFINIERTEN CODE

'-------------------------------------------------------------------------------

Function TimeStamp

TimeStamp = FormatDateTime(Date(),0) + ' ' + FormatDateTime(Time(),3)

End Function

bDebugMode = TRUE

bAppend = False

sCustomRuleName = 'DEBUG-'

sCustomRuleName = Replace(sCustomRuleName, ' ', '')

sTriggerAction = 'UserTimeCalibration'

sTriggerAction = Replace(sTriggerAction, ' ', '')

sDebugFile = sCustomRuleName + sTriggerAction + '.txt'

sDebugPath = 'C:\IndySoft\EventDebugger'

adTypeText = 2

adSaveCreateOverWrite = 2

adWriteLine = 1

adCRLF = -1

adReadAll = -1

Debug = CreateObject('ADODB.Stream')

Debug.Type = adTypeText

Debug.LineSeparator = adCRLF

Debug.Open

If bDebugMode Then

oFileSystem = CreateObject('Scripting.FileSystemObject')

If Not oFileSystem.FolderExists(sDebugPath) Then

oFolderName = oFileSystem.CreateFolder(sDebugPath)

oFolderName = Nothing

End If

sDebugFile = sDebugPath + sDebugFile

If Not oFileSystem.FileExists(sDebugFile) Then

oFileName = oFileSystem.CreateTextFile(sDebugFile,True)

oFileName.Close

oFileName = Nothing

End If

oFileSystem = Nothing

If bAppend Then

Debug.LoadFromFile(sDebugFile)

Debug.ReadText(adReadAll)

Debug.SetEOS

End If

End if

Debug.WriteText(TimeStamp + ': Debug-Sitzung für ' + sCustomRuleName + sTriggerAction starten,adWriteLine)

'-------------------------------------------------------------------------------

' ENDE DES DEBUG-HEADERS

'-------------------------------------------------------------------------------

Try

Debug.WriteText('START: ' + sCustomRuleName + ' : ' + sTriggerAction, adWriteLine)

'***********************************************************************

' DEIN GESAMTER CODE KOMMT HIER UNTERHALB

'***********************************************************************

'***********************************************************************

' ENDE DEINES GESAMTEN CODES

'*************************************************************************************************************************************************************************************************************************************************************************************

' HIER ENDET IHR GESAMTER CODE

Debug.WriteText('ENDE DES CODES',adWriteLine)

Debug.WriteText('ENDE: ' + sCustomRuleName + ' : ' + sTriggerAction,adWriteLine)

Except

Debug.WriteText('Fehler ausgelöst' & LastExceptionMessage,adWriteLine)

ShowMessage('Dieses Ereignis wurde nicht korrekt abgeschlossen und ist daher ungültig')

End

'-------------------------------------------------------------------------------

' START DES DEBUG-FUSSTEXTES

'-------------------------------------------------------------------------------

Debug.WriteText(TimeStamp + ': Debug-Sitzung für ' + sCustomRuleName + sTriggerAction beenden, adWriteLine)

If bDebugMode Then

Debug.SaveToFile(sDebugFile, adSaveCreateOverWrite)

End If

Debug.Close

Debug = Nothing

'-------------------------------------------------------------------------------

' ENDE DES DEBUG-Fußbereichs

'------------------------------------------------------------------------------- |