Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Probleme de boucle for
Auteur Message
Répondre en citant
Message Probleme de boucle for 
Voila, grace a vous(voir le forum precedent) j'ai reussi a faire une formule qui Copi les image des Mes image et des sous dossier.

Code:


@echo off
Title Copier et renommer mes images
set REG_PICTURE=HKCU\SOFTWARE\Microsoft\windows\currentversion\Explorer\Shell Folders
for /f "tokens=3,*" %%a in ('reg query "%REG_PICTURE%" ^| Find "My Picture"') do (
set Image=%%b
)
set IMAPNB=0
IF not exist "%HOMEDRIVE%%HOMEPATH%\Temporaire Organize Map\" md "%HOMEDRIVE%%HOMEPATH%\Temporaire Organize Map\"

FOR %%A IN ("%Image%") DO (
  FOR /F "TOKENS=*" %%I IN ('DIR /B %%A) DO (




REM Je ne crois pas que ces 2 boucle for precedente marche.
REM Pouvez vous m'aider a les faire marcher???




REPERT=%%I
FOR %%A IN ("%REPERT%") DO (
FOR /F "TOKENS=*" %%I IN ('DIR /A:D %%A ^| Find ".jpg"') DO (
cls
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo Bienvenue dans le Programme de trie des images!
echo.
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo.
echo Recuperation de vos images :
echo.
echo Copie de %%I
xcopy /Q /Y "%Image%\%%I" "%HOMEDRIVE%%HOMEPATH%\Temporaire Organize Map"
set /a IMAPNB = IMAPNB + 1
))
FOR %%A IN ("%Image%") DO (
FOR /F "TOKENS=*" %%I IN ('DIR /A:D %%A ^| Find ".jpg"') DO (
cls
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo Bienvenue dans le Programme de trie des images!
echo.
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo.
echo Recuperation de vos images :
echo.
echo Copie de %%I
xcopy /Q /Y "%Image%\%%I" "%HOMEDRIVE%%HOMEPATH%\Temporaire Organize Map"
set /a IMAPNB = IMAPNB + 1
))
cls
echo %IMAPNB% images copiees!

set NvNom=IMAP
set compte=-1
for %%i in ("%HOMEDRIVE%%HOMEPATH%\Temporaire Organize Map\*.jpg") do set VrChmFch=%%i& set VrExtnFch=%%~xi& call :renmFch
goto finRenmFch


:renmFch
set /a compte=%compte%+1
ren "%VrChmFch%" "IMAP%compte%%VrExtnFch%"
goto :eof

:finRenmFch
echo %compte% images renomm‚es.

pause




Pouvez vous m'aider!

______________________________________________________________________________________________________


Le But de ce programme est de rassembler toute les image des dossier et osus dossier de mes iamge dans C:\Temporaire Organize Map\IMAP\IMAP (XX).jpg

XX est un nombre.
Il est egal a 1 puis a 2...



Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Probleme de boucle for 
Bonjour
comme dit dans l'autre sujet reponse lundi matin

ta deuxieme boucle est fausse et ne peux pas me semble t il être incluse dans la premiere
deux boucles distinctes.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Probleme de boucle for 
Voici le code 100% fonctionnel :

Citation:

@echo off
Title Copier et renommer mes images
::code par Stryk91 et Laddy
:: forum http://batch.xoo.it
::merci de laisser ces commentaires.

rem recherche le chemin de Mes images dans la base de registre, puis utiliser une variable Images
set REG_PICTURE=HKCU\SOFTWARE\Microsoft\windows\currentversion\Explorer\Shell Folders

for /f "tokens=3,*" %%a in ('reg query "%REG_PICTURE%" ^| Find "My Picture"') do (
set Image=%%b
)


::variables pour compter les images.
set IMAPNB=0
set IMAPNA=0

::création du dossier Temporaire Organize Map si il n'existe pas
IF not exist "%HOMEDRIVE%%HOMEPATH%\Temporaire Organize Map\" md "%HOMEDRIVE%%HOMEPATH%\Temporaire Organize Map\"

::chercher et copie les images situés dans Mes Images
FOR %%A IN ("%Image%") DO (
FOR /F "TOKENS=*" %%I IN ('DIR /B %%A ^| Find ".jpg"') DO (
cls
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo Bienvenue dans le Programme de trie des images!
echo.
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo.
echo Recuperation de vos images :
echo.
echo Copie de %%I
xcopy /Q /Y "%Image%\%%I" "%HOMEDRIVE%%HOMEPATH%\Temporaire Organize Map"
set /a IMAPNB = IMAPNB + 1
))

::COPIER LES IMAGES DES SOUS DOSSIERS DE MES IMAGES

FOR /F "TOKENS=*" %%I IN ('DIR /b /ad "%Image%"') DO (
FOR /F "TOKENS=*" %%U IN ('DIR /B "%Image%\%%I" ^| Find ".jpg"') DO (
cls
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo Bienvenue dans le Programme de trie des images!
echo.
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo.
echo Recuperation de vos images :
echo.
echo Copie de %Image%\%%I\%%U
xcopy /Q /Y "%Image%\%%I\%%U" "%HOMEDRIVE%%HOMEPATH%\Temporaire Organize Map"
set /a IMAPNA = IMAPNA + 1
))
cls

::comptes les images contenus dans le dossier Mes images et dans les sous dossiers.
echo Dossiers Mes images : %IMAPNB% images copiees!
ECHO Sous dossiers Mes images : %IMAPNA% images copiees !

::calcul le nombre d'images copiées au total.
set /a Total=%IMAPNB%+%IMAPNA%
Echo Total des images copi‚es : %Total%

::renommer les images copiées en IMAP0.jpg
set NvNom=IMAP
set compte=-1
for %%i in ("%HOMEDRIVE%%HOMEPATH%\Temporaire Organize Map\*.jpg") do set VrChmFch=%%i& set VrExtnFch=%%~xi& call :renmFch
goto finRenmFch


:renmFch
set /a compte=%compte%+1
ren "%VrChmFch%" "IMAP%compte%%VrExtnFch%"
goto :eof

:finRenmFch
echo %compte% images renomm‚es.

pause







______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Message Probleme de boucle for 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch