iCal Export als Tabelle (Excel)

Roman wollte einen Export der Termin-Daten aus iCal in Excel. Hier ein einfacher Code, der einen Export alles nicht-Gantags-Events erstellt
Datum -> Bezeichnung -> Länge in min

## 27.10.2012 hubionmac.com
## Exportiert eine Liste alle (nicht Ganztags-Events) als Tab-Liste (Datum | Bezeichnung | Dauer in Minuten)
tell application "iCal"
  set chooselist to {}
  repeat with i from 1 to count of every calendar
    set chooselist to chooselist & {(i & " : " & name of calendar i) as text}
  end repeat
  set CalId to ((word 1 of ((choose from list chooselist) as text)) as integer)
  
  tell calendar CalId
    set myOutput to "Datum\tBezeichnung\tDauer(min)\n"
    repeat with calEvent in (get every event whose allday event is false)
      set myduration to (((end date of calEvent) - (start date of calEvent)) / 60 as miles) as string
      set myOutput to myOutput & my getDatestring(start date of calEvent) & tab & summary of calEvent & tab & myduration & "\n"
    end repeat
  end tell
  set the clipboard to
end tell

on getDatestring(d)
  return year of d & "-" & ((month of d) as integer) & "-" & day of d as text
end getDatestring
									

Leave a Reply