Script:Lib log

Un article de MacodaWiki.

lib_log.vbs : Permet d'écrire des messages dans les logs

'*-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-*

'* LIBRAIRIE                                                                                             *
'*      LIB_LOG                                                                                          *
'*   Voir l'entete de lib_log !!!                                                 *
'*                                                                                                       *
'* Inclure cette librairieen début de script grâce à la commande #include lib\lib_log.vbs                *
'*                                                                                                       *
'*  Attention cette librairie est à inclure en premier car elle contient le Option explicit              *
'*                                                                                                       *
'*  2006/08/01                                                                                           *
'*                                                                                                       *
'*-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-*
' Veut dire que l'ensemble des variables doivent être définies par un DIM, un Constant, ....
Option explicit 

' Niveau de log permis
Const LOG_BAVARD = 2
Const LOG_NORMAL = 1
Const LOG_SANS = 0

'Variables utilisées par les scripts 
dim NIVEAU_LOG_PROG  ' Le niveau du log du script en cours
dim NOM_PROG ' Le nom du script en cours
Dim giNiveau_Librairie ' Le niveau de la librairie (on monte de niveau quand on appele une librairie depuis une autre librairie




'*****************************************************************************
' gFCT_LOG
sub gFct_Log (iNiveau_log_aff,sTexte)
   if NIVEAU_LOG_PROG >= iNiveau_log_aff then 
	If (iNiveau_log_aff = LOG_BAVARD) Then sTexte = "[100]"+sTexte
	If (iNiveau_log_aff = LOG_NORMAL) Then sTexte = "[010]"+sTexte
	If (iNiveau_log_aff = LOG_SANS)   Then sTexte = "[001]"+sTexte

   	hs.WriteLog NOM_PROG,sTexte
   End if
   
End sub

'*****************************************************************************
' gFCT_LOG_Err
sub gFct_Log_Err (sTexte)
  gFct_Log LOG_SANS, "** ERREUR ** "&sTexte
End sub



'*****************************************************************************
'   Un affichage LOG différent pour les librairies pour que l'on repère vite
' que l'on est dans une librairie
' gFCT_LOG_LIB
sub gFct_Log_LIB (iNiveau_log_aff,sTexte)

	gFct_Log iNiveau_log_aff,"  "&Mid("                      ",1,giNiveau_Librairie*3)&"[LIB]"&sTexte
End sub



'*****************************************************************************
' gFCT_LOG_DEB_PROG
sub gFct_Log_Deb_Prog
  giNiveau_Librairie = 0 
  gFct_Log LOG_NORMAL,"### DEBUT >>>>************ "&NOM_PROG&"************************ ###"
end sub

'*****************************************************************************
' gFCT_LOG_FIN_PROG
sub gFct_Log_Fin_Prog
  gFct_Log LOG_NORMAL,"### FIN   **************** "&NOM_PROG&"********************<<<< ###"
end sub