LOGTOFILE , Source N°8283

Information sur la source

Catégorie :VB.NET

Niveau : Débutant Date de création : 19/08/2003 Date de mise à jour : 03/03/2004 08:36:02 Vu / téléchargé: 5 074 / 272

Auteur : RayBan

Ecrire un message privé

Note :

10,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Une petite classe qui permet de créer des fichiers de log facilement. On peut le personnaliser à la volée en choisissant le(s) séparateur(s) et le(s) caractère(s) de fin de ligne.

Source

Version C# de ce code disponible !

Imports System.IO
Namespace Diagnose
Public Class LogToFile
Private mLogFileName As String
Private mSeparator As String = ","
Private mNewLine As String = ControlChars.CrLf
Public Property LogFileName() As String
Get
Return mLogFileName
End Get
Set(ByVal Value As String)
mLogFileName = Value
End Set
End Property
Public Property Separator() As String
Get
Return mSeparator
End Get
Set(ByVal Value As String)
mSeparator = Value
End Set
End Property
Public Property NewLine() As String
Get
Return mNewLine
End Get
Set(ByVal Value As String)
mNewLine = Value
End Set
End Property
Public Sub New(ByVal LogFileName As String)
mLogFileName = LogFileName
End Sub
Public Sub New(ByVal LogFileName As String, ByVal Separator As String)
mLogFileName = LogFileName
mSeparator = Separator
End Sub
Public Sub New(ByVal LogFileName As String, ByVal Separator As String, ByVal NewLine As String)
mLogFileName = LogFileName
mSeparator = Separator
mNewLine = NewLine
End Sub
Public Function AddToLogFile(ByVal Message As String) As Integer
Dim mFileStream As FileStream
Dim mStreamWriter As StreamWriter
Try
mFileStream = New FileStream(mLogFileName, FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
mStreamWriter = New StreamWriter(mFileStream)
If mFileStream.CanWrite = True Then
mStreamWriter.Write(Now.ToString & mSeparator & Message & mNewLine)
Else
Throw New Exception("Impossible d'écrire dans le fichier " & LogFileName & " !")
End If
mStreamWriter.Close()
mFileStream.Close()
Catch Err As Exception
Throw New Exception(Err.Message)
Finally
mStreamWriter = Nothing
mFileStream = Nothing
End Try
End Function
Public Function AddToLogFile(ByVal Messages() As String) As Integer
Dim mFileStream As FileStream
Dim mStreamWriter As StreamWriter
Try
mFileStream = New FileStream(mLogFileName, FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
mStreamWriter = New StreamWriter(mFileStream)
If mFileStream.CanWrite = True Then
mStreamWriter.Write(Now.ToString & mSeparator & Join(Messages, mSeparator) & mNewLine)
Else
Throw New Exception("Impossible d'écrire dans le fichier " & LogFileName & " !")
End If
mStreamWriter.Close()
mFileStream.Close()
Catch Err As Exception
Throw New Exception(Err.Message)
Finally
mStreamWriter = Nothing
mFileStream = Nothing
End Try
End Function
Public Shared Sub AddToLogFile(ByVal LogFileName As String, ByVal Message As String)
Dim mFileStream As FileStream
Dim mStreamWriter As StreamWriter
Try
mFileStream = New FileStream(LogFileName, FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
mStreamWriter = New StreamWriter(mFileStream)
If mFileStream.CanWrite = True Then
mStreamWriter.Write(Now.ToString & "," & Message & ControlChars.CrLf)
Else
Throw New Exception("Impossible d'écrire dans le fichier " & LogFileName & " !")
End If
mStreamWriter.Close()
mFileStream.Close()
Catch Err As Exception
Throw New Exception(Err.Message)
Finally
mStreamWriter = Nothing
mFileStream = Nothing
End Try
End Sub
Public Shared Sub AddToLogFile(ByVal LogFileName As String, ByVal Messages() As String)
Dim mFileStream As FileStream
Dim mStreamWriter As StreamWriter
Try
mFileStream = New FileStream(LogFileName, FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
mStreamWriter = New StreamWriter(mFileStream)
If mFileStream.CanWrite = True Then
mStreamWriter.Write(Now.ToString & "," & Join(Messages, ",") & ControlChars.CrLf)
Else
Throw New Exception("Impossible d'écrire dans le fichier " & LogFileName & " !")
End If
mStreamWriter.Close()
mFileStream.Close()
Catch Err As Exception
Throw New Exception(Err.Message)
Finally
mStreamWriter = Nothing
mFileStream = Nothing
End Try
End Sub
Public Shared Sub AddToLogFile(ByVal LogFileName As String, ByVal Message As String, ByVal Separator As String, ByVal NewLine As String)
Dim mFileStream As FileStream
Dim mStreamWriter As StreamWriter
Try
mFileStream = New FileStream(LogFileName, FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
mStreamWriter = New StreamWriter(mFileStream)
If mFileStream.CanWrite = True Then
mStreamWriter.Write(Now.ToString & Separator & Message & NewLine)
Else
Throw New Exception("Impossible d'écrire dans le fichier " & LogFileName & " !")
End If
mStreamWriter.Close()
mFileStream.Close()
Catch Err As Exception
Throw New Exception(Err.Message)
Finally
mStreamWriter = Nothing
mFileStream = Nothing
End Try
End Sub
Public Shared Sub AddToLogFile(ByVal LogFileName As String, ByVal Messages() As String, ByVal Separator As String, ByVal NewLine As String)
Dim mFileStream As FileStream
Dim mStreamWriter As StreamWriter
Try
mFileStream = New FileStream(LogFileName, FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
mStreamWriter = New StreamWriter(mFileStream)
If mFileStream.CanWrite = True Then
mStreamWriter.Write(Now.ToString & Separator & Join(Messages, Separator) & NewLine)
Else
Throw New Exception("Impossible d'écrire dans le fichier " & LogFileName & " !")
End If
mStreamWriter.Close()
mFileStream.Close()
Catch Err As Exception
Throw New Exception(Err.Message)
Finally
mStreamWriter = Nothing
mFileStream = Nothing
End Try
End Sub
Public Sub ClearLogFile(ByVal MustDelete As Boolean)
If MustDelete = True Then
Dim oFileInfo As New FileInfo(mLogFileName)
If oFileInfo.Exists Then
Try
oFileInfo.Delete()
Catch Err As Exception
Throw New Exception("Une erreur est survenu lors de la suppression du fichier de log ! " & err.Message)
End Try
End If
Else
Try
Dim mFileStream As New FileStream(mLogFileName, FileMode.Create, FileAccess.Write, FileShare.ReadWrite)
mFileStream.Close()
mFileStream = Nothing
Catch Err As Exception
Throw New Exception("Une erreur est survenue en vidant le fichier de log ! " & Err.Message)
End Try
End If
End Sub
Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
End Class
End Namespace

Imports System.IO

Namespace Diagnose

    Public Class LogToFile
        Private mLogFileName As String
        Private mSeparator As String = ","
        Private mNewLine As String = ControlChars.CrLf

        Public Property LogFileName() As String
            Get
                Return mLogFileName
            End Get
            Set(ByVal Value As String)
                mLogFileName = Value
            End Set
        End Property
        Public Property Separator() As String
            Get
                Return mSeparator
            End Get
            Set(ByVal Value As String)
                mSeparator = Value
            End Set
        End Property
        Public Property NewLine() As String
            Get
                Return mNewLine
            End Get
            Set(ByVal Value As String)
                mNewLine = Value
            End Set
        End Property

        Public Sub New(ByVal LogFileName As String)
            mLogFileName = LogFileName
        End Sub
        Public Sub New(ByVal LogFileName As String, ByVal Separator As String)
            mLogFileName = LogFileName
            mSeparator = Separator
        End Sub
        Public Sub New(ByVal LogFileName As String, ByVal Separator As String, ByVal NewLine As String)
            mLogFileName = LogFileName
            mSeparator = Separator
            mNewLine = NewLine
        End Sub

        Public Function AddToLogFile(ByVal Message As String) As Integer
            Dim mFileStream As FileStream
            Dim mStreamWriter As StreamWriter

            Try
                mFileStream = New FileStream(mLogFileName, FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
                mStreamWriter = New StreamWriter(mFileStream)
                If mFileStream.CanWrite = True Then
                    mStreamWriter.Write(Now.ToString & mSeparator & Message & mNewLine)
                Else
                    Throw New Exception("Impossible d'écrire dans le fichier " & LogFileName & " !")
                End If
                mStreamWriter.Close()
                mFileStream.Close()
            Catch Err As Exception
                Throw New Exception(Err.Message)
            Finally
                mStreamWriter = Nothing
                mFileStream = Nothing
            End Try

        End Function
        Public Function AddToLogFile(ByVal Messages() As String) As Integer
            Dim mFileStream As FileStream
            Dim mStreamWriter As StreamWriter

            Try
                mFileStream = New FileStream(mLogFileName, FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
                mStreamWriter = New StreamWriter(mFileStream)
                If mFileStream.CanWrite = True Then
                    mStreamWriter.Write(Now.ToString & mSeparator & Join(Messages, mSeparator) & mNewLine)
                Else
                    Throw New Exception("Impossible d'écrire dans le fichier " & LogFileName & " !")
                End If
                mStreamWriter.Close()
                mFileStream.Close()
            Catch Err As Exception
                Throw New Exception(Err.Message)
            Finally
                mStreamWriter = Nothing
                mFileStream = Nothing
            End Try

        End Function

        Public Shared Sub AddToLogFile(ByVal LogFileName As String, ByVal Message As String)
            Dim mFileStream As FileStream
            Dim mStreamWriter As StreamWriter

            Try
                mFileStream = New FileStream(LogFileName, FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
                mStreamWriter = New StreamWriter(mFileStream)
                If mFileStream.CanWrite = True Then
                    mStreamWriter.Write(Now.ToString & "," & Message & ControlChars.CrLf)
                Else
                    Throw New Exception("Impossible d'écrire dans le fichier " & LogFileName & " !")
                End If
                mStreamWriter.Close()
                mFileStream.Close()
            Catch Err As Exception
                Throw New Exception(Err.Message)
            Finally

                mStreamWriter = Nothing
                mFileStream = Nothing
            End Try

        End Sub
        Public Shared Sub AddToLogFile(ByVal LogFileName As String, ByVal Messages() As String)
            Dim mFileStream As FileStream
            Dim mStreamWriter As StreamWriter

            Try
                mFileStream = New FileStream(LogFileName, FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
                mStreamWriter = New StreamWriter(mFileStream)
                If mFileStream.CanWrite = True Then
                    mStreamWriter.Write(Now.ToString & "," & Join(Messages, ",") & ControlChars.CrLf)
                Else
                    Throw New Exception("Impossible d'écrire dans le fichier " & LogFileName & " !")
                End If
                mStreamWriter.Close()
                mFileStream.Close()
            Catch Err As Exception
                Throw New Exception(Err.Message)
            Finally
                mStreamWriter = Nothing
                mFileStream = Nothing
            End Try
        End Sub
        Public Shared Sub AddToLogFile(ByVal LogFileName As String, ByVal Message As String, ByVal Separator As String, ByVal NewLine As String)
            Dim mFileStream As FileStream
            Dim mStreamWriter As StreamWriter

            Try
                mFileStream = New FileStream(LogFileName, FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
                mStreamWriter = New StreamWriter(mFileStream)
                If mFileStream.CanWrite = True Then
                    mStreamWriter.Write(Now.ToString & Separator & Message & NewLine)
                Else
                    Throw New Exception("Impossible d'écrire dans le fichier " & LogFileName & " !")
                End If
                mStreamWriter.Close()
                mFileStream.Close()
            Catch Err As Exception
                Throw New Exception(Err.Message)
            Finally
                mStreamWriter = Nothing
                mFileStream = Nothing
            End Try

        End Sub
        Public Shared Sub AddToLogFile(ByVal LogFileName As String, ByVal Messages() As String, ByVal Separator As String, ByVal NewLine As String)
            Dim mFileStream As FileStream
            Dim mStreamWriter As StreamWriter

            Try
                mFileStream = New FileStream(LogFileName, FileMode.Append, FileAccess.Write, FileShare.ReadWrite)
                mStreamWriter = New StreamWriter(mFileStream)
                If mFileStream.CanWrite = True Then
                    mStreamWriter.Write(Now.ToString & Separator & Join(Messages, Separator) & NewLine)
                Else
                    Throw New Exception("Impossible d'écrire dans le fichier " & LogFileName & " !")
                End If
                mStreamWriter.Close()
                mFileStream.Close()
            Catch Err As Exception
                Throw New Exception(Err.Message)
            Finally
                mStreamWriter = Nothing
                mFileStream = Nothing
            End Try
        End Sub
        Public Sub ClearLogFile(ByVal MustDelete As Boolean)
            If MustDelete = True Then
                Dim oFileInfo As New FileInfo(mLogFileName)
                If oFileInfo.Exists Then
                    Try
                        oFileInfo.Delete()
                    Catch Err As Exception
                        Throw New Exception("Une erreur est survenu lors de la suppression du fichier de log ! " & err.Message)
                    End Try
                End If
            Else
                Try
                    Dim mFileStream As New FileStream(mLogFileName, FileMode.Create, FileAccess.Write, FileShare.ReadWrite)
                    mFileStream.Close()
                    mFileStream = Nothing
                Catch Err As Exception
                    Throw New Exception("Une erreur est survenue en vidant le fichier de log ! " & Err.Message)
                End Try
            End If
        End Sub
        Protected Overrides Sub Finalize()
            MyBase.Finalize()
        End Sub

    End Class

End Namespace

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

LogToFile.chm40 718 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de RayBan

Sources de la même categorie

Toutes les sources de la catégorie VB.NET

Commentaires

Commentaire de jesusonline le 23/09/2003 19:36:44 administrateur CS

Ta source m'a l'ai plutot bien, mais je pense qu'un petit commentaire et un exemple d'utilisation serait le bienvenu (au moins l'exemple).
Merci
Commentaire de SimonKari le 30/09/2003 11:41:05

tu devrais remplacer join par string.join et controlchars.crlf par un variable publique de type string qui serait system.convert.tochar(13) & system.convert.tochar(10)
Commentaire de gwadagirl le 02/03/2004 22:31:11

Je pense comme jesusonline. On est des débutants, du moins je le suis et sans un petit commentaire et un exemple d'utilisation ton code si parfait devient malheureusement inutile pour nous. :( Merci de donner un mini exemple d'utilisation et moi ça me changerais vraiment la vie car j'en ai besoin pour rajouter à mon programme qui envois des lignes de discussions comme un tchat dans un textbox,et je voudrais juste que les lignes soient sauvegarder dans un fichier log,un peu comme msn dernière version le fait avec les historiques.C'est assé urgent donc merci de me tenir au courant.
Commentaire de RayBan le 03/03/2004 08:37:05

Hello,

J'ai ajouté un fichier d'aide au format CHM avec des exemples, etc.

Ray
Commentaire de spiro le 15/08/2004 17:38:49

de toute facon que l'on soit chevroné ou débutant un code doit toujours être commenté...
Commentaire de Raidwan le 27/09/2006 09:08:20

Je pense qu'il manque une petite chose à ton service de log c'est la génération automatique de plusieurs fichiers basée sur une taille limite (par fichier de log), aprés à nous de découper dedans pour virer les nombreuses procédures qui nous seront inutiles, mais sinon c'est assez propre, dommage qu'il n'y ai aucun commentaire.