Charger fichier en VB.NETRésolu

Question

Bonjour,

J'aimerais savoir comment je peux charger les lignes d'un fichier dans un tableau pour pouvoir les modifier et ensuite pouvoir sauvegarder ce tableau dans un autre fichier. Et tout ca en VB.Net.

Merci de votre aide.

cs_Alanor · Accepted Answer

Bon alors pour ceux qui seront interesse voici ma version finale du chargement et de la sauvegarde d'un fichier en VB.Net 


Public 
Function ChargerFichier(
ByVal adresse 
As 
String, 
ByRef nbLigne 
As 
Integer) 
As 
String()

      'Function permettant de recup&#233;rer les lignes d'un fichier dans un tableau

      '*Entr&#233;es
      'adresse : adresse complete du fichier a charger
      'nbLigne : nombre de lignes qui seront rentr&#233;e dans le tableau

      '*Sortie
      'Tableau contenant les lignes du fichier

      Dim fichier(300) 
As 
String    
'Tableau dans lequel sera stock&#233; le fichier
      Dim tmp 
As 
String                   
'Sauvegarde temporaire d'une ligne
      Dim i 
As 
Integer = 0

      'Ouvre le fichier en lecture
      FileOpen(1, adresse, OpenMode.Input, OpenAccess.Read, OpenShare.Shared)

      'Lit les lignes une par une jusqu'a la fin du fichier et les ajoutent dans le tableau
      Do 
Until EOF(1)
            Input(1, tmp)
            fichier(i) = tmp  
            i += 1

      Loop
      FileClose(1)

      'Met a jour le nombre de ligne
      nbLigne = i

      Return fichier

End 
Function



Public 
Sub SauverFichier(
ByVal adresse 
As 
String, 
ByVal donnees() 
As 
String, 
ByVal nbLigne 
As 
Integer)

      'Function permettant de sauvegarder dans un fichier les donnees contenues dans
      'un tableau

      '*Entr&#233;es
      'adresse : adresse complete du fichier dans lequel on fera la sauvegarde
      'donnees : tableau contenant les lignes a sauvegarder
      'nbLigne : nombre de lignes utilis&#233;es dans le tableau

      Dim i 
As 
Integer

      'Ouvre le fichier en ecriture
      FileOpen(1, adresse, OpenMode.Output, OpenAccess.Write, OpenShare.Shared)

      
'Enregistre les lignes une par une jusqu'a la fin du tableau et les ajoutent dans le fichier
      For i = 0 
To nbLigne - 1
            PrintLine(1, donnees(i))

      Next
      FileClose(1)

End 
Sub

Je remercie beaucoup un ami qui a pu m'aider

edokt · Answer

// ouverture de fichier



            StreamReader sr = new StreamReader("Chemin de fichier ");

            string line ; //= sr.ReadLine();

            while((line = sr.ReadLine())!= null)

            {

          
     this.list1.Items.Add(line); //List1 c'est un
control ListBox , C'est par exemple 

            }

            sr.Close();



//Enregistrement

            TextWriter output = File.CreateText("Chemin De fichier");

           
    for (int i = 0; i <= this.list1.Items.Count - 1;
i++) 

                {

           
       
output.WriteLine(this.list1.Items[i].ToString());

                }

                output.Close();



Salut

cs_Alanor · Answer

Merci pour ton aide, j'ai du convertile code en VB.Net mais dans le principe ca marche.



Dim fichierBPR(200) 
As 
String
Dim nbLigne 
As 
Integer = 0

Dim i 
As 
Integer

Chargement :
Dim sr 
As IO.StreamReader = 
New IO.StreamReader("Chemin entree")



Do
      fichierBPR(nbLigne) = sr.ReadLine()
      nbLigne = nbLigne + 1

Loop 
Until (fichierBPR(nbLigne - 1) = "

")


sr.Close()



For i = 0 
To (nbLigne - 1)
      lstBPR.Items.Add(fichierBPR(i))

Next

Sauvegarde :
Dim sortie 
As IO.TextWriter = IO.File.CreateText("Chemin sortie")



For i = 0 
To (nbLigne - 1)
      sortie.WriteLine(lstBPR.Items(i))

Next


sortie.Close()

Le probleme maintenant r&#233;side dans le fait que je ne sais pas comment savoir que je suis a la fin du fichier. Je ne peux pas tester si j'ai des lignes vide car il y en a dans mon fichier et pour le moment je ne peux m'arreter qu'en connaissant la derniere ligne (

) 

Si quelqu'un pouvait m'aider ce serait gentil.

Charger fichier en VB.NET

3 réponses

Discussions similaires