Supprimer espaces, lettres dans nom fichier Résolu

Question

Bonjour,
Je recois des centaines de fichiers de visuels et les archives dans un répertoire, je voudrais corriger d'un coup tous les fichiers en faisant disparaitre les espaces, les lettres pour ne garder que des chiffres.
Auriez-vous un morceau de code VBA, un exemple DOS ?
Merci

cocotehier · Answer

Up ?

cocotehier · Answer

Bonsoir, oui bien sur
Je recois des fichiers .jpg qui devrait porter un nom comme par exemple xxxxxxxxxxxxx.jpg ou chaque x est un chiffre , en général il y 13 chiffres, et c'est ce que je veux obtenir in fine
et je recois souvent des fichiers dont le nom est xxx xxx xxx xxx x.jpg ou encore xxxxxxxxxxxxxversion2.jpg
Tout les fichiers sont dans un répertoire je cherche la moulinette qui enlévera les espaces, les lettres pour ne laisser que xxxxxxxxxxxxx.jpg 
Merci

cchristian · Answer

Bon jour soir,

Je viens de terminer ce petit boulot, j'en ai un peu bavé, mais ça semble coller. Fais, bien entndu, des tests de ton côté et tiens moi informé si possible.
A la relecture de ton texte une petite chose m'inquiète dans l'exemple que tu m'as donné c'est :
xxxxxxxxxxxxxversion2.jpg le 2 de version2 va être conservé est-ce souhaitable? Si non je ne vois pas très bien quoi faire.

    ECHO OFF

SETLOCAL ENABLEdelayedExpansion
SETLOCAL ENABLEextensions
        CLS
        CD C:\Documents and Settings\Christian\Mes documents\BATCH_files

    SET "param_1=C:\Documents and Settings\Christian\Mes documents\a1"
    SET "param_2=jpg"
rem    SET "param_2=*"

    FOR             /R    "%param_1%"       %%F  IN  (*.%param_2%)        DO (
      SET                 "nom_fich=%%~nxF"
      SET                 "save_ext=%%~xF"
      SET                 "new_name="
      FOR           /L    %%I                   IN  (0,1,32)         DO  (
        FOR         /L    %%J                   IN  (0,1,9)        DO  (
           IF      "!nom_fich:~%%I,1!"  ==    "%%J"              (
              SET         "new_name=!new_name!!nom_fich:~%%I,1!" )     )  )
           IF NOT  "!new_name!"         == ""             (
              SET         "new_name=!new_name!!save_ext!"
              REN "%%F" !new_name!
              ECHO renommer ici !nom_fich! en !new_name!   )                 )

        GOTO                                            :EOF

cocotehier · Answer

Bonjour,
Trés sympa, je test Lundi, et te tiens au courant.
Pour le 2 de version 2 effectivement...mais s'il ne reste que cela je gérerai
Merci beaucoup
Bon Week !

cchristian · Answer

Bonjour,

Une petite modif qui a malgré tout son importance car elle évite un RENAME systématique des fichiers, ce qui n'était pas très élégant.

        ECHO OFF
SETLOCAL ENABLEdelayedExpansion
SETLOCAL ENABLEextensions
        CLS
        CD C:\Documents and Settings\Christian\Mes documents\BATCH_files

rem Le chemin/dossier sous lequel se trouvent les fichiers à traiter.
    SET "param_1=C:\Documents and Settings\Christian\Mes documents\a1"
    SET "param_2=jpg"
rem    SET "param_2=*"

    FOR             /R    "%param_1%"       %%F  IN  (*.%param_2%)        DO (
      SET                 "nom_fich=%%~nxF"
      SET                 "save_ext=%%~xF"
rem Ajout de la variable save_nom (nom du fichier avant modif éventuelle)
      SET                 "save_nom=%%~nF"
      SET                 "new_name="
      FOR           /L    %%I                   IN  (0,1,32)         DO  (
        FOR         /L    %%J                   IN  (0,1,9)        DO  (
           IF      "!nom_fich:~%%I,1!"  ==    "%%J"              (
              SET         "new_name=!new_name!!nom_fich:~%%I,1!" )     )  )
        IF NOT     "!new_name!"         == ""              (
rem        Ajout de ce test afin d'éviter un REName systématique.
           IF NOT  "!new_name!"         == "!save_nom!"  (
              SET         "new_name=!new_name!!save_ext!"
              REN         "%%F"     !new_name!
              ECHO renommer ici !nom_fich! en !new_name! )  )               )
                                                                              
    GOTO                                            :EOF

cocotehier · Answer

Merci Monsieur,

Supprimer espaces, lettres dans nom fichier

6 réponses

Discussions similaires

Newsletters