Applescript and Keynote: skipping old/un-skipping new?

Question

I manage digital signage for a university department. Last week, I wrote an Applescript that will examine the contents of two folders (an Incoming and a Current folder), check the filenames of slides inside for start and end dates, and move new/old slides to the Current folder and an Old Slides folder, respectively. For example, a file named "xxx-20141027-20141031-xxx.jpg" would have been moved into the Current folder this morning and will be moved into the Old Slides folder the morning of Nov. 1.
I thought I could adapt this script to do the same thing with Keynote, having the "20141027-20141031" portion in the Presenters Notes instead. However, I'm having trouble figuring out how to get this to work exactly.
to extractStartDate(slideNotes)
     set TempID to AppleScript's text item delimiters
     set AppleScript's text item delimiters to "-"
     set notesParse to every text item of slideNotes
     set returnStartDate to text item 1 of notesParse
     return returnStartDate
     set AppleScript's text item delimiters to TempID
end extractStartDate
**repeat for EndDate
to date_format(old_date)
     set {year:y, month:m, day:d} to result
     set todayDate to (y*10000 + m*100 + d)
end date_format
set old_date to current date
set todayDate to date_format(old_date)
set currentSlideshow to "*filepath*"
set slideCount to count of currentSlideshow
tell application "Keynote"
     repeat with slide sc from 1 to slideCount
          tell slide sc
               set notesData to the notes of it
               if skipped is false then
                    set addDate to extractStartDate(notesData)
                    if addDate comes before todayDate then
                         set skipped to true
                    end if
               else if skipped is true then
                    set removeDate to extractEndDate(notesData)
                    if removeDate comes before todayDate then
                         set skipped to false
                    end if
               end if
          end tell
     end repeat
end tell
Also tried this instead of repeat loop:
     set skipped of (every slide where the extractStartDate(notes) comes before todayDate to false
     set skipped of (every slide where the extractEndDate(notes) comes before todayDate to true

Answer 1

Hi,
Try this, it work on the current document of Keynote '09'
set old_date to current date
set todayDate to date_format(old_date)
tell application "Keynote" -- version 09
    tell front slideshow
        set tc to count slides
        repeat with i from 1 to tc
            tell slide i
                set notesData to the notes of it
                if not skipped then
                    set addDate to my extractDate(notesData, 1)
                    if addDate comes before todayDate then set skipped to true
                else
                    set removeDate to my extractDate(notesData, 2)
                    if removeDate comes before todayDate then set skipped to false
                end if
            end tell
        end repeat
    end tell
end tell
to extractDate(slideNotes, n)
    set TempID to AppleScript's text item delimiters
    set AppleScript's text item delimiters to "-"
    set returnStartDate to text item n of slideNotes
    set AppleScript's text item delimiters to TempID
    return returnStartDate
end extractDate
to date_format(old_date)
    set {year:y, month:m, day:d} to result
    return (y * 10000 + m * 100 + d)
end date_format