AppleScript：weblio 類語辞典検索を自動化

前々回（AppleScript：goo 辞書（四字熟語辞典）検索を自動化 - GameSprit） に、AppleScript を使って、単語を goo 辞書（国語辞典 英和辞典 和英辞典）で検索し、その結果をウェブブラウザで表示させるアイディアを、また同様に 前回（AppleScript：goo 辞書（四字熟語辞典）検索を自動化 - GameSprit） は単語を goo 辞書（四字熟語辞典）で検索し、その結果をウェブブラウザで表示させるアイディアを紹介しました。


調子に乗って、今回は AppleScript を使って、単語を Weblio 類語辞典シソーラス・同意語辞書・同義語辞典 で検索し、その結果をウェブブラウザ（Safari）で表示させてみます。

Weblio 類語辞典シソーラス・同意語辞書・同義語辞典の場合、検索結果の URL は Safari でみると、次のように表示されています。（『よろこぶ』を検索した結果です）

http://thesaurus.weblio.jp/content/よろこぶ

※ 実際は『よろこぶ』の部分はURLエンコードされているはずです。

私の聞きかじりのやり方では、エンコード結果の末尾に 余分な『%0a』がついていて、これがあるとうまく動作しません。（例えば『よろこぶ』としたいのに『よろこぶ%0a』となってしまいます。これでは Safari でエラーとなってしまいます）

きっと もっとスマートな方法があるはずですがわからないので、対症療法的に、 AppleScript で『%0a』を削除してみます。

これで、AppleScript を使って、単語を Weblio 類語辞典シソーラス・同意語辞書・同義語辞典 で検索し、その結果をウェブブラウザ（Safari）で表示させることができました。

set searchWord to my URLencoding("よろこぶ")

set preF to "http://thesaurus.weblio.jp/content/"
set theMode to ""

open location (preF & searchWord & theMode) as string


on URLencoding(input)
set wordB4encode to input

set cmdPre to "echo "

--その他用(wikipedia、weblio）
set cmdSuf to "| iconv -t UTF-8 | 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

return wordAftEncode
end URLencoding

-- on Leopard, Mac OS 10.5.4

Weblio 類語辞典シソーラス・同意語辞書・同義語辞典 は便利だし、わかりやすい高品質な辞書ですね。