Discussion :

[Stef31]

Bonjour,
j'ai besoin de lire un fichier.txt assez volumineux. Vu qu'il contient plus de lignes que ce qu'accepte Excel, j'utilise la façon suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 Open fichier(choix_fichier) For Input As #ifile
for i=1 to Nbr
 Do While Not EOF(ifile)
   'ici mon traitement
 loop
next i
Close #ifile

J'aimerais faire plusieurs lecture du fichier sans avoir à l'ouvrir à chaque fois, mais vu que EOF passe à "True" à la fin de la première lecture....
Avez vous une idée simple pour un faible niveau de programmation.

Merci

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
dim T
Open fichier(choix_fichier) For Input As #ifile
T = Input$(LOF(ifile), ifile) 'Lecture de tout le fichier en une fois
Close #ifile
T=split(T,vbcrlf)
For i =0 to ubound(t) 'la tu boucle sur ton tableau autant de fois que tu veux sens ouvrir le fichier
 msgbox T(i)
Next
For i =0 to ubound(t)
 traitement
Next
For i =0 to ubound(t)
 traitement
Next
For a =0 to ubound(t)
 For b =a +1to ubound(t)
 
 if t(a)=t(b) then
Traitement
End if
Next
 
Next

[Stef31]

Bonjour,
après qlq manipulation pour le traitement, j'arrive à obtenir ce que je veux. Merci
Mon problème est résolu