TV-Browser-Forum

Code: Alles auswählen

script.append("  set theEvent to make new event at end of (events of TVBrowserCalendar) with properties props\n");

Code: Alles auswählen

property myTVCalendar : "Persönlich"
on stringToList from theString for myDelimiters
	tell AppleScript
		set theSavedDelimiters to AppleScript's text item delimiters
		set text item delimiters to myDelimiters
		set outList to text items of theString
		set text item delimiters to theSavedDelimiters
		return outList
	end tell
end stringToList
on getDateForISOdate(theISODate, theISOTime)
	local myDate
	-- converts an ISO format (YYYY-MM-DD) and time to a date object
	set monthConstants to {January, February, March, April, May, June, July, August, September, October, November, December}
	set theISODate to (stringToList from (theISODate) for "-")
	set theISOTime to (stringToList from (theISOTime) for ":")
	set myDate to current date
	set month of myDate to 1
	tell theISODate
		set year of myDate to item 1
		set day of myDate to item 3
		set month of myDate to item (item 2) of monthConstants
	end tell
	tell theISOTime
		set hours of myDate to item 1
		set minutes of myDate to item 2
		set seconds of myDate to 0
	end tell
	return myDate
end getDateForISOdate
tell application "Calendar"
	--check for the existence of the calendar,  if the calendar doesn't exist, make a new one
	set allCalendarTitles to the title of every calendar
	if allCalendarTitles contains myTVCalendar then
		set TVBrowserCalendar to (first calendar whose title is myTVCalendar)
	else
		set TVBrowserCalendar to (make calendar at end of calendars with properties {title:myTVCalendar})
	end if
	set startDate to my getDateForISOdate("2013-11-01", "18:05")
	set endDate to my getDateForISOdate("2013-11-01", "19:00")
	set props to {start date:startDate, end date:endDate, summary:"ZDF - SOKO Kitzbühel", description:"ZDF - SOKO Kitzbühel 01.11.2013 18:05-19:00  Der Kitzbüheler Juwelier Ulrich Laurenz will seiner Frau Irina ein unvergessliches Geburtstagsgeschenk machen: Er lädt die Primaballerina Tatjana Ulitskaja und eine Balletttruppe in sein Schloss ein.  "}
	set theEvent to make event at end of events of TVBrowserCalendar with properties props
	make new display alarm at beginning of theEvent with properties {trigger interval:0}
end tell