Petit script pratique !

Version imprimable

Bonjour,

Je cherche à faire un petit script tout simple (ou peut etre existe-t-il un logiciel tout fait qui fait cela ?) qui fait la chose suivante :

AFFICHER UNE LISTE de tous les fichiers d'un disque (ex : D:\ ) qui
* ont les mêmes 16 premiers caractères dans le nom de fichier,
* ont la même extension,
* se trouvent dans le même dossier.

Le tout sous Win XP ...

Un grand merci d'avance, je rame ! :ccool:

A+ Bejjj

Exemple de résultat d'un tel script :
Code:

1 2 3 4 5 6 WARNING, the following files have the same first 16 characters : C:\ADSQJ\abcdefghijklmnop11.wav C:\ADSQJ\abcdefghijklmnop12.wav C:\TEST1\CCCdefghijklmnop12.wav C:\TEST1\CCCdefghijklmnopHELLO.wav

01/03/2011, 20h11
bejjj

Je pense avoir trouvé la démarche :

1/ Lister tous les fichiers d'un dossier précis (sans les sous-dossiers pour l'instant)
2/ Tronquer le nom de fichier à 16 caractères
3/ Rechercher les doublons dans cette liste
4/ Si doublon présent, l'ajouter à la liste qui sera affichée par le programme à la fin :)
5/ Recommencer à 1/ pour tous les autres dossiers présents sur le disque

6/ A la fin , afficher la liste en question!

Quel langage utiliser pour que ce soit le plus simple à coder ? Sous windows XP...

EDIT : J'ai l'impression que jscript a l'air adapté... Je viens de créer mon premier script jscript en créant un fichier hello.js avec
WScript.Echo("Hello, world!"); et ça marche :ccool:

EDIT 2 : c'est bien jscript (et pas javascript), ok !

Merci!!
02/03/2011, 00h10
Melem

C'est Jscript et non Javascript. Javascript c'est un autre langage mais bref.

Salut,

une des solutions possibles en batch:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
@Echo oFF & setlocal enabledelayedexpansion

For /R "." %%a in (.) do (
   pushd "%%~fa"
      For /F "delims=" %%i in ('dir/a-d/b/o:n') do (
        set "$Base=%%~ni" 
        set "$Subs=!$Base:~16!"
        set $cnt=0
        if defined $subs (
            For /F "delims=" %%o in ('
                dir /b/a-d "!$Base:~0,16!*%%~xi"
            ') do set /A $cnt+=1
           if !$cnt! gtr 1 echo(%%~fi
        )
      )   
   popd & echo(
)

Endlocal & Pause

en rouge: le répertoire source (par défaut c'est le répertoire en cours)

02/03/2011, 11h49
bejjj

Waw! Super I'm_HERE ! Un grand grand merci !!!
J'aurais jamais réussi à coder ça...
02/03/2011, 11h53
bejjj

1/ Léger petit bug : Quand je l'exécute à la racine (ex : D:\ ) avec beaucoup de sous-dossiers, j'ai souvent :

* des lignes vides où rien ne s'inscrit
(EDIT : est-ce quand le script change de dossier ? Ligne vide = on passe au dossier suivant ?)

* des lignes avec écrit "Fichier introuvable", ça correspond à quoi ça ?
(EDIT : ça correspond aux fichiers ".DS_Store" provenant de fichiers d'un Mac.... Ces fichiers qui commencent directement par l'extension sont apparamment troublants pour le systeme de fichier Windows.... D'où le "Fichier introuvable".... Ou alors ton code en question ne prévoit pas le cas où le nom de fichier commence par un point?)

2/ Comment diriger la sortie vers un fichier (ex : test.log) au lieu de l'afficher à l'écran ?
(EDIT : j'ai trouvé : en mode ligne de commande :

Code:

thebatchfile.bat > test.log

)

Salut,

essayes-ceci, mais pas bien tester, faute de temps :aie:

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
@Echo off 
Setlocal Enabledelayedexpansion

set LogFile="%~dp0Log.txt"
Set PathSrc="D:\"

For /R %PathSrc% %%Z In (.) Do (
  pushd "%%Z"
  title %%Z 
    For /F "delims=" %%a In ('"dir/b/a-d/on 2>Nul"') do (
       Set "$Base=%%a"
       If "!$Base:~0,1!" Neq "." (
          Set "$Base=%%~na"
          Set "$Name=!$Base:~0,16!*%%~xa"
       ) Else Set "$Name=!$Base:~0,16!*"
       Set "$Subs=!$Base:~16!"
       Set  $Cnt=0
       If defined $Subs (
         For %%o In ("%%~fZ\!$Name!") do Set /A $Cnt+=1
         If !$Cnt! gtr 1 echo(%%~fZ\%%a
       )
    )
  popd
)>>%LogFile%

Endlocal & Pause