set icalRes to {}
repeat with i in aRes
　　set j to contents of i
　　set the end of icalRes to getCalName(j) of me
end repeat
icalRes
–> {”ホーム”}

–選択中のiCal上のイベントが所属しているカレンダーの名称を取得する
on getCalName(aStr)
　　
　　set aList to paragraphs of aStr
　　set aTitle to contents of item 1 of aList
　　set dStr to contents of item 2 of aList
　　
　　set dOffset to offset of “日 を “ in dStr
　　set dDate to text 1 thru dOffset of dStr
　　–set dDateObj to date dDate
　　
　　set tSeparator to offset of ” 〜 “ in dStr
　　if tSeparator = 0 then
　　　　–「〜」がないことから、終日のスケジュールと判断
　　　　set timeFrom to “0:00″
　　　　set timeTo to “23:59:59″
　　else
　　　　–開始時刻と終了時刻のあるスケジュールと判断
　　　　set timeFrom to text (dOffset + 4) thru (tSeparator - 1) of dStr
　　　　set timeTo to text (tSeparator + 3) thru ((length of dStr) - 12) of dStr
　　end if
　　
　　set timeFromObj to date (dDate & ” “ & timeFrom)
　　set timeToObj to date (dDate & ” “ & timeTo)
　　
　　
　　
　　tell application “iCal”
　　　　set cnList to name of every calendar
　　　　set cList to every calendar
　　　　
　　　　set cCount to 1
　　　　set findF to false
　　　　repeat with i in cList
　　　　　　tell i
　　　　　　　　set eList to (every event whose start date is not less than timeFromObj and start date is not greater than timeToObj and summary of it is aTitle)
　　　　　　　　if eList is not equal to {} then
　　　　　　　　　　set findF to true
　　　　　　　　　　exit repeat
　　　　　　　　end if
　　　　　　end tell
　　　　　　set cCount to cCount + 1
　　　　end repeat
　　　　
　　　　if findF = true then
　　　　　　set aName to contents of item cCount of cnList
　　　　else
　　　　　　set aName to “”
　　　　end if
　　end tell
　　
　　return aName
end getCalName

–選択中のイベント情報をコピー（エラー時にはfalseをリターン）
on retSelectedEvent()
　　activate application “iCal”
　　tell application “System Events”
　　　　tell process “iCal”
　　　　　　–「編集」メニューの項目「コピー」がイネーブルかどうかを取得
　　　　　　set copyEnabled to (enabled of menu item 5 of menu 1 of menu bar item 4 of menu bar 1)
　　　　　　if copyEnabled = false then return false
　　　　　　
　　　　　　–コピーしてみる
　　　　　　try
　　　　　　　　
　　　　　　　　keystroke “c” using {command down}
　　　　　　on error
　　　　　　　　–何らかの都合でコピー等の動作を行えなかった場合
　　　　　　　　return false
　　　　　　end try
　　　　　　
　　　　　　–ダイアログ表示時のボタンクリック
　　　　　　clickiCalDialog() of me
　　　　　　
　　　　　　–クリップボードから文字情報を取得
　　　　　　set aConList to the clipboard
　　　　　　set aCon to aConList as string
　　　　　　
　　　　end tell
　　end tell
　　
　　set aList to parseByDelim(aCon, (ASCII character 13) & (ASCII character 13)) of me
　　
　　return aList
　　
end retSelectedEvent

–iCalでイベントをコピー時に、繰り返しイベントが選択されていた時に表示されるダイアログを乗り越えるためのルーチン
–（「キャンセル」ではない方のボタンを押す）
on clickiCalDialog()
　　–ダイアログ検出
　　tell application “System Events”
　　　　tell process “iCal”
　　　　　　if (count every window) > 1 then
　　　　　　　　if subrole of window 1 = “AXDialog” then
　　　　　　　　　　tell window 1
　　　　　　　　　　　　–キャンセル「ではない」方のボタンを取得
　　　　　　　　　　　　set bList to every button whose title is not equal to “キャンセル”
　　　　　　　　　　　　if bList is not equal to {} then
　　　　　　　　　　　　　　set aButton to first item of bList
　　　　　　　　　　　　　　tell aButton
　　　　　　　　　　　　　　　　click
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end if
　　　　　　　　　　end tell
　　　　　　　　end if
　　　　　　end if
　　　　end tell
　　end tell
end clickiCalDialog

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

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

–指定期間のイベントを取得
set todayDat to current date
set targYear to (year of todayDat) as string
set targMonth to (month of todayDat as number) as string
set aTarg to text returned of (display dialog "重複イベントの削除対象月は？（YYYY/MM）" default answer (targYear & "/" & targMonth))
set {sDate, eDate} to getRangeFromDateText(aTarg) of me

with timeout of 3600 seconds
　　tell application "iCal"
　　　　set theEvents to properties of every event of every calendar whose start date is greater than sDate and end date is less than eDate and summary is not equal to ""
　　end tell
end timeout

–入り組んだリストをフラットなリストに
set g_tmpList to {} –初期化
set g_tmpList_ref to a reference to g_tmpList
makeFlatList(theEvents) of me

set dIDList to {}

with timeout of 3600 seconds
　　tell application "iCal"
　　　　repeat with i from 1 to (length of g_tmpList_ref)
　　　　　　set anItem to first item of g_tmpList_ref
　　　　　　set anRec to {start date of anItem, end date of anItem, summary of anItem}
　　　　　　set g_tmpList to rest of g_tmpList
　　　　　　
　　　　　　repeat with ii in g_tmpList_ref
　　　　　　　　set bRec to {start date of ii, end date of ii, summary of ii}
　　　　　　　　if anRec = bRec then
　　　　　　　　　　set anID to uid of ii
　　　　　　　　　　if anID is not in dIDList then
　　　　　　　　　　　　–display dialog (("重複イベント" & return & (item 1 of anRec) as string) & return & (item 2 of anRec) as string) & return & item 3 of anRec
　　　　　　　　　　　　set the end of dIDList to anID
　　　　　　　　　　end if
　　　　　　　　end if
　　　　　　end repeat
　　　　end repeat
　　　　
　　　　
　　　　set delSucCount to 0
　　　　set delFailCount to 0
　　　　
　　　　repeat with i in dIDList
　　　　　　set delEvents to (every event of every calendar whose uid is equal to i)
　　　　　　makeFlatList(delEvents) of me
　　　　　　
　　　　　　repeat with ii in g_tmpList_ref
　　　　　　　　set aDelEv to contents of ii
　　　　　　　　if aDelEv is not equal to {} then
　　　　　　　　　　try
　　　　　　　　　　　　delete (contents of aDelEv)
　　　　　　　　　　　　set delSucCount to delSucCount + 1
　　　　　　　　　　on error
　　　　　　　　　　　　set delFailCount to delFailCount + 1
　　　　　　　　　　end try
　　　　　　　　end if
　　　　　　end repeat
　　　　end repeat
　　　　
　　　　if delSucCount = 0 then
　　　　　　display dialog "重複スケジュールは存在しませんでした。" buttons {"OK"} default button 1 with icon 1
　　　　else
　　　　　　set aMes to (delSucCount as string) & "件のスケジュールを削除。"
　　　　　　(*
　　　　if delFailCount is not equal to 0 then
　　　　　　set aMes to aMes & "うち、" & (delFailCount as string) & "件の削除に失敗しました。"
　　　　end if
　　　　*)
　　　　　　display dialog aMes buttons {"OK"} default button 1 with icon 1
　　　　end if
　　end tell
end timeout

–再帰でフラットなリストを作成する
on makeFlatList(aList)
　　repeat with i in aList
　　　　set aClass to (class of i) as string –２行に分けたり、ここでstringにcastしなかったりすると……AppleScript Studio環境に持っていったときに動かなくなる！！
　　　　if aClass = "list" then
　　　　　　makeFlatList(i) of me
　　　　else
　　　　　　set the end of g_tmpList to (contents of i)
　　　　end if
　　end repeat
end makeFlatList

on getRangeFromDateText(aText)
　　if aText does not contain "…" then
　　　　–普通にYYYY/MM指定のみ行った場合
　　　　set sDate to (aText & "/1")
　　　　set eDate to (date sDate) + (getMlen(year of (date sDate), month of (date sDate)) of me) * days
　　　　set sDate to date sDate
　　　　
　　else
　　　　–期間を「YYYY/MM…YYYY/MM」　　で指定した場合
　　　　set curDelim to AppleScript’s text item delimiters
　　　　set AppleScript’s text item delimiters to "…"
　　　　set tList to text items of aText
　　　　set AppleScript’s text item delimiters to curDelim
　　　　
　　　　set item1T to contents of item 1 of tList
　　　　set item2T to contents of item 2 of tList
　　　　
　　　　set sDate to date retYYYYMDD(item1T) of me
　　　　set eDate1 to date retYYYYMDD(item2T) of me
　　　　set eDate to eDate1 + (getMlen(year of sDate, month of eDate1) of me) * days
　　end if
　　
　　return {sDate, eDate}
end getRangeFromDateText

on retYYYYMDD(aText)
　　if aText contains "/" then
　　　　set bText to aText & "/1"
　　else
　　　　set thisYear to (year of (current date)) as string
　　　　set bText to thisYear & "/" & aText & "/1"
　　end if
　　return bText
end retYYYYMDD

–指定月の長さを得る（日数）
on getMlen(aYear, aMonth)
　　
　　set aYear to aYear as number
　　set aMonth to aMonth as number
　　
　　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

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

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

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

–R/Oではないカレンダーの番号を取得
on getWritableCalendarNo()
　　set aList to {}
　　tell application “iCal“
　　　　set calCount to count every calendar
　　　　repeat with i from 1 to calCount
　　　　　　set writableF to writable of calendar i
　　　　　　if writableF is equal to true then
　　　　　　　　set the end of aList to i
　　　　　　end if
　　　　end repeat
　　end tell
　　return aList
end getWritableCalendarNo

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