this is awesome, thanks!

if you want to remove the file extension from the name, you can use the following (assuming the file extension is three characters):
find this line:
set theTitle to str_replace("_", " ", getTheTitle())

and add this right under it:
set theTitle to text 1 thru -5 of theTitle