Mise en table d'un fichier texteRésolu

Question

Bonjour,

pourriez vous m'aider &#224; simplifier ce code :

. lecture d'un fichier texte pour conna&#238;tre le nombre de lignes max (longueur variables)
. redimensionnement de ma table m&#233;moire avec le nombre de lignes max
. relecture du fichier pour mise en m&#233;moire dans la table m&#233;moire

   open fic for input lock read write as #1
   t_ind_max = 0
   do while not eof(1)
      t_ind_max = t_ind_max + 1
      line input #1, w_temp
   loop
   redim t(t_ind_max)
   t_ind = 0
   seek #1,1
   do while not eof(1)
      t_ind = t_ind +1
      line input #1, t(t_ind)
   loop

Merci d'avance pour votre aide,

cs_CanisLupus · Accepted Answer

Salut,

Un tit exemple :

Dim t() As String
Dim t_ind As Integer
Dim w_temp As String
Dim fic As String


  fic = "c:	emp	ruc.txt"
  ReDim t(0)


  Open fic For Input Lock Read Write As #1
  Do While Not EOF(1)
    Line Input #1, w_temp
    t_ind = t_ind + 1
    ReDim Preserve t(t_ind)
    t(t_ind) = w_temp
  Loop
  Close #1
  
  ' pour lire le tableau
  For t_ind = 1 To UBound(t)
    MsgBox t(t_ind)
  Next

Tu vois si &#231;a r&#233;pond &#224; ta question

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_tulesais · Answer

royal !!!

merci beaucoup !!!

Mise en table d'un fichier texte

2 réponses

Discussions similaires