Safariで選択中の文字を英辞郎で検索スクリプトメニュー用

set appName to "Safari" activate application appName tell application "System Events" tell application process appName keystroke "c" using command down delay 1 end tell end tell tell application appName set Original_Text to the clipboard as string end tell set Encoded_Text to do shell script "echo '" & Original_Text & "' | iconv -f UTF-8-MAC -t UTF-8" set My_URL to "http://eow.alc.co.jp/" & Encoded_Text & "/UTF-8/" as Unicode text tell application "Safari" activate make new document with properties {name:"eow.alc.co.jp"} tell window 1 open location My_URL end tell end tell

「alc.Safari.txt」をダウンロード