Renommer une série de fichiersRésolu

Question

Bonsoir, J'ai un petit souci avec une procédure pour renommer une série de fichiers. Si les fichiers en questions ont déjà été renommé avec le nouveau nom ajouté du signe "_0" puis de son extension, cela fonctionne la 1ère fois. Par contre si je modifie le nom renommé, le new nom devient farfelu "_0100" etc. Voici le code que j'utilise : Edit1 = le chemin Edit2 = new nom Edit3 = extension procedure TFiche.But_RenommerClick(Sender: TObject); Var IndexFichier, NombreFichiers, Rep: integer ; Info : TSearchRec; Fichier, MonExtensionDeFichier, NouveauNomDeFichier, Chemin, FichierRenomme: string ; begin Chemin := IncludeTrailingPathDelimiter(Edit1.Text); NouveauNomDeFichier := edit2.Text; If FindFirst(Chemin+ edit3.text,faAnyFile,Info)=0 Then NombreFichiers :=0 ; Begin Repeat NombreFichiers := NombreFichiers + 1 ; Until FindNext(Info)<>0; end; Rep : = Application.MessageBox(Pchar('*** Etes vous certain de vouloir renommer ces '+IntToStr(NombreFichiers)+' fichiers ***' ), 'Message ', MB_OKCANCEL ); If Rep = 1 then // si l'utilisateur a begin ProgressBar1.Min := 0; ProgressBar1.Max := NombreFichiers; ProgressBar1.Position := 0 ; { Recherche de la première entrée du répertoire } If FindFirst(Chemin+ edit3.text,faAnyFile,Info)=0 Then Begin IndexFichier := +1 ; Repeat Fichier := Info.FindData.cFileName; // on recupere le nom du fichier MonExtensionDeFichier := ExtractFileExt(Fichier); // on recupere l'extension FichierRenomme := Chemin + NouveauNomDeFichier + '_0'+ IntToStr(IndexFichier)+ MonExtensionDeFichier; RenameFile(Chemin + Fichier, FichierRenomme); // compte les fichiers IndexFichier := IndexFichier +1; ProgressBar1.Position := ProgressBar1.Position +1 ; Until FindNext(Info)<>0; FindClose(Info); Application.MessageBox(Pchar('*** Les '+IntToStr(NombreFichiers)+' fichiers sont renommés avec succès ! ***'), 'Message', MB_OK) ; end; end; end; A votre meilleure convenance et merci d'avance, @ Cincap [url]mailto:/url

JulioDelphi · Answer

resalut !
déjà, je ne vois pas de question =) donc je ne sais pas quel est ton probleme, ce que tu as essayé ou a quel endroit tu bloques.
si j'essaie de deviner, voila ce que j'en sors :
j'ai un fichier "bonjour.txt", je le passe au renommeur, j'obtiens "bonjour_01.txt".
Si je passe a nouveau le fichier au renommeur, j'obtiens "bonjour_01_01.txt" ce qui est totalement logique.
Est-ce que c'est ça que tu veux eviter ? c'est plutot à l'utilisateur de ne pas renommer 2 fois les fichiers ! sous peine d'obtenir de genre de resultats.

Si je me trompe de probleme, merci de l'xpliquer plus clairement.

cincap · Answer

Bonsoir,

@ JulioDelphi, c'est en fait ce que tu as deviné.

Je pensais que le fait de renommer éffacerai l'ancien nom donc "bonjour.txt" j'obtiens "bonjour_01.txt" ce qui est logique, mais par contre si je le renomme, cela devrai effacer "bonjour_01" et avoir le new nom.

Je me trompe peut-être.

Maintenant ta réponse est pertinente quand tu dis que c'est à l'utilisateur de ne pas renommé 2 x le même fichier.

Merci à toi,

@+,

Cincap

[url]mailto:/url

JulioDelphi · Answer

Autre exemple :
voila ma liste de fichiers :
"bonjour.txt
salut.txt
machin.txt"
je les renomme avec la maniere 1, j'obtiens :
"bonjour.txt > bonjour_01.txt
salut.txt > salut_02.txt
machin.txt > machin_03.txt"
mais tu peux aussi demande un prefixe de nom de fichier, ce qui me donnerais avec le prefixe "julio":
"bonjour.txt >julio_01.txt

salut.txt>julio_02.txt

machin.txt>julio_03.txt"
tu vois ?

Mon site DELPHI =)

cincap · Answer

Bonjour,

@ JulioDelphi, je viens de tester ton exemple avec le code cité dans mon 1er message, avant tout il faut mettre déjà un new nom dans le Tedit 2 sinon on aura uniquement ceci : "_01.txt, _02.txt, _03.txt,_04.txt, _05.txt" (5 fichiers).

Si je met Julio, j'obtiens "Julio_01.txt, Julio_02.txt, Julio_03.txt, Julio_04.txt, Julio_05.txt" ce qui est le but.

Maintenant je renomme Julio en Juli (ou j'éfface le o) et j'obtiens "Juli_02.txt, Juli_03.txt, Juli_04.txt, Juli_05.txt, Juli_06.txt".  

Le Juli_01.txt est disparu par contre à ce stade, si sans rien changer, je clique à nouveau sur le bouton "renommer" l'ordre est à nouveau correct et j'obtiens 
"Juli_01.txt, Juli_02.txt, Juli_03.txt, Juli_04.txt, Juli_05.txt".

Dans la fonction citée plus haut, il y a bien un bug mais je ne trouve pas ou.

@+,

Cincap

[url]mailto:/url

ThWilliam · Answer

Salut cincap, j'ai un peu retravaillé ta procedure et tout marche (changement en 'julio', puis 'juli' avec edit3.text = '*.*' Attention : chaque fois que tu emploies un FindFirst, tu dois libérer avec FindClose ce que tu ne fais pas après la 1° recherche (pour nb de fichiers) et incorrectement la 2° fois puisque FindClose est dans le begin...end du if findfirst = 0... donc pas de FindClose si FindFirst était <> 0 (ce qui n'arrive pas ici, d'accord). procedure TFiche.But_RenommerClick(Sender: TObject); Var IndexFichier, NombreFichiers, Rep: integer ; Info : TSearchRec; Fichier, MonExtensionDeFichier, NouveauNomDeFichier, Chemin, FichierRenomme: string ; begin Chemin := IncludeTrailingPathDelimiter(Edit1.Text); NouveauNomDeFichier := edit2.Text; NombreFichiers :=0 ; If FindFirst(Chemin+ edit3.text,faAnyFile,Info)=0 Then Repeat NombreFichiers := NombreFichiers + 1 ; Until FindNext(Info)<>0; FindClose(Info); if (NombreFichiers > 0) and (Application.MessageBox(Pchar('*** Etes vous certain de vouloir renommer ces '+IntToStr(NombreFichiers)+' fichiers ***' ), 'Message ', MB_OKCANCEL) = IDOK) then begin ProgressBar1.Min := 0; ProgressBar1.Max := NombreFichiers; ProgressBar1.Position := 0 ; try If FindFirst(Chemin+ edit3.text,faAnyFile,Info)=0 Then Begin IndexFichier := 1 ; Repeat Fichier := Info.FindData.cFileName; // on recupere le nom du fichier MonExtensionDeFichier := ExtractFileExt(Fichier); // on recupere l'extension FichierRenomme := Chemin + NouveauNomDeFichier + '_0'+ IntToStr(IndexFichier)+ MonExtensionDeFichier; RenameFile(Chemin + Fichier, FichierRenomme); // compte les fichiers IndexFichier := IndexFichier +1; ProgressBar1.Position := ProgressBar1.Position +1 ; Until FindNext(Info)<>0; end; Application.MessageBox(Pchar('*** Les '+IntToStr(NombreFichiers)+' fichiers sont renommés avec succès ! ***'), 'Message', MB_OK) ; finally FindClose(Info); end; end; end; A + Thierry

cincap · Answer

Bonsoir,

@ ThWilliam, merci pour avoir regardé la source, j'ai donc refait le test et en effet, nous avons un new nom.

Seulement la numérotation une fois commence à _01 et puis si tu change le nom même d'une lettre, la numérotation commence au _02.

J'ai fait le test avec 5 fichiers *.txt

Le nom = new j'obtiens new_01 .._05
Le nom = new2 j'obtiens new_01 .._05

J'enlève le 2

Le nom = new j'obtiens new_02 .._06

Va comprendre.

Merci encore,

@+,

Cincap

[url]mailto:/url

ThWilliam · Answer

Re-cincap,

de fait, à force de tester, j'obtiens aussi la même chose : cela est dû, à mon avis, à l'emploi d'une boucle FindNext alors qu'on fait des opérations sur les fichiers.
 Il faut une autre méthode: stockage des fichiers en mémoire.
J'essaie le code et puis je le poste.

A +

ThWilliam · Answer

En stockant les noms de fichiers à renommer dans un TStringList,  plus de problèmes.

procedure TFiche.But_RenommerClick(Sender: TObject);
Var
  IndexFichier: integer ;
  Info   : TSearchRec;
  Fichier, MonExtensionDeFichier, NouveauNomDeFichier, Chemin, FichierRenomme: string ;
  MaListe: TStringList;
  I: integer;
begin
 Chemin := IncludeTrailingPathDelimiter(Edit1.Text);
 NouveauNomDeFichier := edit2.Text;
 MaListe:= TStringList.Create;
 If  FindFirst(Chemin+ edit3.text,faAnyFile,Info)=0 Then
    Repeat
        MaListe.Add(Info.Name);
    Until FindNext(Info)<>0;
 FindClose(Info);


 if (MaListe.Count > 0) and
    (Application.MessageBox(Pchar('*** Etes vous certain de vouloir renommer ces '+IntToStr(MaListe.Count)+' fichiers ***' ),
      'Message ', MB_OKCANCEL) = IDOK) then
     try
          ProgressBar1.Min := 0;
          ProgressBar1.Max := NombreFichiers;
          ProgressBar1.Position := 0 ;
          IndexFichier:= 1;
          for I:= 0 to MaListe.Count -1 do
          begin
              Fichier := MaListe[I];
              MonExtensionDeFichier := ExtractFileExt(Fichier); // on recupere l'extension
              FichierRenomme := Chemin + NouveauNomDeFichier + '_0'+ IntToStr(IndexFichier)+ MonExtensionDeFichier;
              RenameFile(Chemin + Fichier, FichierRenomme);
              Inc(IndexFichier);
          end;
          ProgressBar1.Position := ProgressBar1.Position +1 ;
          Application.MessageBox(Pchar('*** Les '+IntToStr(MaListe.Count)+' fichiers sont renommés avec succès ! ***'), 'Message', MB_OK) ;
     except
        //....
     end;
 MaListe.Clear;
 MaListe.Free;
end;

Petite remarque : il faudrait ajouter un test pour vérifier que le nouveau nom n'existe pas déjà :
exemple de trois fichiers : 'maison.txt', 'ciel.txt', 'test_02.txt'.
Tu renommes avec le préfixe 'test' : --> 'ciel.txt' devrait se renommer 'test_02.txt' !!!

A +
Thierry

cincap · Answer

Bonsoir,

@ ThWilliam, super de chez super, enfin cela fonctionne, tu es un as.


J'ai simplement rajouté dans la variable de ta solution "Nombrefichiers" pour le progressbar (sans importance).


Sinon le new nom ne s'additionne plus et s'incrémente correctement comme quoi.

Merci pour ta patience.

@+,

Cincap 

[url]mailto:/url

cincap · Answer

Je viens de tester avec les 3 fichiers 'maison.txt', 'ciel.txt', 'test_02.txt'.

Avec le préfixe 'test' 

la 1ère fois, j'obtiens test_01.txt, test_03.txt et maison.txt, lui ne se renomme pas

la 2ième fois, j'obtiens test_02.txt, test_03.txt et maison.txt, lui ne se renomme pas

la 3ième fois, j'obtiens test_02.txt, test_03.txt et test_01.txt (maison.txt).

A n'y rien comprendre.

Ne te tracasse pas trop.

@+,

Cincap

[url]mailto:/url

cincap · Answer

Bonjour,

@ ThWilliam,

Après les différents tests, j'en déduit que cela fonctionne correctement si les fichiers à renommer ne contiennent pas déjà dans le nom une valeur numérique '_01....).

3 fichiers 'maison.txt', 'ciel.txt', 'test.txt'.

Préfixe "test" j'obtiens test_01.txt, test_02.txt et test_03.txt ce qui est le but.

Bonne journée.

@+,

Cincap

[url]mailto:/url

ThWilliam · Answer

Salut Cincap,

"j'en déduit que cela fonctionne correctement si les fichiers à renommer ne contiennent pas déjà dans le nom une valeur numérique '_01....)"

Non, ce n'est pas cela la cause.
Ce qui se passe en fait c'est que le 'renommage' s'est opéré chronologiquement ainsi (je pense que ici  FindFirst,FindNext renvoie les fichiers triés alphabétiquement : à vérifier) :
- "ciel.txt" est correctement renommé en "test_01.txt"
- "maison.txt" aurait du s'appeler "test_02.txt", mais comme ce nom existe déjà, la fonction RenameFile échoue --> cela reste "maison.txt". Mais, d'après le code, indexfichier s'incrémente, donc passe à 03.
- "test_02.txt" se renomme bien en "test_03.txt"

Au deuxième passage (tjs dans l'ordre alphabétique) :
- "maison.txt" devrait se renommer en "test_01.text", mais ce nom existe déjà, donc pas de renommage et incrémentation de indexfichier à 02.
- "test_01" se renomme bien en "test_02" (ce nom n'existe pas). Indexfichier devient 03.
- "test_03" reste donc "test_03".

RenameFile est une fonction qui renvoie true si le fichier a pu être renommé. Elle ne provoque pas d'exception du genre "erreur: impossible de renommer".
Tu dois absolument avant de renommer un fichier t'assurer que le nouveau nom n'existe déjà pas (sauf si c'est justement le nom original du fichier à renommer). Pour cela, tu a la fonction FileExists. Si cette fonction renvoie true, il faut alors modifier le nouveau nom. Mais il faut de nouveau vérifier si ce nom existe déjà... donc il faut pour chaque fichier faire une boucle  avec FileExists jusqu'à trouver un nouveau nom qui n'existe pas. Il y a plusieurs solutions. A toi de voir ce que tu préfères comme nouveau nom. 
Remarque : comme ta recherche de fichiers se fait avec attribut 'anyfile', tu prends tous les fichiers y compris les dossiers, fichiers cachés... Si tu veux éviter cela, il faut faire une vérification des attributs du fichier. On peut en reparler...

A +
Thierry

Cirec · Answer

Salut,

que de complications ... 

Bon alors... juste pour tester tu places 3 TEdit 3 TListBox 2 TButton et 1 TLabel sur ta fiche:

Tu nommes les TEdit comme suit:
Edit1 =   ed_Directory
Edit2 = ed_Extension
Edit3 = ed_NewName

ed_Directory = 'C:\Mes Images\'
ed_Extension = '*.bmp'
ed_NewName =  'Image_'

Les lignes en violet sont juste la pour tester elles sont a remplacer par la ligne en commentaire

// Ici l'on récupère les fichier qui seront renommés
procedure TForm1.FormCreate(Sender: TObject);
 Var  aDir : String;
begin
 aDir : = ed_Directory.Text + ed_Extension.Text;
 SendMessage(ListBox1.Handle,
 LB_DIR, DDL_ARCHIVE + DDL_READWRITE + DDL_EXCLUSIVE, Integer(aDir));
 Label1.Caption :=  IntToStr(ListBox1.Items.Count);  // juste pour voir le nombre de fichiers 
 end ;

// C'est ici que l'on renomme les fichiers
procedure TForm1.Button1Click(Sender: TObject);
Var I : Integer;
    Ext, Num : String;
begin
  ListBox2.Clear; // a supprimer 
  For I :  = 0 to ListBox1.Items.Count -1 do Begin
    Ext :=   ExtractFileExt(ListBox1.Items[I]);
    Num := format('%.3d', [I + 1]); // permet d'obtenir un nombre à trois chiffres Ex. 001  
    ListBox2.Items.Add(ed_NewName.Text + Num + Ext);// a remplacer par :  
    {MoveFileEx(PChar(ed_Directory.Text + ListBox1.Items[I]),
      PChar(ed_Directory.Text + ed_NewName.Text + Num + Ext),
      MOVEFILE_COPY_ALLOWED  or  MOVEFILE_WRITE_THROUGH);}
  // MoveFileEx te permet de renommer même sur un autre lecteur que le lecteur source

  // grace a MOVEFILE_COPY_ALLOWED.

  // et MOVEFILE_WRITE_THROUGH rend la main à l'application

  // uniquement quand la copie/déplacement est éffectué
  End;
end;

// Ici on renomme les fichiers une deuxième fois (juste pour tester)
procedure TForm1.Button2Click(Sender: TObject);
Var I : Integer;
    Ext, Num  : String;
begin
  ListBox3.Clear;// a supprimer 
  For I :  = 0 to ListBox2.Items.Count -1 do Begin
    Ext :=   ExtractFileExt(ListBox2.Items[I]);
    Num := format('%.3d', [I + 1]);
    ListBox3.Items.Add('Teste_' + Num + Ext); // a remplacer par :   
    {MoveFileEx(PChar(ed_Directory.Text + ListBox2.Items[I]),
      PChar(ed_Directory.Text + 'Teste_' + Num + Ext),
      MOVEFILE_COPY_ALLOWED  or  MOVEFILE_WRITE_THROUGH);}
  End;
end;

Si tu n'as pas tout compris n'hésite pas à me le dire 
 
@+
Cirec

<hr size  ="2" />

cincap · Answer

Bonjour,

@ Cirec, je te remercie de participer à ce post , j'essaye de tester ton code en recréant une nouvelle application et pourtant aucun résultat, rien ne s'affiche dans les listbox.

La question, le dir, l'extension et le new nom doivent se mettre avant la création de la fiche ou après (j'ai testé les deux),

Je continue à chercher le pq.

Bon dimanche.

@+,

Cincap

[url]mailto:/url

cincap · Answer

@ Cirec, C'est OK

1- je testais sur des *.jpg et je n'avais pas mis dans l'uses "JPEG".

2- Je n'avais pas aussi terminer le chemin avec la barre oblique. 

Cela à l'air très concluant avec si peu de code, je continue à tester et je te tiens au courant. 

@+,

Cincap
[url]mailto:/url

ThWilliam · Answer

Salut Cirec,

Très bon code (comme d'habitude).

Deux remarques :

   F:= '%.' + IntToStr(Length(IntToStr(ListBox1.Items.Count))) + 'd';
   //...
   Num := format(F, [I + 1]);

Cela permet de s'assurer que l'on aura assez de chiffres pour le nombre de fichiers.

Ta procedure Button1Click ne résoud pas le problème de 'renommage' avec un nouveau nom existant déjà : dans ce cas, le fichier n'est pas renommé.
ex: 'maison.txt' et 'texte01.txt' : à renommer en 'texte' + 2 chiffres --> si 'maison.txt' est à renommer le premier, il ne sera pas renommé, et 'texte01.txt' deviendra 'texte02.txt'.  
J'ai fait un test avec une boucle sur FileExists pour ajouter un chiffre si le fichier existe déjà, mais alors cela donne : 'texte011.txt' et 'texte02.txt'. 
Il faudrait une méthode pour ne pas rompre la séquence des chiffres.
Faire un premier passages sur les items de ListBox1 en supprimant de la liste les fichiers qui ont pu être renommés, refaire un passage en partant du dernier nombre... ?
Ou as-tu une autre solution ?

A +
Thierry

Cirec · Answer

Merci,


j'ai testé plusieurs cas de figure (en même temps il était presque 3 heure du mat) et tous se passe toujours comme prévu.


mais il est vrai que dans ce cas particulier maison.txt ne sera pas renommé sauf si l'on ajoute ceci :

MOVEFILE_REPLACE_EXISTING


Mais ceci aura pour effet de renommer Maison.txt en Teste01.txt et du coup l'ancien Teste01.txt est écrasé 


un truc très simple serai de remplacer Teste par Teste_ où en d'autres
termes s'assurer que NewName ne fait pas partie de la liste de fichier
existant 

j'ai pas cherché plus loin mais il y certainement un moyen de résoudre ce problème 
 
@+
Cirec

<hr size="2" />

Cirec · Answer

ps: j'ai oublié ... en ce qui concerne la numérotation on peut effectivement faire comme le propose ThWilliam 
   F:=  '%.' + IntToStr(Length(IntToStr(ListBox1.Items.Count))) + 'd';

j'avais prévu le coup pour 3 chiffres de 1 à 999 ce qui me semblait suffisant ...

mais on peut aussi tout simplement faire comme ceci (sans calcule supplémentaire) : format('%. 4 d', [I + 1]);

ce qui donne un résultat de 1 à 9999 ... au delà c'est du "suicide" 
 
@+
Cirec

<hr size ="2" />

cincap · Answer

Bonsoir,

C'est vrai que c'est un véritable casse tête, j'ai aussi testé certains logiciels free et shareware et si on refait le test comme ici on obtient un résultat farfelu.

Pour le compteur, de 1 à 999 me semble plus logique.

Quant à la réponse de l'ami Cirec, qui consiste à vérifier si le new name ne se trouve pas dans la liste des fichiers, me semble judicieux.


Le connaissant je suis certain qu'il trouvera une parade à ce problème concernant cette source.

D'ailleurs les sources concernant le renommage des fichiers ont toutes le problème décrit dans ces posts.

@+,

Cincap

[url]mailto:/url

Cirec · Answer

Juste pour information :

Totale Commander de Christian Ghisler (anciènement WinCommander) dispose d'un outil de renommage par lot très puissant 
et lui n'a aucun problème à renommer le cas qui pose problème ici 

 
@+
Cirec

<hr size="2" />

Renommer une série de fichiers

21 réponses

Votre réponse

Discussions similaires