Creation/Lecture fichier texte

Question

Bonjour,

Je viens tout juste de reprendre vb.net pour d&#233;velopper une application pour ppc. Et voil&#224; mon probl&#232;me : Je n'arrive pas &#224; lire et/ou cr&#233;er un fichier texte. Je vous laisse mon code (tir&#233; de plusieurs sources diff&#233;rentes), &#231;a sera plus simple.

    Public Function lireFichier(ByVal fichier As String)

        Dim c As New Collections.ObjectModel.Collection(Of String)

        Try
            ' Create an instance of StreamReader to read from a file.
            Dim sr As StreamReader = New StreamReader(fichier)
            Dim line As String
            ' Read and display the lines from the file until the end 
            ' of the file is reached.
            Do
                line = sr.ReadLine()
                c.Add(line)
            Loop Until line Is Nothing
            sr.Close()
        Catch E As Exception
            ' Let the user know what went wrong.
            Dim fi As New FileInfo(fichier)
            Dim fs As FileStream = fi.Create()

            c.Add("plop")

            fs.Close()

        End Try

        ' On retourne notre Arraylist
        Return c
    End Function

Le fonctionnement est simple : J'appele mon code &#224; partir d'une autre classe, en lui passant une string (test.txt) en param&#232;tre.

Le probl&#232;me &#233;tant qu'il passe toujours dans le catch. M&#234;me apr&#232;s une ex&#233;cution successive.. :'(

Si quelqu'un peut me montrer (sans doute) ma stupide erreur, &#231;a serait sympa. :)

cs_Willi · Answer

Essais avec les classes TextReader et TextWriter dans System.IO.
Sinon je ne saisis pas trop ta fonction lire fichier. Pourquoi elle ne renvoit pas le texte lu ?

tteuteu · Answer

Bonjour, et merci d'avoir r&#233;pondu Willi. 

Je vais essayer les classes que tu m'as indiqu&#233; et je te tiens au courant. En ce qui concerne la fonction, je pr&#233;f&#232;re mettre chaque ligne de mon fichier (ReadLine) dans une collection pour la retourner. Dans le programme principal, j'utilise cette derni&#232;re pour ajouter chaque une des lignes &#224; une zone de liste. J'aurai p&#251; faire autrement certes, mais je pense que c'est plus clair comme &#231;a.

Si tu vois &#231;a d'une autre fa&#231;on, je suis ouvert. :)

tteuteu · Answer

Bon alors je viens de m'aper&#231;evoir que mon code marchait tr&#232;s bien quand je le lancais dans une application windows. Mon probl&#232;me vient donc lorsque je l'execute avec un &#233;mulateur PPC. Si le probl&#232;me vient de l'&#233;mulateur, &#231;a me g&#234;ne pas trop. Par contre esque &#231;a amrchera une fois sur le PPC en question ? :/

cs_Willi · Answer

Sa je ne sais pas si il marchera dans ton ppc

J'ai une autre facon &#224; te proposer



Function LireFichier(
ByVal
 fichier 
As
 
String
) 
As
 
String
()

   Dim tr 
As
 IO.TextReader = 
New
 IO.StreamReader(fichier)

   Dim sLines 
As
 
String
() = tr.ReadToEnd.Split(ControlChars.CrLf)

   tr.Close()

   Return sLines



End 
Function

Pour ajouter les lignes &#224; une liste genre listbox tu fais comme ceci

Dim sMesLignes 
As
 
String
() = LireFichier(
"c:	onfichier.txt"
)

For i 
As
 
Integer
 = 0 
To
 sMesLignes.Length - 1
   ListBox1.Items.Add(sMesLignes(i).Trim)

Next

Creation/Lecture fichier texte

4 réponses

Discussions similaires