Lire et ecrire un fichir .log (class)

Télécharger le projet
Commenter

Description

une Class pour Ecriture et lecture dans un fichier .log
Ajouter une Class à votre prog et coller le code !

Source / Exemple : 


Imports System.IO
'UTILISATION:
' -Lire:    TextBox1.Text=Log.Lire
' -Ecrire:  Log.Ecrire(TextBox1.Text)

Public Class Log
    'Pour écrire
    Public Shared Function Ecrire(ByVal texte As String)

        Dim LogStream As New StreamWriter(Application.StartupPath.ToString() & "\" & "AppLog.log", True, System.Text.Encoding.UTF8)

        Try
            LogStream.WriteLine(Now() & " -> " & texte) 'Ajoute la date et l'heure
        Catch ex As Exception
            MsgBox("ERREUR D'écriture du fichier " & Chr(10) & Chr(13) & ex.Message)
            Exit Try
        Finally
            LogStream.Close()
        End Try

    End Function
    'Pour Lire
    Public Shared Function Lire()
        Dim LogStream As StreamReader

        Try
            LogStream = New System.IO.StreamReader(Application.StartupPath.ToString & "\" & "AppLog.log")
            Return LogStream.ReadToEnd()
        Catch ex As Exception
            MsgBox("ERREUR d'ouverture du fichier " & Chr(10) & Chr(13) & ex.Message)
            Exit Try
        Finally
            If Not LogStream Is Nothing Then LogStream.Close()
        End Try

    End Function
End Class
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (asem67)