tell application "iTunes" display dialog "テキストいれれ" buttons {"Cancel", "OK"} default button 2 default answer "" with icon 1 set theAddKey to the text returned of the result set theList to selection as list repeat with aaaa from 1 to number of items in theList set theTrack to item aaaa of theList set theNowKey to comment of theTrack if false = theNowKey contains theAddKey then if theNowKey is "" then set comment of theTrack to theAddKey else set comment of theTrack to theAddKey & " " & theNowKey end if end if end repeat end tell
