(*
"Selected Track Names to Word Caps" v2.5
Capitalizes the first letter of each word
in the selected tracks' names;
thus, "Come as you are" becomes
"Come As You Are"

v2.5 -fixes single letter problem
- fixes problem when track name begins with punctuation
- fixes potential timeout problem

written by Doug Adams
Get more free AppleScripts for iTunes and
help writing your own:
http://www.malcolmadams.com/itunes/
*)
property ucha : {"Á", "À", "Â", "Ä", "Ã", "Å", "Ç", "É", "È", "Ê", "Ë", "Í", "Ì", "Î", "Ï", "Ñ", "Ó", "Ò", "Ô", "Ö", "Õ", "Ú", "Ù", "Û", "Ü", "Æ", "Œ", "Ÿ"}
property lcha : {"á", "à", "â", "ä", "ã", "å", "ç", "é", "è", "ê", "ë", "í", "ì", "î", "ï", "ñ", "ó", "ò", "ô", "ö", "õ", "ú", "ù", "û", "ü", "æ", "œ", "ÿ"}
property myDelims : {" ", "@", "#", "^", "&", "*", "(", "–", "-", "+", "=", ":", ";", ",", ".", "/", "<", "{", "[", "_", "~", "`"}

tell application "iTunes"
    if selection is not {} then -- if tracks are selected...
        -- store fixed indexing and set
        set old_fi to fixed indexing
        set fixed indexing to true
        
        set sel to get a reference to selection
        with timeout of 30000 seconds
            repeat with aTrack in sel
                set atracksname to aTrack's name
                
                set tempname to ""
                with timeout of 30000 seconds
                    
                    repeat with j from 1 to length of atracksname
                        
                        -- set all to LOWER CASE
                        set asc1 to (ASCII number of (character j of atracksname))
                        if (asc1 is greater than 64) and (asc1 is less than 91) then
                            set tempname to (tempname & (ASCII character (asc1 + 32)))
                        else
                            set x to character j of atracksname
                            repeat with ac from 1 to count of items in lcha
                                if item ac of ucha = x then set x to item ac of lcha
                            end repeat
                            set tempname to tempname & x
                        end if
                    end repeat -- with a character of atracksname
                end timeout
                
                copy tempname to atracksname
                if (count of words in (atracksname as text)) is greater than 1 then
                    --display dialog "WHOA!"
                    with timeout of 30000 seconds
                        repeat with punct in myDelims
                            if atracksname contains punct then
                                set word_list to my TextToList(atracksname, (punct as string))
                                
                                set newTitle to {} -- init holder
                                
                                
                                repeat with w from 1 to (count of items of word_list)
                                    set aWord to item w of word_list
                                    set newWord to "" -- iitialize holer
                                    if aWord is not "" then
                                        set t1 to (ASCII number of (first character of aWord))
                                        if t1 is greater than 96 and ¬
                                            t1 is less than 123 then
                                            if length of aWord is greater than 1 then
                                                set newWord to ((ASCII character (t1 - 32)) & (text 2 thru -1 of aWord))
                                            else
                                                set newWord to (ASCII character (t1 - 32))
                                            end if
                                        else if {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"} does not contain (first character of aWord) then
                                            set x to first character of aWord
                                            repeat with ac from 1 to count of items in lcha
                                                if item ac of lcha = x then set x to item ac of ucha
                                            end repeat
                                            if length of aWord is greater than 1 then
                                                set newWord to x & (text 2 thru -1 of aWord)
                                            else
                                                set newWord to x
                                            end if
                                        else
                                            copy aWord to newWord
                                        end if
                                    end if
                                    copy newWord to end of newTitle
                                end repeat -- done with aWord
                                
                                set atracksname to my ListToText(newTitle, (punct as string)) -- convert list of words
                            end if -- punct in atracksname
                        end repeat -- next punct    
                    end timeout
                else
                    copy atracksname to aWord
                    set newWord to "" -- iitialize holer
                    set t1 to (ASCII number of (first character of aWord))
                    if t1 is greater than 96 and ¬
                        t1 is less than 123 then
                        if length of aWord is greater than 1 then
                            set newWord to ((ASCII character (t1 - 32)) & (text 2 thru -1 of aWord))
                        else
                            set newWord to (ASCII character (t1 - 32))
                        end if
                    else if {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"} does not contain (first character of aWord) then
                        set x to first character of aWord
                        repeat with ac from 1 to count of items in lcha
                            if item ac of lcha = x then set x to item ac of ucha
                        end repeat
                        if length of aWord is greater than 1 then
                            set newWord to x & (text 2 thru -1 of aWord)
                        else
                            set newWord to x
                        end if
                    else
                        copy aWord to newWord
                    end if
                    copy newWord to atracksname
                end if
                set name of aTrack to atracksname
                
            end repeat -- all selected tracks
        end timeout
        copy old_fi to fixed indexing -- restore fixed indexing
        display dialog "Done!" buttons {"Thanks"} default button 1 with icon 1 giving up after 90
    else
        display dialog "No tracks have been selected." buttons {"Cancel"} default button 1 with icon 0
    end if -- no selection
end tell
--=============================================

on TextToList(theText, theDelimiter)
    set saveDelim to AppleScript's text item delimiters
    try
        set AppleScript's text item delimiters to {theDelimiter}
        set theList to every text item of theText
    on error errStr number errNum
        set AppleScript's text item delimiters to saveDelim
        error errStr number errNum
    end try
    set AppleScript's text item delimiters to saveDelim
    return (theList)
end TextToList

on ListToText(theList, theDelimiter)
    set saveDelim to AppleScript's text item delimiters
    try
        set AppleScript's text item delimiters to {theDelimiter}
        set theText to theList as text
    on error errStr number errNum
        set AppleScript's text item delimiters to saveDelim
        error errStr number errNum
    end try
    set AppleScript's text item delimiters to saveDelim
    return (theText)
end ListToText

set name of aTrack to atracksname

set artist of aTrack to atracksartist

(*
"Selected Track artists to Word Caps" v2.5
Capitalizes the first letter of each word
in the selected tracks' artists;
thus, "Come as you are" becomes
"Come As You Are"

v2.5 -fixes single letter problem
- fixes problem when track artist begins with punctuation
- fixes potential timeout problem

written by Doug Adams
Get more free AppleScripts for iTunes and
help writing your own:
http://www.malcolmadams.com/itunes/
*)
property ucha : {"Á", "À", "Â", "Ä", "Ã", "Å", "Ç", "É", "È", "Ê", "Ë", "Í", "Ì", "Î", "Ï", "Ñ", "Ó", "Ò", "Ô", "Ö", "Õ", "Ú", "Ù", "Û", "Ü", "Æ", "Œ", "Ÿ"}
property lcha : {"á", "à", "â", "ä", "ã", "å", "ç", "é", "è", "ê", "ë", "í", "ì", "î", "ï", "ñ", "ó", "ò", "ô", "ö", "õ", "ú", "ù", "û", "ü", "æ", "œ", "ÿ"}
property myDelims : {" ", "@", "#", "^", "&", "*", "(", "–", "-", "+", "=", ":", ";", ",", ".", "/", "<", "{", "[", "_", "~", "`"}

tell application "iTunes"
    if selection is not {} then -- if tracks are selected...
        -- store fixed indexing and set
        set old_fi to fixed indexing
        set fixed indexing to true
        
        set sel to get a reference to selection
        with timeout of 30000 seconds
            repeat with aTrack in sel
                set atracksartist to aTrack's artist
                
                set tempartist to ""
                with timeout of 30000 seconds
                    
                    repeat with j from 1 to length of atracksartist
                        
                        -- set all to LOWER CASE
                        set asc1 to (ASCII number of (character j of atracksartist))
                        if (asc1 is greater than 64) and (asc1 is less than 91) then
                            set tempartist to (tempartist & (ASCII character (asc1 + 32)))
                        else
                            set x to character j of atracksartist
                            repeat with ac from 1 to count of items in lcha
                                if item ac of ucha = x then set x to item ac of lcha
                            end repeat
                            set tempartist to tempartist & x
                        end if
                    end repeat -- with a character of atracksartist
                end timeout
                
                copy tempartist to atracksartist
                if (count of words in (atracksartist as text)) is greater than 1 then
                    --display dialog "WHOA!"
                    with timeout of 30000 seconds
                        repeat with punct in myDelims
                            if atracksartist contains punct then
                                set word_list to my TextToList(atracksartist, (punct as string))
                                
                                set newTitle to {} -- init holder
                                
                                
                                repeat with w from 1 to (count of items of word_list)
                                    set aWord to item w of word_list
                                    set newWord to "" -- iitialize holer
                                    if aWord is not "" then
                                        set t1 to (ASCII number of (first character of aWord))
                                        if t1 is greater than 96 and ¬
                                            t1 is less than 123 then
                                            if length of aWord is greater than 1 then
                                                set newWord to ((ASCII character (t1 - 32)) & (text 2 thru -1 of aWord))
                                            else
                                                set newWord to (ASCII character (t1 - 32))
                                            end if
                                        else if {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"} does not contain (first character of aWord) then
                                            set x to first character of aWord
                                            repeat with ac from 1 to count of items in lcha
                                                if item ac of lcha = x then set x to item ac of ucha
                                            end repeat
                                            if length of aWord is greater than 1 then
                                                set newWord to x & (text 2 thru -1 of aWord)
                                            else
                                                set newWord to x
                                            end if
                                        else
                                            copy aWord to newWord
                                        end if
                                    end if
                                    copy newWord to end of newTitle
                                end repeat -- done with aWord
                                
                                set atracksartist to my ListToText(newTitle, (punct as string)) -- convert list of words
                            end if -- punct in atracksartist
                        end repeat -- next punct    
                    end timeout
                else
                    copy atracksartist to aWord
                    set newWord to "" -- iitialize holer
                    set t1 to (ASCII number of (first character of aWord))
                    if t1 is greater than 96 and ¬
                        t1 is less than 123 then
                        if length of aWord is greater than 1 then
                            set newWord to ((ASCII character (t1 - 32)) & (text 2 thru -1 of aWord))
                        else
                            set newWord to (ASCII character (t1 - 32))
                        end if
                    else if {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"} does not contain (first character of aWord) then
                        set x to first character of aWord
                        repeat with ac from 1 to count of items in lcha
                            if item ac of lcha = x then set x to item ac of ucha
                        end repeat
                        if length of aWord is greater than 1 then
                            set newWord to x & (text 2 thru -1 of aWord)
                        else
                            set newWord to x
                        end if
                    else
                        copy aWord to newWord
                    end if
                    copy newWord to atracksartist
                end if
                set artist of aTrack to atracksartist
                
            end repeat -- all selected tracks
        end timeout
        copy old_fi to fixed indexing -- restore fixed indexing
        display dialog "Done!" buttons {"Thanks"} default button 1 with icon 1 giving up after 90
    else
        display dialog "No tracks have been selected." buttons {"Cancel"} default button 1 with icon 0
    end if -- no selection
end tell
--=============================================

on TextToList(theText, theDelimiter)
    set saveDelim to AppleScript's text item delimiters
    try
        set AppleScript's text item delimiters to {theDelimiter}
        set theList to every text item of theText
    on error errStr number errNum
        set AppleScript's text item delimiters to saveDelim
        error errStr number errNum
    end try
    set AppleScript's text item delimiters to saveDelim
    return (theList)
end TextToList

on ListToText(theList, theDelimiter)
    set saveDelim to AppleScript's text item delimiters
    try
        set AppleScript's text item delimiters to {theDelimiter}
        set theText to theList as text
    on error errStr number errNum
        set AppleScript's text item delimiters to saveDelim
        error errStr number errNum
    end try
    set AppleScript's text item delimiters to saveDelim
    return (theText)
end ListToText