[batch]fichiers modifiés après une certaine date

fichiers modifiés après une certaine date [batch] - Shell/Batch - Programmation

Marsh Posté le 08-09-2008 à 17:13:47    

Voilà je cherche a réaliser un batch qui me dit s'il existe des fichiers dont la date de modification (jour mois années heure et minute) est supérieur à celle d'un fichier passé en paramètre, bien sûr la recherche se situe dans un répertoire contenant des sous répertoires.
 
Je commence à faire une première ébauche que je posterai demain
mais si quelques-uns d'entre vous ont deux trois idées... n'hésitez pas

Reply

Marsh Posté le 08-09-2008 à 17:13:47   

Reply

Marsh Posté le 09-09-2008 à 10:44:50    

Voilà en gros ce que ça donne....
avec :
%1 le répertoire à analyser
%2 le fichier de référence dont on veux savoir s'il est a jour
%3 le script a appeler pour mettre a jour le fichier de référence.
 
mais j'ai une erreur "Le lecteur spécifié est introuvable" dans la boucle de comparaison de date et je ne vois pas pourquoi
 

Code :
  1. @echo off
  2. set CURRENT_FOLDER=%CD%
  4. cd %1
  6. set REBUILD=0
  7. ::ON VERIFIE SI LE FICHIER DE REFERENCE EXISTE
  8. cd EXPORT
  9. if not exist %2 (
  10. set REBUILD=1
  11. goto build
  12. )
  13. ::RECUPERATION DE LA DATE ET L'HEURE DE LA DERNIERE MODIFICATION DU FICHIER DE REFERENCE
  14. for /f "skip=4 tokens=1,2" %%a in ('dir %2 /tw /-c /a:-d-s-h^|find /v "(s)"') do (
  15. set REFDATE=%%a
  16. set REFTIME=%%b
  17. for /f "tokens=1,2 delims=:" %%i in ('echo %REFTIME%') do (
  18. set REFHOUR=%%i
  19. set REFMIN=%%j
  20. )
  21. for /f "tokens=1,2,3 delims=/" %%i in ('echo %REFDATE%') do (
  22. set REFMODIF=%%k%%j%%i%REFHOUR%%REFMIN%
  23. )
  24. )
  25. ::LISTE DES REPERTOIRES A EXPLOIRER
  26. cd ..
  27. for /f "tokens=*" %%a in ('dir * /b /a:d-s-h') do (
  28. if "%%a" NEQ "export" call :explorefolder %%a
  29. )
  30. if "%REBUILD%" EQU "1" goto build
  31. cd %CURRENT_FOLDER%
  32. goto FIN
  33. :explorefolder
  34. cd %1
  35. ::RECUPERATION DES DATE DE DERNIERE MODIFICATION DE CHAQUE FICHIER CONTENU DANS LE DOSSIER PASSE EN PARAMETRE
  36. for /f "skip=4 tokens=1,2" %%i in ('dir *.* /tw /-c /a:-d-s-h^|find /v "(s)"') do (
  37. set FILEDATE=%%i
  38. set FILETIME=%%j
  39. for /f "tokens=1,2 delims=:" %%o in ('echo %FILETIME%') do (
  40. set FILEHOUR=%%o
  41. set FILEMIN=%%p
  42. )
  43. for /f "tokens=1,2,3 delims=/" %%o in ('echo %FILEDATE%') do (
  44. set FILEMODIF=%%q%%p%%o%FILEHOUR%%FILEMIN%
  45. )
  46. ::TEST SI FICHIER MODIFIE APRES LE FICHIER DE REFERENCE
  47. if %FILEMODIF% GTR %REFMODIF% set REBUILD=1
  48. )
  49. cd ..
  50. goto FIN
  51. :build
  52. cd %CURRENT_FOLDER%
  53. call %3
  54. :FIN

Reply

Marsh Posté le 09-09-2008 à 11:46:31    

comment cela se fait que mon programme plante quand je double clique dans l'explorateur pour le lancer et qu'il ne plante pas quand il est appelé par l'invite de commande
(bien sur je remplace les %1 %2 et %3.. l'erreur ne viens pas de la et le chemin d'appel est le même

Reply

Marsh Posté le 09-09-2008 à 15:37:35    

Voilà en cleanant un peu plus...
 

Code :
  1. @echo off
  2. SETLOCAL
  3. set CURRENT_FOLDER=%CD%
  4. set DIRECTORY=%1
  5. set FILENAME=%2
  6. set BUILDBATCH=%3
  7. cd %DIRECTORY%
  9. set REBUILD=0
  10. ::ON VERIFIE SI LE FICHIER DE REFERENCE EXISTE
  11. cd EXPORT
  12. if not exist %FILENAME% (
  13. set REBUILD=1
  14. goto build
  15. )
  16. ::RECUPERATION DE LA DATE ET L'HEURE DE LA DERNIERE MODIFICATION DU FICHIER DE REFERENCE
  17. for /f "skip=4 tokens=1,2" %%a in ('dir %FILENAME%^|find /v "(s)"') do (
  18. for /f "tokens=1,2,3,4,5 delims=/:" %%i in ('echo %%a:%%b') do (
  19. set REFMODIF=%%k%%j%%i%%l%%m
  20. )
  21. )
  22. ::LISTE DES REPERTOIRES A EXPLOIRER
  23. cd ..
  24. for /f "tokens=*" %%a in ('dir * /b /a:d-h /l') do (
  25. if "%%a" NEQ "export" call :explorefolder %%a
  26. )
  27. if %REBUILD% EQU 1 goto build
  28. cd %CURRENT_FOLDER%
  29. goto :FIN
  31. :explorefolder
  32. if %REBUILD% EQU 1 goto :eof
  33. cd %1
  34. ::RECUPERATION DES DATE DE DERNIERE MODIFICATION DE CHAQUE FICHIER CONTENU DANS LE DOSSIER PASSE EN PARAMETRE
  35. for /f "skip=4 tokens=1,2" %%a in ('dir *.* /a:-d-h^|find /v "(s)"') do (
  36. call :getdate %%a %%b
  37. )
  38. cd ..
  39. goto :eof
  41. :getdate
  42. for /f "tokens=1,2,3,4,5 delims=/:" %%i in ('echo %1/%2') do (
  43. if "%%k%%j%%i%%l%%m" GTR "%REFMODIF%" set REBUILD=1
  44. )
  45. goto :eof
  47. :build
  48. cd %CURRENT_FOLDER%
  49. call %BUILDBATCH%
  51. :FIN
  52. ENDLOCAL


Message édité par skalimero31 le 09-09-2008 à 15:52:18
Reply

Marsh Posté le 10-09-2008 à 08:52:02    

Ola,
 
Dis, tu n'essayerais pas d'utiliser un langage un peu moins barbare pour ce script? Genre Python ou Perl et ce serait goal en 5 lignes lisibles? [:pingouino]
 

Code :
  1. for /f "tokens=1,2,3,4,5 delims=/:" %%i in ('echo %1/%2') do (
  2.   if "%%k%%j%%i%%l%%m" GTR "%REFMODIF%" set REBUILD=1
  3. )


C'est imbuvable du début à la fin :vomi:
 

Citation :

comment cela se fait que mon programme plante


* Précise ce que veut dire "plante".
* Réduit la portée du problème en isolant le morceau de programme qui pose problème, plutôt que de prendre le programme comme une boîte noire.


---------------
Now Playing: {SYNTAX ERROR AT LINE 1210}
Reply

Marsh Posté le 11-09-2008 à 16:24:17    

Je sais que c'est imbuvable comme langage, je ne suis pas fier de faire du batch, mais dans le cadre du travail et des options qu'on te donne, des fois on n'a pas le choix.
 
Après mon programme plantais car j'avais pas compris que la boucle for était interprété d'une façon très spéciale et donc il faut tout séparé pour que cela marche.
 
Il n'y aurait que moi en effet j'aurais fait du perl.

Reply

Sujets relatifs:

Leave a Replay

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