Bien, va pour "*"
Pour mettre en place:
Aller dans
réglages systèmes… —> Clavier —> Remplacement de texte.
Dans la fenêtre sélectionner toutes les valeurs à modifier. Pour cela :
Touche option + majuscule + clic souris +sur la 1ere valeur à modifier puis clic souris sur la dernière valeurs modifier (toutes les valeurs entre les 2 se sélectionnent), relâcher les touches puis le clic souris…
La touche commande permet de rajouter des valeurs qui ne sont pas à la suite les unes des autres…
Lorsque toutes les valeurs à modifier sont sélectionnées, se positionner sur la sélection et faire un clic droit, un mini menu apparaît (Importer…, Exporter…) choisir Exporter… et choisir un chemin ou enregistrer le fichier qui s’appellera « Substitutions de texte.plist». (Moi je l’ai mis sur le bureau)
Exécuter le script ci-dessous, il te demande de sélectionner le fichier exporté .
Le fichier est modifié avec les nouvelles valeurs
Faire un glisser déposer du fichier modifié sur la fenêtre de Remplacement de texte, ce qui met toutes les valeurs corrigées (sans les lignes vides), mais ne touche pas aux codes existant.
Les nouveaux codes devraient être en place....
EDIT: Si tu veux tu peux tester en ne sélectionnant que 2 ou 3 clients. Par contre après il faudra soit les effacer, soit ne pas les resélectionner pouir ne pas les traiter 2 fois !
[CODE]tell application "Finder"
set Monfichier to choose file with prompt "Choisissez le fichier Substitutions de texte.plist de l'export"
end tell
open for access Monfichier
set vartoto to read Monfichier -- lit le fichier et le met dans la variable vartoto
close access Monfichier -- ferme le fichier
set vartoto2 to ""
set traite to ""
tell application "Finder"
set nb to count paragraph of vartoto
repeat with i from 1 to nb
set letext to paragraph i of vartoto
if letext = " <key>shortcut</key>" then
set letextM to (paragraph (i + 1)) of vartoto
set newtext to (text 1 thru 10 of letextM) & "*" & text 11 thru -1 of letextM
set traite to letextM
set vartoto2 to vartoto2 & letext & return
set vartoto2 to vartoto2 & newtext & return
else
if letext is not traite and letext is not "" then
set vartoto2 to vartoto2 & letext & return
end if
end if
end repeat
set lefichier to open for access Monfichier with write permission
set eof lefichier to 0
write vartoto2 & return to lefichier starting at eof
close access lefichier
end tell
tell application "Finder"
activate
(display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"})
end tell[/CODE]
