Discussion :

[nopnop]

Bonjour,
Je souhaite lire dans un fichier txt, enregistrer ce qui m interesse dans un autre, puis effacer le 1er fichier, et renommer le second avec le nom du premier (ca revient à modifier mon 1er fichier texte, j´ai rien trouvé de plus simple,..)

Le probleme est que je n arrive pas a supprimer le fichier texte.
Voici mon code :

AssignFile(F5,'syscopia.txt'); //fichero temporar
Rewrite(F5);
AssignFile(F2,'fichier.txt');
{$I-} //para evitar errores si el fichero no existe
Reset(F2);

{ici, j ai mon algorithme qui choisit les lignes a copier, et qui les met dans le fichier temporaire}


CloseFile(F2);
CloseFile(F5);
if not DeleteFile('syscopia.txt','fichier.txt') then
begin
ShowMessage('File not deleted!');
end;
RenameFile(syscopia.txt,);


Et la, ca me dit qu il n arrive pas a le fermer.
Quelqu un sait il pourquoi, ou conait il une fonction pr le forcer à le supprimer.
Merci beaucoup d avance. (Mon tp est a rendre demain ...)
A bientot
Julie

[heider]

tu peux déjà, pour deletefile, mettre le nom long des fichiers a supprimer, ca évite bien des erreurs...
Essayes déjà ca: si les fichiers a supprimer son dans ton répertoire de projet, alors:

Code :

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

1
2
3
 
deleteFile(ExtractFilePath(application.exeName)+'nomFichier.ext') 
//éventuellement un autre fichier en 2ème paramètre comme tu l'as fais.

Mais si, les fichiers ne sont pas dans le répertoire courrant de ton projet, alors, tu indique simplement le chemin relatif ou absolu des fichiers a supprimer + les noms de fichiers.

Tiends nous au courrant.

[nopnop]

Salut,
Merci pour la reponse.
J´ai deja essaye cela, ca ne marche pas (mettre le nom du fichier long). De plus, le nom change a chaque fois qu on lance le programme, car le nom du fichier texte depend de plusieurs trucs (pas important ici).

Bref, deletefile(nom_entier_de_mon_fichier) ne marche, et je pense que le probleme vient du fait que mon fichier est encore actif (c´est possible ca?).
Il ne faut pas faire autre chose que CloseFile(fichier) avant de le supprimer?

Le message http://www.developpez.net/forums/sho...d.php?t=167516
decrit exactement mon probleme, helas, il est marque en resolu, mais ne m explique pas vraiment pourquoi ca ne amrche aps. De plus, je n arrive pas a mettre la fonction try .. finally. Le programme saute a la fonction suivante, me mettant une erreur de compilation.

Une autre idée?
Merci
A+ Julie

[heider]

essayes en faisant des showmessage(''), tu pourra voir l'état des différentes proc grace a des booléens.

[pitango]

Bonsoir,

En remplacant les comandes dans ce sens, cela fonctionne de mon coté


AssignFile(F5,'syscopia.txt'); //fichero temporar
Rewrite(F5);
AssignFile(F2,'fichier.txt');
{$I-} //para evitar errores si el fichero no existe
Reset(F2);

{ici, j ai mon algorithme qui choisit les lignes a copier, et qui les met dans le fichier temporaire}

CloseFile(F2);
CloseFile(F5);
if not DeleteFile('fichier.txt') then
showmessage('File not deleted!') else RenameFile('syscopia.txt','fichier.txt');


A+

[nopnop]

salut,
pitango, qu as tu changé? je ne vois aps la difference avec mon code!
Merci

[pitango]

tu avais tapé

if not DeleteFile('syscopia.txt','fichier.txt') then
begin
ShowMessage('File not deleted!');
end;
RenameFile(syscopia.txt,);

que j'ai transposé en

if not DeleteFile('fichier.txt') then
writeln('File not deleted!') else RenameFile('syscopia.txt','fichier.txt');

en suivant la logique de ton énnoncé, code que j'ai testé et qui pour moi
focntionne

A+

[nopnop]

Salut,
Merci. C´est fou, ca marche pas chez moi! Ca doit venir de mon algo de traitement que je vous ai pas mi, mais je ne fais que des boucles, des writeln et des readln.

Y a un "truc" que je pourrais faire la dedans qui bloque le deletefile ?
Je ne vois vraiment aps quoi!
Julie

[pitango]

Repart depuis le début en sortant les traitements intermédaires

car si tu t'en tiens au code que tu as posté et que j'ai testé avec quelques modifs, cela doit fonctionner. Sinon poste nous ton code entier.

Bon courage

[nopnop]

onjour à tous,
Pour commencer, merci à tous pour toutes ses réponses.
J´ai enfin trouver le bug :
Bien avant de de realiser cete conftion de deletefile, j ouvrais ce même fichier, et fermais le fichier grace a un closefile, mais dans un boucle, qui n etait pas tjrs executer. Du coup, le fichier restait ouvert, et meme si je le re-ouvrais et le re-fermé, je ne pouvais pas le supprimer.

En sortant le closefile de la boucle, mon deletefile, appele 15 fonctions plus loin marche sans probleme !

J´esoère que ca pourra aider d´autre personne. J´ai cherche a supprimer le fichier après chaque ouverture et fermeture, jusqu á ce qu´a un moment, ca ne marche pas. Et c´est dans cette fonction que le closefile était mal placé.

A +
Julie

[petitcoucou31]

Salut juste une question , pour eviter tes manip d'effacer, renommer ...

pourquoi ne pas utiliser par exemple un Tmemo.

1° LoadFromFile du memo pour charger ton fichier.
2° Traitement du fichier directement dans le memo.
3° savetofile pour le sauver le fichier modifier sous le meme nom.

bye