Débogage de fichiers texte

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

' DÉBUT DE L'EN-TÊTE DE DÉBOGAGE DU CODE PERSONNALISÉ

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

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

Si bDebugMode Alors

oFileSystem = CreateObject('Scripting.FileSystemObject')

Si oFileSystem.FolderExists(sDebugPath) est faux Alors

oFolderName = oFileSystem.CreateFolder(sDebugPath)

oFolderName = Nothing

Fin Si

sDebugFile = sDebugPath + sDebugFile

Si 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 + ': Démarrage de la session de débogage pour ' + sCustomRuleName + sTriggerAction,adWriteLine)

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

' FIN DE L'EN-TÊTE DE DÉBOGAGE

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

Try

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

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

' TOUT VOTRE CODE VA CI-DESSOUS

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

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

' FIN DE TOUT VOTRE CODE

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

' TOUT VOTRE CODE S'ARRÊTE ICI

Debug.WriteText('FIN DU CODE',adWriteLine)

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

Except

Debug.WriteText('Erreur levée' & LastExceptionMessage,adWriteLine)

ShowMessage('Cet événement ne s'est pas déroulé correctement et est donc invalide')

End

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

' DÉBUT DU PIED DE PAGE DE DÉBOGAGE

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

Debug.WriteText(TimeStamp + ': Fin de la session de débogage pour ' + sCustomRuleName + sTriggerAction, adWriteLine)

If bDebugMode Then

Debug.SaveToFile(sDebugFile, adSaveCreateOverWrite)

End If

Debug.Close

Debug = Nothing

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

' FIN DU PIED DE PAGE DE DEBUG

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