おもろい、めずらしいアップルスクリプト発表会

tell application "iCab"
tell window 1
set surl to selection
set AppleScript's text item delimiters to " "
set lsurl to every text item of surl
set AppleScript's text item delimiters to "+"
set surl to lsurl as text
set hon to "http://sangenjaya.arc.net.my/cgi-bin/senttra_dispatch.cgi?pair=EJ&sent="
OpenURL (hon & surl) toWindow 0
end tell
end tell
end tell

腐れさんのと１９さんのを足してみました。iCabで開いてるページの選択範囲を翻訳です。もう誰かが書いたかな。

tell application "iCab"
tell window 1
set surl to selection
set AppleScript's text item delimiters to "
"
set lsurl to every text item of surl
set AppleScript's text item delimiters to "%0D%0A"
set surl to lsurl as text
set AppleScript's text item delimiters to " "
set lsurl2 to every text item of surl
set AppleScript's text item delimiters to "+"
set surl to lsurl2 as text
set hon to "http://sangenjaya.arc.net.my/cgi-bin/senttra_dispatch.cgi?pair=EJ&sent="
OpenURL (hon & surl) toWindow 0
end tell
end tell

段落があるとうまくいかなかったのでもう１回。