[Résolu] Insérer lettres et nombres aléatoires dans des noms de fichier, avec AppleScript

[Pompon]

Bonjour,

Je suis en train de préparer mes photos afin de les mettre en ligne avec PhpWebGallery. J'ai fait un fichier automator qui permet de copier les photos dans un dossier en les redimensionnant et en créeant des vignettes. Jusqu'ici tout va bien.

J'aurai voulu ajouter avant l'extension dans le nom des fichiers une série (configurable) de chiffres et de lettres aléatoires.
Exemple : test_100.jpg -> test_100_apr45.jpg (l'idéal serait de mixer chiffres, lettres et casse pour obtenir par exemple test_100_Ap45R.jpg mais ce n'est pas le plus important).

J'ai trouvé ça sur internet :
-> AppleScript to generate a random number & prefix to filename??
-> Renaming files in a folder by adding a suffix before the extension
-> Random in Applescript

J'ai fait un mix des trois :

CODE

on run
    tell application "Finder"
        copy selection to selectedFiles
        set shuffle_pool to files of selectedFiles
        set shuffle_count to count shuffle_pool
        set duplicates to {}
        repeat with aFile in selectedFiles
            repeat
                set an_item to random number (1000) from 1 to shuffle_count
                if an_item is not in duplicates then exit repeat
            end repeat
            tell aFile
                set theOriginalName to do shell script "basename " & name of aFile & " ." & name extension
                set name of aFile to theOriginalName & an_item & "." & name extension
            end tell
        end repeat
    end tell
end run

J'y suis presque mais je n'arrive pas à intégrer de lettres aléatoires. Lorsque je tente de mettre le code provenant du dernier site, je n'obtiens plus de chiffres aléatoires. C'est l'un ou l'autre

C'est sûrement tout bête mais je n'y connais pas grand chose en AppleScript et malgré quelques bidouillages je n'arrive pas à obtenir ce que je souhaite. De plus je pars sur des scripts que ne sont peut-être pas écrit dans ce but à la base.

Si quelqu'un peut m'aider, je suis preneur
Merci

Edit : résolu cf. le code Applescript ici, ou l'utilitaire plus élaboré "ZarbiRename" développé pour l'occasion en PostCardWare par AlbertLevert à cette adresse.

Ce message a été modifié par Pompon - 8 Mar 2007, 23:55.

[Pompon]

Encore merci AlbertLevert, ton script fonctionne !

...

Mais j'ai encore une dernière requête.

Petit récapitulatif :
1- Automator copie les photos que je sélectionne dans un nouveau dossier "test" sur le bureau.
2- Il redimensionne les photos en 800x600.
3- Puis il recopie ces photos dans un dossier "thumbnail" dans le dossier "test".
4- Il les redimensionne en 150x112.
5- Puis Automator fait une page index.htm dans les deux dossiers.

J'ai essayé d'insérer le script dans le workflow d'automator avant l'étape 1 ou après l'étape 2. Si je le mets, automator exécute toutes les actions jusqu'au script (compris) puis s'arrête, car il n'a plus de sélection.
Tu as résolu le problème avec le dernier script.

Le hic ce sont les miniatures...

Donc est-il possible de sélectionner les photos dans le dossier test OU de recopier les lettres/chiffres aléatoires générés dans le nom de fichiers des images dans le nom de fichiers des miniatures qui sont dans le dossier thumbnail (les vignettes ont le même nom de fichier que les images) ?

Je sais j'insiste beaucoup. Les scripts marchent très bien, mais je ne peux pas les intégrer dans automator (je cherche à faire le plus simple possible).

Voilà...
Merci

Ce message a été modifié par Pompon - 22 Aug 2006, 22:44.

[AlbertLevert]

Petit récapitulatif :
1- Automator copie les photos que je sélectionne dans un nouveau dossier "test" sur le bureau.
2- Il redimensionne les photos en 800x600.
3- Puis il recopie ces photos dans un dossier "thumbnail" dans le dossier "test".
4- Il les redimensionne en 150x112.
5- Puis Automator fait une page index.htm dans les deux dossiers.

... ça irait plus vite si tu disait de suite ce que tu cherche a faire ....

Au fait, pourquoi Automator ?


1 - tu choisis un dossier avec des images (jpg)
2 - tu donne le nom du dossier à créer sur le bureau
3 - le script fait le reste


il te reste plus qu'a faire la page html à la suite !

Voila le script .

CODE

property lesChiffre : {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
property LesMinusCule : {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
property LesMaj : {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
property LongExt : 4

property LargeurMaxi_1 : 800
property LargeurMaxi_2 : 150


property DossierThumbnails : "thumbnail"

on run
    set leDossierAconvertir to choose folder
    set leBureau to (path to desktop folder) as string
    
    display dialog "Nom du nouveau dossier" default answer "test" buttons {"Ok", "Annuler"} default button 1
    copy the result as list to {text_returned, button_pressed}
    
    if button_pressed = "Annuler" then
        return
    end if
    
    set DossierDest to text_returned
    log DossierDest
    -- LA ligne a modifier pour le dossier final !
    -- par exemple :
    -- set MonDossierArrivee to "Macintosh HD:USers:MonNom:Documents:ici:"
    set MonDossierArrivee to leBureau
    set MonDossierArrivee2 to MonDossierArrivee & DossierDest
    
    
    tell application "Finder"
        try
            make new folder at folder MonDossierArrivee with properties {name:DossierDest}
        on error
            log "Le dossier " & DossierDest & " existe déja !"
            return
        end try
        try
            make new folder at folder MonDossierArrivee2 with properties {name:DossierThumbnails}
        on error
            --log "Le dossier DossierThumbnails existe déja !"
        end try
    end tell
    
    
    tell application "Finder" to set selectedFiles to (select every file of folder leDossierAconvertir)
    tell application "Finder" to set leNbFichier to (count of every file of folder leDossierAconvertir)
    
    if leNbFichier = 0 then
        beep
        display dialog "Aucun fichier trouvé !" buttons {"ok"} giving up after 5
        return
    end if
    
    repeat with XX from 1 to leNbFichier
        
        --Generateur de Nom zarbi :D
        set UnTruc to ""
        if leNbFichier = 1 then
            set aFile to selectedFiles as string
        else
            set aFile to item XX of selectedFiles
            set aFile to aFile as string
        end if
        tell application "Finder" to set leNom to name of (alias aFile)
        
        repeat with i from 1 to 2
            set UnTruc to UnTruc & some item of lesChiffre
            if i = 1 then
                set UnTruc to UnTruc & some item of LesMinusCule
            else
                set UnTruc to UnTruc & some item of LesMaj
            end if
        end repeat
        
        set leNomLong to (count of character of (leNom as string))
        set Nombase to text 1 thru (leNomLong - LongExt) of leNom
        set LExtension to text from (leNomLong - (LongExt - 1)) to leNomLong of leNom
        set NomFinal to Nombase & "_" & UnTruc & LExtension
        
        set NouvelleImage_1 to MonDossierArrivee2 & ":" & NomFinal
        set NouvelleImage_2 to MonDossierArrivee2 & ":" & DossierThumbnails & ":" & NomFinal
        
        -- creation des images
        tell application "Image Events"
            launch
            set Image1 to open aFile
            set Image2 to Image1
            
            set Letype to file type of Image1
            copy dimensions of Image1 to {LaLargeur, LaHauteur}
            
            --mise a l'echelle des images et sauvegarde des nouveaux fichiers
            scale Image1 by factor (LargeurMaxi_1 / LaLargeur)
            save Image1 in NouvelleImage_1 as Letype
            
            scale Image2 by factor (LargeurMaxi_2 / LaLargeur)
            save Image2 in NouvelleImage_2 as Letype
        end tell
    end repeat
    
end run

Ce message a été modifié par AlbertLevert - 23 Aug 2006, 02:38.