エキサイトWebページ翻訳を使う

　MacOSXでスクリプトメニューからエキサイト翻訳を利用してWebページを翻訳するアップルスクリプトです。翻訳したいWebページのアドレスを入力するとインターネット設定で選んでいるWebブラウザで翻訳ページを表示します。
　※MacOS9で使うにはスクリプトをアプリケーション形式で保存して下さい。コンパイル済みスクリプトではダイアログが表示されず動作しません。
　

スクリプトの内容

　下記のスクリプトをスクリプト編集プログラムにてコンパイル済みスクリプトに保存し、スクリプトメニューで使います。

property target_URL : "http://www.excite.co.jp/world/url/?wb_lp=ENJA&wb_dis=2&wb_co=excitejapan&wb_url=" --訳文のみ
property target_URL2 : "http://www.excite.co.jp/world/url/?wb_lp=ENJA&wb_dis=3&wb_co=excitejapan&wb_url=" --本文と訳文を表示

tell application (path to frontmost application as string)
	repeat
		display dialog "Enter the URL:" default answer "" buttons {"Cancel", "原文と訳文", "Translate"} default button 2
		copy the result as list to {search_string, button_pressed}
		if the search_string is not "" then exit repeat
	end repeat
end tell

if the button_pressed is "Translate" then
	open location target_URL & search_string --訳文のみ
	
else if the button_pressed is "原文と訳文" then --本文と訳文を表示
	open location target_URL2 & search_string
end if

使い方

　表示されたダイアログに翻訳したいWebページのURLを入力して、ボタンを押して下さい。インターネット設定で選んでいるブラウザで翻訳結果を表示します。

更新状況

　2003/4/28 ─アップロード