Comment faire pour lire et écrire dans un fichier texte à l'aide de Visual Basic 2005 ou Visual Basic .NET

Traductions disponibles Traductions disponibles
Numéro d'article: 315828 - Voir les produits auxquels s'applique cet article
Pour obtenir une version Microsoft Visual Basic 6.0 de cet article, reportez-vous à la section. 183638.
Agrandir tout | Réduire tout

Sommaire

Résumé

Cet article explique comment lire et écrire dans un fichier texte à l'aide de Microsoft Visual Basic 2005 ou Microsoft Visual Basic .NET.

Configuration requise

La liste suivante met en évidence le matériel recommandé, les logiciels, l'infrastructure réseau et service packs dont vous avez besoin :
  • Visual Basic 2005 ou Visual Basic .NET
Cet article suppose que vous maîtrisez les sujets suivants :
  • Visual Basic 2005 ou Visual Basic .NET

Lire et écrire des fichiers texte

Le"Lire un fichier texte« section montre comment utiliser l'objet StreamReader pour lire un fichier texte. Le"Écrire un fichier texte (exemple 1)« section et »Écrire un fichier texte (exemple 2)« section montrent comment utiliser la classe StreamWriter pour écrire du texte dans un fichier.

Lire un fichier texte

Le code suivant utilise la classe StreamReader pour ouvrir, lire et fermez le fichier texte. Vous pouvez passer le nom de chemin d'accès d'un fichier texte au constructeur StreamReader pour ouvrir automatiquement le fichier. La méthode ReadLine lit chaque ligne de texte et incrémente le pointeur de fichier à la ligne suivante lorsqu'il lit. Lorsque la méthode ReadLine atteint la fin du fichier, il renvoie la valeur Nothing.
  1. Démarrez Microsoft Visual Studio 2005 ou Microsoft Visual Studio .NET.
  2. Créez une nouvelle Application Console dans Visual Basic 2005 ou dans Visual Basic.NET.
  3. Ajoutez le code suivant en haut du fichier Module1.vb :
    Imports System.IO
    					
  4. Ajoutez le code suivant à la procédure Sub Main .
    Dim objStreamReader As StreamReader
        Dim strLine As String
    
        'Pass the file path and the file name to the StreamReader constructor.
        objStreamReader = New StreamReader("C:\Boot.ini")
    
        'Read the first line of text.
        strLine = objStreamReader.ReadLine
    
        'Continue to read until you reach the end of the file.
        Do While Not strLine Is Nothing
    
          'Write the line to the Console window.
          Console.WriteLine(strLine)
    
          'Read the next line.
          strLine = objStreamReader.ReadLine
        Loop
    
        'Close the file.
        objStreamReader.Close()
    
        Console.ReadLine()
    					
  5. Dans le menu Déboguer , cliquez sur Démarrer pour compiler et exécuter l'application. Appuyez sur ENTRÉE pour fermer la fenêtre de theConsole.

    La fenêtre de la Console affiche le fichier Boot.ini. Il est fortement le contenu du fichier Boot.ini peut varier de configuration toconfiguration. La sortie suivante est un exemple de fichier Boot.ini :
    [boot loader]
    timeout=5
    default=multi(0)disk(0)rdisk(0)partition(1)\WINNT
    
    [operating systems]
    multi(0)disk(0)rdisk(0)partition(1)\WINNT="Windows 2000 Professional" /fastdetect
    C:\ = "Windows 98"
    						

Écrire un fichier texte (exemple 1)

Le code suivant utilise la classe StreamWriter pour ouvrir, écrire dans et fermer le fichier texte. Similaire à StreamReader, vous pouvez passer le nom de chemin d'accès d'un fichier texte au constructeur StreamWriter pour ouvrir automatiquement le fichier. La méthode WriteLine écrit une ligne complète de texte dans le fichier texte.
  1. Démarrez Visual Studio 2005 ou Visual Studio .NET.
  2. Créez une nouvelle Application Console dans Visual Basic 2005 ou dans Visual Basic.NET.
  3. Ajoutez le code suivant au début du Module1.vb :
    Imports System.IO
    					
  4. Ajoutez le code suivant à la procédure Sub Main :
    Dim objStreamWriter As StreamWriter
        
       'Pass the file path and the file name to the StreamWriter constructor.
       objStreamWriter = New StreamWriter("C:\Testfile.txt")
    
       'Write a line of text.
       objStreamWriter.WriteLine("Hello World")
    
       'Write a second line of text.
       objStreamWriter.WriteLine("From the StreamWriter class")
    
       'Close the file.
       objStreamWriter.Close()
    					
  5. Dans le menu Déboguer , cliquez sur Démarrer pour compiler et exécuter l'application.

    Ce codecreates un fichier nommé Test.txt sur le lecteur C. ouvrir Test.txt dans un tel de l'éditeur de texte Notepad. Test.txt contient deux lignes de texte :
    Hello World
    From the StreamWriter class
    						

Écrire un fichier texte (exemple 2)

Le code suivant utilise la classe StreamWriter pour ouvrir, écrire dans et fermer le fichier texte. À la différence de l'exemple précédent, ce code passe deux paramètres au constructeur.

Le premier paramètre est le chemin d'accès et le nom du fichier. Le deuxième paramètre, True, spécifie que le fichier soit ouvert dans Ajouter mode. Si vous spécifiez False pour le deuxième paramètre, le contenu du fichier est remplacé chaque fois que vous exécutez le code. Le troisième paramètre spécifie Unicode afin que StreamWriter code le fichier au format Unicode. Vous pouvez également spécifier les méthodes de codage suivantes pour le troisième paramètre :
  • ASCII
  • BigEndianUnicode
  • UTF7
  • UTF8
La méthode Write est similaire à la méthode WriteLine , sauf que l'écriture n'incorpore pas automatiquement un chariot saut de ligne combinaison de caractères (CR/LF). Cela est utile lorsque vous souhaitez écrire un caractère à la fois.
  1. Démarrez Visual Studio 2005 ou Visual Studio .NET.
  2. Créez une nouvelle Application Console dans Visual Basic 2005 ou dans Visual Basic.NET.
  3. Ajoutez le code suivant au début du Module1.vb :
    Imports System.IO
    Imports System.Text
    					
  4. Ajoutez le code suivant à la procédure Sub Main dans votre code existant :
    Dim objStreamWriter As StreamWriter
       Dim x As Long
        
       'Open the file.
       objStreamWriter = New StreamWriter("C:\Test2.txt", True, _
          Encoding.Unicode)
    
       'Write out the numbers 1 through 10 on the same line.
       For x = 1 To 10
         objStreamWriter.Write(x)
       Next x
        
       'Close the file.
       objStreamWriter.Close()
    					
  5. Dans le menu Déboguer , cliquez sur Démarrer pour compiler et exécuter l'application.

    Ce codecreates un fichier nommé Test2.txt sur le lecteur C. ouvrir Test2.txt dans un tel de l'éditeur de texte Notepad. Test2.txt contient une seule ligne de texte :
    12345678910
    							
    Remarque : Si vous exécutez le code plusieurs fois, le texte « 123456789 » isrepeated sur la même ligne.

Listing complet du code

'Read a Text File
Imports System.IO
Module Module1

    Sub Main()
        Dim objStreamReader As StreamReader
        Dim strLine As String

        'Pass the file path and the file name to the StreamReader constructor.
        objStreamReader = New StreamReader("C:\Boot.ini")

        'Read the first line of text.
        strLine = objStreamReader.ReadLine

        'Continue to read until you reach the end of the file.
        Do While Not strLine Is Nothing

            'Write the line to the Console window.
            Console.WriteLine(strLine)

            'Read the next line.
            strLine = objStreamReader.ReadLine
        Loop

        'Close the file.
        objStreamReader.Close()

        Console.ReadLine()
    End Sub
End Module

'Write a Text File: Version 1
Imports System.IO
Module Module1

    Sub Main()
        Dim objStreamWriter As StreamWriter

        'Pass the file path and the file name to the StreamWriter constructor.
        objStreamWriter = New StreamWriter("C:\Text.txt")

        'Write a line of text.
        objStreamWriter.WriteLine("Hello World")

        'Write a second line of text.
        objStreamWriter.WriteLine("From the StreamWriter class")

        'Close the file.
        objStreamWriter.Close()

    End Sub
End Module

'Write a Text File: Version 2
Imports System.IO
Imports System.Text
Module Module1

    Sub Main()
        Dim objStreamWriter As StreamWriter
        Dim x As Long

        'Open the file.
        objStreamWriter = New StreamWriter("C:\Test2.txt", True, _
           Encoding.Unicode)

        'Write out the numbers 1 through 10 on the same line.
        For x = 1 To 10
            objStreamWriter.Write(x)
        Next x

        'Close the file.
        objStreamWriter.Close()
    End Sub

End Module
				

Résolution des problèmes

Chaque fois que vous d'entrée ou de sortie d'un fichier, il est conseillé d'encapsuler le code dans un bloc Try-fin-Try au cas où une erreur se produit. Certaines erreurs possibles incluent un fichier qui n'existe pas, ou un fichier qui est déjà en cours d'utilisation.

Références

Pour plus d'informations, visitez les sites Web de Microsoft à l'adresse suivante :
Comment faire...Lire un fichier texte ?
http://msdn.Microsoft.com/en-us/library/db5x7c0d.aspx


Comment faire...Lire et écrire des fichiers de grande taille ?
http://msdn.Microsoft.com/en-us/library/6ka1wd3w (v=vs.80).aspx

StreamReader (classe)
http://msdn.Microsoft.com/en-us/library/System.IO.StreamReader (v=vs.71).aspx

StreamWriter (classe)
http://msdn.Microsoft.com/en-us/library/System.IO.StreamWriter (v=vs.71).aspx

Propriétés

Numéro d'article: 315828 - Dernière mise à jour: mardi 3 septembre 2013 - Version: 4.0
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Visual Basic 2005
  • Microsoft Visual Basic .NET 2003 Initiation
  • Microsoft Visual Basic .NET 2002 Initiation
Mots-clés : 
kbvs2005swept kbvs2005applies kbhowtomaster kbmt KB315828 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu d'une traduction automatique réalisée par un logiciel Microsoft et non par un traducteur professionnel. Cette traduction automatique a pu aussi être révisée par la communauté Microsoft grâce à la technologie Community Translation Framework (CTF). Pour en savoir plus sur cette technologie, veuillez consulter la page http://support.microsoft.com/gp/machine-translation-corrections/fr. Microsoft vous propose en effet des articles traduits par des professionnels, des articles issus de traductions automatiques et des articles issus de traductions automatiques révisées par la communauté Microsoft, de manière à ce que vous ayez accès à tous les articles de notre Base de connaissances dans votre langue. Il est important de noter que les articles issus de la traduction automatique, y compris ceux révisés par la communauté Microsoft, peuvent contenir des erreurs de vocabulaire, de syntaxe ou de grammaire. Microsoft ne pourra être tenu responsable des imprécisions, erreurs, ainsi que de tout dommage résultant d?une traduction incorrecte du contenu ou de son utilisation par les clients.
La version anglaise de cet article est la suivante: 315828
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com