AppleScript：Infoseek 漢字辞書検索を自動化

AppleScript を使い、Infoseek 漢字辞書 を検索し、その検索結果をウェブブラウザに表示させてみます。

Infoseek 漢字辞書では『漢字』・『読み』・『部首』・『画数』を指定して検索範囲を絞ることができます。



このスクリプトでは、レコードを使って検索語の要素（下の例では『漢字』・『読み』・『部首』・『画数』）を扱っています。
レコード形式のデータはラベルを指定して配列を操作することができます。





ソースコードです。

set tgtInfo to {kanji:"", yomi:"さん", bushu:"もんがまえ", kakusuu:""}
set preF to "http://dictionary.www.infoseek.co.jp/?sc=1&se=on&lp=0&gr=kj&sv=KJ&qt="

if kanji of tgtInfo is not "" then set kanji of tgtInfo to my URLencoding(kanji of tgtInfo)
if yomi of tgtInfo is not "" then set yomi of tgtInfo to my URLencoding(yomi of tgtInfo)
if bushu of tgtInfo is not "" then set bushu of tgtInfo to my URLencoding(bushu of tgtInfo)

--display dialog "kanji : " & kanji of tgtInfo & return & "yomi : " & yomi of tgtInfo & return & "bushu : " & bushu of tgtInfo & return & "kakusuu : " & kakusuu of tgtInfo

open location (preF & kanji of tgtInfo & "&qty=" & yomi of tgtInfo & "&qtb=" & bushu of tgtInfo & "&qtk=" & kakusuu of tgtInfo) as string

on URLencoding(input)
set wordB4encode to input

set cmdPre to "echo "

--goo,infoseek用
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)

set org_delimi to text item delimiters of AppleScript
set text item delimiters of AppleScript to "%0a"
set wordAftEncode to text item 1 of wordAftEncode
set text item delimiters of AppleScript to org_delimi

set the clipboard to wordAftEncode
return wordAftEncode
end URLencoding
-- on Leopard, Mac OS 10.5.4

『＼』は実際は半角です。

検索結果です。





AppleScript：goo 辞書（四字熟語辞典）検索を自動化 - GameSprit
Webページを切り抜き、Dashboardから検索する（Infoseek マルチ辞書） - GameSprit