Récupération info dans fichier texte

Question

Voil&#224;, j'ai un fichier txt contenant 77 lignes. J'aimerais r&#233;cup&#233;rer les 6 premiers chiffres de chaque ligne.J'ai d&#233;j&#224; r&#233;cup&#233;rer le nombre de lignes :

Line Input #1, ligne
            tout = ligne
                If Len(tout) <> 0 Then
                    While Not EOF(1)
                        Line Input #1, ligne
                        tout = tout + crlf + ligne
                            
                            If Chr$(10) Then
                                nbligne = nbligne + 1
                            
                            End If
                        
                    Wend
                
                End If
                
                 MsgBox ("Nombre d'enregistrements :" & nbligne)

Ensuite, quand j'aurais r&#233;cup&#233;r&#233; mes 77 enregistrements de 6 chiffres, il faudra les stock&#233; ds une base access.

Merci de m'aider.

Gobillot · Answer

- Le test If chr$(10) ne sert &#224; rien et plante la machine

- Pour une fin de Ligne dans un fichier c'est vbCrLf  --> chr$(13) + chr$(10)
- tout tout + crlf + ligne doit &#234;tre remplac&#233; par tout tout & Ligne & vbCrLf
  pour les cha&#238;nes on utilise & signe de concat&#233;nation plut&#244;t que + signe d'addition
  vbCrLf &#224; la place de CrLf
  une fin de Ligne se met &#224; la fin et non pas au d&#233;but

- chiffres = Lefts(Ligne,6) pour avoir les 6 premiers caract&#232;res de la Ligne

- pour access je ne sais pas

Daniel

tonywan · Answer

Ok, &#231;a marche, mais &#231;a r&#233;cup&#233;re les 6 premier chiffre de la 1ere ligne. Or, il me faudrait les 6 premier chiffre de toutes les lignes.

Gobillot · Answer

&#231;a d&#233;pend si tu veux les mettre dans une Table ou dans une cha&#238;ne.

Dim chiffres() As String

While Not EOF(1)
          Line Input #1, ligne
          tout = tout & Ligne & vbCrLf
          nbligne = nbligne + 1
          Redim preserve chiffres(nbligne)
          chiffres(nbligne) = Lefts(Ligne,6)       
          Wend

Daniel

tonywan · Answer

Plutot dans un tableau. Ex :
chiffres (123456
              234567
              345678
              ......)
Pour tester, j'aimerais afficher tous ces chiffres (de 6 caracteres) dans un msgbox pour v&#233;rifier). MsgBox chiffres(ligne) ??

merci encore

Gobillot · Answer

avec MsgBox il faudrait le faire 77 fois donc autant que de lignes dans le fichier.
pour tester tu peux utiliser Debug.Print chiffres(nbligne) ou alors une ListBox List1.AddItem chiffres(nbligne)

Daniel

tonywan · Answer

oki merci je test.

Récupération info dans fichier texte

6 réponses

Discussions similaires