make text cue from excel

duquesne9 Jul 10th, 2018 (edited) 127 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. --Version 2.0
  2. --Written by Chase Elison 6/15/2018
  3. --Fully automatic script. Handles multiple Q lists.
  4. --Modified from Jack Baxter's code, THANK YOU JACK.
  5. --
  7. display dialog "WARNING! DO NOT run this code unless you have the CSV file open in Excel that you exported from the console."
  9. set namePrefix to the text returned of (display dialog "What prefix would you like for the cues? (e.g. Q1, Light Cue 1, LQ1...)" default answer "Q")
  11. set textCol to "B"
  12. set startRow to "2"
  13. set endRow to "700" --this is really just a bailout number now, since this code is automatic
  14. set cellval to "Cell"
  15. set rowNum to startRow
  16. --repeat until rowNum = endRow + 1
  17. tell application "Microsoft Excel"
  18.     repeat until (value of cell ("A" & rowNum) as string) is "END_TARGETS"
  19.         if (value of cell (textCol & rowNum) as string) is not "" then
  20.             set textTxt to (value of cell (textCol & rowNum) as string) as string
  21.         else
  22.             set textTxt to "" as string
  23.         end if
  25.         tell application id "com.figure53.QLab.3" to tell front workspace
  26.             make type "title"
  27.             set newQ to last item of (selected as list)
  28.             set text of newQ to textTxt
  29.             set the q number of newQ to ""
  30.         end tell
  32.         set rowNum to rowNum + 1
  33.     end repeat
  34. end tell
  36. display dialog (rowNum as string) & " was the final row!"
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand