モチベーション

テストデータやクライアントサイドだけで持つJSONの生成はどうしていますか？自分は地道に手打ちして、JSONパーサーサイトでチェックして...という作業を行っていましたが、かなり面倒に感じました。また、仕様が変わりプロパティ(キー)を追加した時に全てのオブジェクトにそのプロパティを追加しなくてはならないという点でも良い方法とは言えません。そこで、Apple製表計算ソフトnumbersとAppleScriptを利用し、それらの問題の解決を試みました。

表から値を取得する

以下のような表を想定します。1行目にkeyとなる文字列を、その行にvalueが並んでいます。

この表から以下のようなJSONファイルを生成するのがゴールとなります。

recipe.json

[
{"title": "そら豆のパスタ", "foods": ["スパゲッティ", "そら豆", "パルミジャーノ", "オリーブ油", "バター"], "bookmark": true, "tags": ["パスタ", "春"], "id": 1},
{"title": "キャベツのパスタ", "foods": ["スパゲティ", "キャベツ", "アンチョビ", "にんにく", "赤唐辛子", "オリーブ油"], "bookmark": false, "tags": ["パスタ"], "id": 2}
]

numbersファイルから辞書型を作るAppleScriptを用意する

valueが配列である場合には列がなくなるまで要素を取得し続ける必要があります。valueが要素数が一つの配列である場合と、配列の型でない場合の区別ができないため、valueの型に配列を使いたい場合には列を指定して特別な処理をする必要があります。

tell application "Numbers"
	set jsonDictArray to {}
	open filePathOfNumbersFile
	-- アクティブなシートを取得
	set activeSheet to active sheet of document 1
	tell activeSheet
		set theTables to every table
		set myListStr to "[" & return
		repeat with theTable in theTables
			tell theTable
				set keyRecipe to value of cell 1 of row 1 of theTable
				set keyFoods to value of cell 2 of row 1 of theTable
				set keyBookmark to value of cell 3 of row 1 of theTable
				set keyTag to value of cell 4 of row 1 of theTable
				set keyID to value of cell 5 of row 1 of theTable
				set valueRecipe to value of cell 1 of row 2 of theTable
				set valueFoods to {}
				set rowIndex to 2 -- 開始行
				set columnNum to 2 -- 列番号
				repeat
					try
						set valueOfCell to value of cell columnNum of row rowIndex of theTable
						if valueOfCell is not missing value then
							set end of valueFoods to valueOfCell
							set rowIndex to rowIndex + 1
						else
							exit repeat
						end if
					on error
						exit repeat
					end try
				end repeat
				-- ブックマークを取得
				set valueBookmark to value of cell 3 of row 2 of theTable
				
				-- タグを取得
				set valueTag to {}
				set rowIndex to 2 -- 開始行
				set columnNum to 4 -- 列番号
				repeat
					try
						set valueOfCell to value of cell columnNum of row rowIndex of theTable
						if valueOfCell is not missing value then
							set end of valueTag to valueOfCell
							set rowIndex to rowIndex + 1
						else
							exit repeat
						end if
					on error
						exit repeat
					end try
				end repeat
				set valueID to value of cell 5 of row 2 of theTable
				set jsonDict to my createDictWith({{keyRecipe, valueRecipe}, {keyFoods, valueFoods}, {keyBookmark, valueBookmark}, {keyTag, valueTag}, {keyID, valueID}})
				set encoded to my encode(jsonDict)
				set myListStrLength to length of myListStr
				if myListStrLength = 2 then
					set myListStr to myListStr & encoded
				else
					set myListStr to myListStr & "," & return & encoded & return
				end if
			end tell
		end repeat
		set myListStr to myListStr & "]"
	end tell
end tell

取得した値を利用して辞書型に変換します。"をエスケープする必要があるのがポイントです。

辞書型を作るAppleScript

on encode(value)
	set type to class of value
	if type = real then
		return (value as integer) as text
	else if type = boolean then
		return value as text
	else if type = text then
		return encodeString(value)
	else if type = list then
		return encodeList(value)
	else if type = script then
		return value's toJson()
	else
		error "Unknown type" & type
	end if
end encode

on encodeList(value_list)
	set out_list to {}
	repeat with value in value_list
		copy encode(value) to end of out_list
	end repeat
	return "[" & join(out_list, ", ") & "]"
end encodeList

on encodeString(value)
	return "\"" & value & "\""
end encodeString


on join(value_list, delimiter)
	set original_delimiter to AppleScript's text item delimiters
	set AppleScript's text item delimiters to delimiter
	set rv to value_list as text
	set AppleScript's text item delimiters to original_delimiter
	return rv
end join

on createDictWith(item_pairs)
	set item_list to {}
	script Dict
		on setkv(key, value)
			copy {key, value} to end of item_list
		end setkv
		
		on toJson()
			set item_strings to {}
			repeat with kv in item_list
				set key_str to encodeString(item 1 of kv)
				set value_str to encode(item 2 of kv)
				copy key_str & ": " & value_str to end of item_strings
			end repeat
			return "{" & join(item_strings, ", ") & "}"
		end toJson
	end script
	
	repeat with pair in item_pairs
		Dict's setkv(item 1 of pair, item 2 of pair)
	end repeat
	return Dict
end createDictWith

返された文字列をjsonファイルに書き出す

JSONが文字列として生成できたので、それを書き出します。as «class utf8»を使ってキャストしないと文字化けするので注意です。

tell application "Finder"
	set aTextFile to open for access (書き出したいファイルへのパス & "ファイル名.json") with write permission
	set aEOF to get eof of aTextFile
	try
		write myListStr starting at 0 to aTextFile as «class utf8»
	on error aErrorText
		display dialog aErrorText
	end try
	close access aTextFile
end tell

終わりに

Object型に対応できていないのが心残りではありますが、抱えていた課題は解決できました。
AppleScriptはXcodeのテンプレートから削除されていたりと下火のようですが、便利なので使っていきたいです。

参考

JSONを作るAppleScriptを書くにあたり以下のリポジトリが大変参考になりました
https://github.com/mgax/applescript-json