Applescript to convert spaces, @, ?, ', to hyphens and uppercase to lowercase.

space2hyphens.scpt

on run {input}
	set input to replaceText(" ", "-", input as string)
	set input to replaceText(".", "", input as string)
	set input to replaceText(":", "", input as string)
	set input to replaceText(",", "", input as string)
	set input to replaceText("@", "at", input as string)
	set input to replaceText("'", "", input as string)
	set input to replaceText("&", "and", input as string)
	set input to replaceText("?", "", input as string)
	set input to do shell script "echo " & quoted form of input & " | tr '[:upper:]' '[:lower:]'"
end run

on replaceText(find, replace, textString)
	set prevTIDs to AppleScript's text item delimiters
	set AppleScript's text item delimiters to find
	set textString to text items of textString
	set AppleScript's text item delimiters to replace
	set textString to "" & textString
	set AppleScript's text item delimiters to prevTIDs
	return textString
end replaceText