🚀 go-pugleaf

Here's a couple of subroutines I use to do the job. Actually, I don't have a to lowercase version, but the makeUpperCase subroutine should give you the idea. 

on makeTitleCase(this_text) 

 set oldDelims to AppleScript's text item delimiters 
�set AppleScript's text item delimiters to {""} 
�set the_upper_string to "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
�set the_lower_string to "abcdefghijklmnopqrstuvwxyz" 

 set theInitCap to character 1 of this_text 
�set x to offset of theInitCap in the_lower_string 
�if x is not 0 then 
��set theInitCap to character x of the_upper_string 
�end if 

 set this_text to characters 2 through -1 of this_text as string 

 set the_new_text to "" 
�repeat with thisChar in this_text 
��set x to offset of thisChar in the_upper_string 
��if x is not 0 then 
���set the_new_text to (the_new_text & character x of the_lower_string) as string 
��else 
���set the_new_text to (the_new_text & thisChar) as string 
��end if 
�end repeat 

 set the_new_text to theInitCap & the_new_text 

 set AppleScript's text item delimiters to oldDelims 
�return the_new_text 
end makeTitleCase 

on makeUpperCase(this_text) 

 set the_upper_string to "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
�set the_lower_string to "abcdefghijklmnopqrstuvwxyz" 

 set the_new_text to "" 
�repeat with thisChar in this_text 
��set x to offset of thisChar in the_lower_string 
��if x is not 0 then 
���set the_new_text to (the_new_text & character x of the_upper_string) as string 
��else 
���set the_new_text to (the_new_text & thisChar) as string 
��end if 
�end repeat 

 return the_new_text 
end makeUpperCase 
 

Dave