Ré-initialiser EOF à FALSE

Version imprimable

02/02/2016, 17h04
Stef31

Ré-initialiser EOF à FALSE
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:

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....:roll:
Avez vous une idée simple pour un faible niveau de programmation.

Merci

Bonjour,

Code:

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

03/02/2016, 15h46
Stef31

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