Inverser noms de fichiers en applescript + critères, Inverser deux noms de fichiers s'ils ont une racine commune

[Speed Moock]

Bonjour,
J'ai beau avoir bénéficié d'une formation applescript il y a un an, j'ai du mal à m'y remettre et je sollicite votre aide sur ce sujet a priori simple :

Je veux écrire un script qui scannera le contenu d'un dossier contenant des images et qui en inversera les noms quand une condition est remplie.
Les images sont toutes nommées selon la structure suivante :
T_12345_codecoul_RG_1_78999.jpg

La racine "T_12345_codecoul_RG_" peut-être commune à plusieurs images du dossier.
L'unicité du nom vient du reste de la chaine de caractère.
RG_ me donne le numéro de l'image.
par exemple RG_1 pour l'image n°1 d'un produit, RG_2 l'image n°2 etc..

ce que doit faire le script :
quand il trouve une image n°2 et n°3 qui ont la même racine, il doit en permuter les noms intégralement.
Naturellement le script ne parcours qu'une fois le dossier !

Exemple :
Avant passage du script
image A : T_12345_codecoul_RG_2_78999.jpg
image B : T_12345_codecoul_RG_3_12121.jpg
Après passage du script :
image A : T_12345_codecoul_RG_3_12121.jpg
image B : T_12345_codecoul_RG_2_78999.jpg

Pouvez-vous m'aider ?

merci beaucoup !

[Zeltron54]

Bonjour,

Pour éviter le plantage si pas de RG2 il suffit de vérifier s'il existe.
On obtient le code:

Code

set monDossier to choose folder "sélectionner le dossier à traiter"
set TDossier to monDossier as string

tell application "Finder"
    set ListeRG3 to name of every item of folder monDossier whose name contains "RG_3"
    set AppleScript's text item delimiters to "RG_"
    repeat with NomRG3 in ListeRG3 -- boucle traiter tout les RG_3
        set Prefixe to text item 1 of NomRG3 -- X_12345678_123_
        set SuffixeRG3 to text item 2 of NomRG3 -- 3_12345.jpg
        set SuffixeRG3 to text 2 thru -1 of SuffixeRG3 -- supprime le "3" devant
        set RG2 to Prefixe & "RG_2" -- même début de nom que le RG_3, mais avec RG2
        
        
        if exists (every file of monDossier whose name contains RG2) then -- verifie si un fichier avec prefixe & RG_2 existe
            
            set nomRG2 to (name of every item of folder monDossier whose name contains RG2)
            set name of ((TDossier & NomRG3) as alias) to "NomTemp" -- met RG3 avec nom temporaire
            set name of ((TDossier & nomRG2) as alias) to NomRG3 -- met RG2 avec l'indice RG_3 et le suffixe RG3
            set name of ((TDossier & "NomTemp") as alias) to nomRG2 -- met RG3 avec RG_2 et suffxe 2
            
        end if
        
    end repeat
end tell