Discussion :

[bejjj]

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 !

A+ Bejjj



Exemple de résultat d'un tel script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

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


Merci!!

[Melem]

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

[I'm_HERE]

Salut,

une des solutions possibles en batch:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[bejjj]

Waw! Super I'm_HERE ! Un grand grand merci !!!
J'aurais jamais réussi à coder ça...

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

thebatchfile.bat   > test.log

)

[I'm_HERE]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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