Debug di file di testo

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

' INIZIO DELL'INTESTAZIONE DI DEBUG DEL CODICE PERSONALIZZATO

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

Funzione TimeStamp

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

Fine Funzione

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

Se bDebugMode Allora

oFileSystem = CreateObject('Scripting.FileSystemObject')

Se oFileSystem.FolderExists(sDebugPath) è falso Allora

oFolderName = oFileSystem.CreateFolder(sDebugPath)

oFolderName = Nothing

Fine Se

sDebugFile = sDebugPath + sDebugFile

Se 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 + ': Avvio della sessione di debug per ' + sCustomRuleName + sTriggerAction,adWriteLine)

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

' FINE DELL'INTESTAZIONE DI DEBUG

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

Try

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

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

' TUTTO IL TUO CODICE VA QUI SOTTO

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

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

' FINE DI TUTTO IL TUO CODICE

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

' TUTTO IL TUO CODICE TERMINA QUI

Debug.WriteText('FINE DEL CODICE',adWriteLine)

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

Except

Debug.WriteText('Errore generato' & LastExceptionMessage,adWriteLine)

ShowMessage('Questo evento non è stato completato correttamente ed è quindi non valido')

End

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

' INIZIO DEL PIÈ DI PAGINA DEL DEBUG

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

Debug.WriteText(TimeStamp + ': Terminazione della sessione di debug per ' + sCustomRuleName + sTriggerAction,adWriteLine)

If bDebugMode Then

Debug.SaveToFile(sDebugFile, adSaveCreateOverWrite)

End If

Debug.Close

Debug = Nothing

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

' FINE DEL PIÈ DI PAGINA DEL DEBUG

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