RENOMMAGE MASSIF DE FICHIERS

MoveX Messages postés 230 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 16 juillet 2005 - 15 oct. 2004 à 18:35
cincap Messages postés 460 Date d'inscription dimanche 5 décembre 2004 Statut Membre Dernière intervention 6 avril 2009 - 27 janv. 2007 à 07:58
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/26867-renommage-massif-de-fichiers

cincap Messages postés 460 Date d'inscription dimanche 5 décembre 2004 Statut Membre Dernière intervention 6 avril 2009 2
27 janv. 2007 à 07:58
Bonjour,

Suite à mon message du 25/01/2007,

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...010".

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.

Ma fille avait des fichiers comme photo 01.jpg, photo 02.jpg etc... et elle voulait les renommer avec le préfixe soiree_$.jpg $ = 01

Donc forcément un message d'erreur.

Bonne journée.

@+,

Cincap
cincap Messages postés 460 Date d'inscription dimanche 5 décembre 2004 Statut Membre Dernière intervention 6 avril 2009 2
25 janv. 2007 à 09:27
Bonjour,

Quelqu'un sait me dire pourquoi cette source une fois compilée fonctionne sur certains pc avec win XP ed Familiale pack 2 et pas sur d'autres.

Sur mon Compaq c'est ok, sur le packard bell de ma fille il ne fonctionne pas.

@+,

Cincap
GenEars Messages postés 16 Date d'inscription mercredi 2 novembre 2005 Statut Membre Dernière intervention 25 janvier 2008
25 sept. 2006 à 14:11
Salut Tonticoeur,

oups ! : je viens de faire à mon tour un code avec la même idée de base que toi (concernant le photos numériques en pagaille)...

Bon ben je vois que c'est un genre très commun, aussi excusez-moi pour le doublon.

A+
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
20 oct. 2004 à 11:36
Très bon programme!
J' en ai un dans le même genre mais avec plusieurs differences. Il permet entre autre de traiter les sous repertoires et de faire une simulation. Il permet la sustitution dans les noms mais aussi d' inserer, de bouger e de retirer des caracteres ...
Je viens de le traduire en Français, je vais de ce pas le poster!!!
Debiars Messages postés 285 Date d'inscription lundi 16 juin 2003 Statut Membre Dernière intervention 11 février 2018
18 oct. 2004 à 20:07
Dans la série "on peut toujours mieux faire", je viens de remplacer :

nomfic := tmpFolder.PathName;
while Pos('\',nomfic) > 0 do
Delete(nomfic,1,Pos('\',nomfic));

par

nomfic := ExtractFileName ( tmpFolder.PathName);
tonticoeur Messages postés 1 Date d'inscription vendredi 12 septembre 2003 Statut Membre Dernière intervention 18 octobre 2004
18 oct. 2004 à 16:40
Pour le filtre, c'est l'évenement "OnCloseUp" de la combo qui vient parturber le fonctionnement. Le mieux est de le supprimer et de faire un return après le sélection.
Concernant le folder, je ne compprends pas : Chez moi le DisplayName renvoi un String et ça fonctionne correctement.
Un petit signalement enfin et pour tout le monde : Il n'y a pas de demande de confirmation alors faite attention à votre sélection, car c'est un renommage violent !
Debiars Messages postés 285 Date d'inscription lundi 16 juin 2003 Statut Membre Dernière intervention 11 février 2018
18 oct. 2004 à 15:41
Ton prog m'intéresse beaucoup, mais j'ai eu quelques menus problèmes.
La sélection par filtre ne marchait pas (à part *).

"tmpFolder.DisplayName" me renvoie une chaine au format WideString, ce qui fait que TestPrefixe et TestSuffixe répondent toujours "False".

J'ai réussi à tourner la difficulté en remplaçant

if TestPrefixe( prefixe, tmpFolder.DisplayName) and
TestSuffixe( suffixe, tmpFolder.DisplayName)

par

nomfic : String;
---------
nomfic := tmpFolder.PathName;
while Pos('\',nomfic) > 0 do
Delete(nomfic,1,Pos('\',nomfic));
if TestPrefixe( prefixe, nomfic) and
TestSuffixe( suffixe, nomfic)

dans la procédure Selectionner Filtre.

Y aurait-il plus simple ?
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
15 oct. 2004 à 21:55
Pour une première avec Delphi 7, c'est excellent.
Code bien structuré, documenté et les traitements sont bien isolés de la fiche pour être plus facilement réutilisables.
10/10 : on en redemande !
Si tu as d'autre sources de cette qualité, alors n'hésite pas.
MoveX Messages postés 230 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 16 juillet 2005 1
15 oct. 2004 à 18:35
ca ressemble beaucoup a un prog que j avais fait, seulement, l upload sur le site avait rate.....
Rejoignez-nous