Numbersで指定の２つの書類のデータのdiffを取る

指定の２つのNumbers書類（の中の現在表示中のシートのTable 1）同士のdiffを取るAppleScriptです。

＃　書類内のシート内のどの表を処理するか、という階層化された対象選択を行うのにNSOutlineViewを用いたアラートダイアログを作っておきたい気持ちでいっぱいです

バージョン違いの書類間の差分を検出してレポートします。差分の評価は行単位で行なっており、同じデータでもカラムの順番を変えてあったりすると「別物」として検出します。

ただし、Numbersから２次元配列としてデータを抽出する際にすべてAppleScriptで処理するように書き換えた（macOS 10.14対策）ルーチンを使用しているので、大規模データの処理を行わせると（データ取得処理部分は）遅くなる可能性があります。

diffの計算部分はCocoaの機能に依存した（甘えまくった）処理を行なっているため、データが大きくてもそれほど遅くなりません。

612行の旧データと610行の新データをそれぞれ取得して差分を計算するのに、開発環境でだいたい3.5秒ぐらいです。同じ環境でBridgePlusを用いて1D List–> 2D List変換を行うバージョンを試してみたら、0.83秒ぐらいでした。

AppleScript名：Numbersで指定の２つの書類のデータのdiffを取る.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/04/19
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

tell application "Numbers"
　　set dList to name of every document
　　set oldDoc to contents of first item of (choose from list dList with prompt "古いデータを選択してください")
　　set newDoc to contents of first item of (choose from list dList with prompt "新しいデータを選択してください")
end tell

set oldData to get2DListFromADoc(oldDoc) of me
set newData to get2DListFromADoc(newDoc) of me

–List同士のDiffを計算する
set dRes to getDiffBetweenLists(oldData, newData) of me
–> {addItems:{{"キャッツアイ恵庭", 42.87588548, 141.5834606, "北海道恵庭市住吉町 2-9-1"}}, minusItems:{{"セガワールド白河", 37.11931521, 140.1944139, "福島県白河市新高山 1-1　メガステージ白河内"}, {"プレイアイシー", 35.3721071, 139.272272, "神奈川県秦野市南矢名 1-15-1"}, {"駅前スタジアムIII", 33.8395736, 132.7521903, "愛媛県松山市大手町 2-4-1"}}}

on get2DListFromADoc(aDocName)
　　tell application "Numbers"
　　　　tell document aDocName
　　　　　　tell active sheet
　　　　　　　　set theTable to table 1
　　　　　　　　
　　　　　　　　tell theTable
　　　　　　　　　　set selection range to cell range
　　　　　　　　　　
　　　　　　　　　　set hcCount to header column count
　　　　　　　　　　set hrCount to header row count
　　　　　　　　　　set frCount to footer row count
　　　　　　　　　　
　　　　　　　　　　set cCount to column count
　　　　　　　　　　set rCount to row count
　　　　　　　　　　
　　　　　　　　　　set outList to {}
　　　　　　　　　　
　　　　　　　　　　repeat with i from (hrCount + 1) to rCount
　　　　　　　　　　　　tell row i
　　　　　　　　　　　　　　set tmpList to value of cells (hcCount + 1) thru cCount
　　　　　　　　　　　　　　set the end of outList to tmpList
　　　　　　　　　　　　end tell
　　　　　　　　　　end repeat
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　return outList
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　end tell
end get2DListFromADoc

on getDiffBetweenLists(aArray as list, bArray as list)
　　set allSet to current application’s NSMutableSet’s setWithArray:aArray
　　allSet’s addObjectsFromArray:bArray
　　
　　–重複する要素のみ抜き出す
　　set duplicateSet to current application’s NSMutableSet’s setWithArray:aArray
　　duplicateSet’s intersectSet:(current application’s NSSet’s setWithArray:bArray)
　　
　　–重複部分を削除する
　　allSet’s minusSet:duplicateSet
　　set resArray to (allSet’s allObjects()) as list
　　
　　set aSet to current application’s NSMutableSet’s setWithArray:aArray
　　set bSet to current application’s NSMutableSet’s setWithArray:resArray
　　aSet’s intersectSet:bSet –積集合
　　set addRes to aSet’s allObjects() as list
　　
　　set cSet to current application’s NSMutableSet’s setWithArray:bArray
　　cSet’s intersectSet:bSet –積集合
　　set minusRes to cSet’s allObjects() as list
　　
　　return {addItems:minusRes, minusItems:addRes}
end getDiffBetweenLists