Automatorを使って辞書で調べるサービスが動作しない

度々、失礼致します。　既に解決済みとは思いますが、こんなページもありましたよ。

→　当サイトの検索フォームを介さずにWebLSDを検索するための仕様

これを参照して、例えば、前方一致で検索する場合のAppleScriptは、

となります。　Shell scriptにした方が応用も簡単で、速そうですね。

すばらしい！これならいけますね。下記はいろんなサイトに応用が効く AppleScript です。

property pre : "http://lsd-project.jp/weblsd/begin/"

property suf : "" -- 検索語の後に &lr=lang_ja みたいなものがある場合

property enc : "UTF8"

--

on run {input}

try

set str to item 1 of input

tell application "Safari"

open location pre & str & suf

activate

end tell

end try

end run

--

on url_encode(str, conv_to)

set s1 to "printf '%s' " & quoted form of str & " | "

set s2 to "iconv -c -f UTF8-MAC -t " & conv_to & " | "

set s3 to "php -R 'print rawurlencode($argn);'"

do shell script s1 & s2 & s3

end url_encode

# URL に「#」が含まれている場合 Leopard の open コマンドだと上手く動きません、Snow Leopard のどの時点からか改良されたようですけど、私は AppleScript の open location で統一してます。

# 選択文字列を「見なし UTF8-MAC」から「指定したテキストエンコーディング」に変換するのと、キーワードを URL エンコードするのがミソ。

すみません。間違えました。

変更前

open location pre & str & suf

変更後

open location pre & my url_encode(str, enc) & suf

度々、失礼致します。Automatorの変数を使ったサービスを作ってみました（下図）。

調べる単語を変数『Word』に入れ、『前方一致：』の変数にURLとWordを入れています。　また、『用例検索：』の変数にURLとWordを入れて、『Webサイトポップアップ』アクションに渡しています。　途中に検索語を読み上げるアクションと、用例を表示するかどうかを確認するアクションを入れてみました。　色々と応用できそうです。

度々、失礼致します。

上記AppleScriptを使用した場合、検索を行うたびに新しいSafariのタブやwindowが作られるのでちょっと不便だなと思いました。　そこで、『 open location theURL 』 の部分を、

tell application "Safari"

set URL of current tab of window 1 to theURL

end tell

に変更すると、検索を繰り返しても同じwindowに検索結果を表示してくれました。