. NET Framework dans Visual Basic comprend plusieurs manières d'ouvrir et de lire un fichier sur disque. La plupart utilisent une certaine forme de classe StreamReader pour convertir le fichier dans un flux séquentiel de caractères ou de lignes. Chaque personnage ou de la ligne est alors lue dans la mémoire et le programme traite les données du début à la fin. Lorsque le dernier caractère est lu par le programme , l'indicateur EndOfStream est réglé sur vrai. Vous pouvez construire un court programme qui copie le fichier source à la console tout en regardant pour la fin de l'indicateur de fichier . Instructions
1

créer une nouvelle application de console Visual Basic. Ouvrez Visual Basic Express (ou Visual studio ) . Cliquez sur " Fichier", " Nouveau projet ". De l'arborescence , cliquez sur Application Windows sous Visual Basic, cliquez sur l'icône Application console puis cliquez sur le bouton "OK". Après une courte attente , une nouvelle fenêtre de code apparaîtra
2

Ajoutez la ligne suivante au début du fichier avant la déclaration du module: .

Imports System.IO

Module Module1

Cela indique Visual Basic que vous prévoyez d' utiliser des classes au sein de l' espace de noms System.IO .
3

déclarer quelques variables de mémoire au début de le sous-programme principal comme suit :

Sub Main ( )

de fileName As String = " .. \\ .. \\ Module1.vb "

rdr As StreamReader < br >

Dim txt As String

le nom de fichier variable contient le nom du fichier à lire . Les deux doubles - points ( .. \\ ) indique que le fichier est de deux dossiers à partir du répertoire courant . Depuis que le programme s'exécute dans le dossier bin \\ debug ou bin \\ release , nous devons aller jusqu'à deux dossiers pour trouver le fichier source .

Le RDR variable contiendra une instance de la classe StreamReader dans le System.IO emballage. Le StreamReader contient toutes les méthodes utilisées pour lire le fichier.

La variable txt seront utilisés pour maintenir chaque ligne du fichier tel qu'il est copié.
4

Ouvrez le texte fichier en utilisant le code suivant :

essayer et

rdr = File.OpenText ( nom de fichier)

Catch ex As Exception

Console.WriteLine ( "Impossible d'ouvrir fichier " et ex.Message )

Return of

Fin essayer et

La méthode File.OpenText crée une instance de la StreamReader souligné le fichier . Si le fichier n'existe pas, une exception est levée et un message d'erreur est écrite
5

Lire le fichier et le copier à la console en utilisant le code suivant : .

Bien rdr . EndOfStream = False

txt = rdr.ReadLine

Console.WriteLine ( txt)

End While

La boucle est assez simple. Avant la boucle démarre, le EndOfStream est faux ( sauf si le fichier est vide) . À chaque occurrence de la boucle, une ligne de texte est lu dans la variable txt alors écrit à la console. Après la dernière ligne est lue , l'indicateur EndOfStream obtient la valeur true et la boucle se termine .
6

fermer le dossier lorsque la boucle se termine.

Rdr.Close () < br >

End Sub End Module

Le StreamReader Fermer méthode libère le fichier, puis le programme se termine .