CodeS-SourceS
Rechercher un code, un tuto, une réponse

[vb 2005] traitement des fichiers

Mai 2017


[vb 2005] Lecture et écriture de fichiers



INTRODUCTION


Pour rendre ces extraits de code utilisable il faut penser à ajouter cet import :

Imports System.IO


L'objet "File" permet d'accomplir facilement des opérations, aussi bien en lecture qu'en écriture, sur les fichiers textes ou binaires. Cette méthode est l'une des nombreuses nouveauté intéressantes ajoutées par le .Net 2.0.

ÉCRITURE D'UN FICHIER TEXTE

Écriture en mode texte


La méthode WriteAllText permet l'écriture d'un fichier en mode texte.

Ce code va créer un fichier texte nommé testFichierTexte à la racine du c:\ et y inscrire la phrase : "Test d'écriture dans un fichier texte"

Dim str_texte as string =  "Test d'écriture dans un fichier texte"
File.WriteAllText("c:\testFichierTexte.txt", str_texte)

Ajouter du texte


La méthode AppendAllText permet d'ajouter du texte dans un fichier existant ou de le créer s'il n'existe pas.

Ce code va rajouter "Cette ligne a été ajoutée par la méthode AppendAllText" dans le fichier texte créé précédemment :

File.AppendAllText("c:\testFichierTexte.txt", "Cette ligne a été rajouté par la méthode AppendAllText")

LECTURE D'UN FICHIER TEXTE


Nous allons maintenant lire ce même fichier texte et importer le résultat dans une variable :

Dim str_texte as string
str_texte  = File.ReadAllText("c:\testFichierTexte.txt")

EXEMPLE UTILISANT LA LECTURE ET L'ÉCRITURE


Nous allons lire un fichier texte puis en supprimer les lignes en trop

   'Lit le fichier texte et le stocke dans un tableau
   Dim str_lignes() As String = File.ReadAllLines("c:\origine.txt")
   Dim int_compteur As Integer = 0
   Dim int_i As Integer = 0

   'Supprime les lignes vides en remontant les lignes non vides
   For int_i = 0 To str_lignes.length - 1
      If str_lignes(int_i).Trim.Length > 0 Then
            str_lignes(int_compteur) = str_lignes(int_i)
            int_compteur +=1
      End If
   Next

   'Supprime les lignes en trop et stocke le tout dans un nouveau fichier
   ReDim Preserve str_lignes(int_compteur - 1)
   File.WriteAllLines("c:\destination.txt", str_lignes)



Voilà. En espérant pouvoir vous aider. J'attends vos remarques, précisions...

A voir également

Publié par swan94.
Ce document intitulé «  [vb 2005] traitement des fichiers  » issu de CodeS-SourceS (codes-sources.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Mise à jour d 'un bd access via une macro vba enregistré dans un fichier excell
Datagrid avec checkbox