recordのlistでKeynoteに表を作成する v1.5

リスト（配列）に入ったレコード（dictionary）のデータをもとに、現在オープン中のKeynoteの書類にスライドを追加し、その上に表を作成するAppleScriptです。

Keynoteで書類をオープンしていない場合には、書類を新規作成します。

表のデータを順次埋めているのは、Keynoteの表作成機能がそのように実装されているからです。普通は、データ内容を指定して表の作成と内容を一気に指定するように実装するのが普通ですが、Keynoteのこの仕様はあまりいただけません。

そのため、各セルを順次データで埋めているわけですが（アプリケーションとの通信頻度が高くなるので本来は避けたい処理）、「ignoring application responses」〜「end ignoring」による非同期実行モードによりデータでセルを埋める箇所のみ倍速実行しています。

「ignoring application responses」を使うと、AppleScriptがアプリケーションに命令を出して、正常に実行されたかどうかの「実行結果」を待たないため、おおよそ２倍の速度で実行できます。ただし、命令が正常に実行できたかどうかを取得できないので、安全性が確認されているようなケースで返り値が不要な場合にのみ利用できます。

macOS 10.14, Mojaveで実行したところ、macOS 10.12, Sierraの倍ぐらいの速度で実行しました。なんだろうこれは（10.12:Keynote v8.1, 10.14:Keynote v8.2）、、、、ハードウェアの構成などはほぼ同じで、まったく同じScriptを実行したのですが、、、、

AppleScript名：recordのlistでKeynoteに表を作成する v1.5

— Created 2016-06-29 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property aFontSize : 12

–This Date format is localized in Japanese. But this date string works only string. Don’t care about it.
set aList to {{pathStr:"book1_0.1.pdf", creationDate:"2016年6月17日金曜日", pageCount:222, countChars:127978, fileSize:"12027660"}, {pathStr:"book1_0.2.pdf", creationDate:"2016年6月17日金曜日", pageCount:230, countChars:129506, fileSize:"11109818"}, {pathStr:"book1_0.210.pdf", creationDate:"2016年6月18日土曜日", pageCount:254, countChars:147119, fileSize:"22832000"}, {pathStr:"book1_0.211.pdf", creationDate:"2016年6月18日土曜日", pageCount:254, countChars:147123, fileSize:"22831931"}, {pathStr:"book1_0.212.pdf", creationDate:"2016年6月18日土曜日", pageCount:241, countChars:134856, fileSize:"22273252"}, {pathStr:"book1_0.213.pdf", creationDate:"2016年6月18日土曜日", pageCount:241, countChars:134845, fileSize:"22271667"}, {pathStr:"book1_0.214.pdf", creationDate:"2016年6月18日土曜日", pageCount:241, countChars:134850, fileSize:"22270980"}, {pathStr:"book1_0.220.pdf", creationDate:"2016年6月18日土曜日", pageCount:242, countChars:134870, fileSize:"21098301"}, {pathStr:"book1_0.222.pdf", creationDate:"2016年6月18日土曜日", pageCount:243, countChars:135694, fileSize:"21146421"}, {pathStr:"book1_0.300.pdf", creationDate:"2016年6月20日月曜日", pageCount:251, countChars:142787, fileSize:"21427502"}, {pathStr:"book1_0.301.pdf", creationDate:"2016年6月20日月曜日", pageCount:251, countChars:142784, fileSize:"21421107"}, {pathStr:"book1_0.302.pdf", creationDate:"2016年6月20日月曜日", pageCount:256, countChars:142827, fileSize:"22593201"}, {pathStr:"book1_0.303.pdf", creationDate:"2016年6月20日月曜日", pageCount:257, countChars:142845, fileSize:"22616595"}, {pathStr:"book1_0.400.pdf", creationDate:"2016年6月22日水曜日", pageCount:281, countChars:162419, fileSize:"22430779"}, {pathStr:"book1_0.500.pdf", creationDate:"2016年6月23日木曜日", pageCount:309, countChars:178210, fileSize:"27611566"}, {pathStr:"book1_0.600.pdf", creationDate:"2016年6月24日金曜日", pageCount:326, countChars:194751, fileSize:"26820825"}, {pathStr:"book1_0.700.pdf", creationDate:"2016年6月24日金曜日", pageCount:310, countChars:195943, fileSize:"26408415"}, {pathStr:"book1_0.701.pdf", creationDate:"2016年6月24日金曜日", pageCount:310, countChars:195926, fileSize:"26406738"}, {pathStr:"book1_0.702.pdf", creationDate:"2016年6月24日金曜日", pageCount:310, countChars:195924, fileSize:"26406703"}, {pathStr:"book1_0.703.pdf", creationDate:"2016年6月24日金曜日", pageCount:311, countChars:196594, fileSize:"26416223"}, {pathStr:"book1_1.0.pdf", creationDate:"2016年6月25日土曜日", pageCount:311, countChars:196594, fileSize:"26075419"}}

set anItem to contents of first item of aList
set aDict to (current application’s NSMutableArray’s arrayWithObject:anItem)’s firstObject()
set aKeyList to aDict’s allKeys() as list
set aKeyCount to length of aKeyList
set aRowCount to length of aList

tell application "Keynote"
　　set dCount to count every document
　　if dCount = 0 then
　　　　set newDoc to make new document with properties {document theme:theme "ホワイト", width:1024, height:768} –This theme name is *localized* by stupid software maker in Cupertino. This means "White" in Japanese
　　end if
　　
　　
　　tell document 1
　　　　set aNewSlide to make new slide
　　　　set base slide of aNewSlide to master slide "空白" –This theme name is *localized* by stupid software maker in Cupertino. This means "Blank" in Japanese
　　　　
　　　　tell aNewSlide
　　　　　　set aTable to make new table with properties {column count:aKeyCount + 1, row count:aRowCount + 1}
　　　　　　
　　　　　　tell aTable
　　　　　　　　–ヘッダー行を作成（ラベルで埋める）
　　　　　　　　tell row 1
　　　　　　　　　　repeat with i from 2 to aKeyCount + 1
　　　　　　　　　　　　set aKey to item (i – 1) of aKeyList
　　　　　　　　　　　　
　　　　　　　　　　　　–非同期実行ここから
　　　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　　　set value of cell i to aKey
　　　　　　　　　　　　　　set font size to aFontSize
　　　　　　　　　　　　end ignoring
　　　　　　　　　　　　–非同期実行ここまで
　　　　　　　　　　　　
　　　　　　　　　　end repeat
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　–各行のデータを埋める
　　　　　　　　repeat with ii from 2 to aRowCount + 1
　　　　　　　　　　set aRecRow to item (ii – 1) of aList
　　　　　　　　　　tell row ii
　　　　　　　　　　　　
　　　　　　　　　　　　repeat with iii from 2 to (aKeyCount + 1)
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　tell cell iii
　　　　　　　　　　　　　　　　set aKey to item (iii – 1) of aKeyList
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　–非同期実行ここから
　　　　　　　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　　　　　　　set value to retValueForKey(aRecRow, aKey) of me
　　　　　　　　　　　　　　　　　　set font size to aFontSize
　　　　　　　　　　　　　　　　end ignoring
　　　　　　　　　　　　　　　　–非同期実行ここまで
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end repeat
　　　　　　　　　　end tell
　　　　　　　　end repeat
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　　　
　　end tell
end tell

on retValueForKey(aRec, aLabel)
　　set tmpDic to current application’s NSMutableDictionary’s dictionaryWithDictionary:aRec
　　return (tmpDic’s valueForKey:aLabel) as string
end retValueForKey