Lecture d'une ressource texte

Version imprimable

Bonjour,

j'ai un fichier dictionnaire.txt dans les ressources de mon application windows form . Je souhaite le parcourir ligne par ligne pour extraire son contenu dans un tableau. Seulement, j'ai une erreur sur le chemin donné au StreamReader :

Citation:

Caractères non conformes dans le chemin d'accès.

Lorsque je passe la souris sur ma ressource dans le code, j'y vois bien le contenu et il n'y a aucun caractère spécial ni même accentué sur le nom complet du chemin...

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 'Liste fichiers txt Public s_FileDictionnaire As String = My.Resources.Dictionnaire '... Dim StrReader As StreamReader Dim s_Ligne As String If Not File.Exists(s_FileDictionnaire) Then ' Lorsque j'ai la souris sur le string du fichier, j'ai bien le contenu du fichier qui s'affiche... 'Le fichier n'existe pas. On informe de l'erreur frmAccueil.lblInfo.Text = "Erreur : Chargement des mots impossible, veuillez vérifier le fichier Dictionnaire.txt" End If 'Ouverture du fichier et Création d'un tableau de mots StrReader = New StreamReader(s_FileDictionnaire) ' L'exception est detectée a cette ligne. MsgBox("Debut du fichier") s_Ligne = StrReader.ReadLine() While Not s_Ligne Is Nothing MsgBox(s_Ligne) s_Ligne = StrReader.ReadLine() End While MsgBox("Fin du fichier") 'Fermeture streamreader If Not IsNothing(StrReader) Then StrReader.Close()
Il y a quelque chose qui m'échappe! Peut être que je dois utiliser une autre méthode pour parcourir un fichier txt qui est dans les ressources?!

Merci pour vos réponses futures.
Kikouyou 1080

17/09/2010, 23h18
Pol63

un fichier texte en ressource se transforme en string avec le contenu du fichier dans le string (ce n'est pas un chemin)

d'ailleurs tu aurais eut la bonne idée de regarder en debug ce qui se passe tu aurais vu le contenu du string !

après avec un split sur environment.newline tu auras les lignes

NB:
un fichier en ressource se transforme en tableau d'octets bytes()
sauf quelques types de fichier txt=>string jpg(et autres)=>system.Drawing.image etc...
17/09/2010, 23h38
Kikouyou1080

Ah d'accord! Justement, je m'étonnais de voir le contenu de fichier! Je comprends mieux du coup! Merci bien pour tes précisions!

Bonne continuation!
Kikouyou 1080
18/09/2010, 12h10
Kikouyou1080
Bonjour,

A présent, j'ai bel et bien réussi a récupérer chaque ligne de mon fichier dans un tableau, seulement, je dois diviser ces lignes en 2 pour les introduire dans un tableau de structure, je suppose qu'on peut le faire en une seule fois, ce que je n'arrive pas a faire, et en deux fois c'est lourd!

En claire, j'ai dans le fichier des enregistrements du type :

0;BANANE
0;AVION
1;BEBE
Code:

1 2 3 4 5 6 Public Structure BaseMot Public b_Original As Boolean Public s_Mot As String End Structure Public BM_ListeMot() As BaseMot
Et je voudrais récuperer le tout comme suit :
BM_ListeMot(0). b_Original = 0
BM_ListeMot(0).s_Mot = BANANE

BM_ListeMot(1). b_Original = 0
BM_ListeMot(1).s_Mot = AVION

BM_ListeMot(2). b_Original = 1
BM_ListeMot(2).s_Mot = BEBE

Et ce en une seule fois. Sachant que mon fichier est une ressource et donc un string de la forme : "0;BANANE 0;AVION 1;BEBE"

Merci pour votre aide!
Kikouyou 1080

La solution que j'ai trouvée est extrêmement lente!
J'aurais besoin de conseils avisés pour accélérer les processus!

Code:

1
2
3
4
5
6
7
8
 
Dim i_IndiceMot As Integer = 0
        Do
            ReDim Preserve BM_Dictionnaire(i_IndiceMot)
            BM_Dictionnaire(i_IndiceMot).b_Original = CBool((s_FileDictionnaire.Split(Environment.NewLine)(i_IndiceMot)).Split(";")(0))
            BM_Dictionnaire(i_IndiceMot).s_Mot = (s_FileDictionnaire.Split(Environment.NewLine)(i_IndiceMot)).Split(";")(1)
            i_IndiceMot += 1
        Loop Until i_IndiceMot = 'je sais pas comment arrêter lorsque tout le string est parcouru...

Merci!

Edit : Finalement, j'ai fini par trouver, c'est en deux temps mais au moins, c'est rapide!

Code:

1
2
3
4
5
6
7
8
9
10
 
'Création du tableau de mots
        Dim s_TabTemp() As String = s_FileDictionnaire.Split(Environment.NewLine)
        ReDim BM_Dictionnaire(UBound(s_TabTemp))
        For i = 0 To UBound(s_TabTemp)
            With BM_Dictionnaire(i)
                .b_Original = CBool(s_TabTemp(i).Split(";")(0))
                .s_Mot = s_TabTemp(i).Split(";")(1)
            End With
        Next