|
begin process at 2008 07 06 18:44:38
Derniers logiciels
|
Trouver une ressource (Nouvelle version du moteur, plus rapide & pertinent, essayez le !)
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
LOGTOFILE
Information sur la source
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
- 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
Sources de la même categorie
Commentaires
|
CalendriCode
| | | L | M | M | J | V | S | D |
| | 1 | 2 | 3 | 4 | 5 | 6 |
| 7 | 8 | 9 | 10 | 11 | 12 | 13 |
| 14 | 15 | 16 | 17 | 18 | 19 | 20 |
| 21 | 22 | 23 | 24 | 25 | 26 | 27 |
| 28 | 29 | 30 | 31 | | | |
|
|
|