TV-Browser-Forum

Code: Alles auswählen

property myTVCalendar : "TV-Browser"
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
	
	tell theISODate
		set year of myDate to item 1
		set month of myDate to item (item 2) of monthConstants
		set day of myDate to item 3
	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 "iCal"
  if (exists (calendars whose title is myTVCalendar)) then
    set TVBrowserCalendar to first item of (calendars whose title is myTVCalendar)
  else
    set TVBrowserCalendar to make new calendar with properties {title:myTVCalendar}
  end if

  set startDate to my getDateForISOdate("2009-12-24", "16:05")
  set endDate to my getDateForISOdate("2009-12-24", "18:40")

  set props to {start date:startDate, end date:endDate, summary:"RTL - Der große Comedy Adventskalender 2009", description:"RTL - Der große Comedy Adventskalender 2009 24.12.2009 16:05-18:40    "}
  set theEvent to make new 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

Code: Alles auswählen

property myTVCalendar : "TV-Browser"
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 myDate to date theISOTime
	
	tell theISODate
		set year of myDate to item 1
		set month of myDate to item (item 2) of monthConstants
		set day of myDate to item 3
	end tell
	
	return myDate
end getDateForISOdate


tell application "iCal"
  if (exists (calendars whose title is myTVCalendar)) then
    set TVBrowserCalendar to first item of (calendars whose title is myTVCalendar)
  else
    set TVBrowserCalendar to make new calendar with properties {title:myTVCalendar}
  end if

  set startDate to my getDateForISOdate("2009-12-24", "22:10")
  set endDate to my getDateForISOdate("2009-12-24", "22:10")

  set props to {start date:startDate, end date:endDate, summary:"ProSieben - Constantine", description:"ProSieben - Constantine 24.12.2009 22:10-22:09  John Constantine kam mit der Gabe auf die Welt, Halbblut-Engel und –Dämonen zu sehen, die als Menschen getarnt unter uns leben. Diese Visionen trieben ihn in den Selbstmord. Doch er wurde aus der  "}
  set theEvent to make new 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