set dlFolder to path to desktop –ダウンロード先フォルダ（Desktop）
set dRes to downloadFile(aURL, dlFolder, 3600) of me
–POSIX pathが返ってくる。あとでのんびりaliasに変換

–通常ダウンロード
on downloadFile(aURL, outPath, tOut)
　　
　　set aFileName to getFNfromURL(aURL) of me
　　if aFileName = false then
　　　　return “”
　　end if
　　
　　set dlPathStr to POSIX path of outPath
　　set aPOSIXpath to dlPathStr & aFileName
　　
　　set dssText to “curl -s “ & aURL & ” -o “ & quoted form of aPOSIXpath
　　try
　　　　with timeout of tOut seconds
　　　　　　do shell script dssText
　　　　end timeout
　　on error
　　　　return false
　　end try
　　
　　return aPOSIXpath
　　
end downloadFile

on getFNfromURL(aURL)
　　if aURL ends with “/” then
　　　　–display dialog “与えられたURLの末尾がスラッシュで終了しているため、ファイルではありません。” buttons {”OK”} default button 1
　　　　return false
　　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

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

–>
(*
{"\"applescript\" foldoc \"The Free On-line Dictionary of Computing (27 SEP 03)\"
AppleScript

<language> An {object-oriented} {shell} language for the
{Macintosh}, approximately a superset of {HyperTalk}.

(1995-12-10)

."}
*)

on get_definition(word_to_define)
　　try
　　　　set ASCII_13 to (ASCII character 13)
　　　　set the_script to snr(("dict://dict.org/d:" & word_to_define & ":*"), " ", "%20") of me
　　　　–Thanks to Greg Spense for the grep code
　　　　set the_definitions to do shell script "curl -s " & (quoted form of the_script) & " | egrep -v ‘^220.*|^250.*|^150.*|^221.*’"
　　　　set the_definitions to searchAndReplace(the_definitions, "151 ", "") of me
　　　　set the_definitions to string_to_list(the_definitions, (ASCII_13 & "." & ASCII_13)) of me
　　　　return the_definitions
　　on error the_err
　　　　return the_err
　　end try
end get_definition

on searchAndReplace(the_string, search_string, replace_string)
　　tell (a reference to AppleScript’s text item delimiters)
　　　　set {old_tid, contents} to {contents, search_string}
　　　　set {the_string, contents} to {the_string’s text items, replace_string}
　　　　set {the_string, contents} to {the_string as Unicode text, old_tid}
　　end tell
　　return the_string
end searchAndReplace

on string_to_list(s, d)
　　tell (a reference to AppleScript’s text item delimiters)
　　　　set {o, contents} to {contents, d}
　　　　set {s, contents} to {s’s text items, o}
　　end tell
　　return s
end string_to_list

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

–参照：
–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 resList to {}

repeat with i in adrList
　　–半角文字列チェック
　　set aRes to detectOutANK(i) of me
　　if aRes = true then
　　　　–whoisを使用してドメインの妥当性を確認
　　　　set aDomain to splitAfterAtmark(i) of me
　　　　set aRes to checkMailAddr(aDomain) of me
　　end if
　　set the end of resList to aRes
end repeat

resList
–> {false, true, true}

–メールアドレスのチェック（whois実行）
on checkMailAddr(anAdr)
　　–マッチしない場合には”aaa.aaa”の状態（ピリオド１こ）になるまでドメインをさかのぼる
　　repeat
　　　　set aRes to countPeriod(anAdr) of me
　　　　if anAdr is in {”co.jp“, “or.jp“, “ne.jp“, “go.jp“, “ac.jp“, “ad.jp“} then return false –このへん、まだ見直す必要がある
　　　　
　　　　if aRes = 0 then return false
　　　　
　　　　with timeout of 3600 seconds
　　　　　　set aRes to do shell script “whois “ & anAdr
　　　　end timeout
　　　　
　　　　ignoring case
　　　　　　if aRes contains “No match“ then
　　　　　　　　set anAdr to makeDomainShorter(anAdr) of me
　　　　　　　　if anAdr = false then return false
　　　　　　else
　　　　　　　　return true
　　　　　　end if
　　　　end ignoring
　　end repeat
　　return false
end checkMailAddr

–メールアドレスのサブドメイン部分を１階層分削る
–Input: “asia.apple.com”
–Output: “apple.com”
on makeDomainShorter(anAdr)
　　set dotPos to offset of “.“ in anAdr
　　if dotPos = 0 then return false
　　set resText to text (dotPos + 1) thru -1 of anAdr
　　return resText
end makeDomainShorter

–＠以降の文字列を返す
on splitAfterAtmark(anAdr)
　　set atPos to offset of “@“ in anAdr
　　if atPos = 0 then return false
　　set domainText to text (atPos + 1) thru -1 of anAdr
　　return domainText
end splitAfterAtmark

–ANK範囲外の文字があるかどうかをテストする
–ANK文字以外のものが入っていたらfalse
on detectOutANK(testText)
　　–ANK文字列（大文字小文字は問わない）
　　set ankChar to {”0“, “1“, “2“, “3“, “4“, “5“, “6“, “7“, “8“, “9“, “a“, “b“, “c“, “d“, “e“, “f“, “g“, “h“, “i“, “j“, “k“, “l“, “m“, “n“, “o“, “p“, “q“, “r“, “s“, “t“, “u“, “v“, “w“, “x“, “y“, “z“, “.“, “-“, “@“, “_“}
　　
　　set _testChar to testText as Unicode text
　　
　　ignoring case
　　　　repeat with i in _testChar
　　　　　　set j to contents of i
　　　　　　if j is not in ankChar then
　　　　　　　　return false
　　　　　　end if
　　　　end repeat
　　end ignoring
　　
　　return true
end detectOutANK

on countPeriod(aStr)
　　set cList to characters of aStr
　　set pCount to 0
　　repeat with i in cList
　　　　if contents of i = “.“ then set pCount to pCount + 1
　　end repeat
　　log {”pCount“, pCount}
　　return pCount
end countPeriod

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

property curl : "/usr/bin/curl"
property theUsername : "Blogのユーザー名"
property thePassword : "Blogのパスワード"

set aFile to choose file
UploadImage(aFile) of me

on UploadImage(theFile)
　　
　　try
　　　　tell application "Image Events"
　　　　　　launch
　　　　　　set this_image to open theFile
　　　　　　– extract the property value
　　　　　　set theType to file type of this_image
　　　　　　set theLocation to location of this_image
　　　　　　set theName to name of this_image
　　　　　　set {theWidth, theHeight} to dimensions of this_image
　　　　　　close this_image
　　　　end tell
　　　　–display dialog "Resolution: " & (xres as string)
　　on error error_message
　　　　display dialog error_message
　　end try
　　
　　–get the action from the pages source code
　　set action to "http://piyocast.com/as/xmlrpc.php"
　　
　　set theBits to encodeAsBase64(theFile)
　　set theType to "image/png"
　　
　　set theTemplate to "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<methodCall>
<methodName>metaWeblog.newMediaObject</methodName>
<params>
<param>
<value><string>1</string></value>
</param>
<param>
<value><string>" & theUsername & "</string></value>
</param>
<param>
<value><string>" & thePassword & "</string></value>
</param>
<param>
<value><struct>
<member>
<name>bits</name>
<value><base64>" & theBits & "</base64></value>
</member>
<member>
<name>name</name>
<value><string>" & theName & "</string></value>
</member>
<member>
<name>type</name>
<value><string>" & theType & "</string></value>
</member>
</struct></value>
</param>
</params>
</methodCall>
"
　　
　　set theScript to (curl & " -d" & space & "‘" & theTemplate & "‘" & space & " -H \"Content-Type: text/xml\" -X POST " & action) as text
　　
　　try
　　　　set theText to do shell script theScript
　　　　–set theURL to doRegex(theText, "<string>(http://.*)</string>")
　　　　set theText to retNoTagValue(theText, "string") of me
　　　　return theText – contains a URL to the file on the server
　　on error err
　　　　display dialog err as string
　　　　return false
　　end try
　　
　　– I could use parse XML except fishing out the URL is easier…
　　
　　
end UploadImage

on encodeAsBase64(theFilePath)
　　set thePath to quoted form of POSIX path of (theFilePath)
　　set theScript to "openssl base64 < " & thePath
　　return do shell script theScript
end encodeAsBase64

–文字置換ルーチン
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 retNoTagValue(aLine, parseTagVal)
　　–set parseTagVal to "string"
　　set beginTag to "<" & parseTagVal & ">"
　　set endTag to "</" & parseTagVal & ">"
　　
　　set sNum to offset of beginTag in aLine
　　set sNum to (length of beginTag) + sNum
　　set eNum to (offset of endTag in aLine) - 1
　　set resText to (characters sNum thru eNum of aLine) as text
　　
　　return resText
　　
end retNoTagValue

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

–> {"wp.getUsersBlogs", "wp.getPage", "wp.getPages", "wp.newPage", "wp.deletePage", "wp.editPage", "wp.getPageList", "wp.getAuthors", "wp.getCategories", "wp.getTags", "wp.newCategory", "wp.deleteCategory", "wp.suggestCategories", "wp.uploadFile", "wp.getCommentCount", "wp.getPostStatusList", "wp.getPageStatusList", "wp.getPageTemplates", "wp.getOptions", "wp.setOptions", "wp.getComment", "wp.getComments", "wp.deleteComment", "wp.editComment", "wp.newComment", "wp.getCommentStatusList", "blogger.getUsersBlogs", "blogger.getUserInfo", "blogger.getPost", "blogger.getRecentPosts", "blogger.getTemplate", "blogger.setTemplate", "blogger.newPost", "blogger.editPost", "blogger.deletePost", "metaWeblog.newPost", "metaWeblog.editPost", "metaWeblog.getPost", "metaWeblog.getRecentPosts", "metaWeblog.getCategories", "metaWeblog.newMediaObject", "metaWeblog.deletePost", "metaWeblog.getTemplate", "metaWeblog.setTemplate", "metaWeblog.getUsersBlogs", "mt.getCategoryList", "mt.getRecentPostTitles", "mt.getPostCategories", "mt.setPostCategories", "mt.supportedMethods", "mt.supportedTextFilters", "mt.getTrackbackPings", "mt.publishPost", "pingback.ping", "pingback.extensions.getPingbacks", "demo.sayHello", "demo.addTwoNumbers", "wpStats.check_key", "wpStats.get_blog_id", "wpStats.get_site_id", "wpStats.update_bloginfo", "wpStats.update_postinfo", "wpStats.ping_blog", "wpStats.flush_posts"}

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

–> "131202"

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

–> 41

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

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

–> {{data_type:”p”, town_kana:”なかむら”, town:”中村”, pref_kana:”とうきょうと”, yid:39309, jiscode:”13120″, pref:”東京都”, city:”練馬区”, city_kana:”ねりまく”, addr_name_kana:application “http://yubin.senmon.net/service/xmlrpc/”, other:application “http://yubin.senmon.net/service/xmlrpc/”, addr_name:application “http://yubin.senmon.net/service/xmlrpc/”, postcode:”1760024″}}

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

–> {”13101″, “13102″, “13103″, “13104″, “13105″, “13106″, “13107″, “13108″, “13109″, “13110″, “13111″, “13112″, “13113″, “13114″, “13115″, “13116″, “13117″, “13118″, “13119″, “13120″, “13121″, “13122″, “13123″, “13201″, “13202″, “13203″, “13204″, “13205″, “13206″, “13207″, “13208″, “13209″, “13210″, “13211″, “13212″, “13213″, “13214″, “13215″, “13218″, “13219″, “13220″, “13221″, “13222″, “13223″, “13224″, “13225″, “13227″, “13228″, “13229″, “13303″, “13305″, “13307″, “13308″, “13361″, “13362″, “13363″, “13364″, “13381″, “13382″, “13401″, “13402″, “13421″}

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

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

–> {”35.7321262″, “139.6382562″}

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

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

–> {”0070001″, “0070002″, “0070003″, “0070004″, “0070005″, “0070006″, “0070011″, “0070030″, “0070031″, “0070032″, “0070033″, “0070034″, “0070801″, “0070802″, “0070803″, “0070804″, “0070805″, “0070806″, “0070807″, “0070808″, “0070809″, “0070810″, “0070811″, “0070812″, “0070813″, “0070814″, “0070815″, “0070819″, “0070820″, “0070821″, “0070822″, “0070823″, “0070824″, “0070825″, “0070826″, “0070827″, “0070828″, “0070829″, “0070834″, “0070835″, “0070836″, “0070837″, “0070838″, “0070839″, “0070840″, “0070841″, “0070842″, “0070843″, “0070844″, “0070845″, “0070846″, “0070847″, “0070848″, “0070849″, “0070850″, “0070851″, “0070852″, “0070861″, “0070862″, “0070863″, “0070864″, “0070865″, “0070866″, “0070867″, “0070868″, “0070869″, “0070870″, “0070871″, “0070872″, “0070873″, “0070874″, “0070880″, “0070881″, “0070882″, “0070883″, “0070884″, “0070885″, “0070886″, “0070890″, “0070891″, “0070892″, “0070893″, “0070894″, “0070895″, “0078501″, “0078503″, “0078505″, “0078507″, “0078508″, “0078632″, “0600905″, “0600906″, “0600907″, “0600908″, “0600909″, “0608533″, “0608576″, “0608582″, “0608791″, “0650000″, “0650004″, “0650005″, “0650006″, “0650007″, “0650008″, “0650009″, “0650010″, “0650011″, “0650012″, “0650013″, “0650014″, “0650015″, “0650016″, “0650017″, “0650018″, “0650019″, “0650020″, “0650021″, “0650022″, “0650023″, “0650024″, “0650025″, “0650026″, “0650027″, “0650028″, “0650030″, “0650031″, “0650032″, “0650033″, “0650041″, “0650042″, “0650043″, “0658501″, “0658508″, “0658510″, “0658511″, “0658518″, “0658522″, “0658533″, “0658543″, “0658550″, “0658555″, “0658558″, “0658567″, “0658578″, “0658601″, “0658609″, “0658610″, “0658611″, “0658612″, “0658633″, “0658639″, “0658686″}

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

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

set sortedList to shellSortListAscending(textList, 1) of me

set pureText to {}
repeat with i in sortedList
　　set {aDate, aText} to i
　　set the end of pureText to (aText & return & return)
end repeat

set pureText to pureText as string

–Journalの階層状況は個人によって異なるので、このまま動くわけではありません
–ご自分の環境に合わせて書き換えて使ってみてください
tell application "MacJournal"
　　tell document 1
　　　　tell journal "個人"
　　　　　　tell journal "業界動向"
　　　　　　　　tell journal "音楽配信"
　　　　　　　　　　tell journal "津田大介"
　　　　　　　　　　　　set jRes to make new journal entry
　　　　　　　　　　　　tell jRes
　　　　　　　　　　　　　　set plain text content to pureText
　　　　　　　　　　　　end tell
　　　　　　　　　　end tell
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
end tell

–シェルソートで入れ子のリストを昇順ソート
on shellSortListAscending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) > (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListAscending

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

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

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

open location "http://pcod.no-ip.org/yats/search?query=" & encText

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

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

script iCalLib
　　–iCalに「日本の休日」のwebcalを追加する
　　on addJapaneseHolidays()
　　　　–OSバージョンの確認を行う
　　　　set v2 to system attribute “sys2“ –> 4/5
　　　　if v2 < 4 then return false –10.3や10.2などであれば実行禁止
　　　　
　　　　–GUI scriptingの有効チェックを行う
　　　　set guiRes to retGUIScriptingEnabled() of me
　　　　if guiRes = false then return false
　　　　
　　　　repeat
　　　　　　using terms from application “iCal“
　　　　　　　　tell application “iCal“
　　　　　　　　　　set cList to name of every calendar
　　　　　　　　　　
　　　　　　　　　　if “Japanese Holidays“ is not in cList then
　　　　　　　　　　　　–インターネット接続確認
　　　　　　　　　　　　set a to connection_check() of me
　　　　　　　　　　　　if a = false then return false
　　　　　　　　　　　　
　　　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　　　GetURL “webcal://ical.mac.com/ical/Japanese32Holidays.ics“
　　　　　　　　　　　　end ignoring
　　　　　　　　　　else
　　　　　　　　　　　　return true
　　　　　　　　　　end if
　　　　　　　　end tell
　　　　　　end using terms from
　　　　　　
　　　　　　activate application “iCal“
　　　　　　tell application “System Events“
　　　　　　　　tell process “iCal“
　　　　　　　　　　tell window 1
　　　　　　　　　　　　tell sheet 1
　　　　　　　　　　　　　　click button 2
　　　　　　　　　　　　end tell
　　　　　　　　　　　　
　　　　　　　　　　　　repeat
　　　　　　　　　　　　　　delay 1
　　　　　　　　　　　　　　tell sheet 1
　　　　　　　　　　　　　　　　set bCount to count every button
　　　　　　　　　　　　　　　　if bCount is not equal to 1 then exit repeat
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end repeat
　　　　　　　　　　　　
　　　　　　　　　　　　tell sheet 1
　　　　　　　　　　　　　　if v2 = 4 then
　　　　　　　　　　　　　　　　–Mac OS X 10.4の場合
　　　　　　　　　　　　　　　　set value of checkbox 1 to 1
　　　　　　　　　　　　　　　　set value of checkbox 2 to 1
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　click button 2 of list 1 –OKボタン
　　　　　　　　　　　　　　else if v2 = 5 then
　　　　　　　　　　　　　　　　–Mac OS X 10.5の場合
　　　　　　　　　　　　　　　　tell list 1
　　　　　　　　　　　　　　　　　　set value of checkbox 1 to 1
　　　　　　　　　　　　　　　　　　set value of checkbox 2 to 1
　　　　　　　　　　　　　　　　　　set value of checkbox 3 to 1
　　　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　click button 1 –OK
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　else
　　　　　　　　　　　　　　　　return false –10.6などの想定外のバージョンであった場合　　　　
　　　　　　　　　　　　　　end if
　　　　　　　　　　　　end tell
　　　　　　　　　　end tell
　　　　　　　　end tell
　　　　　　end tell
　　　　end repeat
　　end addJapaneseHolidays
　　
　　on connection_check()
　　　　try
　　　　　　tell application “System Events“
　　　　　　　　do shell script “sbin/ping -c 1 www.google.com“
　　　　　　end tell
　　　　　　set the connection_status to true
　　　　on error
　　　　　　set the connection_status to false
　　　　end try
　　　　return connection_status
　　end connection_check
　　
　　–GUI Scriptingの設定判定。10.4/10.5対応
　　on retGUIScriptingEnabled()
　　　　set v2 to system attribute “sys2“ –> 4, 5
　　　　
　　　　–Mac OS X 10.4以上なら実行
　　　　if v2 > 3 then
　　　　　　tell application “System Events“
　　　　　　　　set anUIe to UI elements enabled
　　　　　　end tell
　　　　　　
　　　　　　if anUIe = true then
　　　　　　　　return true –UI Element Scripting (GUI Scripting)がイネーブルならtrueを返す
　　　　　　else
　　　　　　　　beep
　　　　　　　　display dialog “UI Element Scriptingが有効になっていません。“ & return & return & “「システム環境設定」の「ユニバーサルアクセス」で、「補助装置を使用可能にする」のチェックボックスにチェックを入れてから再実行してください。“ with icon stop
　　　　　　　　if button returned of result is “OK“ then
　　　　　　　　　　tell application “System Preferences“
　　　　　　　　　　　　activate
　　　　　　　　　　　　set current pane to pane “com.apple.preference.universalaccess“
　　　　　　　　　　end tell
　　　　　　　　　　return false
　　　　　　　　end if
　　　　　　end if
　　　　end if
　　end retGUIScriptingEnabled
end script

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

set a to a as Unicode text
if a = “” then return

set dPAth to path to desktop
set tmpOut to (dPAth as string) & “temp.kml“
–write_to_file(a, tmpOut, false) of me
saveInEncoding(a, tmpOut, “UTF8“) of me –UTF8

do shell script “sync“

tell application “Google Earth“
　　activate
　　open file tmpOut
end tell

–指定の文字エンコーディングでファイル書き出し
on saveInEncoding(aText, aPath, aEncoding)
　　
　　set a to aText as Unicode text
　　
　　set aTmp to path to temporary items
　　
　　set outFile to (aTmp as string) & “temporary_utf16be_text_fromAS.txt“
　　write_to_file(a, outFile, false) of me
　　
　　do shell script “sync“
　　
　　set outPPath to quoted form of POSIX path of (outFile as alias)
　　set cnvPPath to quoted form of POSIX path of aPath
　　
　　try
　　　　do shell script “iconv -f UTF-16BE -t ” & aEncoding & “ ” & outPPath & “ > ” & cnvPPath
　　　　–do shell script “iconv -f UTF-16LE -t ” & aEncoding & ” ” & outPPath & ” > ” & cnvPPath
　　end try
　　
　　do shell script “sync“
　　
　　try
　　　　do shell script “rm -f ” & outPPath
　　end try
　　
end saveInEncoding

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_file(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_file

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

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

–Safariの最新のダウンロード状況を取得する
on getLatestDLstat()
　　–activate application “Safari”
　　tell application “System Events“
　　　　tell process “Safari“
　　　　　　– insert GUI Scripting statements here
　　　　　　set wList to name of every window
　　　　　　if “ダウンロード” is not in wList then return “”
　　　　　　
　　　　　　tell list 1 of scroll area 1 of window “ダウンロード“
　　　　　　　　set lastG to last group
　　　　　　end tell
　　　　　　
　　　　　　tell lastG
　　　　　　　　set sCount to count every static text
　　　　　　　　set dispTxt to “”
　　　　　　　　repeat with i from 1 to sCount
　　　　　　　　　　set aVal to value of static text i
　　　　　　　　　　set dispTxt to dispTxt & aVal & return
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
　　return dispTxt
end getLatestDLstat

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

tell application “Safari“
　　set d to count every window
　　if d = 0 then
　　　　make new window
　　　　tell document 1
　　　　　　set URL to aURL
　　　　end tell
　　else
　　　　if aURL is not equal to “” then
　　　　　　tell document 1
　　　　　　　　set URL to aURL
　　　　　　end tell
　　　　end if
　　end if
　　
　　page_loaded(10) of me
　　
　　set a to do JavaScript “document.title” in document 1
end tell

on page_loaded(timeout_value)
　　delay 2
　　repeat with i from 1 to the timeout_value
　　　　tell application “Safari“
　　　　　　if (do JavaScript “document.readyState” in document 1) is “complete” then
　　　　　　　　return true
　　　　　　else if i is the timeout_value then
　　　　　　　　return false
　　　　　　else
　　　　　　　　delay 1
　　　　　　end if
　　　　end tell
　　end repeat
　　return false
end page_loaded

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

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