- 'Exemple d'utilisation :
-
- Public Class testLog
- 'déclaration
- Dim log As ManshiLog.manshiLog
-
- 'initialisation
- Public Sub init()
- log = New ManshiLog.manshiLog("Nom de l'appli qui log", "rep ou ecrire le log")
- End Sub
-
- 'ecriture d'un log
- Public Sub write()
- 'juste une chaine de caractères
- log.writelog("ligne à écrire")
-
- 'chaine de caractères, précédée de la date et de l'heure
- log.writelog("texte", True, True)
-
- 'chaine de caractères, précédée de la date
- log.writelog("texte", True, False)
-
- 'chaine de caractères, précédée de l'heure
- log.writelog("texte", False, True)
- End Sub
-
- 'lecture du fichier log
- Public Sub read()
- Dim textLog As String
-
- 'le fichier en entier
- textLog = log.readLog()
-
- 'les x dernières lignes du fichier
- textLog = log.readLog(x)
-
- End Sub
-
- 'fermeture de l'application (ajoute un pied de page au log)
- Public Sub close()
- log.close()
- End Sub
-
- End Class
'Exemple d'utilisation :
Public Class testLog
'déclaration
Dim log As ManshiLog.manshiLog
'initialisation
Public Sub init()
log = New ManshiLog.manshiLog("Nom de l'appli qui log", "rep ou ecrire le log")
End Sub
'ecriture d'un log
Public Sub write()
'juste une chaine de caractères
log.writelog("ligne à écrire")
'chaine de caractères, précédée de la date et de l'heure
log.writelog("texte", True, True)
'chaine de caractères, précédée de la date
log.writelog("texte", True, False)
'chaine de caractères, précédée de l'heure
log.writelog("texte", False, True)
End Sub
'lecture du fichier log
Public Sub read()
Dim textLog As String
'le fichier en entier
textLog = log.readLog()
'les x dernières lignes du fichier
textLog = log.readLog(x)
End Sub
'fermeture de l'application (ajoute un pied de page au log)
Public Sub close()
log.close()
End Sub
End Class