Automatisation de tri photo

Version imprimable

10/03/2013, 21h37
kombab

Automatisation de tri photo

Bonjour, je suis nouveau sur le forum, et demande votre aide concernant un script que je voudrais faire, mais je peche un peu
sous environnement windows, j'ai le repertoire "d:\photos" dans lequel se trouve en vrac un tas de photos (plusieurs Gb ^^)
je voudrais creer un script qui automatise le rangement de ces photos suivant plusieurs criteres dans l'ordre:
annee de creation de la photo\appareil photo (etant donne que le nom est different suivant mes appareils)\Mois de creation de la photo
ce qui donnerait par exemple:
d:\photos_triees\2013\app1\Janvier\aa000001.jpg
d:\photos_triees\2013\app1\Mars\aa000002.jpg
d:\photos_triees\2013\app2\Janvier\bb000001.jpg
d:\photos_triees\2013\app2\Aout\bb000002.jpg
Je voudrais qu'a l'execution de ce script, la creation des repertoires, le tri, la copie se fasse automatiquement, sans risque de perte

par avance je vous remercie
cordialement
11/03/2013, 08h26
hackoofr

:salut:
Si vous voulez tester ce code en Vbscript : Recherche & Sauvegarde des fichiers par leurs Extensions

tout d'abord, merci de repondre a mon probleme, mais cela ne le resoud pas

En fait, mon probleme est que tous les jours, des photos arrivent dans ce repertoire, avec un nom particulier par appareil, et tous les jours, il faudra lancer ce batch pour les trier et les archiver, donc tache plannifiee, et batch sans interaction humaine.

J'ai un peu commencé mon script, mais je rame un peu
en gros, voila ou j'en suis:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 @echo off :: format de date à adapter dd/mm/yyyy set $y=%date:~6,4% set $s=%date:~3,2% ================================ Set $s=%$s:*0=% if not defined $s set $s=10 Set /a $s+=1 If %$s% gtr 12 Set /A $s=1,$y+=1 ================================ Set Source=F:\Travail\Photos Set Destination=F:\Travail\Photos_Out ================================ for /f "tokens=1" %%a in (list.txt) do md %Destination%\%$y%\%%a (For /F "tokens=%$s%" %%z In ( "Janvier Fevrier Mars Avril May Juin Juillet Aout Septembre Octobre Novembre Decembre" ) do ( mkdir "%Destination%\%$y%\%%z" ))2>nul
maintenant, je n'arrive pas a creer mon repertoire "mois" dans chaque repertoire créé par ma list.txt

11/03/2013, 11h35
sachadee

Salut,

2 questions :

le nom de l'appareil correspond a quoi ? Au 3 premiers caractères du fichier foto ?

Dans ton script tu récupères la date système, il ne serait pas mieux de récupèrer la date du fichier ?

amicalement
11/03/2013, 11h52
kombab
bonjour sachadee, et merci de t'interresser a mon probleme

Citation:

Envoyé par sachadee

le nom de l'appareil correspond a quoi ? Au 3 premiers caractères du fichier foto ?

le nom de l'appareil correspond en fait a la personne qui a pris la photo, d'ou le fichier texte pour definir le nom (sur une colonne, les noms les uns a la suite des autres), chaque appareil ayant une syntaxe differente de creation de nom de fichier, je voudrais creer une regle qui deplacera la photo dans le repertoire de la personne concernee en fonction de la syntaxe / nom donné dans le fichier texte

Citation:

Envoyé par sachadee

Dans ton script tu récupères la date système, il ne serait pas mieux de récupèrer la date du fichier ?

si, en effet, ce qui m'interresse est de classer les photos suivant l'ordre suivant
- annee de prise de vue
- personne qui a pris la photo
- mois de prise de vue
cordialement
11/03/2013, 16h10
sachadee

Envoie un bout de ton fichier texte avec les corélations appareil et photografe et un exemple de nom de fichier foto à traiter.

Amicalement
11/03/2013, 17h17
kombab
Mon fichier texte est basic:
Code:

1 2 3 4 marie renee stephane
quand a la corelation, chaque utilisateur a son propre appareil avec son initiale dans le nom de la photo:
marie = mj000001.jpg
renee = rd000001.jpg
stephane = sp000001.jpg

Encore merci

Salut,

test ce code (fonctionne pour vista e 7) pour xp tu dois modifier les variables relatives au dates.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
::: Par Sachadee
::: 11-03-2013
@echo off

Set Source=F:\Travail\Photos
Set Destination=Set Destination=F:\Travail\Photos_Out

set $datef=
set $fichier=
set $moisf=
set $anf=
set $initialef=
set $repf=

setlocal enabledelayedexpansion enableextensions
for /f %%a in ('dir /aa /b') do (
                                       set $fichier=%%a&echo FICHIER EN TRAITEMENT : !$fichier!
                                       set $datef=%%~ta&echo DATE CREATION : !$datef!
                                       set $anf=!$datef:~6,4!&echo ANNEE CREATION : !$anf!
                                       set $moisf=!$datef:~3,2!&echo MOIS CREATION : !$moisf!
                                       set $initialef=!$fichier:~0,1!&echo INITIAL FOTOGRAPHE : !$initialef!
::::::ICI ON DEFINIE LES UTILISATEURS
                                       if !$initialef!==m (set $repf=%destination%\!$anf!\MARIE&echo DESTINATION DE L IMAGE : !$repf!\!$moisf!
                                                                  call :traitement)
                                       if !$initialef!==r (set $repf=%destination%\!$anf!\RENEE&echo DESTINATION DE L IMAGE : !$repf!\!$moisf!
                                                                  call :traitement)
                                       if !$initialef!==s (set $repf=%destination%\!$anf!\STEPHANE&echo DESTINATION DE L IMAGE : !$repf!\!$moisf!
                                                                  call :traitement)

                                       echo PHOTOGRAPHE INCONNUE, INITIALE = !$initialef!>>FOTO.LOG
                                       )
cls
type foto.log
goto end

:traitement

::: ON TEST L EXISTENCE DES REPERTOIRES

if not exist %destination% md %destination%
if not exist %destination%\!$anf! md %destination%\!$anf!
if not exist %destination%\!$anf! md %destination%\!$anf!
if not exist !$repf! md !$repf!
if not exist !$repf!\!$moisf! md !$repf!\!$moisf!
if exist !$repf!\!$moisf! (copy %source%\!$fichier!  !$repf!\!$moisf!
                                     echo FICHIER  %source%\!$fichier! COPIE
                                     goto end)
echo ERREUR REPERTOIRE NON TROUVE

:end

endlocal

A toi de l'améliorer si tu veux les mois en clair (JANVIER au lieu de 01),
si tu veux definir les utilisateurs dans un fichier séparer, etc...

Mais tu as une bonne base, qui fonctionne.

Test et retourne tes commentaires, ou souhait.

Amicalement

12/03/2013, 18h05
kombab
Aujourd'hui, dieu a un nouveau saint ^^, merci a toi saint Sachadee

Alors, c parfait mais comment lui expliqué que tout ce qui reste, s'il en reste, soit trié dans un repertoire a part, genre poubelle?
dans le style:
Code:

1 2 if not !$initialef!==!$initialef! (set $repf=%destination%\!$anf!\Trash&echo DESTINATION DE L IMAGE : !$repf!\!$moisf! call :traitement)
et le log repertorie tout en tant que photograope inconnue, mais bon le log, c pas l'important pour moi

mci st Sacha ^^

Salut,

Effectivement il y a 1 ou 2 bugs (j'ai fait ça en vitesse hier soir).

1er Bug : comme tu l'a dit plus haut le fichier LOG repertorie tout les fichiers.

2eme Bug : si ton fichier foto commence avec une majuscule (M par exemple)
le prog ne le copiera pas sous \MARIE.

pour le 2eme Bug on va mettre un "if /i" lorsque l'on test si la première lettre du fichier correspond à un fotographe. Ainsi pour le programme "m" est égale à "M" :
Code:

1 2 3 4 5 6 7 if /i !$initialef!==m (set $repf=%destination%\!$anf!\MARIE&echo DESTINATION DE L IMAGE : !$repf!\!$moisf! call :traitement) if /i !$initialef!==r (set $repf=%destination%\!$anf!\RENEE&echo DESTINATION DE L IMAGE : !$repf!\!$moisf! call :traitement if /i !$initialef!==s (set $repf=%destination%\!$anf!\STEPHANE&echo DESTINATION DE L IMAGE : !$repf!\!$moisf! call :traitement)
Pour le premier bug et pour ton souhait de copier les fichiers qui ne correspondent à aucun fotographe on va créer un répertoire TRASH. Et créer un switch "$switch" dans notre boucle "FOR"
Code:

1 2 3 4 5 6 if not exist %destination%\trash md %destination%\trash setlocal enabledelayedexpansion enableextensions for /f %%a in ('dir /aa /b') do ( set $switch=0 set $fichier=%%a&echo FICHIER EN TRAITEMENT : !$fichier!
Dans l'étiquette ":traitement" on set $switch à 1
Code:

1 2 3 4 :traitement set $switch=1 ::: ON TEST L EXISTENCE DES REPERTOIRES
et dans la boucle "FOR" où l'on crée notre "FOTO.LOG" on ajoute le test suivant :
Code:

1 2 3 if !$switch!==0 (echo PHOTOGRAPHE INCONNUE, INITIALE = !$initialef!>>FOTO.LOG copy %source%\!$fichier! %destination%\trash)
Et voilà le FOTO.LOG est Juste et les fichiers non reférencer sans dans \TRASH.

Test et envoie le résultat.

Amicalement

13/03/2013, 09h33
kombab

Merci a toi, c'est exactement ce que je voulais
Le top serait de pouvoir definir les photographes ainsi que les initiales suivant un fichier.ini, ainsi je pourrais a la volée rajouter dedans et se serait immediatement pris en compte, mais pour ca, j'ai vu un message du forum qui en parlais, vais voir si je peux adapter
en tout cas, merci encore a toi
13/03/2013, 11h42
sachadee

Salut,

En fait tu dois créer une liste à partir de ton fichier "INI" et incluire les tests
du premier caractères dans une nouvelle boucle "FOR" qui va tester le premier caractères des élements de ta liste avec celui du fichier en traitement.

Ton fichier "INI" doit seulemenmt contenir le nom des fotographes, l'initiale
tu la récupère automatiquement.

C'est assez simple.

Essaye et si tu as un problème, fais le savoir.

Amicalement
13/03/2013, 14h19
kombab

ok, merci encore