Discussion :

[Mut]

Bonjour,

Je suis un peu perdu dans mes boucles.

Pour résumé, je dois ouvrir x fichiers, les parcourirs et une fois le traitement du parcours terminé, écrire dans un nouveau fichier les valeurs récupérées.Puis passer au fichier x+1

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
24
25
26
27
28
 
 
dim ifile, intfic as interger
 
ifile=freefile
intfic=freefile
 
for indtab=0 to ubound(tabfichiers())
 
NomFichier=TabFichiers(indtab)
 
open NomFichier for binary access read lock read as ifile
 
do while not eof(ifile)
Line Input #ifile, Laligne
'code récupération d'une valeur
 
loop
 
open CheminFichier for output as intfic
 
print #intfic, DonneRecup
 
Close #intfic
 
close #ifile
 
next indtab

Mais cela ne fonctionne pas, il me crée qu'un fichier alors que la boucle next parcours bien tout les fichiers source

[marot_r]

C'est normal car ton Open Output efface le contenu du fichier existant.

Code :

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

open CheminFichier for append

Qui va forcer l'ajout à la fin du fichier existant. Évidement au début du traitement il faut supprimer le fichier résultat sinon tu vas te rerpouvre avec tous les résultats de tous tes traitements mis bout à bout :o). Le append va créer le fichier si il n'existe pas.

A+

[Mut]

Bonjour,

Oui effectivement, j'avais un probleme de mode d'ouverture de fichier également... Mais le problème le plus ennuyant est la détection de la fin du fichier car malgré ma boucle eof, j'ai une erreur de dépassement de fichier dûe certainement à l'accés binaire...comment puis-je faire autrement qu'avec la boucle EOF ?

Merci

[marot_r]

Pour faire un accès binaire il faut utiliser un truc du genre

Code :

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

1
2
3
4
5
6
7
dim t as string * 1 'Défini un tampon de 1 caractère
 
do while LOC(numFicBinaire) <= lof(numFicBinaire)
  'lit les données tant que la position courante est inférieure ou égale à la longueur du fichier en octets.
  get numficBinaire,,t  'lit une longueur de tampon à la fois
  'ici ton code
loop

A+

[Mut]

Parfait, merci beaucoup ça fonctionne mieux

Merci