IPB

Bienvenue invité ( Connexion | Inscription )

3 Pages V  < 1 2 3 >  
Reply to this topicStart new topic
> [Résolu] Insérer lettres et nombres aléatoires dans des noms de fichier, avec AppleScript
Options
Pompon
posté 1 Sep 2006, 22:50
Message #31


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



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 sad.gif

Je vous tiens au courant !
@+
Go to the top of the page
 
+Quote Post
Pompon
posté 2 Sep 2006, 09:45
Message #32


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



Merci JackJr300 ta modif fonctionne à merveille smile.gif

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

@+
Go to the top of the page
 
+Quote Post
Pompon
posté 3 Dec 2006, 17:25
Message #33


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



Toc toc toc me revoilà smile.gif

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 !
@+
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 4 Dec 2006, 00:54
Message #34


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



CITATION(Pompon @ 3 Dec 2006, 17:25) [snapback]2005461[/snapback]
- 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.

CITATION(Pompon @ 3 Dec 2006, 17:25) [snapback]2005461[/snapback]
- 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

CITATION(Pompon @ 3 Dec 2006, 17:25) [snapback]2005461[/snapback]
- 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 ?

ph34r.gif


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 4 Dec 2006, 01:09
Message #35


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



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


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



--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 4 Dec 2006, 12:58
Message #36


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



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 smile.gif

- 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 smile.gif
Merci Père noël !
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 4 Dec 2006, 16:29
Message #37


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



CITATION(Pompon @ 4 Dec 2006, 12:58) [snapback]2006375[/snapback]
- 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 :

CITATION(Pompon @ 4 Dec 2006, 12:58) [snapback]2006375[/snapback]
- La prise en compte des sous-dossiers serait vraiment tip-top smile.gif

bientot ....

CITATION(Pompon @ 4 Dec 2006, 12:58) [snapback]2006375[/snapback]
- 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.


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 4 Dec 2006, 19:10
Message #38


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



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. thumb.gif

@+
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 4 Dec 2006, 19:25
Message #39


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



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 wink.gif
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.


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 5 Dec 2006, 00:14
Message #40


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



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 blink.gif

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,
@+
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 6 Dec 2006, 02:09
Message #41


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



CITATION(Pompon @ 5 Dec 2006, 00:14) [snapback]2007320[/snapback]

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 blink.gif

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

CITATION(Pompon @ 5 Dec 2006, 00:14) [snapback]2007320[/snapback]
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" ... blink.gif

CITATION(Pompon @ 5 Dec 2006, 00:14) [snapback]2007320[/snapback]
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 biggrin.gif (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


wink.gif

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


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 8 Dec 2006, 17:32
Message #42


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



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 ! smile.gif

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. thumb.gif


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.
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 11 Dec 2006, 01:38
Message #43


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



CITATION(Pompon @ 8 Dec 2006, 17:32) [snapback]2013001[/snapback]
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.

CITATION(Pompon @ 8 Dec 2006, 17:32) [snapback]2013001[/snapback]
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 ! biggrin.gif

CITATION(Pompon @ 8 Dec 2006, 17:32) [snapback]2013001[/snapback]
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 .

CITATION(Pompon @ 8 Dec 2006, 17:32) [snapback]2013001[/snapback]
ps : te sers-tu également de PhpWebgallery pour mettre tes photos en ligne ?
Nom, je l'ai juste installé pour voir.

CITATION(Pompon @ 8 Dec 2006, 17:32) [snapback]2013001[/snapback]
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

CITATION(Pompon @ 8 Dec 2006, 17:32) [snapback]2013001[/snapback]
[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 !



blink.gif

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)
Fichier joint  Zarbi_a3.jpg ( 32.74 Ko ) Nombre de téléchargements : 90
 


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 12 Dec 2006, 00:48
Message #44


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



Merci AlbertLevert,

Toujours aussi efficace et aussi noctambule wink.gif

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 smile.gif
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.
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 12 Dec 2006, 06:14
Message #45


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



CITATION(Pompon @ 12 Dec 2006, 00:48) [snapback]2017394[/snapback]
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.

CITATION(Pompon @ 12 Dec 2006, 00:48) [snapback]2017394[/snapback]
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é

CITATION(Pompon @ 12 Dec 2006, 00:48) [snapback]2017394[/snapback]
J'ai voulu changer le nom du préfixe par TN1- mais ZarbiRename a juste mis TN-.
C'est corrigé

CITATION(Pompon @ 12 Dec 2006, 00:48) [snapback]2017394[/snapback]
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é



CITATION(Pompon @ 12 Dec 2006, 00:48) [snapback]2017394[/snapback]
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 ...

blink.gif

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


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 12 Dec 2006, 09:39
Message #46


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



Salut,

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

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 wink.gif
@+

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.
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 12 Dec 2006, 16:55
Message #47


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



CITATION(Pompon @ 12 Dec 2006, 09:39) [snapback]2017603[/snapback]
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...

CITATION(Pompon @ 12 Dec 2006, 09:39) [snapback]2017603[/snapback]
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.

CITATION(Pompon @ 12 Dec 2006, 09:39) [snapback]2017603[/snapback]
Tes fonctions de rotation ne suppriment pas les données exif +/- 90° ?
Normalement pas

CITATION(Pompon @ 12 Dec 2006, 09:39) [snapback]2017603[/snapback]
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...

CITATION(Pompon @ 12 Dec 2006, 09:39) [snapback]2017603[/snapback]
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.
unsure.gif

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


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 13 Dec 2006, 12:36
Message #48


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



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. blink.gif

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.
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 14 Dec 2006, 04:38
Message #49


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



CITATION(Pompon @ 13 Dec 2006, 12:36) [snapback]2019201[/snapback]
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 dry.gif

CITATION(Pompon @ 13 Dec 2006, 12:36) [snapback]2019201[/snapback]
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.

CITATION(Pompon @ 13 Dec 2006, 12:36) [snapback]2019201[/snapback]
Bon je vais m'occuper de la carte postale, sinon elle arrivera dans dix ans !
smile.gif

CITATION(Pompon @ 13 Dec 2006, 12:36) [snapback]2019201[/snapback]
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. blink.gif
c'est corrigé ... (je crois, pas testé)

CITATION(Pompon @ 13 Dec 2006, 12:36) [snapback]2019201[/snapback]
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 ....

biggrin.gif


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 14 Dec 2006, 11:36
Message #50


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



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

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" sad.gif

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 wink.gif ).
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.
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 14 Dec 2006, 12:19
Message #51


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



CITATION(Pompon @ 14 Dec 2006, 11:36) [snapback]2020550[/snapback]

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

CITATION(Pompon @ 14 Dec 2006, 11:36) [snapback]2020550[/snapback]
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"

CITATION(Pompon @ 14 Dec 2006, 11:36) [snapback]2020550[/snapback]
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 ....)

CITATION(Pompon @ 14 Dec 2006, 11:36) [snapback]2020550[/snapback]
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" sad.gif
bientot...

CITATION(Pompon @ 14 Dec 2006, 11:36) [snapback]2020550[/snapback]
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 ..
ph34r.gif ph34r.gif


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 14 Dec 2006, 12:38
Message #52


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



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 ph34r.gif

En attendant la 1.0a7,
@+
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 15 Dec 2006, 12:48
Message #53


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



CITATION(Pompon @ 14 Dec 2006, 12:38) [snapback]2020633[/snapback]
En attendant la 1.0a7


Voila, voila ... biggrin.gif



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 ...)
blink.gif

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


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 17 Dec 2006, 01:30
Message #54


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



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

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

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.
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 18 Dec 2006, 02:34
Message #55


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



CITATION(Pompon @ 17 Dec 2006, 01:30) [snapback]2024297[/snapback]
[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 ?


CITATION(Pompon @ 17 Dec 2006, 01:30) [snapback]2024297[/snapback]
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 !
biggrin.gif



Ce message a été modifié par AlbertLevert - 18 Dec 2006, 02:34.
Fichier(s) joint(s)
Fichier joint  Image_2.jpg ( 116.81 Ko ) Nombre de téléchargements : 59
 


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 18 Dec 2006, 19:54
Message #56


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



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 ?! smile.gif
@+
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 18 Dec 2006, 21:59
Message #57


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



CITATION(Pompon @ 18 Dec 2006, 19:54) [snapback]2026673[/snapback]

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

CITATION(Pompon @ 18 Dec 2006, 19:54) [snapback]2026673[/snapback]
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.

CITATION(Pompon @ 18 Dec 2006, 19:54) [snapback]2026673[/snapback]
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)

CITATION(Pompon @ 18 Dec 2006, 19:54) [snapback]2026673[/snapback]
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 ) wink.gif


EDIT:

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

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

blink.gif

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


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 19 Dec 2006, 12:45
Message #58


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



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é biggrin.gif
@+
Go to the top of the page
 
+Quote Post
AlbertLevert
posté 19 Dec 2006, 16:24
Message #59


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 295
Inscrit : 10 Dec 2003
Membre no 12 371



CITATION(Pompon @ 19 Dec 2006, 12:45) [snapback]2027393[/snapback]
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 .... dry.gif


CITATION(Pompon @ 19 Dec 2006, 12:45) [snapback]2027393[/snapback]
Je trouve que la restructuration de la fenêtre principale est plus lisible.
biggrin.gif

CITATION(Pompon @ 19 Dec 2006, 12:45) [snapback]2027393[/snapback]
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 ...

CITATION(Pompon @ 19 Dec 2006, 12:45) [snapback]2027393[/snapback]
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.

CITATION(Pompon @ 19 Dec 2006, 12:45) [snapback]2027393[/snapback]
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 ....

CITATION(Pompon @ 19 Dec 2006, 12:45) [snapback]2027393[/snapback]
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.



CITATION(Pompon @ 19 Dec 2006, 12:45) [snapback]2027393[/snapback]
Pour le côté brumeux de la carte postale c'est fidèle à la réalité biggrin.gif
sad.gif


--------------------
G4 2x1250, 1024, SoundStick, iSight, 22" LaCie, 20" Sony
Go to the top of the page
 
+Quote Post
Pompon
posté 20 Dec 2006, 01:20
Message #60


Macbidouilleur de bronze !
**

Groupe : Membres
Messages : 294
Inscrit : 25 Dec 2002
Lieu : Paris
Membre no 5 299



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 smile.gif

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,
@+
Go to the top of the page
 
+Quote Post

3 Pages V  < 1 2 3 >
Reply to this topicStart new topic
1 utilisateur(s) sur ce sujet (1 invité(s) et 0 utilisateur(s) anonyme(s))
0 membre(s) :

 



Nous sommes le : 14th November 2025 - 06:24