–参照：
–http://jp.techcrunch.com/archives/20091214the-unofficial-google-text-to-speech-api/

–文章をダイアログから入力
set aMes to “I’m lerning AppleScript very hard”
set aMes to (text returned of (display dialog “Googleにしゃべらせる英語の文章を入力（100文字以内）” default answer aMes))

–文章の長さチェック。文字種類チェックはしていないので自己責任で
if length of aMes > 100 then
　　display dialog “100文字以内で入力してください。” buttons {“OK”} default button 1 with icon 1
　　return
end if

–パスをstringでcastしたあとにunicodeにcastしているのはMac OS X 10.4までの仕様。10.5以降では必要ない
set aPath to (path to temporary items from user domain as text)

–URL Access Scriptingで生成できるファイルの名称が32文字までなので、ちょっとuuidgenの結果を短くして使う
set dPath to aPath & (text 1 thru 20 of (do shell script “/usr/bin/uuidgen”)) & “.mp3″ as Unicode text

set baseURL to “http://translate.google.com/translate_tts?q=”
set aParam to repChar(aMes, ” “, “+”) of me

set aURL to baseURL & aParam

–Googleにリクエストを投げて、返ってきたMP3ファイルをローカルに保存する
try
　　with timeout of 30 seconds
　　　　tell application “URL Access Scripting”
　　　　　　activate
　　　　　　download aURL to file dPath with progress
　　　　end tell
　　end timeout
on error
　　display dialog “Download Error” buttons {“OK”} default button 1 with icon 2
　　return
end try

–ダウンロードした音声ファイルをオープンして再生
tell application id “com.apple.QuickTimePlayerX”
　　open file dPath
　　tell document 1
　　　　play
　　end tell
end tell

–文字置換ルーチン
on repChar(origText, targStr, repStr)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set dlFol to getSafariDownloadFolder() of me

set aFileName to getFNfromURL(aURL) of me

set dlPath to (dlFol as string) & aFileName

try
　　with timeout of 3600 seconds
　　　　tell application “URL Access Scripting“
　　　　　　activate
　　　　　　download aURL to file dlPath with progress
　　　　end tell
　　end timeout
on error
　　display dialog “Download Error“
end try

–URLからファイル名のみを抽出
on getFNfromURL(aURL)
　　if aURL ends with “/“ then
　　　　display dialog “与えられたURLの末尾がスラッシュで終了しているため、ファイルではありません。“ buttons {”OK“} default button 1
　　　　return “”
　　end if
　　set aLen to length of aURL
　　set aR to reverse of (characters of aURL)
　　set aNstr to aR as string
　　set aLoc to offset of “/“ in aNstr
　　set aRes to text (aLen - aLoc + 2) thru -1 of aURL
　　return aRes
end getFNfromURL

–Safariのダウンロードフォルダを取得
–By Phillip Aker, Mark J Reed
on getSafariDownloadFolder()
　　set preferencesPath to POSIX path of (path to preferences)
　　set bundleId to bundle identifier of (info for (path to application “Safari“))
　　set safariPrefsFile to preferencesPath & bundleId & “.plist“
　　tell application “System Events“ to set folderName to get value of property list item “DownloadsPath“ of property list file safariPrefsFile
　　set downloadFolder to (POSIX file (do shell script “echo “ & folderName)) as alias
　　return downloadFolder
end getSafariDownloadFolder

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set sKey to encodeURL(searchKey) of me
set aPath to (path to temporary items from user domain as text)
set dPath to aPath & “test.txt“ as Unicode text

try
　　with timeout of 30 seconds
　　　　tell application “URL Access Scripting“
　　　　　　set aURL to “http://pcod.no-ip.org/yats/search?query=“ & sKey & “&json“
　　　　　　activate
　　　　　　download aURL to file dPath with progress
　　　　end tell
　　end timeout
on error
　　display dialog “Download Error“
　　return
end try

set aData to read file dPath as «class utf8»
tell application “Finder“ to delete file dPath

–超やっつけで置換してみた。もっといい方法はいっぱいあるはず
set a1Dat to repChar(aData, “[“, “{“) of me
set a2Dat to repChar(a1Dat, “]“, “}“) of me
set a3Dat to repChar(a2Dat, string id 10, “”) of me
set a4Dat to repChar(a3Dat, “\”url\”:“, “urlStr:“) of me
set a5Dat to repChar(a4Dat, “\”image\”:“, “imageURL:“) of me
set a6Dat to repChar(a5Dat, “\”time2\”:“, “time2:“) of me
set a7Dat to repChar(a6Dat, “\”content\”:“, “contentStr:“) of me
set a8Dat to repChar(a7Dat, “\”user\”:“, “userName:“) of me
set a9Dat to repChar(a8Dat, “\”time\”:“, “time1:“) of me
set a10Dat to repChar(a9Dat, “\”id\”:“, “idStr:“) of me
–なんかもっといい方法が

set a11Dat to “return “ & a10Dat
set aRes to run script a11Dat –ここだけは、まあそんなもんだろうという処理

aRes

–文字置換ルーチン
on repChar(origText, targStr, repStr)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

on encodeURL(str)
　　return do shell script (”python -c \”import sys, urllib; print urllib.quote(sys.argv[1]) \” “ as Unicode text) & quoted form of str
end encodeURL

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

try
　　with timeout of 30 seconds
　　　　tell application “URL Access Scripting“
　　　　　　activate
　　　　　　set aURL to “http://homepage.mac.com/ical/.calendars/Japanese32Holidays.ics“
　　　　　　download aURL to file dPath with progress
　　　　end tell
　　end timeout
on error
　　display dialog “Download Error“
end try

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に