Help - Applescript to Delete Calendar

Question

I need to find an applescript or automator sequence to delete a calendar from iCal.
The calendar to be deleted would always have the same name.
Could use some help here.
Thanks in advance.

Answer 1

John,
Really appreciate your help. This is a nice script you have done.
I put the delete / create up front. I find that whatever name I use, the new calendar created is "untitled" so I am just using that.
Anyway, I just want SourceCal to be "untitled" and
myfile to be Calendar Export.txt from my documents folder
Thanks.
Rex
tell application "iCal" to delete calendar "untitled"
tell application "iCal" to create calendar "untitled"
tell application "iCal"
set sourceCal to first calendar whose name is (item 1 of (choose from list (name of (every calendar) as list) with prompt "Choose calendar to add events to."))
set myFile to choose file with prompt "Where is the exported Now Up To Date file?"
end tell
set myEvents to paragraphs of (read myFile)
set myNow to current date
repeat with thisEvent in myEvents
set {myTIDs, AppleScript's text item delimiters} to {AppleScript's text item delimiters, {tab}}
set eventDetails to text items of thisEvent
set AppleScript's text item delimiters to myTIDs
if (count of eventDetails) is greater than 1 then
set anEvent to false
set allDay to false
if item 2 of eventDetails is not equal to "" then
set thisStart to date (item 1 of eventDetails & " " & item 2 of eventDetails)
set thisEnd to date (item 1 of eventDetails & " " & item 3 of eventDetails)
set anEvent to true
else
set thisStart to date (item 1 of eventDetails)
if item 6 of eventDetails contains "All Day" or item 6 of eventDetails contains "Banner" then
set thisEnd to (date (item 1 of eventDetails)) + 1 * days
set allDay to true
set anEvent to true
end if
end if
set mySummary to (item 4 of eventDetails)
set {myTIDs, AppleScript's text item delimiters} to {AppleScript's text item delimiters, {ASCII character 11}}
set (item 5 of eventDetails) to text items of (item 5 of eventDetails)
set AppleScript's text item delimiters to {return}
set (item 5 of eventDetails) to (item 5 of eventDetails) as text
set AppleScript's text item delimiters to myTIDs
set myDescription to "CATEGORY: " & (item 8 of eventDetails) & return & "TYPE: " & (item 6 of eventDetails) & return & "PRIORITY: " & (item 7 of eventDetails) & return & (item 5 of eventDetails)
set doneFlag to false
if (item 10 of eventDetails) is equal to "Done" then set doneFlag to true
tell application "iCal"
if anEvent is true then
set newEvent to make new event at the end of events of sourceCal with properties {summary:mySummary, description:myDescription, start date:thisStart, end date:thisEnd}
if allDay is true then
set allday event of newEvent to true
else
set end date of newEvent to thisEnd
end if
else
set newToDo to make new todo at the end of todos of sourceCal with properties {summary:mySummary, description:myDescription, due date:thisStart}
if doneFlag is true then
set completion date of newToDo to myNow
end if
end if
end tell
end if
end repeat
tell application "iCal" to display dialog "events added in " & (current date) - myNow & " seconds."