Hello.
I’m trying to harvest a set of annotations from Quicktime movies and put them in an Excel worksheet. I figured out a way to do it one movie at a time, using Word as an intermediary. This script puts the text of the annotations in a word file, which I then save as unicode text and import into Excel as tab-delimited text. The return at the end of the script separates one file from the next:
tell application "QuickTime Player" to tell document 1 to if exists then
set my_list to {(full text of annotation "artist") & tab & (full text of annotation "full name") & tab & (full text of annotation "director") & tab & (full text of annotation "writer") & tab & (full text of annotation "producer") & tab & (full text of annotation "performers") & tab & (full text of annotation "composer") & tab & (full text of annotation "original source") & tab & (full text of annotation "original format") & tab & (full text of annotation "track") & tab & (full text of annotation "genre") & tab & (full text of annotation "album") & tab & (full text of annotation "disclaimer") & tab & (full text of annotation "description") & tab & (full text of annotation "copyright") & tab & (full text of annotation "warning") & tab & (full text of annotation "comment") & tab & (full text of annotation "information") & return}
end if
tell application "Microsoft Word"
insert text (my_list as string) at end of text object of active document
end tell
This is usable, but I’d love to be able to go directly to Excel from the Quicktime file and, ideally, be able to point to a folder in the script and just tell it to do this for all the movie files in the specified folder. And the cherry on top would be to make it so that if an annotation starts with an asterisk, it just enters the asterisk or any other character in that field instead of the text following the asterisk. Any ideas?
Thanks,
- Bruce