Pages

2 juin 2008

Upper case (4/8)

script myupperCase -- Mettre en majuscules
property string1 : "æœäåçéñöüàãõÿâêáëèíîïìóôòúûùabcdefghijklmnopqrstuvwxyz"
property string2 : "ÆŒÄÅÇÉÑÖÜÀÃÕŸÂÊÁËÈÍÎÏÌÓÔÒÚÛÙABCDEFGHIJKLMNOPQRSTUVWXYZ"
on myProcess(theText)
set theText to theText as text
nFindReplace(theText, my string1, my string2)
end myProcess
end script

>>Ouvrir le script dans l'éditeur

Aucun commentaire: