set _string to "É UM MAÇO ; Œ Ä Â Ü Û"
set sioLwr to lowercase _string
--> "é um maço ; œ ä â ü û"
set sioUppr to uppercase sioLwr
--> "É UM MAÇO ; Œ Ä Â Ü Û"
set string2 to "Now is the time for all good men to come to the aid of their country."
--> "é uM mAÇO ; œ ä â ü û"
--> "Now Is The Time For All Good Men To Come To The Aid Of Their Country."
# Perl Handlers
set perlLwr to lower_Case(_string)
--> "é um maço ; œ ä â ü û"
set perlUppr to upper_Case(perlLwr)
--> "É UM MAÇO ; Œ Ä Â Ü Û"
-------------------------------------------------------------------------------------------
--» HANDLERS
-------------------------------------------------------------------------------------------
on lower_Case(_string)
do shell script "perl -we 'use utf8; binmode STDOUT, \":utf8\"; print lc \"" & _string & "\"'"
end lower_Case
on upper_Case(_string)
do shell script "perl -we 'use utf8; binmode STDOUT, \":utf8\"; print uc \"" & _string & "\"'"
end upper_Case
-------------------------------------------------------------------------------------------
on cng(findText, changeText, srcData)
change findText into changeText in srcData with regexp without case sensitive
end cng
-------------------------------------------------------------------------------------------