ICal - AppleScript To Convert ToDos To Events

Question

I use a iMac G4 800MHz 15" running 10.4.11. I have used Chronos Personal Organizer 4.5.0 for quite some time. I want to transfer my approximately 21,000 CPO calendar items (all are To Dos) to iCal. This number includes approximately 5,000 items that I transferred from DateBook Pro to CPO a few years ago.
I downloaded the trial version of Chronos SOHO Organizer 6.5.4 and the accompanying converter. I converted my three CPO calendars and then imported them to SOHOO 6.5.4 successfully. Then, I exported each of them from SOHOO 6.5.4 as a ".ics" file. I imported each of these ".ics" files into iCal successfully. However, iCal does not display To Do items embedded in the calendar as does CPO and SOHOO. iCal segregates the To Do items into the To Do list window. Therefore, I wish to convert all of my 21,000 iCal calendar items from To Do items to Events, such that iCal will display them in the calendar display (day / week / month) on the original date that I assigned to each of them. During the conversion from To Do to Event, I wish to retain all text / remarks / notes.
Can anyone suggest an AppleScript that will perform this conversion? I have searched the web exhaustively without any success. Would anyone like to take a stab at writing an AppleScript that performs this conversion? I have read many postings on various forums that wish to do the same thing as me, eg. transfer data from either CPO or SOHOO to iCal but embed the To Do items in the Event calendar.
Thank you.
Kurt R. Todoroff

Answer 1

This is relatively straightforward, but you should be aware of a couple of issues:
A Task, "To Do" in iCal, has no duration and iCal does not seem to parse SOHOO's DUE parameter correctly so it cannot have a time or alarm either.
If you are prepared to have your tasks appear on their original days within iCal, this can be done, but you would either need to choose to have them appear as all day events or events of a fixed duration (e.g. none) and at a fixed time (e.g. 9am).
You could try this (which is the allday event version):
Make a new calendar in iCal called "Test"
Import your .ics file - choosing to add the events to the Test calendar.
Copy and paste the text between the lines (below) into Script Editor and press Run
If you're happy with the result, simply rename your Test calendar.
If not, or I have misunderstood what you want to do, post back.
Good luck, and _*make sure you have taken backups before starting*_.
tell application "iCal"
repeat with calNum from 1 to (count of calendars)
if name of calendar calNum is "Test" then
exit repeat
end if
end repeat
set todoList to todos of calendar calNum
repeat with theTodo in todoList
set dueDate to due date of theTodo
set theSummary to summary of theTodo
set theDescription to description of theTodo
try
set dummy to length of (theDescription)
on error
set theDescription to ""
end try
try
set makeEvent to (make new event at the end of events of calendar calNum with properties ¬
{start date:dueDate, end date:dueDate, summary:theSummary, description:theDescription, allday event:true})
delete theTodo
on error
loop
end try
end repeat
end tell
-------------