Discussion :

[benj63]

Bonjour,

J'ai créé une application qui transforme un format de fichier en un autre. Des relevés, qui sont triés par stations de mesure, se retrouvent triés par dates de relevés.

J'utilise donc une boucle :

Pour chaque fichier de relevés d'une station
Si un fichier de relevés pour une date existe
alors ouvrir ce fichier, et ajouter à la fin les relevés de la station
sinon créer un fichier contenant les relevés de la station de cette date

J'utilise pour cela un TStringList avec les méthodes LoadFromFile, et SaveToFile.

Le problème, c'est que plus les fichiers sont gros, plus le loadfromfile est long et plus l'écriture à la fin du fichier prend du temps.

Y'a-t'il une méthode plus rapide, et correspondant à l'ajout de Strings à la fin d'un fichier sans même lire son contenu, que TStringList ?

Merci par avance !!

[DjmSoftware]

Salut,
utilise les Stream TstreamFile
cordialement

[benj63]

Merci, c'est TFileStream, c'est ça ? Par contre, excuse moi mais comment faire pour rajouter une liste de Strings à la fin du fichier ? Car TFileStream semble ne traiter que les fichiers en binaire, pas en texte... Ou peut etre ai-je lu trop rapidement l'aide de C++ Builder ?

[DjmSoftware]

Salutation,
non un Stream peut-être un fichier texte ou binaire
cordialement

[benj63]

Désolé, mais je ne parviens toujours pas à rajouter une liste de Strings à la fin de mon fichier. Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
TStringList *sortie = new TStringList();
sortie->Add("...");
sortie->Add("...");
 
TFileStream *fichier;
if(!FileExists(nom_fichier))
        fichier = new TFileStream(nom_fichier, fmCreate);
else
        fichier = new TFileStream(nom_fichier, fmOpenReadWrite);
 
fichier->Write(sortie, sizeof(TStringList));
delete fichier;
 
delete sortie;

Il écrit un fichier binaire illisible et loin de contenir toutes les données de mon StringList de départ. Comment faire alors ?

Merci !

[DjmSoftware]

salut,
l'exemple suivant crée un Objet de type TFileStream, lit le fichier autoexec.bat,l'object TStringList se charge avec le stream
il existe auusi la possibilité de charger un stream avce la méthode SaveToStream
remarque le contenu du Stream est sauvé sur le disque dur à la destruction de l'object

Code :

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

1
2
3
4
5
6
7
8
9
 
TFileStream * mfstream;
 TStringList* mlist;
 mfstream=new TFileStream("c:\\Autoexec.bat",fmOpenReadWrite);
 mlist= new TStringList();
 mlist->LoadFromStream(mfstream);
//... traitement
 delete mfstream;
delete mlist;

cordialement

[benj63]

Merci beaucoup !!! C'est exactement ce que je cherchais, et c'est aparemment plus rapide...

Voici mon code :

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
TFileStream * mfstream;
TStringList *sortie = new TStringList();
 
// Lecture
mfstream=new TFileStream(nom_fichier,fmOpenRead);
sortie->LoadFromStream(mfstream);
delete mfstream;
 
// Ecriture
mfstream=new TFileStream(nom_fichier,fmCreate);
sortie->Add(...);
sortie->Add(...);
sortie->SaveToStream(mfstream);
 
delete sortie;
delete mfstream;

Je suis obligé de faire un premier "delete mfstream" lors de la lecture car si j'utilise le stream en mode openReadWrite, il me duplique à chaque fois mes données et je me retrouve en quelques secondes avec des fichiers de 20 Mo... Mais peut-être y'a t'il une autre solution ?...

[Ricky81]

Bonjour,

pour ajouter le contenu d'un fichier à la fin d'un autre, tu peux t'inspirer de ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
TFileStream * test;
TFileStream * ajout;
 
test=new TFileStream("Test.txt",fmOpenWrite);
ajout=new TFileStream("Ajout.txt",fmOpenRead);
 
test->Position = test->Size; // on se place à la fin du fichier
 
test->CopyFrom(ajout,0); // on insère le contenu de "Ajout.txt"
 
delete test;
delete ajout;

Tu peux ensuite adapter ca pour par exemple rajouter des lignes à la fin du fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
TFileStream * test;
TStringList *sortie = new TStringList();
 
test=new TFileStream("Test.txt",fmOpenWrite);
 
test->Position = test->Size;
 
sortie->Add("...");
sortie->SaveToStream(test);
 
delete sortie;
delete test;

En espérant t'avoir aidé

Eric

[benj63]

test->Position = test->Size;

C'était ça qu'il me manquait !! Merci Eric, à présent l'écriture est vraiment beaucoup plus rapide.