-- Auteur : Jacques PIOTROWSKI - France
-- Date de rédaction : 31/08/2003
-- Statut : OPEN SOURCE / G.P.L.
-- But : renommer un lot de fichiers en retirant un préfixe au nom existant.
on open liste_des_fichiers
--
-- Initialiser les constantes
--
set label_Annuler to "Annuler"
set label_Continuer to "Continuer"
set label_Reprendre to "Reprendre"
--
-- Initialiser les variables de travail
--
set racine_ok to false as boolean
tell application "Finder"
set nb_fichiers to the count items in liste_des_fichiers
end tell
--
-- Saisir un préfixe pour renommer l'ensemble des fichiers
--
set message_utilisateur to "Entrez un préfixe qui sera retiré au nom des
fichiers sélectionnés"
repeat
set reponse_utilisateur to display dialog message_utilisateur ¬
buttons {label_Continuer, label_Annuler} default button 1 ¬
with icon note default answer ""
set prefixe_saisi to text returned of reponse_utilisateur
set bouton_choisi to button returned of reponse_utilisateur
set long_prefixe to length of prefixe_saisi
if long_prefixe > 0 then
if bouton_choisi = label_Continuer then
set racine_ok to true
exit repeat -- Saisie du préfixe
end if
else
if bouton_choisi = label_Continuer then
set message_utilisateur to "Aucune information saisie !"
end if
end if
end repeat -- Saisie du préfixe
--
-- Renommer les fichiers sélectionnés
--
tell application "Finder"
repeat with un_fichier in liste_des_fichiers
get the info for the un_fichier
set useMe to the result
get the name of useMe
set ancien_nom to the result as string
set ancienne_long to length of ancien_nom
-- display dialog "ancien nom= " & ancien_nom & " ancienne
longueur= " & ancienne_long
set pos_prefixe to offset of prefixe_saisi in ancien_nom
if pos_prefixe = 1 then
set nouveau_nom to characters (long_prefixe + 1) thru
ancienne_long of ancien_nom as string
-- display dialog "nouveau nom= " & nouveau_nom
set the name of un_fichier to nouveau_nom
end if
end repeat
end tell
end open
_______________________________________________
Applescript_fr mailing list
Applescript_fr@???
http://listes.patpro.net/mailman/listinfo/applescript_fr
