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

[p1ngu01]

salut,
tu pourrais utiliser le code ascii pour les lettres...

[Pompon]

Ok pour le code ASCII p1ngu01...
On ne peut pas l'utiliser également pour les chiffres ? On simplifierait en demandant au script de piocher au hasard pour 4 caractères dans le code ASCII 48->57, 65->90, 97->122.

Sinon j'ai aussi essayé de me baser sur générateurs de mot de passe en applescript, mais cela ne donne rien (entre mes mains !).

Le script que j'ai actuellement comporte des lignes afin de ne pas avoir deux fois les mêmes chiffres mais je n'en ai pas besoin. Il peut sûrement être simplifié et être plus rapide (pour son intégration dans Automator).

J'y retourne

[p1ngu01]

On ne peut pas l'utiliser également pour les chiffres ? On simplifierait en demandant au script de piocher au hasard pour 4 caractères dans le code ASCII 48->57, 65->90, 97->122.

euh ouais, je pense...

[AlbertLevert]

Et comme ceci ?

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"}


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 with i from 1 to 2
                set an_item to an_item & some item of lesChiffre
                if i = 1 then
                    set an_item to an_item & some item of LesMinusCule
                else
                    set an_item to an_item & some item of LesMaj
                end if
            end repeat
            
            set leNomLong to (count of character of (aFile as string))
            log leNomLong
            set Nombase to text 1 thru (leNomLong - 4) of aFile
            set LExtension to text from (leNomLong - 3) to leNomLong of aFile
            set NomFinal to Nombase & "_" & an_item & LExtension
            
            set theOriginalName to do shell script "mv " & aFile & " " & NomFinal
            
        end repeat
    end tell
end run

[baron]

[H.S.] Hormis la beauté du geste, je peux te demander à quoi tout ça sert ?

[Pompon]

Vous êtes vraiment très efficaces messieurs les nocturnes ! Je ne pensais pas en me réveillant trouver le script posté à 4h21.

Merci pour le code AlbertLevert, je vois que tu as même penser à insérer un underscore dans le nom de fichier.
Par contre lorsque j'essaye d'executer le script il me dit que la variable "an_item" n'est pas définie?! J'ai essayé de bidouiller en vain. Il s'agit du deuxième "an_item" :

CODE

set an_item to an_item & some item of lesChiffre

baron pour l'utilité du script voici le lien d'un post sur le forum de PhpWebGallery : Pb de securité avec PhpWebGallery. Disons que c'est une "sécurité" en plus du index.htm pour éviter à des visiteurs trop curieux de voir des photos non autorisées.

Merci de votre aide !

[AlbertLevert]

Voila une version plus fonctionnelle ...

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


on run
tell application "Finder"
copy selection to selectedFiles
end tell

set UnTruc to ""
repeat with aFile in selectedFiles
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 aFile to aFile as string
set aFile to POSIX path of aFile as string
set leNomLong to (count of character of (aFile as string))
set Nombase to text 1 thru (leNomLong - LongExt) of aFile
set LExtension to text from (leNomLong - (LongExt - 1)) to leNomLong of aFile
set NomFinal to Nombase & "_" & UnTruc & LExtension

set theOriginalName to do shell script "mv " & aFile & " " & NomFinal

end repeat

end run

Ce message a été modifié par AlbertLevert - 22 Aug 2006, 12:34.

[Pompon]

Yes ça marche... mais si je sélectionne plusieurs fichiers ton script donne ça :

test_001_a1Ze.jpg
test_002_a1ZeR24E.jpg
test_003_a1ZeR24E86oi.jpg...

Comment faire pour générer 4 (par exemple) lettres et nombres aléatoires pour chaque fichiers ?

Désolé d'insister.

[AlbertLevert]

Oooops,

il faut mettre la ligne

CODE

set UnTruc to ""

Une ligne en dessous. soit a l'intérieur de la boucle, et non pas avant ...


ce ki donne donc ceci :

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


on run
tell application "Finder"
copy selection to selectedFiles
end tell


repeat with aFile in selectedFiles
set UnTruc to ""
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 aFile to aFile as string
set aFile to POSIX path of aFile as string
set leNomLong to (count of character of (aFile as string))
set Nombase to text 1 thru (leNomLong - LongExt) of aFile
set LExtension to text from (leNomLong - (LongExt - 1)) to leNomLong of aFile
set NomFinal to Nombase & "_" & UnTruc & LExtension

set theOriginalName to do shell script "mv " & aFile & " " & NomFinal

end repeat

end run

[Pompon]

Parfait merci beaucoup AlbertLevert, c'est parfait !

Il ne me reste plus qu'à l'intégrer dans automator.

@+

[Pompon]

Bon je crois que je vais avoir de nouveau besoin d'aide... Je n'ai pas fait un nouveau post car ma question reste dans la continuité de celui-ci.

En fait je me suis rendu compte que le script de AlbertLevert ne fonctionne qu'avec les élements sélectionnés dans une fenêtre (ce que j'avais demandé à la base).

Cependant je souhaiterai sélectionner automatiquement un dossier sur le bureau (appelons le "test") et appliquer le script à l'ensemble des élements de ce dossier afin de pouvoir l'intégrer directement dans Automator.

J'ai regardé dans Automator et dans l'éditeur de script mais je n'arrive pas à "programmer" une sélection.

L'idéal serait de pouvoir donner un chemin relatif (sans le nom de l'utilisateur) afin qu'il fonctionne sur toutes les sessions. J'ai regardé sur le forum, j'ai bien trouvé la commande "logname" dans ce post mais entre mes mains cela ne donne rien.

Si quelqu'un a une idée...
Merci

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

[AlbertLevert]

Encore une ? (de variante)
il te reste juste a changer le nom du dossier "Dossiertest"

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 MonDossierAmoi : "Dossiertest"

on run
    set leBureau to (path to desktop folder) as string
    set MonDossier to leBureau & MonDossierAmoi
    
    try
        alias MonDossier
    on error
        beep
        display dialog "Le dossier n'existe pas !" buttons {"ok"} giving up after 5
        return
    end try
    
    tell application "Finder" to set selectedFiles to (select every file of folder MonDossier)
    tell application "Finder" to set leNbFichier to (count of every file of folder MonDossier)
    
    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
        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
        
        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 aFile to POSIX path of aFile as string
        set leNomLong to (count of character of (aFile as string))
        set Nombase to text 1 thru (leNomLong - LongExt) of aFile
        set LExtension to text from (leNomLong - (LongExt - 1)) to leNomLong of aFile
        set NomFinal to Nombase & "_" & UnTruc & LExtension
        set MonScript to "mv " & aFile & " " & NomFinal
        set theOriginalName to do shell script MonScript
        
    end repeat
    
end run

Ce message a été modifié par AlbertLevert - 22 Aug 2006, 19:55.

[p1ngu01]

salut,
ou encore en faisant (en une ligne) :

set the_path to "Macintosh HD:Users:" & (system attribute "USER") & ":Desktop:test:"

http://forum.macbidouille.com/index.php?sh...ystem+attribute

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

[Pompon]

Salut AlbertLevert le nocturne,

Pourquoi Automator ? Plus simple à utiliser pour un novice comme moi. Et puis je ne pensais pas avec un script pouvoir en faire autant. J'avais réussi toutes les étapes et je pensais juste générer un script pour les lettres et les nombres aléatoires puis l'insérer dans Automator.

Finalement tu avais raison, j'aurai du te donner toutes les infos à la base. Mais les problèmes sont arrivés au fur et à mesure. Désolé de t'avoir redemandé quatre fois de modifier ton script. J'espère qu'il pourra servir à d'autres personnes !

En tout cas merci beaucoup de ton aide, tu es très efficace !!!
@+

[pardon]

sinon, tu peux aussi essayer ce script shell :

CODE

#!/bin/sh

repTest=~/Desktop/test

mkdir -p $repTest
mkdir -p $repTest/thumbnail
mkdir -p $repTest/.ref
cd $repTest/.ref

for img in "$@"
do
    nom=$(mktemp "$(echo ${img%.*} | sed 's:.*/::')_XXXXXXX").${img##*.}
    sips -z 600 800 --out "../$nom" "$img"
    sips -z 112 150 --out "../thumbnail/$nom" "$img"
done

Il prend en entrée une liste de fichiers et effectue les redimensionnements avec sips présent dans Tiger (tu peux aussi utiliser convert qui vient avec ImageMagick, à compiler/installer soi-même)
Le dossier ~/Desktop/test est utilisé s'il existe déjà, sinon créé
On utilise mktemp pour la génération du nom, et pour éviter de tomber sur un doublon (ce que sait faire mktemp) on garde la trace dans ~/Desktop/test/.ref (donc ne pas supprimer ce dossier invisible)

Ça devrait passer avec l'action Automator adéquate
pour les fichiers html (.htaccess ? j'y connais que dalle), donne des exemples, ça devrait être faisable sans difficultés au passage

Ce message a été modifié par pardon - 24 Aug 2006, 02:20.

[AlbertLevert]

CODE

    sips -z 600 800 --out "../$nom" "$img"
    sips -z 112 150 --out "../thumbnail/$nom" "$img"
done

un léger détail, ... forcer les tailles plutot que de faire une échelle me parait hasardeux

[pardon]

bah, c'est comme tu veux
je suppose que les images traitées par Pompon auront toujours ce rapport 4:3, et j'ai fait qu'appliquer ce qu'il demandait
sinon, on peut remplacer -b 600 800 par exemple par --resampleWidth 800 et pareil pour l'autre

sinon, je propose juste une seconde version peut-être un peu plus propre, en tout cas moins contraignante

CODE

#!/bin/sh

repTest=~/Desktop/test

mkdir -p $repTest
mkdir -p $repTest/thumbnail

refs=$(mktemp -dt imgRef)

cd $repTest
for f in *; do touch "$refs/${f%.*}"; done

cd $refs
rm thumbnail
for img in "$@"
do
    nom=$(mktemp "$(echo ${img%.*} | sed 's:.*/::')_XXXXXXX").${img##*.}
    sips -z 600 800 --out "$repTest/$nom" "$img"
    sips -z 112 150 --out "$repTest/thumbnail/$nom" "$img"
done

[Pompon]

Merci de ta contribution pardon !

Pour les photos elles n'ont pas toutes un rapport 4/3 (la majorité a une proportion "standard").

Ce que tu proposes ne permet pas de générer des lettres et nombres aléatoires dans des noms de fichiers ?! Je cherche à centraliser un maximum pour que cela soit le plus simple possible et le plus ouvert. Automator nécessitait Tiger, le script est plus tolérant et c'est un plus. Par contre ton code est beaucoup plus court ! En terme de performance je ne sais pas s'il y a des différences.

Et puis j'aime bien le Generateur de Nom zarbi du script de AlbertLevert

ps : pour la page html c'est vraiment tout bête. Je crée avec Automator un document text edit, j'insère un texte toujours identique "No access..." et j'enregistre le fichier en lui demandant de s'appeler index.htm. Je pense qu'il est possible de le faire avec un script (et l'intégrer dans celui de AlbertLevert).

Je regarderais ce week-end.
@+

[pardon]

euh, si si ça fait bien aussi ce que tu demandais : une_image.xyz ~> une_image_Cg5m8Po.xyz
pour le fichier html, ça représente une ligne à rajouter dans le shell script (à peine plus dans l'AppleScript)
faut donc aussi modifier les deux appels de sips en utilisant --resampleWidth au lieu du -z pour avoir le bon comportement, comme dit plus tôt

Ce message a été modifié par pardon - 25 Aug 2006, 02:23.

[Pompon]

Re,

Je reviens sur ce post pour re-re-re-demander une nouvelle petite modif

Le script d'AlbertLevert fonctionne très bien. Cependant il ne fait pas comme Automator pour redimensionner les images.
En effet, il fait une échelle pour mettre les images avec une largeur fixe de 800 (et de 150 pour les miniatures).

J'aimerai savoir s'il était possible de faire la distinction paysage/portrait afin d'avoir les images en portrait en 600x800 et les images en paysage en 800x600 ?

Dernière question facultative : est-il possible de créer facilement un document textedit avec un texte prédéfini et une extension .htm avec l'éditeur de script ?

Merci !

[Guest_JackJr300_*]

Salut

J'aimerai savoir s'il était possible de faire la distinction paysage/portrait afin d'avoir les images en portrait en 600x800 et les images en paysage en 800x600 ?

En utilisant scale to size, Çà rescale selon le plus grand nombre de pixels , la hauteur ou la largeur.

Remplace les deux prorperty et le block tell application "Image Events"

CODE

property LargeurouHAuteurMaxi_1 : 800
property LargeurouHAuteurMaxi_2 : 150

tell application "Image Events"
    launch
    set Image1 to open aFile
    set Image2 to Image1
    scale Image1 to size LargeurouHAuteurMaxi_1
    save Image1 in NouvelleImage_1
    scale Image1 to size LargeurouHAuteurMaxi_2
    save Image2 in NouvelleImage_2
          close Image1
end tell

Ce message a été modifié par JackJr300 - 31 Aug 2006, 17:46.

[Pompon]

Merci beaucoup JackJr300 c'est tout bon !

Je remet le script en entier :

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 LargeurouHAuteurMaxi_1 : 800
property LargeurouHAuteurMaxi_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
            scale Image1 to size LargeurouHAuteurMaxi_1
            save Image1 in NouvelleImage_1
            scale Image1 to size LargeurouHAuteurMaxi_2
            save Image2 in NouvelleImage_2
            close Image1
        end tell
    end repeat
    
end run

@+

Ce message a été modifié par Pompon - 31 Aug 2006, 18:10.

[Pompon]

...

J'ai encore une question

Est-il possible de rendre aléatoire la composition des "noms zarbis"© car pour le moment j'ai un chiffre, une minuscule, un chiffre, une majuscule ?
Exemple : test_xS7a.jpg et pas test_1d5F.jpg

Merci !

[p1ngu01]

salut,
ouais, il suffirait de faire une seule liste regroupant lesChiffre, LesMinusCule et les Maj. cependant, il se pourrait par la suite que ca te fasse des "doublons de type" (que tu aies deux fois des minuscules et pas de majuscule par exemple).

[Pompon]

Salut p1ngu01,

Faire des "doublons de type" n'est pas un problème. Avoir par exemple comme base deux chiffres et deux lettres sans aucun ordre précis serait l'idéal.

La question est : comment faire ?!

Je pense qu'il faut modifier cette partie du code :

CODE

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

Des indices ?

[Guest_JackJr300_*]

Bonsoir

Ceci mélange une majuscule, une minuscule et deux chiffres dans un ordre aléatoire

Remplace

CODE

        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

par ce code

CODE

set lettres_chifres to some item of LesMinusCule & some item of LesMaj & (random number from 10 to 99)
set nbrList to {}
repeat until (count UnTruc) = 4 --mélange majuscule, minuscule et les deux chiffres
    tell (random number from 1 to 4) to if it is not in nbrList then
        set UnTruc to UnTruc & item it of lettres_chifres
        set end of nbrList to it
    end if
end repeat

[p1ngu01]

ah ben, il suffit de faire une liste comme ca :

property lesCaracteres : {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "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", "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"}

et faire:

repeat 4 times
set UnTruc to UnTruc & some item of lesCaracteres
end repeat

poskryptum : j'ai fait ca vite fait a toi de verifier si ca marche (je suis pas sur mac la)

[Pompon]

Merci pour vos astuces !

La solution de p1ngu01 est radicale mais à le mérite de fonctionner !

Je testerai ce week-end la méthode JackJr300 car je n'ai pas de mac à porté de main

Je vous tiens au courant !
@+

[Pompon]

Merci JackJr300 ta modif fonctionne à merveille

Revoilà le script en entier :

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 LargeurouHAuteurMaxi_1 : 800
property LargeurouHAuteurMaxi_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)
        
        set lettres_chifres to some item of LesMinusCule & some item of LesMaj & (random number from 10 to 99)
        set nbrList to {}
        repeat until (count UnTruc) = 4 --mélange majuscule, minuscule et les deux chiffres
            tell (random number from 1 to 4) to if it is not in nbrList then
                set UnTruc to UnTruc & item it of lettres_chifres
                set end of nbrList to it
            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
            scale Image1 to size LargeurouHAuteurMaxi_1
            save Image1 in NouvelleImage_1
            scale Image1 to size LargeurouHAuteurMaxi_2
            save Image2 in NouvelleImage_2
            close Image1
        end tell
    end repeat
    
end run

@+

[Pompon]

Toc toc toc me revoilà

Salut à vous !

Bon tout se passe très bien avec ce script, mais après quelques mois d'usages, j'aurai bien aimé le faire évoluer encore un peu (avec votre aide of course...) :

- Le script prend en charge uniquement les images. Peut-on lui dire dans le cas d'autres types de documents (vidéo, pdf...) de les copier dans le nouveau dossier avec les lettres et chiffres aléatoires (ainsi que dans le dossier thumbnail) ?

- Si j'ai un dossier qui ne contient que des sous-dossiers le script ne marche pas. Est-il possible de dire au script de travailler dans les sous-dossiers également (en respectant la même arborescence dans le nouveau dossier) ?

- Dernière question bonus : est-il possible de créer automatiquement un document textedit qui s'intitulera "index.html" dans le dossier et les sous-dossiers ?

J'espère que c'est assez clair, pas trop complexe et que vous aurez un peu de temps pour me donner des tuyaux...
Merci d'avance !
@+

[AlbertLevert]

- Le script prend en charge uniquement les images. Peut-on lui dire dans le cas d'autres types de documents (vidéo, pdf...) de les copier dans le nouveau dossier avec les lettres et chiffres aléatoires (ainsi que dans le dossier thumbnail) ?

pour les copier, pas de problème, il faudrait juste avoir une liste des type de doc a traiter.
pour en faire des "thumbnail", cela dépend du type de doc.

- Si j'ai un dossier qui ne contient que des sous-dossiers le script ne marche pas. Est-il possible de dire au script de travailler dans les sous-dossiers également (en respectant la même arborescence dans le nouveau dossier) ?

Oui, bien sur, avec 2-3 modifs

- Dernière question bonus : est-il possible de créer automatiquement un document textedit qui s'intitulera "index.html" dans le dossier et les sous-dossiers ?

Encore oui.
Que veut tu mettre dedans ? as-tu un exemple ?

[AlbertLevert]

Voila déja une version pour créer le fichier index.

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 LargeurouHAuteurMaxi_1 : 800
property LargeurouHAuteurMaxi_2 : 150

property HeaderHtml : "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"
    \"http://www.w3.org/TR/html4/loose.dtd\">
<html><head>
<title>Untitled</title>
<meta http-equiv=\"Content-type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=#FFFFFF>"

property FinHtml : "</body></html>"


property DossierThumbnails : "thumbnail"

on run
    set leTexteIndex to ""
    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)
        
        set lettres_chifres to some item of LesMinusCule & some item of LesMaj & (random number from 10 to 99)
        set nbrList to {}
        repeat until (count UnTruc) = 4 --mélange majuscule, minuscule et les deux chiffres
            tell (random number from 1 to 4) to if it is not in nbrList then
                set UnTruc to UnTruc & item it of lettres_chifres
                set end of nbrList to it
            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
            scale Image1 to size LargeurouHAuteurMaxi_1
            save Image1 in NouvelleImage_1
            scale Image1 to size LargeurouHAuteurMaxi_2
            save Image2 in NouvelleImage_2
            close Image1
        end tell
        
        --La code HTML de l'image en cours
        set leTexteIndex to leTexteIndex & return & NouvelleImage_1 & "<BR><a href=\"" & NomFinal & "\" target=nouvo ><img src=\"thumbnail/" & NomFinal & "\" border=0></a><BR><BR>"
        
    end repeat
    
    -- creation du fichier index.html
    set LePathIndex to MonDossierArrivee2 & ":index.html"
    set LApageHtml to HeaderHtml & return & leTexteIndex & return & FinHtml
    
    write_to_file(LApageHtml, LePathIndex)
end run





on write_to_file(this_data, target_file_path)
    try
        set the target_file_path to the target_file_path as text
        set the open_target_file to open for access the file target_file_path with write permission
        --set eof of the open_target_file to 0 --> remove this line if you want written data appended to existing data
        write this_data to the open_target_file starting at eof
        close access the open_target_file
        return true
    on error
        try
            close access the open_target_file
        end try
        return false
    end try
end write_to_file

[Pompon]

Salut AlbertLevert,

Merci pour ton aide !!!

Je vais tenter d'être plus clair pour les améliorations de ce script :

- Pour la liste des fichiers à prendre en charge : est-il possible de dire au script de traiter tous les formats sans distinction, ou faut-il absolument les connaître au préalable ? Si c'est le cas partons sur du pdf et des vidéos (.mov, .avi., .wmv, .3gp) en plus des fichiers images. Après j'en rajouterai moi-même si nécessaire.
Pour les miniatures, je les fait moi-même (je choisis la bonne image et j'ajoute le logo du format sur cette dernière).

- La prise en compte des sous-dossiers serait vraiment tip-top

- J'ai testé ta modif du script pour créer un index.html. Ca marche, mais je ne souhaite pas avoir le listing des fichiers comme c'est le cas actuellement.
En fait cette page sert à éviter de voir le contenu d'un dossier. Elle doit donc être présente dans le dossier "test" et également dans le dossier "thumbnail".
Pour le code à y mettre, mettons par exemple celui-ci :

CODE

<html>
    <head>
        <title>PhpWebGallery</title>
    </head>
    <body>
        No access authorized
    </body>
</html>

C'esrt vraiment génial les scripts et c'est encore plus génial de trouver des gens qui savent s'en servir comme vous
Merci Père noël !

[AlbertLevert]

- Pour la liste des fichiers à prendre en charge : est-il possible de dire au script de traiter tous les formats sans distinction, ou faut-il absolument les connaître au préalable ? Si c'est le cas partons sur du pdf et des vidéos (.mov, .avi., .wmv, .3gp) en plus des fichiers images. Après j'en rajouterai moi-même si nécessaire.
Pour les miniatures, je les fait moi-même (je choisis la bonne image et j'ajoute le logo du format sur cette dernière).

Pour traiter efficacement des fichier, il vaut mieux connaite le type, donc :

- La prise en compte des sous-dossiers serait vraiment tip-top

bientot ....

- J'ai testé ta modif du script pour créer un index.html. Ca marche, mais je ne souhaite pas avoir le listing des fichiers comme c'est le cas actuellement.
En fait cette page sert à éviter de voir le contenu d'un dossier. Elle doit donc être présente dans le dossier "test" et également dans le dossier "thumbnail".

Voila déja les index , et un tri des doc.

le script accepte : "Document PDF","Image JPEG", "Film AVI", "Séquence QuickTime", "Windows Media Audio/Video File" et "Séquence 3GPP"

le reste est ignoré

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 LargeurouHAuteurMaxi_1 : 800
property LargeurouHAuteurMaxi_2 : 150

property LaPageIndex : "<html>
    <head>
        <title>PhpWebGallery</title>
    </head>
    <body>
        No access authorized
    </body>
</html>"

property PdfFile : "Document PDF"
property JPGFile : "Image JPEG"
property AVIFile : "Film AVI"
property MovFile : "Séquence QuickTime"
property vMwFile : "Windows Media Audio/Video File"
property The3GpFile : "Séquence 3GPP"


property DossierThumbnails : "thumbnail"

on run
    set leTexteIndex to ""
    set leDossierAconvertir to choose folder
    set leBureau to (path to desktop folder) as string
    set LesTypeImgListe to {JPGFile}
    set LesTypeDocListe to {AVIFile, MovFile, vMwFile, PdfFile, The3GpFile}


    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"
            set leNom to name of (alias aFile)
            set leType to kind of (alias aFile)
            set LExtension to name extension of (alias aFile)
        end tell
        
        set LongExt to (count of character of LExtension) + 1
        log "leType = " & leType
        set lettres_chifres to some item of LesMinusCule & some item of LesMaj & (random number from 10 to 99)
        set nbrList to {}
        repeat until (count UnTruc) = 4 --mélange majuscule, minuscule et les deux chiffres
            tell (random number from 1 to 4) to if it is not in nbrList then
                set UnTruc to UnTruc & item it of lettres_chifres
                set end of nbrList to it
            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 NomFinal to my searchReplaceText(" ", "_", NomFinal)
        
        set NouvelleImage_1 to MonDossierArrivee2 & ":" & NomFinal
        set NouvelleImage_2 to MonDossierArrivee2 & ":" & DossierThumbnails & ":" & NomFinal
        
        

        if leType is in LesTypeImgListe then
            -- traitement des images
            tell application "Image Events"
                launch
                set Image1 to open aFile
                set Image2 to Image1
                scale Image1 to size LargeurouHAuteurMaxi_1
                save Image1 in NouvelleImage_1
                scale Image1 to size LargeurouHAuteurMaxi_2
                save Image2 in NouvelleImage_2
                close Image1
            end tell
        else if leType is in LesTypeDocListe then
            --traitments des autres doc
            set lePathUnixOrig to quoted form of POSIX path of aFile
            set lePathUnixNormal to quoted form of POSIX path of NouvelleImage_1
            set lePathUnixThunbail to quoted form of POSIX path of NouvelleImage_2
            set leScriptCopie1 to "cp " & lePathUnixOrig & " " & lePathUnixNormal
            set leScriptCopie2 to "cp " & lePathUnixOrig & " " & lePathUnixThunbail
            
            do shell script leScriptCopie1
            do shell script leScriptCopie2
        end if
    end repeat
    
    -- creation du fichier index.html
    set LePathIndex to MonDossierArrivee2 & ":index.html"
    set LePathIndex2 to MonDossierArrivee2 & ":" & DossierThumbnails & ":index.html"
    
    write_to_file(LaPageIndex, LePathIndex)
    write_to_file(LaPageIndex, LePathIndex2)
end run





on write_to_file(this_data, target_file_path)
    try
        set the target_file_path to the target_file_path as text
        set the open_target_file to open for access the file target_file_path with write permission
        --set eof of the open_target_file to 0 --> remove this line if you want written data appended to existing data
        write this_data to the open_target_file starting at eof
        close access the open_target_file
        return true
    on error
        try
            close access the open_target_file
        end try
        return false
    end try
end write_to_file




on searchReplaceText(searchTerm, replaceTerm, theText)
    set oldTID to AppleScript's text item delimiters
    set AppleScript's text item delimiters to searchTerm
    set theText to theText's text items
    set AppleScript's text item delimiters to replaceTerm
    set theText to theText as text
    set AppleScript's text item delimiters to oldTID
    return theText
end searchReplaceText

Ce message a été modifié par AlbertLevert - 4 Dec 2006, 16:30.

[Pompon]

Ok tout marche parfaitement, merci AlbertLevert !

Je ne suis pas au pièce pour une version fonctionnant avec les sous-dossiers. L'ajout de l'index automatiquement et la prise en compte d'autres formats sont déjà un bon plus.

@+

[AlbertLevert]

Y'avait un bug !

les fichiers Photoshop pas reconnu ... car pas dans la liste

Voila qui est corrigé, avec les sous-dossier !


PS: J'ai ajouté le ©copyright

CODE

-- Generateur_zarbi.applescript
-- Created by AlbertLevert / pmac on 03.12.06.
-- Copyright 2006 Puissance Mac - Switzerland. All rights reserved.
-- PostcardWare, if you use this Applescript, send me a postcard !

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 LargeurouHAuteurMaxi_1 : 800
property LargeurouHAuteurMaxi_2 : 150
property PdfFile : "Document PDF"
property JPGFile : "Image JPEG"
property AVIFile : "Film AVI"
property MovFile : "Séquence QuickTime"
property vMwFile : "Windows Media Audio/Video File"
property The3GpFile : "Séquence 3GPP"
property JPGFilePS : "Fichier JPEG Adobe Photoshop"

property DossierThumbnails : "thumbnail"



property LaPageIndex : "<html>
    <head>
        <title>PhpWebGallery</title>
    </head>
    <body>
        No access authorized
    </body>
</html>"



on run
    set leTexteIndex to ""
    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
    
    
    set MonDossierArrivee to leBureau
    set MonDossierArrivee2 to MonDossierArrivee & DossierDest
    tell application "Finder"
        
        set leNbFichierDuDossier to (count of every file of folder leDossierAconvertir)
        set leNbDossier to (count of every folder of folder leDossierAconvertir)
        
        try
            make new folder at folder MonDossierArrivee with properties {name:DossierDest}
        on error
            log "Le dossier " & DossierDest & " existe déja !"
            return
        end try
        
        if leNbFichierDuDossier > 0 then
            try
                make new folder at folder MonDossierArrivee2 with properties {name:DossierThumbnails}
            on error
                --log "Le dossier DossierThumbnails existe déja !"
            end try
        end if
    end tell
    
    
    if leNbFichierDuDossier = 0 and leNbDossier = 0 then
        beep
        display dialog "Aucun fichier  et/ou dossier trouvé !" buttons {"ok"} giving up after 5
        return
    end if
    
    
    --Traite les images du dossier
    if leNbFichierDuDossier > 0 then
        set TheDossierAconvertir to leDossierAconvertir
        TraitementUnDossier(TheDossierAconvertir, leNbFichierDuDossier, MonDossierArrivee2)
    end if
    
    
    -- Traite les sousDossiers
    if leNbDossier > 0 then
        set NbDossierATraiter to leNbDossier
        set LeSousDossAtraiter to leDossierAconvertir
        set DossierDestSD to leBureau & DossierDest
        TraiteLesSousDossier(LeSousDossAtraiter, NbDossierATraiter, DossierDestSD)
    end if
    
end run


on TraiteLesSousDossier(leDossierAconvertir, leNbDossier, DossierDest)
    tell application "Finder" to set LesNomDossier to (name of every folder of folder leDossierAconvertir)
    
    repeat with xx from 1 to leNbDossier
        set LEDossierTmp to (item xx of LesNomDossier) as string
        set TheDossierAconvertir to alias ((leDossierAconvertir & LEDossierTmp) as string)
        
        tell application "Finder"
            set leNbFichierDuDossier to (count of every file of folder TheDossierAconvertir)
            set leNbDossierSD to (count of every folder of folder TheDossierAconvertir)
        end tell
        
        if leNbFichierDuDossier > 0 then
            set MonDossierArrivee to DossierDest as string
            
            if last character of MonDossierArrivee = ":" then
                set MonDossierArrivee2 to MonDossierArrivee & LEDossierTmp
            else
                set MonDossierArrivee2 to MonDossierArrivee & ":" & LEDossierTmp
            end if
            
            tell application "Finder"
                try
                    make new folder at folder MonDossierArrivee with properties {name:LEDossierTmp}
                on error
                    --log "Le dossier " & LEDossierTmp & " existe déja !"
                end try
                try
                    make new folder at folder MonDossierArrivee2 with properties {name:DossierThumbnails}
                on error
                    --log "Erreur Le dossier DossierThumbnails existe déja ! = " & MonDossierArrivee2
                end try
            end tell
            TraitementUnDossier(TheDossierAconvertir, leNbFichierDuDossier, MonDossierArrivee2)
        end if
        
        if leNbDossierSD > 0 then
            set NbDossierATraiter to leNbDossierSD
            set LeSousDossAtraiter to alias ((leDossierAconvertir & LEDossierTmp) as string)
            set DossierDestSD to alias ((DossierDest & ":" & LEDossierTmp) as string)
            TraiteLesSousDossier(LeSousDossAtraiter, NbDossierATraiter, DossierDestSD)
        end if
        
    end repeat
    
end TraiteLesSousDossier







on TraitementUnDossier(leDossierAconvertir, leNbFichier, MonDossierArriveeTmp)
    
    set LesTypeImgListe to {JPGFile, JPGFilePS}
    set LesTypeDocListe to {AVIFile, MovFile, vMwFile, PdfFile, The3GpFile}
    
    
tell application "Finder"
    set selectedFiles to (select every file of folder leDossierAconvertir)
    close folder leDossierAconvertir
end tell
    
    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"
            set leNom to name of (alias aFile)
            set leType to kind of (alias aFile)
            set LExtension to name extension of (alias aFile)
        end tell
        
        set LongExt to (count of character of LExtension) + 1
        log "leType = " & leType
        set lettres_chifres to some item of LesMinusCule & some item of LesMaj & (random number from 10 to 99)
        set nbrList to {}
        repeat until (count UnTruc) = 4 --mélange majuscule, minuscule et les deux chiffres
            tell (random number from 1 to 4) to if it is not in nbrList then
                set UnTruc to UnTruc & item it of lettres_chifres
                set end of nbrList to it
            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 NomFinal to my searchReplaceText(" ", "_", NomFinal)
        
        set NouvelleImage_1 to (MonDossierArriveeTmp & ":" & NomFinal) as string
        set NouvelleImage_2 to (MonDossierArriveeTmp & ":" & DossierThumbnails & ":" & NomFinal) as string
        
        
        
        if leType is in LesTypeImgListe then
            -- traitement des images
            tell application "Image Events"
                launch
                set Image1 to open aFile
                set Image2 to Image1
                scale Image1 to size LargeurouHAuteurMaxi_1
                save Image1 in NouvelleImage_1
                scale Image1 to size LargeurouHAuteurMaxi_2
                save Image2 in NouvelleImage_2
                close Image1
            end tell
        else if leType is in LesTypeDocListe then
            --traitments des autres doc
            set lePathUnixOrig to quoted form of POSIX path of aFile
            set lePathUnixNormal to quoted form of POSIX path of NouvelleImage_1
            set lePathUnixThunbail to quoted form of POSIX path of NouvelleImage_2
            set leScriptCopie1 to "cp " & lePathUnixOrig & " " & lePathUnixNormal
            set leScriptCopie2 to "cp " & lePathUnixOrig & " " & lePathUnixThunbail
            
            do shell script leScriptCopie1
            do shell script leScriptCopie2
        end if
    end repeat
    
    -- creation du fichier index.html
    set LePathIndex to MonDossierArriveeTmp & ":index.html"
    set LePathIndex2 to MonDossierArriveeTmp & ":" & DossierThumbnails & ":index.html"
    
    write_to_file(LaPageIndex, LePathIndex)
    write_to_file(LaPageIndex, LePathIndex2)
end TraitementUnDossier






on write_to_file(this_data, target_file_path)
    try
        set the target_file_path to the target_file_path as text
        set the open_target_file to open for access the file target_file_path with write permission
        --set eof of the open_target_file to 0 --> remove this line if you want written data appended to existing data
        write this_data to the open_target_file starting at eof
        close access the open_target_file
        return true
    on error
        try
            close access the open_target_file
        end try
        return false
    end try
end write_to_file




on searchReplaceText(searchTerm, replaceTerm, theText)
    set oldTID to AppleScript's text item delimiters
    set AppleScript's text item delimiters to searchTerm
    set theText to theText's text items
    set AppleScript's text item delimiters to replaceTerm
    set theText to theText as text
    set AppleScript's text item delimiters to oldTID
    return theText
end searchReplaceText

Ce message a été modifié par AlbertLevert - 4 Dec 2006, 19:43.

[Pompon]

Je n'avais pas vu le problème avec les fichiers provenant de photoshop (mes photos sont rarement retouchées). Cela explique peut-être le problème que je rencontre si mes petites vidéos .avi s'ouvrent automatiquement avec vlc et ne sont pas pris en compte par le script. Par contre si je modifie ce réglage via "lire les informations" et que je choisis "ouvrir avec quicktime" le script marche

Sinon pour les sous dossiers c'est quasiment parfait... Est-il possible de rajouter svp un index.html à la racine également ?

Pour le copyright je crois que tu as incontestablement la paternité de ce script... Je vais devoir te reverser des royalties à chaque photos zarbissimées (tu vas être vite riche !).
Merci,
@+

[AlbertLevert]

Je n'avais pas vu le problème avec les fichiers provenant de photoshop (mes photos sont rarement retouchées). Cela explique peut-être le problème que je rencontre si mes petites vidéos .avi s'ouvrent automatiquement avec vlc et ne sont pas pris en compte par le script. Par contre si je modifie ce réglage via "lire les informations" et que je choisis "ouvrir avec quicktime" le script marche

Oui, l'déal serait de pouvoir ajouter des type de façon simple, ... bientot

Sinon pour les sous dossiers c'est quasiment parfait... Est-il possible de rajouter svp un index.html à la racine également ?

Oui, sauf que la, comme il y a pas d'images, pas de "index.html" ...

Pour le copyright je crois que tu as incontestablement la paternité de ce script... Je vais devoir te reverser des royalties à chaque photos zarbissimées (tu vas être vite riche !).

Une carte postale suffiras (PostcardWare ... oui, je sais, c'est dure ...)

C'est bien joli ce script, mais moi je préfère cette version la


zarbirename, c'est par ici

Fichier(s) joint(s)

 zarbirenamewin.jpg ( 24.26 Ko ) Nombre de téléchargements : 94

 

[Pompon]

Salut AlbertLevert,

Désolé pour le retard.

J'ai téléchargé ton utilitaire et c'est vraiment le pied, tout y est, 1000 mercis !

Pour le "index.html" à la racine des sous-dossiers effectivement cela ne sert pas vraiment, les images étant "protégées" dans les dossiers (c'est un petit plus on va dire).

Pour le "PostcardWare" je ne connaissais pas. Je vais te faire une belle carte postale (l'adresse est bien celle indiquée dans le logiciel, à quel nom écrire Albert Levert ?)...

Je vais signaler "Zarbirename" sur les forums de PhpWebGallery, cela pourrait intéresser d'autres utilisateurs. Par contre dans la version initiale de PhpWebGallery les miniatures portent un préfixe "-TN". Est-il possible d'ajouter simplement dans Zarbirename le choix pour l'utilisateur de mettre ou non un préfixe ?

ps : te sers-tu également de PhpWebgallery pour mettre tes photos en ligne ?

EDIT :
J'ai reparlé de ce post sur le forum de PhpWebGallery ici. J'y ai fait un petit listing des "fonctions" non présentes (vu que j'ai adapté PhpWebGallery à ma sauce).

Sinon j'ai trouvé la liste des formats pris en charge par défaut sur PhpWebGallery à savoir : jpg, png, gif, mpg, avi, mp3, ogg, (zip)
Et avec le mod media integrator que j'ai installé, on trouve en plus : Windows Media Player (avi, wmv,...), Quick Time (mov, mp4, 3gp), flash, divx et xvid.
Ce serait pratique de pouvoir les prendre en charge pour les autres utilisateurs. Si tu as le temps, pourrais-tu svp l'implanter dans une prochaine version de ZarbiRename (je vais regarder pour modifier le script), ce serait tip-top !
Mais je ne veux pas abuser non plus, tu as déjà fait du beau boulot.

EDIT 2 :
Sinon j'ai fait un test de ZarbiRename en essayant de mettre sur zéro la longueur de code "zarbi" (pas très utile dans l'absolu, mais comme on peut mettre le curseur sur cette valeur, je voulais essayer). Peut-on dans le cas d'un paramètre sur zéro ignorer le code zarbi ou bien empêcher ce réglage ?

EDIT 3 :
Un petit bug : dans le cas de sous-sous-dossiers le script et l'utilitaire ne fonctionnent pas. Le message d'erreur est "dossier introuvable (-43)".

@+

Ce message a été modifié par Pompon - 10 Dec 2006, 17:19.

[AlbertLevert]

Pour le "index.html" à la racine des sous-dossiers effectivement cela ne sert pas vraiment, les images étant "protégées" dans les dossiers (c'est un petit plus on va dire).

il y a des fichiers index partout, dorénavant.

Pour le "PostcardWare" je ne connaissais pas. Je vais te faire une belle carte postale (l'adresse est bien celle indiquée dans le logiciel, à quel nom écrire Albert Levert ?)...

Oui !

dans la version initiale de PhpWebGallery les miniatures portent un préfixe "-TN". Est-il possible d'ajouter simplement dans Zarbirename le choix pour l'utilisateur de mettre ou non un préfixe ?

C'est fait .

ps : te sers-tu également de PhpWebgallery pour mettre tes photos en ligne ?

Nom, je l'ai juste installé pour voir.

J'ai reparlé de ce post sur le forum de PhpWebGallery ici. J'y ai fait un petit listing des "fonctions" non présentes (vu que j'ai adapté PhpWebGallery à ma sauce).

Sinon j'ai trouvé la liste des formats pris en charge par défaut sur PhpWebGallery à savoir : jpg, png, gif, mpg, avi, mp3, ogg, (zip)
Et avec le mod media integrator que j'ai installé, on trouve en plus : Windows Media Player (avi, wmv,...), Quick Time (mov, mp4, 3gp), flash, divx et xvid.
Ce serait pratique de pouvoir les prendre en charge pour les autres utilisateurs. Si tu as le temps, pourrais-tu svp l'implanter dans une prochaine version de ZarbiRename (je vais regarder pour modifier le script), ce serait tip-top !

C'est fait , tu peut ajouter tout ce que tu voudras

[i]Sinon j'ai fait un test de ZarbiRename en essayant de mettre sur zéro la longueur de code "zarbi" (pas très utile dans l'absolu, mais comme on peut mettre le curseur sur cette valeur, je voulais essayer). Peut-on dans le cas d'un paramètre sur zéro ignorer le code zarbi ou bien empêcher ce réglage ?

Pourquoi empécher ? on peut très bien vouloir ne pas mettre de code (pour le moment ya un petit bug ... argh...)

Nouveauté de la version 1.0a3 :
- préfix a choix pour les vignettes
- supprime les accents , espaces et la ponctuation
- cadre épaisseur variable
- gestoin des type de document
- un embryon de gestion via FTP
- barre de progression
- un poil plus rapide (plus de Image Event ...)

La nouvelle version, c'est par ici !





EDIT :

aurais-tu un exemple de fichier xml ? quelqu'un en parle sur un forum...

Ce message a été modifié par AlbertLevert - 11 Dec 2006, 01:40.

Fichier(s) joint(s)

 Zarbi_a3.jpg ( 32.74 Ko ) Nombre de téléchargements : 90

 

[Pompon]

Merci AlbertLevert,

Toujours aussi efficace et aussi noctambule

Merci pour les modifs que tu as faites. ZarbiRename va bientôt remplacer mon Renamer4mac et Cyberduck à ce rythme là !

Un petite liste des problèmes :
J'ai eu un petit souci avec le type de document accepté. En effet, tu as une option pour activer ou non la création de vignettes. J'ai essayé d'en désactiver parmi celles par défaut mais ce n'est pas pris en compte (j'ai bien cliqué sur "sauver" pourtant). Bug ou erreur de manipulation ?

Il n'y a plus de "_" avant le zarbicode. Et comme tu le signales si j'opte pour ne pas mettre de code zarbi tous les noms de fichiers ont le mot "zero" d'insérés.

J'ai voulu changer le nom du préfixe par TN1- mais ZarbiRename a juste mis TN-.

Dans le cas d'un dossier qui ne contient qu'un dossier, qui lui-même contient un dossier contenant des photos, l'utilitaire ne marche pas (dossier introuvable). Je sais c'est tordu et peut-être pas très clair !

Sinon l'option pour remplacer des caractères est vraiment géniale et la barre de progression je voulais t'en parler mais tu l'as déjà ajoutée
Pratique aussi le nombre total d'élément à zarbissimer.

Pour le fichier xml, je crois qu'il sert pour la gestion de site distant. Plus d'infos par ici :
-> Gestion manuelle des sites distant sur le wiki
-> Format du fichier XML sur le forum de PhpWebgallery

@+
ps : je t'ai envoyé un p'ti MP, je ne sais si tu l'as bien reçu.

[AlbertLevert]

J'ai eu un petit souci avec le type de document accepté. En effet, tu as une option pour activer ou non la création de vignettes. J'ai essayé d'en désactiver parmi celles par défaut mais ce n'est pas pris en compte (j'ai bien cliqué sur "sauver" pourtant). Bug ou erreur de manipulation ?

Erreur de manip, en fait, si un type est présent dans la liste, il seras traité.
Si tu coche vignette, il va créer ne vignette, sinon, il copie le fichier tel que , avec le nouveau nom.

Il n'y a plus de "_" avant le zarbicode. Et comme tu le signales si j'opte pour ne pas mettre de code zarbi tous les noms de fichiers ont le mot "zero" d'insérés.

C'est corrigé

J'ai voulu changer le nom du préfixe par TN1- mais ZarbiRename a juste mis TN-.

C'est corrigé

Dans le cas d'un dossier qui ne contient qu'un dossier, qui lui-même contient un dossier contenant des photos, l'utilitaire ne marche pas (dossier introuvable). Je sais c'est tordu et peut-être pas très clair !

C'est pas encore corrigé

Pour le fichier xml, je crois qu'il sert pour la gestion de site distant. Plus d'infos par ici :
-> Gestion manuelle des sites distant sur le wiki
-> Format du fichier XML sur le forum de PhpWebgallery

j'ai pas reussi a créer un fichier .... la structure a l'air facile a reproduire, mais il me faudrai un vrai exemple ....

Nouvelle version a4, par ici ....

comme grosse nouveauté , ya une possibilité de traiter des images ...

Fichier(s) joint(s)

 version_a4_02.jpg ( 34.05 Ko ) Nombre de téléchargements : 85

 

[Pompon]

Salut,

Je viens de refaire un test de ta nouvelle version de ZarbiRename. C'est bien à chaque fois il y a du nouveau

Toutes tes corrections fonctionnent, pas de lézard !

Sinon dans ma wishlist Père Noël, l'idéal serait de prendre en compte également les noms des dossiers avec l'option "supprimer les accents, les espaces et la ponctuation"

Il faut que je fasse un test avec ma vidéo .avi qui s'ouvre avec vlc et qui n'est pas prise en compte par ZarbiRename en modifiant les types de documents.

Pour la création de vignette, on est d'accord que ZarbiRename ne peut pas choisir une miniature tout seul pour un fichier vidéo ?

Pour ta nouvelle fonction, je ne m'en servirai pas de mon côté (désolé) car les photos prises avec mon appareil sont automatiquement mises dans le bon sens (les données exif rotation automatique sont prises en compte par iView). Cela dit pour d'autres utilisateurs cela peut s'avérer utile. Tes fonctions de rotation ne suppriment pas les données exif +/- 90° ?
Il y a un petit logiciel Pirouette developpé par un membre de macbidouille dominik qui fait les rotations automatique.

Pour le fichier xml je vais regarder de mon côté pour en créer un (ou j'irai refaire un tour sur le forum de PhpWebGallery). Je te tiens au courant !

Je vais prévenir la sortie de ta nouvelle version sur le forum de PhpWebGallery et modifier leur wiki
@+

EDIT :
Pour ta création de cadres si le dossier à traiter contient des vidéos, ZarbiRename affiche une erreur d'AppleScript "Impossible de transformer paragraph 2 of /users/.../..mov en type string (-1700)".

Sinon j'ai essayé de traiter des images jpg avec ta nouvelle fonction, mais si je veux une faire une rotation j'ai un message d'erreur "La variable n'est pas définie. (-2753)" ou encore "Impossible de transformer 72.000 en type integer. (-1700)" si je double clique sur une image.

Ce message a été modifié par Pompon - 12 Dec 2006, 10:05.

[AlbertLevert]

Sinon dans ma wishlist Père Noël, l'idéal serait de prendre en compte également les noms des dossiers avec l'option "supprimer les accents, les espaces et la ponctuation"

oui, bientot...

Pour la création de vignette, on est d'accord que ZarbiRename ne peut pas choisir une miniature tout seul pour un fichier vidéo ?

Pas encore, mais c'est possible pour les fichier lisible avec quicktime.

Tes fonctions de rotation ne suppriment pas les données exif +/- 90° ?

Normalement pas

Pour ta création de cadres si le dossier à traiter contient des vidéos, ZarbiRename affiche une erreur d'AppleScript "Impossible de transformer paragraph 2 of /users/.../..mov en type string (-1700)".

? je n'arrive pas a reproduire cela ... surement une histoire de format de mombre ... les points et les virgules...

Sinon j'ai essayé de traiter des images jpg avec ta nouvelle fonction, mais si je veux une faire une rotation j'ai un message d'erreur "La variable n'est pas définie. (-2753)" ou encore "Impossible de transformer 72.000 en type integer. (-1700)" si je double clique sur une image.

idem précédent., je vais tenter une rustine ...

EDIT:
Nouvelle version a5, c'est toujour par ici.


Ce message a été modifié par AlbertLevert - 12 Dec 2006, 17:22.

[Pompon]

Ok je viens de tester cette nouvelle version (la 1.0a5).

Le bug du cadre si le dossier contient des vidéos n'est plus présent. Par contre, il m'est toujours impossible de faire des rotations avec la fenêtre images (toujours les messages d'erreurs -2753 ou -1700 si je double clique sur un fichier listé).

Sinon pour la fenêtre qui s'ouvre lorsque ZarbiRename a fini son boulot, est-il possible de l'ouvrir avec la barre latérale et la barre d'outil au milieu de l'écran (actuellement elle est en haut à gauche et sans les barres) ?

Bon je vais m'occuper de la carte postale, sinon elle arrivera dans dix ans !
@+

EDIT :
J'ai trouvé un petit bug avec la création du fichier index.html. En effet, si je choisis un dossier contenant des photos et que je lances ZarbiRename ce dernier génére bien les fichiers index dans le dossier avec les photos ainsi que celui des thumbnail. Ce qui est bizarre c'est qu'il duplique le code source dans le premier. On a une page avec "No access authorized No access authorized"... Le cas ne se reproduit pas s'il s'agit d'un dossier contenant un sous-dossier contenant des photos.

Sinon je ne sais pas s'il est possible d'ajouter un bouton "annuler" une fois le processus lancé, afin d'éviter de devoir forcer à quitter si on se rend compte qu'on a fait une erreur ?

Ce message a été modifié par Pompon - 13 Dec 2006, 16:59.

[AlbertLevert]

Le bug du cadre si le dossier contient des vidéos n'est plus présent. Par contre, il m'est toujours impossible de faire des rotations avec la fenêtre images (toujours les messages d'erreurs -2753 ou -1700 si je double clique sur un fichier listé).

avec de la chance, ca va marcher cette fois

Sinon pour la fenêtre qui s'ouvre lorsque ZarbiRename a fini son boulot, est-il possible de l'ouvrir avec la barre latérale et la barre d'outil au milieu de l'écran (actuellement elle est en haut à gauche et sans les barres) ?

c'est fait ..., va voir dans les préférences.

Bon je vais m'occuper de la carte postale, sinon elle arrivera dans dix ans !

EDIT :
J'ai trouvé un petit bug avec la création du fichier index.html. En effet, si je choisis un dossier contenant des photos et que je lances ZarbiRename ce dernier génére bien les fichiers index dans le dossier avec les photos ainsi que celui des thumbnail. Ce qui est bizarre c'est qu'il duplique le code source dans le premier. On a une page avec "No access authorized No access authorized"... Le cas ne se reproduit pas s'il s'agit d'un dossier contenant un sous-dossier contenant des photos.

c'est corrigé ... (je crois, pas testé)

Sinon je ne sais pas s'il est possible d'ajouter un bouton "annuler" une fois le processus lancé, afin d'éviter de devoir forcer à quitter si on se rend compte qu'on a fait une erreur ?

Pas d'erreur ici ! ;-) , c'est fait aussi.

La toute nouvelle version a6, par ici ....

[Pompon]

Youpi encore une nouvelle version avec plein de corrections. J'adore ton bouton stop

Les fichiers index.html sont nickels !

Plus de problème pour faire des rotations (c'est dommage de ne pas pouvoir y accéder aussi par un menu). Je double-clique sur un élément et il se charge (sinon j'ai un message d'erreur). Par contre si je fais une rotation elle n'est pas automatiquement prise en compte pour sa vignette, c'est dommage.

J'ai vu que je pouvais également choisir une vignette pour une vidéo. J'ai essayé mais la vidéo du dossier thumbnail n'est pas remplacé par une image (ce n'est peut-être pas prévu de fonctionner comme ça).
Suite à cette découverte j'ai voulu essayer de ne pas copier les .mov dans le dossier thumbnail via les préférences.
ZarbiRename n'a pas aimé et je me retrouve avec la même erreur que pour les cadres dans la version 1.0a4 : "Impossible de transformer paragraph 2 of "/users/.../xxx.mov en type string -1700"

Je vais m'occuper du xml pour que tu puisses l'ajouter pour les prochaines versions si tu le souhaites.

Je chipote et j'en rajoute à chaque fois, mais cette version marche déjà très bien (il ne manque plus que l'histoire des sous-sous-dossiers ).
Merci,
@+

EDIT :
J'ai trouvé un fichier listing.xml à cette adresse Site démo de Ruben / le fichier listing.xml (il faut lire le code source de la page).
Je ne copie pas le code afin de ne pas surcharger le post.
Sinon si tu veux en savoir plus, il y a une page sur les sites distants sur le wiki de PhpWebGallery ici. Les liens que je t'avais donné dans un post précédent parlaient d'autres choses.

Ce message a été modifié par Pompon - 14 Dec 2006, 12:29.

[AlbertLevert]

Youpi encore une nouvelle version avec plein de corrections. J'adore ton bouton stop
Les fichiers index.html sont nickels !

Plus de problème pour faire des rotations (c'est dommage de ne pas pouvoir y accéder aussi par un menu). Je double-clique sur un élément et il se charge (sinon j'ai un message d'erreur). Par contre si je fais une rotation elle n'est pas automatiquement prise en compte pour sa vignette, c'est dommage.

As-tu coché la case vignette ? sinon, tu modifie que la version "Standard"

J'ai vu que je pouvais également choisir une vignette pour une vidéo. J'ai essayé mais la vidéo du dossier thumbnail n'est pas remplacé par une image (ce n'est peut-être pas prévu de fonctionner comme ça).

C'est bien cela, mais c'est juste pas encore fini ! (i faut que je revoie la logique ..., car ca affiche aussi les pdf ....)

Suite à cette découverte j'ai voulu essayer de ne pas copier les .mov dans le dossier thumbnail via les préférences.
ZarbiRename n'a pas aimé et je me retrouve avec la même erreur que pour les cadres dans la version 1.0a4 : "Impossible de transformer paragraph 2 of "/users/.../xxx.mov en type string -1700"

bientot...

Je vais m'occuper du xml pour que tu puisses l'ajouter pour les prochaines versions si tu le souhaites.

c'est simple a ajouter, même si j'en ai pas encore parfaitement compris l'utilisation ..

[Pompon]

Oups, je viens de faire un edit de mon post précédent afin de te montrer le contenu d'un fichier "listing.xml", mais je n'avais pas vu que tu m'avais répondu !

Pour les rotations qui ne sont pas appliquées sur les vignettes, j'avais mal regardé. Effectivement en cliquant sur modifier images & vignettes ça marche

En attendant la 1.0a7,
@+

[AlbertLevert]

En attendant la 1.0a7

Voila, voila ...



Nouvelle version a7, par ici ...

Nouveauté:
- fichier listing.xml (correct avec 1 niveau de sous dossier, uniquement, pas fini....)
- fichier gallerie.html

EDIT:
Bientot :
- watermark
- reéechantillonage (pour les images qui ne sont pas à 72 dpi ...)


Ce message a été modifié par AlbertLevert - 16 Dec 2006, 18:20.

[Pompon]

Que d'évolutions en perspective ! Il va falloir que je modifie de nouveau mes messages sur le forum de PhpWebgallery

J'ai testé la 1.0a7 pas de soucis pour le moment

To be continued...

EDIT :
Deux idées :
Je voulais savoir s'il était possible dans une prochaine version d'avoir les fenêtres supplémentaires intégrées à la fenêtre principale (un peu comme le tiroir de Toast) et pas flottantes comme c'est le cas actuellement ? Je ne sais pas ce que tu en penses et si c'est facilement réalisable.

Sinon une autre option utile serait de pouvoir laisser la taille d'origine des photos.

Voilà,
@+

Ce message a été modifié par Pompon - 17 Dec 2006, 19:57.

[AlbertLevert]

[i]Deux idées :
Je voulais savoir s'il était possible dans une prochaine version d'avoir les fenêtres supplémentaires intégrées à la fenêtre principale (un peu comme le tiroir de Toast) et pas flottantes comme c'est le cas actuellement ? Je ne sais pas ce que tu en penses et si c'est facilement réalisable.

certaine, pas toute, car je préfère pouvoir les redimmensionner .
Tu pense a quelle fenetres ? (pref, index, remplacer)

ou alors tu parle d'onglet ?

Sinon une autre option utile serait de pouvoir laisser la taille d'origine des photos.

ca, c'est facile, on pourrait meme ajouter un 2eme dossier , en plus de thumbnail, genre "originaux" ...

les watermark, ca marche !




Ce message a été modifié par AlbertLevert - 18 Dec 2006, 02:34.

Fichier(s) joint(s)

 Image_2.jpg ( 116.81 Ko ) Nombre de téléchargements : 59

 

[Pompon]

De mon côté, la seule fenêtre que je peux redimensionner est "Images", les autres ont une taille fixe. Sinon je pensais à un tiroir (les onglets s'en approchent beaucoup cela dit). Cela permettrait d'avoir accès à toutes les fonctions depuis la fenêtre principale en un clic.

Je trouve l'idée de pouvoir copier les originaux, en plus, intéressante. Figure toi qu'il y a une extension sur PhpWebGallery pour avoir les originaux (ça peut faire beaucoup de choses cette appli et je n'en connais pas la moitié !). Je crois que c'est intégré d'office sur les nouvelles versions. Le nom de dossier doit s'appeler "pwg_high" (plus d'infos ici : pwg_high download ou là : Préparation des photos avant synchronisation). Je n'en sais pas plus.
Il faudrait donc avoir le choix dans le nom du dossier comme pour "thumbnail", avec pour valeur par défaut "pwg_high".
Ne pas avoir de taille limite pour les images est une autre option qui pourrait être utile aussi.

Les watermarks c'est dans la 1.0a8 ?!
@+

[AlbertLevert]

De mon côté, la seule fenêtre que je peux redimensionner est "Images", les autres ont une taille fixe. Sinon je pensais à un tiroir (les onglets s'en approchent beaucoup cela dit). Cela permettrait d'avoir accès à toutes les fonctions depuis la fenêtre principale en un clic.

a suivre...

Je trouve l'idée de pouvoir copier les originaux, en plus, intéressante. Figure toi qu'il y a une extension sur PhpWebGallery pour avoir les originaux (ça peut faire beaucoup de choses cette appli et je n'en connais pas la moitié !). Je crois que c'est intégré d'office sur les nouvelles versions. Le nom de dossier doit s'appeler "pwg_high" (plus d'infos ici : pwg_high download ou là : Préparation des photos avant synchronisation). Je n'en sais pas plus.
Il faudrait donc avoir le choix dans le nom du dossier comme pour "thumbnail", avec pour valeur par défaut "pwg_high".

je vais aller voir cela.

Ne pas avoir de taille limite pour les images est une autre option qui pourrait être utile aussi.

Oui, en plus, c'est facile a ajouter. (a enlever plutot)

Les watermarks c'est dans la 1.0a8 ?!

hé oui, pas encore publiée car pas finie. Il faut que j'ajoute les watermark au traitement de base..., pour le moment, c'est seulement depuis la fenêtre "Image", Et en plus , il faut installer un truc en plus pour que ca puisse marché .... donc j'hésite a les mettres.

Ta carte est bien arrivée !!! ( un peu brumeux le paysage )


EDIT:

La toute nouvelle version a8, par ici ....

le bouton "prev20" permet une previsualisation d'un projet de future interface !



Ce message a été modifié par AlbertLevert - 19 Dec 2006, 02:05.

[Pompon]

Un nouveau cru, youpi !

Au début j'ai eu un peu peur avec tout plein de messages d'erreur causés par l'absence de l'application Imagine Photo. Je l'ai téléchargé et ça marche nickel. Je trouve que la restructuration de la fenêtre principale est plus lisible.
J'ai regardé également la prévisualisation de la future interface. C'est encore plus pratique, mais j'aurai tendance à vouloir conserver la fenêtre principale telle qu'elle est dans la version 1.0a8 (ne pas séparer sources, destinations et taille mais garder les autres onglets).

J'ai l'impression que la gestion des sous-sous-dossiers est presque gérée (il manque juste un index dans le sous-dossier).

Sinon je me demandais s'il était possible d'ajouter facilement une estimation de temps de travail restant ?

Et dernière folie (mais je ne sais pas si ça vaut le coup) la possibilité de faire une sauvegarde des Zarbicodes.
Je m'explique : ZarbiRename ne touche pas aux originaux (c'est le but), il crée un dossier avec les mêmes noms de fichiers en ajoutant le ZarbiCode. Le seul "hic" c'est qu'en cas de problème avec le site et malgré une sauvegarde de la base sql il faudrait TOUT refaire (sauf si on sauvegarde les dossiers crées par ZarbiRename, ce que je fais).
Avoir une option permettant de conserver ce paramètre dans un fichier texte pourrait être pratique, mais ce n'est vraiment pas une priorité et peut être pas très utile.

Pour le côté brumeux de la carte postale c'est fidèle à la réalité
@+

[AlbertLevert]

Au début j'ai eu un peu peur avec tout plein de messages d'erreur causés par l'absence de l'application Imagine Photo.Je l'ai téléchargé et ça marche nickel.

Argh ... j'ai tenté de l'intégrer ... cela ne marche donc pas ....

Je trouve que la restructuration de la fenêtre principale est plus lisible.

J'ai regardé également la prévisualisation de la future interface. C'est encore plus pratique, mais j'aurai tendance à vouloir conserver la fenêtre principale telle qu'elle est dans la version 1.0a8 (ne pas séparer sources, destinations et taille mais garder les autres onglets).

je vais voir, c'est juste un projet de toute facon, quelque copier coller ...

J'ai l'impression que la gestion des sous-sous-dossiers est presque gérée (il manque juste un index dans le sous-dossier).

Ah oui, dans le cas d'un dossier avec des sous dossier, sans fichiers.

Sinon je me demandais s'il était possible d'ajouter facilement une estimation de temps de travail restant ?

oui. mais c'est hyper lourd .... il faudrait calculer la taille, de tous les fichiers, et tenir compte aussi de la compression et du format, en plus des performance de la machine ....

Et dernière folie (mais je ne sais pas si ça vaut le coup) la possibilité de faire une sauvegarde des Zarbicodes.
Je m'explique : ZarbiRename ne touche pas aux originaux (c'est le but), il crée un dossier avec les mêmes noms de fichiers en ajoutant le ZarbiCode. Le seul "hic" c'est qu'en cas de problème avec le site et malgré une sauvegarde de la base sql il faudrait TOUT refaire (sauf si on sauvegarde les dossiers crées par ZarbiRename, ce que je fais).
Avoir une option permettant de conserver ce paramètre dans un fichier texte pourrait être pratique, mais ce n'est vraiment pas une priorité et peut être pas très utile.

Tu parle de la liste des images, en fait ?
oui, c'est facile a sauver.
Si c'est des code zarbi eux meme, ... pas si simple de les reliers a un fichier original, mais c'est possible aussi.

Pour le côté brumeux de la carte postale c'est fidèle à la réalité

[Pompon]

Effectivement le problème avec les sous-dossiers est présent si ces derniers ne contiennent pas de fichiers.

Pour le temps de calcul ce n'est pas vraiment utile. ZarbiRename travaille chez moi en fond et ne traite pas plus de 300 photos à la fois (pour le moment). Je vois juste le nombre total de photos à traiter et j'attends que le nounours sautille pour venir le revoir

Je parlais bien des ZarbiCode à sauvegarder en faisant le lien avec le nom des fichiers originaux. Après c'était juste une idée et je pense que rien ne remplace une bonne sauvegarde. Donc pas vraiment nécessaire !

En attendant les prochaines révisions,
@+

[AlbertLevert]

Effectivement le problème avec les sous-dossiers est présent si ces derniers ne contiennent pas de fichiers.

C'est corrigé !

En attendant les prochaines révisions

En voila une toute fraiche, la dernière de l'année !

Avec plein de nouveauté :
- nouvelle interface
- ajout données EXIF
- vignette ou capture vidéo
- transfert FTP d'un dossier
- plus de type de documents
- creation de gallerie en format html
- editeur de gallerie
- fichier "create_listing_file.php"
- dossier haute def
- tous les noms de fichiers personalisable

etc ... y'en a trop ( de nouveauté )....


C'est toujours par ici , la nouvelle version 1.0a9


PS: pas sur que cela reste "PostcardWare", ... je pense a un shareware a 10 - 15$ environs, vu le travail ...

[Pompon]

Salut AlbertLevert,

Merci pour ton travail. Je vais tester cette nouvelle mouture et je te tiens au courant ! Je mettrais également à jour le post sur le forum de PhpWebGallery.

A toi de voir pour la rémunération, tu es mieux placé que moi pour savoir le travail que tu as du réaliser. Cela dit, ça tombe bien j'allais me créer un compte paypal pour "payer" quelques logiciels open-source gratuits dont je me sers régulièrement.

@+
et bonne année !

EDIT :
ZarbiRename en version a9 refuse de bosser et me met un message d'erreur AppleScript "Impossible d'obtenir every text item of missing value -1728"
J'ai essayé en remettant les valeurs par défaut et avec différents dossiers, en vain. ZarbiRename crée bien un dossier ainsi que la première image et sa vignette et c'est tout.

Ce message a été modifié par Pompon - 3 Jan 2007, 00:35.

[AlbertLevert]

Salut,
surement du au nombres.

si tu as le temps, fait un test en modifiant tes préférence de nombres, dans les Prefs. système, passe provisoirement en format suisse, cela remplace les virgule par des points.
et Relance le tout.

Tu peux aussi tenter de virer le fichier de prefs. "ch.puissancemac.ZarbiRename_v109.plist"

La a10 n'est pas publiable, trop de truc en chantier.... mais d'ici ce week-end.

Pour info, avec la version a10, il est possible de faire une gallerie a partir d'un album iPhoto.



EDIT:
La nouvelle version 1.0a10 ! (très provisoire...)

Nouveauté:
- editeur de gallerie revu
- prev des galleries intégrée
- import d'album iPhoto
etc...




Ce message a été modifié par AlbertLevert - 3 Jan 2007, 14:52.

[Pompon]

Je n'ai pas pu télécharger la version a10, elle n'est plus disponible

Je vais essayer de faire marcher la version a9 en suivant tes conseils.

@+

[AlbertLevert]

Je n'ai pas pu télécharger la version a10, elle n'est plus disponible

Url corrigée ...


La version 1.0a10 ! (très provisoire...)




Ce message a été modifié par AlbertLevert - 6 Jan 2007, 23:40.

[Pompon]

Merci, j'ai pu tester la version 1.0a10. Tout remarche.

Par contre à chaque lancement de ZarbiRename le finder ouvre la fenêtre du dossier documents. J'ai regardé dans les préférences de l'appli en vain.

Sinon j'ai essayé de traiter un dossier contenant 120 photos (pour un poids de 200Mo à la base).
J'obtiens un message d'erreur "Mémoire saturée -108" au bout de la photo 76. Etrange, même si j'ai quelques applications d'ouvertes cela ne devrait pas gêner avec les 2 Go de ram ?!
J'ai l'impression que le phénomène ne se produit que lorsque l'appli est en arrière-plan car j'ai refait un test en restant sur ZarbiRename et ça a marché.

Je regarde le reste des nouveautés et je te tiens au courant,
@+

[AlbertLevert]

à chaque lancement de ZarbiRename le finder ouvre la fenêtre du dossier documents. J'ai regardé dans les préférences de l'appli en vain.

Déja corrigé (ca m' énervais aussi ....)

Sinon j'ai essayé de traiter un dossier contenant 120 photos (pour un poids de 200Mo à la base).
J'obtiens un message d'erreur "Mémoire saturée -108" au bout de la photo 76. Etrange, même si j'ai quelques applications d'ouvertes cela ne devrait pas gêner avec les 2 Go de ram ?!
J'ai l'impression que le phénomène ne se produit que lorsque l'appli est en arrière-plan car j'ai refait un test en restant sur ZarbiRename et ça a marché.

Zarbi .... j'ai testé avec plus de 300 fichiers ,mais pas aussi lourd.
a suivre ...

[Pompon]

Un petit retour d'utilisation et quelques idées d'évolution...

La fonction ftp est vraiment pratique (je vais finir par abandonner cyberduck et renamer4mac à ce rythme-là ).
Le seul hic c'est que mon hébergeur pour ma page perso est un peu fainéant et décroche souvent... Mais je trouve que l'interface est vraiment intuitive et sobre !

Après s'il y a quelque chose à améliorer ce serait de dire à Zarbirename de reprendre automatiquement le nom du dossier de base.
Je m'explique : si je choisis un dossier source intitulé "chats", le nom du dossier de destination par défaut a de forte chance de s'appeler pareil. Peut-on ajouter cette fonctionnalité facilement ?
Idem pour le transfert ftp. Peut-on sélectionner par défaut de transférer le dernier dossier converti ?

Est-il possible de désactiver la fenêtre de dialogue de fin de traitement ? Vu que l'icône de ZarbiRename sautille dans le dock, cela me permettrait de savoir que le travail est terminé sans avoir besoin de revenir cliquer sur le bouton Ok. Pourquoi pas une fonction comme certains logiciels qui permet de quitter automatiquement l'application à la fin du traitement s'il n'y a pas eu de problème.

Et pour finir est-il possible de faire en sorte qu'un dossier qu'on dépose sur l'icône de ZarbiRename soit choisi comme dossier source ?

Voilà à toi de me dire ce qui est possible ou pas de faire. En tout cas je me sers avec joie de cette application, même si je le répéte je n'utilise pas -encore- toutes les fonctions.

Merci,
@+ pour la 1.0a11

[AlbertLevert]

Un petit retour d'utilisation et quelques idées d'évolution...
La fonction ftp est vraiment pratique (je vais finir par abandonner cyberduck et renamer4mac à ce rythme-là ).

C'est le but !

Après s'il y a quelque chose à améliorer ce serait de dire à Zarbirename de reprendre automatiquement le nom du dossier de base.
Je m'explique : si je choisis un dossier source intitulé "chats", le nom du dossier de destination par défaut a de forte chance de s'appeler pareil. Peut-on ajouter cette fonctionnalité facilement ?
Idem pour le transfert ftp. Peut-on sélectionner par défaut de transférer le dernier dossier converti ?

bien sur, facile a ajouter en plus.

Est-il possible de désactiver la fenêtre de dialogue de fin de traitement ? Vu que l'icône de ZarbiRename sautille dans le dock, cela me permettrait de savoir que le travail est terminé sans avoir besoin de revenir cliquer sur le bouton Ok. Pourquoi pas une fonction comme certains logiciels qui permet de quitter automatiquement l'application à la fin du traitement s'il n'y a pas eu de problème.

Quitter, tu est bien sur ?

Et pour finir est-il possible de faire en sorte qu'un dossier qu'on dépose sur l'icône de ZarbiRename soit choisi comme dossier source ?

encore jamais tenté de faire cela, le drop, par contre, pas de prob. je vais voir...

même si je le répéte je n'utilise pas -encore- toutes les fonctions.

et moi qui bosse sur les galeries ...
pour ceux qui n'utilise pas phpwebgallery, évidemment.

Fichier(s) joint(s)

 Image_1.jpg ( 105.93 Ko ) Nombre de téléchargements : 49

 

[Pompon]

Salut AlbertLevert,

J'ai vu que tu avais modifié l'adresse de la page pour télécharger ZarbiRename. Je suis allé sur celle où tu listes tes logiciels où l'application est bien référencée, mais non téléchargeable. Ca sent la disponibilité d'une nouvelle version

J'ai eu de nouveau un problème de mémoire saturée. Pourtant je ne travaillais pas sur un gros dossier. C'est très aléatoire et je n'ai jamais beaucoup d'applications ouvertes en même temps. Etrange !

Pour la fonction "Quitter" à toi de voir si c'est vraiment utile. Pour ma part je fais rarement plusieurs conversions à la suite et comme je ne me sers pas de ta fonction Ftp, je n'ai plus besoin de ZarbiRename après le traitement. L'idéal serait de quitter l'appli s'il n'y a pas eu de problème et ouvrir automatiquement un logiciel ftp (au choix) avec le nouveau dossier présélectionné. Je ne sais pas si c'est facile à faire et utile vu que tu as déjà incorporé un service ftp à ZarbiRename (qu'il faudrait pouvoir automatiser).

Au niveau de l'ergonomie j'ajouterai également la possibilité de lancer le travail "Convertir ce dossier" depuis n'importe quel onglet. Je suis assez fainéant

Sinon j'ai mis à jour le wiki sur le site de PhpWebGallery pour la version de ZarbiRename 1.0a10.

@+

EDIT :
Ca y est la version démonstration a expiré mais j'ai ce message "DictaMac error, this version has expired..."
Ce qui est drôle c'est que si je fais ok j'ai une erreur bien connue "La variable LongueurZarbi n'est pas définie (-2753) !


Ce message a été modifié par Pompon - 2 Feb 2007, 22:56.

[Pompon]

Salut AlbertLevert,

J'ai vu que tu avais remis à jour la page pour télécharger ZarbiRename, je met donc le nouveau lien pour ceux qui voudraient profiter de la dernière version :

-> ZarbiRename en version 1.0a12 expirant le a 30 avril 2007

Merci,
@+

[ArtiShow]

Bonjour,

cet utilitaire à l'air de faire exactement ce que je recherche (préparer des photos pour PWG), mais le lien cité conduit à une version qui a expiré.
existe t-il une version qui marche ?
merci d'avance.