Bonjour,
nom_court est dans le script corrigé, nomcourt est maintenant dans la
partie mise en commentaires.
Cdt
PJ
-----------------------------------
ATTENTION : Ce message est protégé par les règles relatives au secret
des correspondances. Il peut en outre contenir des informations à
caractère confidentiel ou protégées par différentes règles et notamment
le secret des affaires. Il est établi à destination exclusive de son
destinataire. Toute divulgation, utilisation, diffusion ou reproduction
(totale ou partielle) de ce message, ou des informations qu'il contient,
doit être préalablement autorisée. L'émetteur décline toute
responsabilité au titre de ce message s'il a été modifié ou falsifié. Si
vous n'êtes pas destinataire de ce message, merci de le détruire
immédiatement et d'avertir l'expéditeur de l'erreur de distribution et
de la destruction du message. Toutes divulgations relèvera de la
commission Informatique et Liberté ainsi que des articles 226-15 et
432-9 du code pénal.
Le 06/05/2021 à 18:31, Madert Pascal via Applescript_fr a écrit :
> Merci Yvan,
>
> Applescript me renvoie
> La variable nomcourt n’est pas définie. (-2753)
>
> La partie désormais inutile qui n'avait aucune raison d'exister, je l'ai mise en oeuvre avec les "petits scripts" du sites que proposait Jacques et d'autres recherches.
> Et ça fonctionne, même si c'est moins élégant que votre proposition.
>
> Pascal
>
>
>> Le 06 mai 2021 à 17:36, Yvan KOENIG via Applescript_fr <applescript_fr@???> a écrit :
>>
>> --on open fileName -- vérification de la nature du paramètre
>> set fileName to "SSD 1000:Users:**********:Desktop:koenig.pdf" as alias
>> if class of fileName is list then set fileName to first item of fileName
>> set filePath to fileName as text -- retourne le chemin d'accès Hfs
>> tell application "Finder"
>> set theFileName to name of fileName --> "koenig.pdf"
>> set theFilePath to fileName as string --> "SSD 1000:Users:**********:Desktop:koenig.pdf"
>> --set extens to fileName -- recupere l'extension du fichier
>> set lextension to name extension of fileName --> "pdf"
>> set nom_court to text 1 thru ((length of theFileName) - (1 + (length of lextension))) of theFileName --> "koenig"
>> set folderPath to folder of fileName as alias --> alias "SSD 1000:Users:**********:Desktop:"
>> set folderName to name of folderPath --> "Desktop"
>> end tell -- "Finder"
>> (*
>> -- Ces instructions désormais inutiles n'avaient AUCUNE raison de figurer dans un bloc tell "Finder"
>> set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
>> set AppleScript's text item delimiters to {"."} --récupère la partie avant le dernier "."
>> set elements to text items of theFileName
>> set nomcourt to (items 1 thru -2 of elements) as string
>> -- set ancien_nom to nomcourt -- nom sans extension
>> set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
>> *)
>> --end open
>>
>> Yvan KOENIG (VALLAURIS, France) jeudi 6 mai 2021 17:35:55
>> _______________________________________________
>> Applescript_fr mailing list
>> Applescript_fr@???
>> http://listes.patpro.net/mailman/listinfo/applescript_fr
> _______________________________________________
> Applescript_fr mailing list
> Applescript_fr@???
> http://listes.patpro.net/mailman/listinfo/applescript_fr
_______________________________________________
Applescript_fr mailing list
Applescript_fr@???
http://listes.patpro.net/mailman/listinfo/applescript_fr
