Bonsoir
set x to ((path to system folder) & "Library:") as stringset x to ((path to "cusr") & "Library:") as stringc'est tous finders
Bonjour
tell application "Finder" to set theFile to selection
set thePath to quoted form of POSIX path of (theFile as string)
set chemin to ""
set text item delimiters to "/"
repeat with i from 1 to (count text item of thePath)
set nom to text item i of thePath
if nom is "Users" then
set nom to "Utilisateur"
else if nom is "Library" then
set nom to "Bibliothèque"
-- Nom du dossier icône maison
else if nom is (system attribute "USER") then
set nom to "Maison"
end if
if i > 1 and nom is "'" then
set chemin to chemin & nom
else
set chemin to chemin & nom & "/"
end if
end repeat
set text item delimiters to ""
display dialog chemin
on run
set folderNames to {"Users", "Library", "Desktop", "Downloads", "Movies", "Music", "Pictures"}
set folderNamesOk to {"Utilisateurs", "Bibliothèque", "Bureau", "Téléchargements", "Séquences", "Musique", "Images"}
tell application "Finder" to set theFile to selection
set thePath to POSIX path of (theFile as string)
repeat with i from 1 to count of items in folderNames
set theName to item i of folderNames
if theName is in thePath then
set thePath to find_replace(thePath, theName, (item i of folderNamesOk))
end if
end repeat
set the clipboard to thePath
end run
on find_replace(the_string, old_char, new_char)
set AppleScript's text item delimiters to old_char
set the_list to text items of the_string
set AppleScript's text item delimiters to new_char
set the_string to the_list as text
set AppleScript's text item delimiters to ""
return the_string
end find_replacec'était un code d'explication, pour te donner une idée pour ton code.
BonjourSalut,
Je t'ai fait un script qui devrait te convenir, il suffit de rajouter les dossiers à traduire à la même position dans chacune des listes. Par exemple si tu veux modifier le nom de ta session, si tu met le nom (pascal peut-être) en 8ème position dans la liste des noms anglais, tu devras mettre la traduction (nomSession) en 8ème position également dans la liste folderNamesOk
Bloc de code:on run set folderNames to {"Users", "Library", "Desktop", "Downloads", "Movies", "Music", "Pictures"} set folderNamesOk to {"Utilisateurs", "Bibliothèque", "Bureau", "Téléchargements", "Séquences", "Musique", "Images"} tell application "Finder" to set theFile to selection set thePath to POSIX path of (theFile as string) repeat with i from 1 to count of items in folderNames set theName to item i of folderNames if theName is in thePath then set thePath to find_replace(thePath, theName, (item i of folderNamesOk)) end if end repeat set the clipboard to thePath end run on find_replace(the_string, old_char, new_char) set AppleScript's text item delimiters to old_char set the_list to text items of the_string set AppleScript's text item delimiters to new_char set the_string to the_list as text set AppleScript's text item delimiters to "" return the_string end find_replace
Edit : je pense à un détail qui peut malgré tout avoir une certaine importance, dans le cas où ton chemin comporterait plusieurs occurrences du mot recherché, par exemple un dossier intitulé Adobe users, users serait également remplacé par utilisateurs, or ce n'est pas le but recherché. Pour remédier à ce défaut, il suffit d'encadrer chaque éléments des listes par des slash ("/Library/" au lieu de "Library"). Veiller à modifier aussi la liste de traductions sans quoi le chemin ne comporterait plus tous les slashes
Je suis un passionné de code et non de texte, donc j'ai commencé par tester le code.Je lui indique la manière de procéder en début de post, ne connaissant pas le nom de sa session je ne pouvais le rajouter à la liste
