Renommer plusieurs fichiers

DIM rc$, rep$, fm$, a$, new$, nn$, n%, i%

rep$ = "Z:": ' répertoire des fichiers à renommer
new$ = "Fichier_": ' nouveau nom générique
fm$ = "C:\Temp\Dir": ' fichier de manoeuvre

rc$ = DIR_CURRENT$: DIR_CHANGE rep$
EXECUTE_WAIT "Cmd.exe /c DIR " + "\*.* /B >" + fm$: ' tous les fichiers (*.*), ou *.jpg, etc.
FILE_OPEN_READ 1, fm$
n% = 0
WHILE FILE_EOF(1) = 0
    FILE_READLN 1, a$: n% = n% + 1
    nn$ = new$ + STR$(n%): ' nouveau nom
    i% = INSTR(a$, ".")
    IF i% > 0 THEN nn$ = nn$ + MID$(a$, i%, 20): ' suffixe gardé si existe
    FILE_RENAME a$, nn$
END_WHILE
FILE_CLOSE 1: FILE_DELETE fm$
DIR_CHANGE rc$
PRINT STR$(n%) + " fichiers renommés !"
END

rem ' Renamall - Logiciel destiné à renommer des fichiers en série
  dim a$ , i$ , i , j : rem Variables provisoires
  dim c$ : rem Répertoire Courant
  dim d$ : rem Début du titre des fichiers
  dim f$ : rem Fin du titre des fichiers
  dim nc : rem Numéro du Clic de suppression (premier ou dernier)
  dim np : rem Numéro du Premier fichier à supprimer dans la liste
  dim pa : rem Paramètre d`Acceptation pour lister les fichiers à renommer
  dim r$ : rem Répertoire choisi
  label fin , ok , ouvrir , partie , suppr , total , zquit
 
rem form0
  caption 0," R E N A M A L L  -  Logiciel permettant de renommer des fichiers en série"
  width 0,1000
  height 0,550
 
main_menu 1
  sub_menu 2
        parent 2,1
        caption 2,"Fichier"
      sub_menu 3
            parent 3,2
            caption 3,"Ouvrir"
            on_click 3,ouvrir
      sub_menu 4
            parent 4,2
            caption 4,"Quitter"
            on_click 4,zquit

alpha 20
  left 20,10
  top 20,10
  caption 20,"Choisissez un répertoire avec « Ouvrir »"

list 21
  left 21,10
  top 21,30
  width 21,250
  height 21,450
  hide 21

dlist 22 : rem Copie de la liste 21

alpha 30
  left 30,300
  top 30,50
  font_bold 30
  font_size 30,12
  caption 30,"RENOMMER COMMENT :"
  hide 30

container_option 31
  left 31,300
  top 31,75
  width 31,320
  height 31,65
  hide 31
 
option 32
  parent 32,31
  left 32,10
  top 32,10
  width 32,200
  caption 32,"L'ensemble du titre (sauf extension)"
  on_click 32,total
 
option 33
  parent 33,31
  left 33,10
  top 33,40
  width 33,300
  caption 33,"Ajouter quelque chose au titre (en dehors de l'extension)"
  on_click 33,partie
 
alpha 34
  left 34,300
  top 34,160
  font_bold 34
  font_size 34,12
  hide 34
 
edit 35
  left 35,300
  top 35,185
  width 35,150
  hide 35
  on_change 35,fin
 
button 36
  left 36,455
  top 36,183
  width 36,30
  caption 36,"Ok"
  on_click 36,ok
  inactive 36
  hide 36
 
alpha 37
  left 37,300
  top 37,240
  font_bold 37
  caption 37,"Ajouter cela à quel endroit du titre :"
  hide 37
 
container_option 38
  left 38,300
  top 38,260
  width 38,100
  height 38,65
  hide 38
 
option 39
  parent 39,38
  left 39,10
  top 39,10
  width 39,70
  caption 39,"Au début"
  on_click 39,fin
 
option 40
  parent 40,38
  left 40,10
  top 40,40
  width 40,70
  caption 40,"A la fin"
  on_click 40,fin
 
alpha 41
  left 41,300
  top 41,350
  font_bold 41
  font_color 41,255,0,0
  caption 41,"Exclure les fichiers que vous ne voulez pas inclure dans le lot à renommer"
  hide 41
 
container_option 42
  left 42,300
  top 42,370
  width 42,400
  height 42,65
  hide 42
 
option 43
  parent 43,42
  left 43,10
  top 43,10
  width 43,350
  caption 43,"Désigner individuellement les fichiers à exclure en cliquant dessus"
 
option 44
  parent 44,42
  left 44,10
  top 44,40
  width 44,350
  caption 44,"Les exclure par lot en cliquant sur le premier puis sur le dernier"
 
alpha 50
  left 50,805
  top 50,50
  font_bold 50
  caption 50,"Extensions"+chr$(13)+"à exclure"+chr$(13)+"du listing"
 
memo 51
  left 51,800
  top 51,93
  width 51,70
  height 51,300
  if file_exists("C:\Renamall.txt")=0
      file_open_write 1,"C:\Renamall.txt"
        file_writeln 1,"db"
        file_writeln 1,"jbf"
      file_close 1
  end_if
  file_open_read 1,"C:\Renamall.txt"
      while file_eof(1)<>1
        file_readln 1,a$
        item_add 51,a$
      end_while
  file_close 1
 
end : rem ' Début des routines

fin: : rem Activation ou désactivation du bouton ok
  if checked(32)=1
      if text$(35)<>""
        active 36
      else
        inactive 36
      end_if
  end_if
  if checked(33)=1
      if checked(39)=1 or checked(40)=1
        if text$(35)<>""
            active 36
        else
            inactive 36
        end_if
      end_if
  end_if
return

ok: : rem Renommage des fichiers sélectionnés
  clear 21
  if count(22)>0
      for i=1 to count(22)
        a$=item_read$(22,i)
        for j=len(a$) to 1 step -1
            if mid$(a$,j,1)="."
              d$=left$(a$,j-1)
              f$=right$(a$,len(a$)-j+1)
              exit_for
            end_if
        next j
        if checked(32)=1
            i$=right$("00000"+str$(i),6)
            file_rename a$,text$(35)+i$+f$
            item_add 21,text$(35)+i$+f$
        else
            if checked(39)=1
              file_rename a$,text$(35)+a$
              item_add 21,text$(35)+a$
            else
              file_rename a$,d$+text$(35)+f$
              item_add 21,d$+text$(35)+f$
            end_if
        end_if
      next i
  end_if
  for i=30 to 31
      hide i
  next i
  for i=34 to 38
      hide i
  next i
  for i=41 to 42
      hide i
  next i
  off_click 21
  dir_change c$
return

ouvrir: : rem Choix du répertoire où renommer les fichiers
  for i=30 to 31
      hide i
  next i
  for i=34 to 38
      hide i
  next i
  for i=41 to 42
      hide i
  next i
  hide 21
  font_bold 20
  font_color 20,255,0,0
  caption 20,"Ouvrez un fichier quelconque du répertoire choisi"
  open_dialog 99
      a$=file_name$(99)
      if a$<>"_"
        for i=len(a$) to 1 step -1
            if mid$(a$,i,1)="\"
              r$=left$(a$,i)
              exit_for
            end_if
        next i
      end_if
  delete 99
  font_bold_off 20
  font_color 20,0,0,0
  caption 20,"Répertoire : "+r$
  clear 21
  clear 22
  show 21
  c$=dir_current$
  dir_change r$
  a$=file_find_first$
  while a$<>"_"
      if instr(a$,".")<>0
        pa=0
        if count(51)>0
            for i=1 to count(51)
              if right$(a$,len(item_read$(51,i))+1)="."+item_read$(51,i) then pa=1
            next i
        end_if
        if pa=0
            item_add 21,a$
            item_add 22,a$
        end_if
      end_if
      a$=file_find_next$
  end_while
  file_find_close
  for i=30 to 31
      show i
  next i
  for i=41 to 42
      show i
  next i
  mark_off 32
  mark_off 33
  mark_off 39
  mark_off 40
  mark_off 43
  mark_off 44
  on_click 21,suppr
return

partie: : rem Affichage des éléments affectés au renommage d`une partie du titre
  for i=34 to 38
      show i
  next i
  caption 34,"Quel ajout affecter au titre :"
  set_focus 35
  inactive 36
return

suppr: : rem Suppression des titres à ne pas renommer
  if checked(43)=1
      j=item_index(21)
      item_delete 21,j
      item_delete 22,j
  end_if
  if checked(44)=1
      nc=nc+1
      if nc>1 then nc=0
      if nc=1
        np=item_index(21)
      else
        for i=1 to item_index(21)-np+1
            item_delete 21,np
        next i
      end_if
  end_if
return

total: : rem Affichage des éléments affectés au renommage de la totalité du titre
  for i=34 to 36
      show i
  next i
  caption 34,"Quel nouveau titre :"
  set_focus 35
  hide 37
  hide 38
  mark_off 39
  mark_off 40
return

zquit: : rem Quitter ce programme
  terminate

          j=len(str$(i))
            i$=string$(6-j,"0")+str$(i)

i$=right$("00000"+str$(i), 6)