Chargement d'un fichier texte

Question

Donc j'ai un fichier texte contenant plusieurs centaines de lignes, chaque ligne contient 20 donn&#233;es s&#233;par&#233;e par un ";".
Exemple d'une ligne : 4/02/1978;6;17;30;31;35;37;15;281535;460171,2;0;0;0;0;18;5418;1701;28,51;35206;1,24

Voici le code lors de l'ouverture du ficher => form_load : 

Private Sub form_load()
   
Private Type MesColonnes 
        c01 As String
        c02 As String
        c03 As String
        c04 As String
        c05 As String
        c06 As String
        c07 As String
        c08 As String
        c09 As String
        c10 As String
        c11 As String
        c12 As String
        c13 As String
        c14 As String
        c15 As String
        c16 As String
        c17 As String
        c18 As String
        c19 As String
        c20 As String
    End Type
    
    Dim Tabligne() As MesColonnes


    stFichier = (App.Path & "\Essai.txt")
    
    Open stFichier For Input As #1
    
        num_fiche = 1
        
        Do While Not EOF(1)
            Input #1, Tabligne(num_fiche).c01, Tabligne(num_fiche).c02, Tabligne(num_fiche).c03, Tabligne(num_fiche).c04, Tabligne(num_fiche).c05, Tabligne(num_fiche).c06, Tabligne(num_fiche).c07, Tabligne(i).c08, Tabligne(i).c09, Tabligne(num_fiche).c10, Tabligne(num_fiche).c11, Tabligne(num_fiche).c12, Tabligne(num_fiche).c13, Tabligne(num_fiche).c14, Tabligne(num_fiche).c15, Tabligne(num_fiche).c16, Tabligne(num_fiche).c17, Tabligne(num_fiche).c18, Tabligne(num_fiche).c19, Tabligne(num_fiche).c20               message d'erreu : subscript out of range
            num_fiche = num_fiche + 1
        Loop
        Close #1

end sub

Est ce que vous pouvez m'aidez &#224; r&#233;soudre le message d'erreur que j'ai ? (en rouge)
Est ce que cette m&#233;thode est correcte ?

Merci.

Luca62.

cs_dragon · Answer

t'as penser passer par un tableau, &#231;a aiderais d&#233;j&#224; pas 

dim tableau() as objet
redim tableau(-1)
Do While Not EOF(1)
            Input #1, Tabligne
            redim preserve tableau(ubound(tableau + 1))
            tableau(ubound(tableau)) = split(Tabligne,";")
loop
Close #1


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

luca62 · Answer

Comment ca fonctionne cette proc&#233;dure car je ne l'ai ja mais employ&#233;e, &#224; la place du Input #1, Tabligne, je met met 3 lignes ? 

La d&#233;claration je laisse la m&#234;me ou dim tableau() as objet et redim tableau(-1), c'est assez ?

Et comment de reclasse mes 20 donn&#233;es apr&#232;s dans les cases textes ?

Merci.

Luca62.

cs_dragon · Answer

ce que je fais, je met toute mes colone dans une chaine string
ensuite je fais un split qui va retourner un tableau d'&#233;l&#233;ment

puis je met le tout dans un tableau d'objet (les lignes de ta requ&#234;te) ou un tableau qui contine un 2e tableau (les colonne de ta requ&#234;te)

le redim -1 permet d'initiliaser ton tableau &#224; vide au lieu de nothing, comme &#231;a tu pourra faire redim preserve tableau(ubound(tableau + 1)). Si ton tableau est a nothing, ceci va planter

------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

PCPT · Answer

y'a vraiment du foutage de gueule l&#224; !!!!
dragon, regarde ceci : http://www.vbfrance.com/forum.v2.aspx?ID=520661  , &#231;&#224; peut t'aider &#224; ne pas perdre ton temps

luca62, l'avis d'autres personne, je veux bien, mais t'as m&#234;me pas fait correctement ce que je t'ai dit, et tu te permets de copier la moiti&#233; du quart de ce que tu as compris en attendant la solution miracle......
nan mais j'd&#233;blokkkk !!!

*ton type mescolonnes, c'est pas en form load, mais en d&#233;clarations g&#233;n&#233;rales

* ton fichier texte doit contenir des VIRGULES pour &#234;tre lus directement en une seule ligne et "pr&#233;-coup&#233;" pour n'avoir ni de INSTR, ni de SPLIT &#224; effectuer

*ton tableau doit aussi &#234;tre d&#233;clarer au d&#233;c gen

*il te faut un compteur qui commence &#224; z&#233;ro, correspondant au Redim que tu vas appliquer au tableau(n).type avant de lui attribuer ses valeurs. puis ce compteur est incr&#233;ment&#233;.

relis la journ&#233;e que j'ai pass&#233; &#224; te r&#233;pondre, la TOTALIT&#233; DES REPONSES Y SONT.

PCPT

Chargement d'un fichier texte

4 réponses

Discussions similaires