Logique, je n'ai pas utilisé nomcourt mais nom_court.
Yvan KOENIG (VALLAURIS, France) jeudi 6 mai 2021 19:58:59
> Le 6 mai 2021 à 18:31, Madert Pascal via Applescript_fr <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