–set t1 to current date

–データの初期化
set dList of spdUp to {}
set selList of spdUp to {}

–iPhotoからデータを取得する
tell application "iPhoto"
　　set selList of spdUp to selection
　　
　　if (selList of spdUp) = {} then
　　　　display dialog "何も選択されていません。" buttons {"OK"} default button 1
　　　　return
　　end if
　　
　　repeat with i in (selList of spdUp)
　　　　set the end of (dList of spdUp) to (date of i)
　　end repeat
end tell

set {n1, n2, n3, n4, n5, n6, n7} to {0, 0, 0, 0, 0, 0, 0}

repeat with i in (dList of spdUp)
　　set j to contents of i
　　set aWDnum to weekday of j as number
　　if aWDnum = 1 then
　　　　set n1 to n1 + 1
　　else if aWDnum = 2 then
　　　　set n2 to n2 + 1
　　else if aWDnum = 3 then
　　　　set n3 to n3 + 1
　　else if aWDnum = 4 then
　　　　set n4 to n4 + 1
　　else if aWDnum = 5 then
　　　　set n5 to n5 + 1
　　else if aWDnum = 6 then
　　　　set n6 to n6 + 1
　　else if aWDnum = 7 then
　　　　set n7 to n7 + 1
　　end if
end repeat

return {n1, n2, n3, n4, n5, n6, n7}

–> {309, 10, 9, 10, 17, 51, 375}
–{Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday}

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

–set t1 to current date

–データの初期化
set dList of spdUp to {}
set eList of spdUp to {}
set selList of spdUp to {}

–iPhotoからデータを取得する
tell application “iPhoto”
　　set selList of spdUp to selection
　　
　　if (selList of spdUp) = {} then
　　　　display dialog “何も選択されていません。” buttons {“OK”} default button 1
　　　　return
　　end if
　　
　　repeat with i in (selList of spdUp)
　　　　set the end of (dList of spdUp) to date of i
　　end repeat
end tell

–ソート
set (dList of spdUp) to shellSort5(dList of spdUp) of me

–選択中の写真の最初の日付、最近の日付を求める
set minDate to contents of first item of (dList of spdUp)
set maxDate to contents of last item of (dList of spdUp)

–開始日、終了日の間の{年,月}のリストを取得する
set mmList to retYearMonthWithinPeriod(minDate, maxDate) of me

set aLen to length of (dList of spdUp)
set hitList to {}

set aCount to 0

set aPointer to 1
set hitF to false

repeat with i in mmList
　　set {aYear, aMonth} to i
　　set sDate to (aYear as string) & “/” & (aMonth as string) & “/1″
　　set eDate to (aYear as string) & “/” & (aMonth as string) & “/” & getMlen(aYear, aMonth) of me as string
　　set sDateObj to date sDate
　　set eDateObj to date eDate
　　
　　
　　repeat
　　　　set j to contents of item aPointer of (dList of spdUp)
　　　　if (sDateObj ≤ j) and (j ≤ eDateObj) then
　　　　　　
　　　　　　if hitF = false then
　　　　　　　　set hitF to true
　　　　　　　　set aCount to 1
　　　　　　　　
　　　　　　　　set aPointer to aPointer + 1
　　　　　　　　
　　　　　　else
　　　　　　　　set aCount to aCount + 1
　　　　　　　　set aPointer to aPointer + 1
　　　　　　end if
　　　　　　
　　　　else
　　　　　　
　　　　　　if hitF = true then
　　　　　　　　set the end of hitList to {aYear, aMonth, aCount}
　　　　　　　　set aCount to 0
　　　　　　　　set hitF to false
　　　　　　　　exit repeat
　　　　　　else
　　　　　　　　set the end of hitList to {aYear, aMonth, 0}
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　
　　　　end if
　　　　
　　　　if aPointer > aLen then
　　　　　　exit repeat
　　　　end if
　　　　
　　end repeat
　　
　　if aPointer > aLen then
　　　　exit repeat
　　end if
　　
end repeat

if hitF = true then
　　set the end of hitList to {aYear, aMonth, aCount}
end if

–set t2 to current date
–set t3 to t2 -t1
–> 93 sec

hitList
–> {{2009, 4, 2}, {2009, 5, 0}, {2009, 6, 0}, {2009, 7, 25}, {2009, 8, 0}, {2009, 9, 0}, {2009, 10, 1}, {2009, 11, 2}, {2009, 12, 7}, {2010, 1, 38}, {2010, 2, 41}, {2010, 3, 4}, {2010, 4, 36}, {2010, 5, 5}, {2010, 6, 3}, {2010, 7, 36}, {2010, 8, 26}, {2010, 9, 49}, {2010, 10, 8}, {2010, 11, 61}, {2010, 12, 23}, {2011, 1, 32}, {2011, 2, 40}, {2011, 3, 0}, {2011, 4, 26}, {2011, 5, 44}, {2011, 6, 10}, {2011, 7, 32}, {2011, 8, 41}, {2011, 9, 0}, {2011, 10, 0}, {2011, 11, 39}, {2011, 12, 51}, {2012, 1, 25}, {2012, 2, 0}, {2012, 3, 51}, {2012, 4, 23}}

on retYearMonthWithinPeriod(sDate, eDate)
　　
　　set sYear to year of sDate
　　set sMonth to month of sDate as number
　　
　　set eYear to year of eDate
　　set eMonth to month of eDate as number
　　
　　set mList to {}
　　
　　if sYear is equal to eYear then
　　　　
　　　　repeat with i from sMonth to eMonth
　　　　　　set the end of mList to {sYear, i}
　　　　end repeat
　　　　
　　else if sYear + 1 = eYear then
　　　　
　　　　repeat with i from sMonth to 12
　　　　　　set the end of mList to {sYear, i}
　　　　end repeat
　　　　
　　　　repeat with i from 1 to sMonth
　　　　　　set the end of mList to {eYear, i}
　　　　end repeat
　　　　
　　else
　　　　
　　　　repeat with i from sMonth to 12
　　　　　　set the end of mList to {sYear, i}
　　　　end repeat
　　　　
　　　　repeat with i from (sYear + 1) to (eYear - 1)
　　　　　　repeat with ii from 1 to 12
　　　　　　　　set the end of mList to {i, ii}
　　　　　　end repeat
　　　　end repeat
　　　　
　　　　repeat with i from 1 to sMonth
　　　　　　set the end of mList to {eYear, i}
　　　　end repeat
　　　　
　　end if
　　
　　return mList
end retYearMonthWithinPeriod

–最大値を取得する
on maximumFromList(nList)
　　script o
　　　　property nl : nList
　　end script
　　
　　set max to item 1 of o’s nl
　　repeat with i from 2 to (count nList)
　　　　set n to item i of o’s nl
　　　　if n > max then set max to n
　　end repeat
　　return max
　　
end maximumFromList

–最小値を取得する
on minimumFromList(nList)
　　script o
　　　　property nl : nList
　　end script
　　
　　set min to item 1 of o’s nl
　　repeat with i from 2 to (count nList)
　　　　set n to item i of o’s nl
　　　　if n < min then set min to n
　　end repeat
　　return min
　　
end minimumFromList

–指定月の長さを得る（日数）
on getMlen(aYear, aMonth)
　　
　　set aDat to (aYear as text) & “/” & (aMonth as text) & “/1″
　　if aMonth is not equal to 12 then
　　　　set eDat to ((aYear as text) & “/” & (aMonth + 1) as text) & “/1″
　　else
　　　　set eDat to ((aYear + 1) as text) & “/” & (1 as text) & “/1″
　　end if
　　
　　–set sDat to date aDat
　　set eDat to date eDat
　　set eDat to eDat - 1
　　
　　set mLen to day of eDat
　　return mLen
　　
end getMlen

–プレーンなAppleScriptベースでは最速ソート
on shellSort5(aSortList) – スクリプトオブジェクトを使用
　　script oBj
　　　　property list : aSortList
　　end script
　　set len to count oBj’s list’s items
　　set gap to 1
　　repeat while (gap ≤ len)
　　　　set gap to ((gap * 3) + 1)
　　end repeat
　　repeat while (gap > 0)
　　　　set gap to (gap div 3)
　　　　if (gap < len) then
　　　　　　repeat with i from gap to (len - 1)
　　　　　　　　set temp to oBj’s list’s item (i + 1)
　　　　　　　　set j to i
　　　　　　　　repeat while ((j ≥ gap) and (oBj’s list’s item (j - gap + 1) > temp))
　　　　　　　　　　set oBj’s list’s item (j + 1) to oBj’s list’s item (j - gap + 1)
　　　　　　　　　　set j to j - gap
　　　　　　　　end repeat
　　　　　　　　set oBj’s list’s item (j + 1) to temp
　　　　　　end repeat
　　　　end if
　　end repeat
　　return oBj’s list
end shellSort5

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

set aFilepath to choose file name with prompt "ムービーを保存するファイル名を入力"
set outFilepathPOSIX to POSIX path of aFilepath

tell application id "com.apple.QuickTimePlayerX"
　　–確実に処理を行うためにムービーをすべてクローズ
　　close every document without saving
　　
　　–録画開始
　　set recMov to (new movie recording)
　　tell recMov to start
end tell

–録画時間経過待ち
delay (recTime + 2) –秒単位でウェイト（UI系の動作により２秒程度ロスが発生するもよう）

tell application id "com.apple.QuickTimePlayerX"
　　–録画停止
　　tell recMov to stop –この操作で、QT7の設定に従ってムービーが保存される
　　
　　delay 1 –時間待ち
　　
　　tell document 1
　　　　–properties
　　　　set aProp to properties
　　　　close
　　end tell
end tell

set originPath to file of aProp

–QT Player 7が自動保存したファイルを移動＆リネーム
–ただし、自動保存したファイルのパスと移動先の衝突判定は省略
set movieOriginalFile to POSIX path of originPath
set sText to "mv " & quoted form of movieOriginalFile & " " & quoted form of outFilepathPOSIX
do shell script sText

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

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

tell application “Terminal”
　　set tabRef to a reference to (every tab of every window whose custom title is equal to targTabTitle)
　　
　　repeat with i in tabRef
　　　　do script “exit” in i
　　end repeat
　　
end tell

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

set aFilepath to choose file name with prompt "ムービーを保存するファイル名を入力"
set outFilepathPOSIX to POSIX path of aFilepath

tell application id "com.apple.quicktimeplayer"
　　–確実に処理を行うためにムービーをすべてクローズ
　　close every document without saving
　　
　　–録画開始
　　new movie recording
　　start recording 1
end tell

–録画時間経過待ち
delay recTime –秒単位でウェイト（ちょっとバカっぽい処理。本来はタイマー割り込みで時間待ちすべき）

tell application id "com.apple.quicktimeplayer"
　　–録画停止
　　stop recording 1 –この操作で、QT7の設定に従ってムービーが保存される
　　
　　delay 1 –時間待ち
　　
　　tell document 1
　　　　set originPath to original file –保存先のファイルのパスを取得しておく
　　　　close
　　end tell
end tell

–QT Player 7が自動保存したファイルを移動＆リネーム
–ただし、自動保存したファイルのパスと移動先の衝突判定は省略
set movieOriginalFile to POSIX path of originPath
set sText to "mv " & quoted form of movieOriginalFile & " " & quoted form of outFilepathPOSIX
do shell script sText

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

set aFileName to “webOut” & (do shell script “date +%Y%m%d%H%M%S”)
renderURLtoPDF(aURL, aFileName) of me

on renderURLtoPDF(aURL, aFileName)
　　set s1Text to “cd ~/Desktop && “
　　set outPath to POSIX path of (path to desktop) & aFileName & “.pdf”
　　
　　set s2Text to “wkpdf –source “ & aURL & ” –paginate false –print-background –output “ & outPath
　　
　　set sAll to s1Text & s2Text
　　do shell script sAll
end renderURLtoPDF

(*
–指定URLの内容をレンダリングしてPDFに書き出す
on renderURLtoPDF(aURL, aFileName)
　　set dDir to POSIX path of (path to desktop from user domain)
　　set outFile to dDir & aFileName & “.pdf”
　　try
　　　　do shell script “cd /usr/local/bin && /usr/local/bin/coral -f PDF -o ” & quoted form of outFile & ” ” & aURL & ” &”
　　on error
　　　　return false
　　end try
　　–return outFile
end renderURLtoPDF
*)

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

script asoc1AppDelegate
　　
　　property parent : class “NSObject”
　　
　　property tF : missing value –bind to NSTextField
　　
　　property theMessage : missing value –bind to tF’s value
　　
　　
　　
　　
　　on applicationWillFinishLaunching_(aNotification)
　　　　– Insert code here to initialize your application before any files are opened
　　end applicationWillFinishLaunching_
　　
　　
　　on applicationShouldTerminate_(sender)
　　　　– Insert code here to do any housekeeping before your application quits
　　　　return current application’s NSTerminateNow
　　end applicationShouldTerminate_
　　
　　
　　
　　on application_delegateHandlesKey_(sender, theKey)
　　　　
　　　　return theKey is in {“theMessage”}
　　　　
　　end application_delegateHandlesKey_
　　
　　
end script

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

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

–> {message:missing value, frontmost:false, class:application, name:”asoc1″, version:”1.0″}

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

–複数のプロジェクトをオープンしている場合にはアクティブ（最前面）のプロジェクトを対象に
–すごい投げやりな処理……
tell application “Xcode”
　　set curPrjDoc to active workspace document
　　
　　–最前面のプロジェクトが、必ずしもAppleScriptObjC Explorer 2で編集中のScriptが所属するプロジェクトとは限らない
　　–編集中のScriptのファイルパスから上位フォルダに存在するXcode書類を探索して、プロジェクトを特定してもいいかも
　　–ただ、Xcodeのタコさ加減にめまいがして、真剣にXcodeをAppleScriptからつっつく気になれない……
　　
　　tell curPrjDoc
　　　　build –ビルド
　　end tell
　　
end tell

–GUI Scriptingから実行指定
activate application “Xcode”
tell application “System Events”
　　tell process “Xcode”
　　　　click menu item “Run” of menu 1 of menu bar item “Product” of menu bar 1
　　end tell
end tell

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

tell application “ASDictionary” to launch

set apList to getScriptableAppPathList() of me

set ngList to {} –処理実行時にエラーになったアプリケーション/OSAXのパスが入る

–メインループ
repeat with i in apList
　　set j to contents of i
　　if j is not equal to {} or j is not equal to “” then
　　　　
　　　　–アプリケーションファイルの情報を取得
　　　　tell application “Finder”
　　　　　　set aInfo to info for j
　　　　　　set sVer to short version of aInfo
　　　　　　set sVer2 to prepareShortVersionStringNum(sVer) of me
　　　　　　set sVerStr to replaceText(sVer2 as string, “.”, “”) of me
　　　　　　set prodName to displayed name of aInfo
　　　　end tell
　　　　
　　　　set outPathStr to (outPath as string) & prodName & ” “ & sVerStr & “.html”
　　　　
　　　　
　　　　–HTML書き出し前のプロセス一覧を取得
　　　　tell application “System Events”
　　　　　　set beforeList to (unix id of every process whose visible is true)
　　　　　　log beforeList
　　　　end tell
　　　　
　　　　
　　　　–HTML書き出し（実行すると、当該のアプリケーションが起動するケース多し）
　　　　set htmlRes to false
　　　　tell application “ASDictionary”
　　　　　　set exRes to export j to outPath using file formats {single file HTML} using styles {AppleScript} with showing hidden items without compacting classes
　　　　　　
　　　　　　if success of (first item of exRes) = false then
　　　　　　　　–Export失敗時
　　　　　　　　set the end of ngList to j
　　　　　　else
　　　　　　　　
　　　　　　　　–Export成功時
　　　　　　　　set htmlRes to true
　　　　　　　　set outFile to destination of (first item of exRes)
　　　　　　end if
　　　　　　
　　　　end tell
　　　　
　　　　
　　　　–HTML書き出し後のプロセス一覧を取得（書き出し時に起動されたアプリケーションが増えている）
　　　　tell application “System Events”
　　　　　　set afterList to (unix id of every process whose visible is true and name of it is not equal to “AppleScript Editor”)
　　　　　　–set afterList to (unix id of every process whose visible is true)
　　　　　　log afterList
　　　　end tell
　　　　
　　　　
　　　　–プロセスIDの差分を取得する
　　　　set dRes to getListDiff(beforeList, afterList) of me
　　　　
　　　　if dRes is not equal to {} then
　　　　　　repeat with tmpUNIXID in dRes
　　　　　　　　set anUNIXID to (contents of tmpUNIXID) as string
　　　　　　　　set killRes to killProcessByID(anUNIXID) of me
　　　　　　　　log killRes
　　　　　　end repeat
　　　　end if
　　　　
　　　　
　　　　–書き出したHTMLのリネーム
　　　　if htmlRes = true then
　　　　　　tell application “Finder”
　　　　　　　　tell file outFile
　　　　　　　　　　set aName to name
　　　　　　　　　　
　　　　　　　　　　–書き出したHTMLファイルにバージョン番号を反映させる
　　　　　　　　　　set bName to replaceText(aName, “-AS.html”, (” “ & sVerStr & “.html”)) of me
　　　　　　　　　　set name to bName
　　　　　　　　end tell
　　　　　　end tell
　　　　end if
　　end if
end repeat

ngList –書き出せなかったアプリの一覧

–デフォルトでインストールされているAS対応アプリケーションのリストを取得する
on getScriptableAppPathList()
　　set apFol to path to applications folder
　　set utilFol to path to utilities folder
　　set sysFol to ((path to system folder) as string) & “Library:CoreServices:”
　　set sysLibFol to ((path to system folder) as string) & “Library:ScriptingAdditions:”
　　set devFol to ((path to startup disk) as string) & “Developer:Applications:”
　　set libPath to (path to library folder) & “ScriptingAdditins:”
　　
　　tell application “Finder”
　　　　–一般アプリケーション
　　　　tell folder apFol
　　　　　　set ap1List to (every application file whose accepts high level events is true and has scripting terminology of it is true) as alias list
　　　　end tell
　　　　
　　　　–ユーティリティーフォルダー
　　　　tell folder utilFol
　　　　　　set ap2List to (every application file whose accepts high level events is true and has scripting terminology of it is true) as alias list
　　　　end tell
　　　　
　　　　–SystemのCoreServicesフォルダ
　　　　tell folder sysFol
　　　　　　set ap3List to (every application file whose has scripting terminology is true) as alias list
　　　　end tell
　　　　
　　　　–Developerフォルダ
　　　　try
　　　　　　tell folder devFol
　　　　　　　　set ap4List to (every application file whose has scripting terminology is true) as alias list
　　　　　　end tell
　　　　on error
　　　　　　set ap4List to {}
　　　　end try
　　　　
　　　　–/System/Library/ScriptingAdditions フォルダのOSAX
　　　　try
　　　　　　tell folder sysLibFol
　　　　　　　　set osax1List to (every file whose name ends with “.osax”) as alias list
　　　　　　end tell
　　　　on error
　　　　　　set osax1List to {}
　　　　end try
　　　　
　　　　
　　　　–/Library/ScriptingAdditions フォルダのOSAX
　　　　try
　　　　　　tell folder libPath
　　　　　　　　set osax2List to (every file whose name ends with “.osax”) as alias list
　　　　　　end tell
　　　　on error
　　　　　　set osax2List to {}
　　　　end try
　　　　
　　　　
　　　　set appList to ap1List & ap2List & ap3List & ap4List & osax1List & osax2List
　　　　
　　end tell
　　
　　return appList
　　
end getScriptableAppPathList

–任意のデータから特定の文字列を置換
on replaceText(origData, origText, repText)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to {origText}
　　set origData to text items of origData
　　set AppleScript’s text item delimiters to {repText}
　　set origData to origData as text
　　set AppleScript’s text item delimiters to curDelim
　　–set b to origData as text
　　return origData
end replaceText

–short version文字列をよろしく処理する（major.minor1.minor2）
–short versionに英語や日本語の文字をズラズラ並べていた場合には所期の動作を行えない
on prepareShortVersionStringNum(sVer)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to {“.”}
　　set sList to text items of sVer
　　set AppleScript’s text item delimiters to curDelim
　　
　　set sLen to length of sList
　　if sLen = 2 then
　　　　set sVer to sVer & “.0″
　　else if sLen = 1 then
　　　　set sVer to sVer & “.0.0″
　　end if
　　
　　return sVer
end prepareShortVersionStringNum

–リスト間のdiffを取る
–aList: before List, bList: after List
on getListDiff(aList, bList)
　　set diffList to {}
　　
　　repeat with i in bList
　　　　set j to contents of i
　　　　if j is not in aList then
　　　　　　set the end of diffList to j
　　　　end if
　　end repeat
　　
　　return diffList
end getListDiff

–指定プロセスをしつこくkillする
on killProcessByID(anID)
　　set anID to anID as string
　　
　　set errorCount to 20 –10 seconds to wait
　　
　　repeat
　　　　
　　　　tell application “System Events”
　　　　　　set dID to every process whose unix id is equal to (anID as number)
　　　　end tell
　　　　
　　　　if dID = {} then return true
　　　　
　　　　do shell script “kill -9 “ & anID
　　　　
　　　　set errorCount to errorCount - 1
　　　　if errorCount = 0 then return false
　　　　
　　　　delay 0.5
　　　　
　　end repeat
　　
end killProcessByID

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

–Initialize variables
set aList of aRef to {}
set bList of aRef to {}
set cList of aRef to {}
set dList of aRef to {}

set a to choose folder with prompt "Choose check Folder"

tell application "Finder"
　　tell folder a
　　　　set aList of aRef to name of every file
　　end tell
end tell

–make pure file name list(without extension) to cList
repeat with i in aList of aRef
　　set j to contents of i
　　set jj to retFileNameWithoutExt(j) of me
　　
　　if jj is in bList of aRef then
　　　　–duplicated file name & does not exist in cList
　　　　if jj is not in cList of aRef then
　　　　　　set the end of cList of aRef to jj
　　　　end if
　　　　
　　　　set tmpName to jj & "."
　　　　
　　　　tell application "Finder"
　　　　　　tell folder a
　　　　　　　　–set dList of aRef to dList of aRef & (name of every file whose name starts with tmpName)
　　　　　　　　set the end of dList of aRef to (name of every file whose name starts with tmpName)
　　　　　　end tell
　　　　end tell
　　　　
　　end if
　　
　　set the end of bList of aRef to jj
end repeat

–Remove duplicates from List
set aRes to removeDuplicates(dList of aRef) of me

–> {{"D120_a.jpg", "D120_a.png"}, {"D120_c.gif", "D120_c.jpg", "D120_c.png", "D120_c.txt"}}

–Remove Duplicated Item from List
on removeDuplicates(aList)
　　set newList to {}
　　repeat with i from 1 to (length of aList)
　　　　set anItem to item 1 of aList
　　　　set aList to rest of aList
　　　　if {anItem} is not in aList then set end of newList to anItem
　　end repeat
　　return newList
end removeDuplicates

–delete extension from file name
on retFileNameWithoutExt(fileNameStr)
　　set fLen to length of fileNameStr
　　set revText to (reverse of (characters of fileNameStr)) as string –make reversed string
　　set anOffset to offset of "." in revText
　　set fRes to text 1 thru (fLen - anOffset) of fileNameStr
　　return fRes
end retFileNameWithoutExt

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

script textview1AppDelegate
　　property parent : class “NSObject”
　　
　　property aTV : missing value
　　property bTV : missing value
　　
　　on applicationWillFinishLaunching_(aNotification)
　　　　– Insert code here to initialize your application before any files are opened
　　end applicationWillFinishLaunching_
　　
　　on applicationShouldTerminate_(sender)
　　　　– Insert code here to do any housekeeping before your application quits
　　　　return current application’s NSTerminateNow
　　end applicationShouldTerminate_
　　
　　on clicked_(sender)
　　　　
　　　　set textStorage to (my aTV’s textStorage())
　　　　set theText to textStorage’s |string|()
　　　　display dialog (theText as string)
　　　　
　　end clicked_
　　
　　on clicked2_(sender)
　　　　
　　　　
　　　　set textStorage to (my aTV’s textStorage())
　　　　set theText to textStorage’s |string|()
　　　　
　　　　set theText to theText as Unicode text
　　　　
　　　　my bTV’s setString_(theText)
　　　　
　　end clicked2_
　　
　　on clicked3_(sender)
　　　　
　　　　set textStorage to (my aTV’s textStorage())
　　　　set theTextA to textStorage’s |string|()
　　　　set theTextA to theTextA as Unicode text
　　　　
　　　　set textStorage to (my bTV’s textStorage())
　　　　set theTextB to textStorage’s |string|()
　　　　set theTextB to theTextB as Unicode text
　　　　
　　　　if theTextA = theTextB then
　　　　　　display dialog “左右のテキスト内容はイコールです”
　　　　else
　　　　　　display dialog “左右のテキスト内容は合っていません”
　　　　end if
　　　　
　　end clicked3_
　　
end script

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

set dtPath to (path to desktop) as string
set fName to do shell script "date +%Y%m%d%H%M%S"

set fullPath to dtPath & fName & ".jpg"
set fullPathPOSIX to POSIX path of fullPath

tell application "Adobe InDesign CS3"
　　tell document 1
　　　　tell layer "コンテンツ"
　　　　　　set aList to every group whose label is equal to "screen"
　　　　end tell
　　　　
　　　　set expItem to contents of first item of aList
　　　　export expItem format JPG to fullPath without with grids
　　　　
　　end tell
end tell

–iPhotoに書き出したJPEGファイルをインポートする
tell application "iPhoto"
　　import from fullPathPOSIX
end tell

–アップデート可能なiOSデバイスをアップデートする
tell application "iTunes"
　　repeat with i in sources
　　　　if (kind of i is iPod) then update i
　　end repeat
end tell

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

tell application “Microsoft Excel”
　　tell sheet 1
　　　　repeat with i from 1 to 41
　　　　　　
　　　　　　–１行分のループ
　　　　　　repeat with j from 1 to 5
　　　　　　　　
　　　　　　　　set aColCell to (contents of item j of colCellList) & i as string
　　　　　　　　
　　　　　　　　set aDataRangeBeginStr to (contents of first item of item j of dataCellList) & i as string
　　　　　　　　set aDataRangeEndStr to (contents of last item of item j of dataCellList) & i as string
　　　　　　　　
　　　　　　　　set aRange to range (aDataRangeBeginStr & “:” & aDataRangeEndStr)
　　　　　　　　set aData to value of aRange
　　　　　　　　
　　　　　　　　if aData = {{-1.0, -1.0, -1.0}} then –データが入っていない箇所には-1を入れてある
　　　　　　　　　　exit repeat
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set color of interior object of cell aColCell to first item of aData
　　　　　　　　
　　　　　　end repeat
　　　　　　
　　　　end repeat
　　end tell
end tell

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

tell application “Microsoft Excel”
　　
　　tell window 1
　　　　set curSheetNum to entry_index of active sheet –あとでこのシートの表示状態に戻す　　
　　end tell
　　
　　tell workbook 1
　　　　set sList to every sheet
　　　　repeat with i in sList
　　　　　　set j to contents of i
　　　　　　
　　　　　　–表示対象のWorksheet（タブ）を切り替える
　　　　　　tell j
　　　　　　　　activate object
　　　　　　end tell
　　　　　　
　　　　　　–現在表示中のExcelのウィンドウの表示倍率を変更する
　　　　　　changeZoomOfCurrentExcelWindow(zoomNum) of me
　　　　end repeat
　　end tell
　　
　　tell workbook 1
　　　　activate object worksheet curSheetNum –初期表示状態に戻す
　　end tell
　　
end tell

–Excel 2011で現在表示中のウィンドウのズーム倍率を変更する
on changeZoomOfCurrentExcelWindow(aZoomPercent)
　　tell application “Microsoft Excel”
　　　　tell window 1
　　　　　　set zoom to aZoomPercent
　　　　end tell
　　end tell
end changeZoomOfCurrentExcelWindow