APPRENTISSAGE DU LANGAGE VB.NET

La classe StreamReader
La classe StreamReader permet de lire le contenu d’un fichier. Voici quelques-unes de ses propriétés et méthodes :
Public Sub New(ByVal path As String) ouvre un flux à partir du fichier path. Une exception est lancée si celui-ci n’existe pas Overrides Public Sub Close() ferme le flux Overrides Public Function ReadLine() As String lit une ligne du flux ouvert Overrides Public Function ReadToEnd() As String lit le reste du flux depuis la position courante
Voici un exemple : ‘ options Option Strict On Option Explicit On ‘ espaces de noms Imports System Imports System.Collections Imports System.IO Module test Sub Main() Dim ligne As String = Nothing Dim fluxInfos As StreamReader = Nothing ‘ lecture contenu du fichier Try fluxInfos = New StreamReader(« infos.txt ») ligne = fluxInfos.ReadLine() While Not (ligne Is Nothing) System.Console.Out.WriteLine(ligne) ligne = fluxInfos.ReadLine() End While Catch e As Exception System.Console.Error.WriteLine(« L’erreur suivante s’est produite :  » & e.ToString) Finally Try fluxInfos.Close() Catch End Try End Try End Sub End Module

La classe StreamWriter

La classe StreamWriter permet d’écrire dans fichier. Voici quelques-unes de ses propriétés et méthodes :
Public Sub New(ByVal path As String) ouvre un flux d’écriture à partir du fichier path. Une exception est lancée si celui-ci ne peut être créé Public Overridable Property AutoFlush As Boolean si égal à vrai, l’écriture dans le flux ne passe pas par l’intermédiaire d’une mémoire tampon sinon l’écriture dans le flux n’est pas immédiate : il y a d’abord écriture dans une mémoire tampon puis dans le flux lorsque la mémoire tampon est pleine. Par défaut c’est le mode bufferisé qui est utilisé. Il convient bien pour les flux fichier mais généralement pas pour les flux réseau. Public Overridable Property NewLine As String pour fixer ou connaître la marque de fin de ligne à utiliser par la méthode WriteLine Overrides Public Sub Close() ferme le flux Overloads Public Overridable Sub WriteLine(ByVal value As String) écrit une ligne dans le flux d’écriture Overrides Public Sub Flush() écrit la mémoire tampon dans le flux
Considérons l’exemple suivant : ‘ options Option Strict On Option Explicit On ‘ espaces de noms Imports System Imports System.Collections Imports System.IO Module test Sub Main() Dim ligne As String = Nothing ‘ une ligne de texte Dim fluxInfos As StreamWriter = Nothing ‘ le fichier texte Try ‘ création du fichier texte fluxInfos = New StreamWriter(« infos.txt ») ‘ lecture ligne tapée au clavier Console.Out.Write(« ligne (rien pour arrêter) : « ) ligne = Console.In.ReadLine().Trim() ‘ boucle tant que la ligne saisie est non vide While ligne <> «  » ‘ écriture ligne dans fichier texte fluxInfos.WriteLine(ligne) ‘ lecture nouvelle ligne au clavier Console.Out.Write(« ligne (rien pour arrêter) : « ) ligne = Console.In.ReadLine().Trim() End While Catch e As Exception System.Console.Error.WriteLine(« L’erreur suivante s’est produite :  » & e.ToString) Finally ‘ fermeture fichier Try fluxInfos.Close() Catch Exemples de classes .NET 92
End Try End Try End Sub End Module