[Script] Renommer tous les fichiers d'un répertoire

Renommer tous les fichiers d'un répertoire [Script] - Programmation

Marsh Posté le 05-04-2002 à 18:45:28    

Mais j'ajoute une difficulté :)
Voila mon bleme : J'ai un rep avec pleins de fichiers qui se nomment blabla.txt, youpi.txt, scmurtz glob.txt, pinpol.txt, etc...
J'ai besoin de renommer tous ces fichiers en 1.txt, 2.txt, 3.txt, etc...
 
J'imagine que je dois virer l'extension .txt, lister le contenu de mon rep puis faire une boucle pour renommer et enfin rebalancer l'extension .txt, mais j'en suis pas sûr, et plus grave : J'ai peur de m'embrouiller dans le code :D
 
Donc si kelkun avait déjà eu ce genre de pb où avait le tps de s'y pencher dessus.... ca serait très très très cool.
 
Si possible en PHP, VBA, ou .bat
 
Merci d'avance !

Reply

Marsh Posté le 05-04-2002 à 18:45:28   

Reply

Marsh Posté le 05-04-2002 à 18:49:26    

minooye a écrit a écrit :

 
J'imagine que je dois virer l'extension .txt, lister le contenu de mon rep puis faire une boucle pour renommer et enfin rebalancer l'extension .txt,




 
Erk, non !
tu recupere la liste des fichiers, et pour chaque fichier :
mv $fichier $numero.txt
 
bon, c'est loin d'etre une reponse complete...

Reply

Marsh Posté le 05-04-2002 à 18:51:13    

Ca fait déjà un élément de reponse ;)
Si tu me la complètes je te fais risette :D

Reply

Marsh Posté le 05-04-2002 à 18:53:17    

minooye a écrit a écrit :

Ca fait déjà un élément de reponse ;)
Si tu me la complètes je te fais risette :D  




 
si tu edites ton premier message en remplacant PHP, VBA ou BAT par Python (ou Ruby, tiens), ca peut se negocier.

 

[jfdsdjhfuetppo]--Message édité par lorill--[/jfdsdjhfuetppo]

Reply

Marsh Posté le 05-04-2002 à 18:57:34    

A peux pas :(
Ouiiiiiiiiinnnnnnnnnnn :sweat:

Reply

Marsh Posté le 06-04-2002 à 07:31:44    

Up :D

Reply

Marsh Posté le 06-04-2002 à 16:16:39    

en PERL :
 
use strict;
use File::Copy;
 
my $dir = 'rép. des fichiers à copier';
my $dir2 = 'rép. où stocker nouveaux fichiers';
my $i = 1;
 
chdir $dir or die "erreur acces $dir : $!";
@_ = <*.txt>;
 
foreach my $file(@_) {
    if (copy($file, "$dir2\\$i.txt" )) {
        ++$i;
    } else {
        print "file $file non copie\n";
}
 
j'ai fait ça à la va-vite et ça fait juste copier tes fichiers txt dans un second rép temporaire, valà

 

[jfdsdjhfuetppo]--Message édité par Aricoh--[/jfdsdjhfuetppo]


---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL
Reply

Marsh Posté le 06-04-2002 à 16:18:04    

heu, précision, ça les copie en les renumérotant 1.txt, 2.txt etc ...
 
exemple de directory :
 
my $dir = '/home/toto';


---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed