Discussion :

[Akushiro]

Bonsoir!

J'esp�re que vous pourrez me donner une r�ponse � la question que voici, apr�s une br�ve explication.

Dans une proc�dure, je dois supprimer un paragraphe (chaque paragraphe commen�ant par un caract�re sp�cial donn�) provenant d'un fichier texte. Je ne peux pas utiliser de tableau, le nombre de paragraphes dans le fichier �tant non fix�. Le fichier en question est pass� en param�tre de ma proc�dure (pr�c�d� d'un var, bien entendu).

La m�thode que j'ai imagin� et impl�ment� est la suivante:
1. Je prends un fichier temporaire (d�claration dans la proc�dure + assignation du type assign(tmp, 'tmp.txt'))
2. Je copie les lignes qui ne doivent pas �tre supprim�es dans ce fichier.
3. Je recopie le contenu du fichier temporaire dans le fichier de d�part.
4. Je supprime le fichier temporaire.

Cependant, je trouve cela assez couteux en m�moire (deux fichiers) et en temps de calcul (copy-copy). N'y a-t-il pas moyen de faire mieux?
J'ai essay� de trouver mieux mais � chaque fois que je mettais en place mes id�es dans mon code...Ca n'aboutissait pas au r�sultat convenu.

Merci d'avance.

Akushiro

[batyann811]

On va dire que in.txt est ton fichier d'entr�e.
1 : tu generes un fichier out.txt contenant les lignes devant �tre conserv�es.
2 : tu renommes in.txt en in.bak par exemple
3 : tu renommes out.txt en in.txt
4: si tu veux tu effaces in.bak mais en cas d'erreur �a peu �tre bien de le garder.

[Akushiro]

D'abord, merci pour la r�ponse

Ensuite, je reprends pour voir si j'ai bien compris:

1 : tu generes un fichier out.txt contenant les lignes devant �tre conserv�es.
2 : tu renommes in.txt en in.bak par exemple
3 : tu renommes out.txt en in.txt
4: si tu veux tu effaces in.bak mais en cas d'erreur �a peu �tre bien de le garder.

-->

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
 
program test;
 
var texte1,texte2;
 
procedure editfile(var f1,f2:text);
begin
        assign(f2,'out.txt');
        rewrite(f2);
        {Remplissage de f2 à partir de f1}
        close(f2);
        rename(f1,'in.bak');
        rename(f2,'in.txt');
        erase(f1);
end;
 
begin
        assign(texte1,'in.txt');
        editfile(texte1,texte2);
end.

Est-ce bien cela que tu voulais dire? Si oui, je n'ai pas droit � deux fichiers dans le programme principal...Donc je ne peux pas appliquer cette m�thode. Sinon, peux-tu pr�ciser s'il-te-pla�t?

[batyann811]

C'est bien � ce genre de chose que je pensais.

Pourquoi cette limitation � une seul fichier ? C'est un exercice ?

[droggo]

Geo,

Pourquoi cette limitation � une seul fichier ? C'est un exercice ?

Probablement, c'est d'ailleurs un exercice assez classique pour apprendre - un peu - � g�rer des fichiers (ajouter, modifier, supprimer ...).

[Akushiro]

En effet, il s'agit d'une sorte d'exercice, disons que je ne peux pas me permettre (c'est plus un projet qu'un exercice) d'utiliser deux fichiers dans le programme principal. La solution que j'ai avanc� est-elle donc la plus 'efficiente' en prenant la contrainte en consid�ration?