Accueil > > > LOGTOFILE
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 du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIESL'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit
La tendance est aux interfaces naturelles (NUI), et le keynote de Bill Buxton au MIX l'a bien souligné.
La charte graphique et ergonomique de Windows Phone 7 a donc été entièrement repensée en vue d'obtenir un maximum d'efficacité sur ce point. En re...
Cliquez pour lire la suite de l'article par odewit COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|