Sammanfatta iCal-kalender?

Det finns en Automator Action som alla utom jag tycks få att fungera. Kika på det, det följer med Automator!

Vänligen, Ylan

AppleScript är nog lösningen. Jag har gjort precis det där, och lite till för Entourage, och samma sak måste vara möjligt i iCal

Det här var en bra idé. Precis vad jag saknar i iCal. Uppdatera gärna tråden om nån fixar til det! Annars ska ja själv ta en titt på applescript vs iCal när jag hinner.

Tänk på att heldagsaktiviteter är 24 timmar långa!

Vänligen, Ylan

Nästan samma, men man kan ju ej kopiera från en dialogruta, så nu läggs den totala tiden i urklipp, så kan man klistra in den där man vill!

--©Ylan 2007-05-12
--Resultatet kommer i timmar i decimalform, alltså ej timmar och minuter, men det lär väl ej vara så svårt att pilla till! Totala tiden läggs även i urklipp! Vänligen, Ylan

tell application "iCal"
	
	set theCalendarNames to get name of every calendar
	set chosenCalendar to (choose from list theCalendarNames) as string
	
	set allEvents to (every event of calendar chosenCalendar)
	set eventCount to count of allEvents
	set totalCalendarTime to 0
	
	repeat with i in allEvents
		set totalCalendarTime to totalCalendarTime + ((end date of i) - (start date of i))
	end repeat
	
	set totalCalendarHours to (totalCalendarTime / 3600)
	set the clipboard to totalCalendarHours as string
	display dialog ((("Kalendern " & chosenCalendar & " har " & return & eventCount as string) & " aktiviteter, som sammanlagt tagit " & totalCalendarHours as string) & " timmar.")
end tell

Vänligen, Ylan