.Net et la manipulation de fichiers texte (VB.Net)

Code permettant la lecture du contenu d'un fichier texte :

Sub lectureFichier(ByVal fichier As String)

        Try
            ' Création d'une instance de StreamReader pour permettre la lecture de notre fichier
            Dim monStreamReader As StreamReader = New StreamReader(Server.MapPath(fichier))
            Dim ligne As String

            'Lecture de toutes les lignes et affichage de chacune sur la page
            Do
                ligne = monStreamReader.ReadLine()
                Response.Write(ligne)
                Response.Write("</BR>")

            Loop Until ligne Is Nothing

            'Fermeture du StreamReader (attention très important)
            monStreamReader.Close()

        Catch ex As Exception

            'Code exécuté en cas d'exception
            Response.Write("Une erreur est survenue au cours de la lecture !")
            Response.Write("</BR>")
            Response.Write(ex.Message)

        End Try

End Sub

Appel de la fonction permettant la lecture du fichier, vous pouvez voir qu'on passe le chemin relatif du fichier en paramètre.

lectureFichier("./admin/logs/application.log")

Explication de ce code

Comme toujours, l'important n'est pas d'avoir ce code pour le copier, mais de le comprendre.


L'instanciation du StreamReader

Lors de l'instanciation (désolé, ce terme n'est pas très français, mais on le comprend bien) de cette classe, il est possible de spécifier le codage employé par notre fichier texte, par défaut, il s'agit d'UTF-8. On passe aussi lors de l'instanciation le chemin physique du fichier, ici comme nous sommes dans une application ASP.Net nous utilisons Server.MapPath() qui permet d'obtenir le chemin physique à partir du chemin relatif du fichier, cela permet d'éviter la difficile gestion des chemins relatifs et physiques.


Le Do … Loop 

Cette boucle permet d'extraire ligne après ligne le contenu de notre fichier, et cela grâce à la méthode ReadLine() appliquée à notre StreamReader. Cette méthode permet donc de lire chaque ligne et retourne les données lues sous forme de chaînes. La boucle se poursuit tant qu'il reste une ligne à lire, cela est géré par le Until ligne Is Nothing.

Il existe aussi la méthode Read() qui permet de lire un flux de données sans faire la distinction de lignes. Read() et ReadLine() sont des méthodes de la classe TextReader.


monStreamReader.Close()

Cette méthode est extrêmement importante, il ne faut surtout pas l'oublier. En effet, en cas d'oubli de fermeture de votre StreamReader, vous ne pourrez plus accéder à votre fichier par la suite, car, en fait, le processus ASP.Net aura mis un verrou sur ce fichier. Pour retrouver un accès normal au fichier, il faudrait alors redémarrer le processus ASP.Net, vous voyez donc qu'il est très important de ne pas oublier de fermer ce StreamReader.

Voilà le code permettant d'écrire dans un fichier texte :

Sub ecritureFichier(ByVal fichier As String)

        Try

            'Instanciation du StreamWriter avec passage du nom du fichier 
            Dim monStreamWriter As StreamWriter = New StreamWriter(Server.MapPath("./") & "admin\logs\" & fichier)

            'Ecriture du texte dans votre fichier
            monStreamWriter.WriteLine("Ma toute première ligne...")
            monStreamWriter.WriteLine("Ma seconde ligne...")
            monStreamWriter.WriteLine("Ma troisième ligne...")

            'Fermeture du StreamWriter (Très important)
            monStreamWriter.Close()

        Catch ex As Exception

            'Code exécuté en cas d'exception
            Response.Write(ex.Message)

        End Try

End Sub

Explication du code


Instanciation du StreamWriter

Nous créons ici une instance, StreamWriter qui permet d'écrire dans un flux, et comme StreamReader, il est possible de spécifier le codage utilisé, par défaut il s'agit ici aussi d'UTF-8. Nous passons le chemin physique du fichier dans le constructeur.


WriteLine()

Ici, la méthode WriteLine nous permet d'écrire dans notre fichier, elle a la particularité d'écrire ligne après ligne, c'est-à-dire qu’à chaque fois qu'on l'appelle, elle ajoute une nouvelle ligne à notre fichier.


Write()

Comme WriteLine, la méthode Write permet d'écrire dans un fichier sauf qu'elle écrit un flux sans se préoccuper des lignes, elle est donc utile quand le retour à la ligne n'est pas souhaité après chaque ajout dans le fichier. Nous ne l'utilisons pas ici, mais je vous l'indique, car elle très utile.


monStreamWriter.Close()

Comme pour le StreamReader, il faut absolument fermer le StreamWriter après utilisation sous peine des mêmes conséquences, à savoir un accès impossible au fichier sans un redémarrage du processus ASP.Net.

Récupérer la taille du fichier

La méthode à employer pour obtenir la taille d'un fichier est Length, elle retourne une taille en octets.

Exemple :

Dim mon_fichier As New FileInfo(Server.MapPath("test.txt"))
Dim taille As String = mon_fichier.Length.ToString
Response.Write(taille)

Date de création

La date de création d'un fichier est accessible grâce à la méthode CreationTime() de la classe FileInfo.

Exemple :

Dim mon_fichier As New FileInfo(Server.MapPath("test.txt"))
Dim date_fichier As String = mon_fichier.CreationTime.ToLongDateString
Response.Write(date_fichier)

Dernière modification

La dernière modification d'un fichier est une information qui est stockée dans le fichier, la méthode LastWriteTime() permet d'y accéder.

Exemple :

Dim mon_fichier As New FileInfo(Server.MapPath("test.txt"))
Dim last_modif As String = mon_fichier.LastWriteTime.ToString
Response.Write(last_modif)

Dernier accès au fichier

Dans certaines applications, il peut être utile de savoir quand un fichier a été accédé pour la dernière fois, comme cette information est stockée dans le fichier même, il n'y a qu'à la récupérer avec la méthode LastAccessTime().

Exemple :

Dim mon_fichier As New FileInfo(Server.MapPath("test.txt"))
Dim last_acces As String = mon_fichier.LastAccessTime.ToString
Response.Write(last_acces)

Extension du fichier

Nous allons ici récupérer l'extension du fichier que l'on souhaite, pour cela il faut juste utiliser la méthode Extension.

Exemple :

Dim mon_fichier As New FileInfo(Server.MapPath("test.txt"))
Dim extension As String = mon_fichier.Extension.ToString
Response.Write(extension)

Nous avons vu comment récupérer certains attributs et comment réaliser certaines manipulations, mais il y en a d'autres, le but de cet article n'étant pas de les cataloguer, je vous renvoie à la documentation des classes concernées. La démarche restant la même pour l'ensemble des autres attributs et opérations, cela ne vous posera pas de problème particulier.

Nous avons vu ici dans un premier temps comment accéder aux diverses informations « en lecture », c'est-à-dire sans aucune modification du fichier, nous allons maintenant voir ce qu'il est possible « en écriture ».

Effacer un fichier

Permet d'effacer un fichier, vous pouvez voir que c'est une opération plus qu'aisée, en effet, une méthode a été prévue pour cela, il s'agit simplement de la méthode Delete().

Exemple :

Dim mon_fichier As New FileInfo(Server.MapPath("test.txt"))
mon_fichier.Delete()

Créer un fichier

Création d'un fichier vide, il faut bien entendu que le compte ASPNET ait les droits d'écriture sur le répertoire concerné.

Exemple :

Dim mon_fichier As New FileInfo(Server.MapPath("test.txt"))
mon_fichier.Create()

Modifier la date de création

Pour cela, vous devez utiliser la méthode SetCreationDate, il faut y passer le chemin physique complet du fichier, et ensuite la nouvelle date au format DateTime. Attention la date est donc au format mm/jj/aaaa, pour l'heure il s'agit de l'heure GMT; le système va lui ajouter automatiquement 1 heure de plus (si votre système se trouve dans la zone GMT+1 bien évidemment), en clair si vous entrez 01:00:00 sur votre fichier apparaîtra 02:00:00.

Exemple :

Dim chemin As String = Server.MapPath("test.txt")
File.SetCreationTime(chemin, #12/5/2000 2:25:55 AM#)

Positionner un fichier en fichier caché

Nous utilisons ici la méthode SetAttributes en y passant le chemin du fichier ainsi que l'attribut à modifier.

Exemple :

Dim chemin As String = Server.MapPath("test.txt")
File.SetAttributes(chemin, FileAttributes.Hidden)

Positionner un fichier en lecture seule

Il est possible de positionner un fichier en « lecture seule », pour cela rien de compliqué.

Exemple :

Dim chemin As String = Server.MapPath("test.txt")
File.SetAttributes(chemin, FileAttributes.ReadOnly)