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 辞書(四字熟語辞典)を検索し その結果をウェブブラウザに表示させることができるはずです。
作成した結果は次の通りです。
![](https://blogimg.goo.ne.jp/user_image/04/df/73a03956824b03f2950a78ffb1ed38b9.jpg)
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 辞書(四字熟語辞典)を検索し その結果をウェブブラウザに表示させることができるはずです。
作成した結果は次の通りです。
![](https://blogimg.goo.ne.jp/user_image/04/df/73a03956824b03f2950a78ffb1ed38b9.jpg)
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 + ])です。