AppleScript：goo 辞書（四字熟語辞典）検索を自動化

AppleScript：goo 辞書（国語辞典 英和辞典 和英辞典）検索を自動化 - GameSprit で作成した AppleScript スクリプトを微改造し、四字熟語 - goo 辞書 の検索結果をウェブブラウザに表示させてみます。



goo 辞書（国語英和和英辞典）：
http://dictionary.goo.ne.jp/search.php?MT=%A4%A4%A4%B7%A4%F3%A4%C7%A4%F3%A4%B7%A4%F3&kind=all

goo 辞書（四字熟語辞典）：
http://dictionary.goo.ne.jp/idiom/search.php?MT=%A4%A4%A4%B7%A4%F3%A4%C7%A4%F3%A4%B7%A4%F3&kind=all

『辞書毎のURL部分 ＋ 検索語 ＋ モード』で構成されていて、異なる部分は『辞書毎のURL部分』です。
その違いは goo 辞書（国語英和和英辞典）では『http://dictionary.goo.ne.jp/search.php?MT=』なのに対し、goo 辞書（四字熟語辞典）では『http://dictionary.goo.ne.jp/idiom/search.php?MT=』であることです。


そのため、AppleScript：goo 辞書（国語辞典 英和辞典 和英辞典）検索を自動化 - GameSprit で作成した AppleScript スクリプトの『辞書毎のURL部分』のみ変更することで、goo 辞書（四字熟語辞典）を検索し その結果をウェブブラウザに表示させることができるはずです。


作成した結果は次の通りです。

set searchWord to my URLencoding("いしんでんしん")

--set preF to "http://dictionary.goo.ne.jp/search.php?MT="
set preF to "http://dictionary.goo.ne.jp/idiom/search.php?MT="

set theMode to "&kind=all"

open location (preF & searchWord & theMode) as string


on URLencoding(input)
set wordB4encode to input

set cmdPre to "echo "
set cmdSuf to "| iconv -f UTF8 -t EUCJP | perl -pe '~s/([^?w ])/\"%\".unpack(\"H2\", $1)/eg;'"
set theCompleteCmd to (cmdPre & wordB4encode & cmdSuf) as string
set wordAftEncode to (do shell script theCompleteCmd)

return wordAftEncode
end URLencoding

-- on Leopard, Mac OS 10.5.4

コード中の半角「￥」は、半角「＼」([option + ])です。