リストの連結（addObjectsFromArray）

Posted on 2月 6, 2018 by Takaaki Naganoya

Cocoaの機能（NSMutableArray）を使って配列（AppleScriptではリスト）を連結するAppleScriptです。

普通にAppleScriptの配列型であるList型変数で配列同士の連結を行う場合には、

set aList to {1, 2, 3}
set bList to {4, 5, 6}
set cList to aList & bList
--> {1, 2, 3, 4, 5, 6}

とします。

AppleScript自体に配列であるList型のデータを操作する機能がありますが、いわゆるメソッドと呼ばれるものがほとんどなく、AppleScript単体ではソートやデータ抽出などの機能もありません（ループでチェックしてソートしたり抽出することは可能。ユーザー同士で積み重ねてきた機能ルーチンの蓄積はけっこうあります）。

あるいは、外部のアプリケーション（FileMaker Pro）を利用したり、macOS標準搭載のDatabaseEventsなどを併用することでデータ抽出を行なってきたという歴史があります。

だいたいは、データ抽出のためにリストを全件ループでチェックして、条件に合うものを抽出するとか、そういう脳筋プログラミングをしてきました。アプリケーションのコントロールという超ハイレベルな操作を行う一方で、泥くさい地道なデータ処理能力が低かったので、おっそろしく地道なプログラムを作れる能力も求められてきた環境ともいえます。

macOS 10.10以降ではCocoaの機能が通常のAppleScriptでも利用できるようになったため、NSArray/NSMutableArrayの機能を用いてそれらのクラス由来のさまざまな機能が利用できるようになり、リストの連結についても、いったんNSMutableArrayに変換して各種機能を呼び出すことが行われるようになってきました。

ただし、リスト型変数をNSMutableArrayに変換するのにも時間はかかるため、巨大なデータ（数千〜１万項目以上）を扱うケースでなければAppleScriptだけで脳筋処理したほうが高速というケースはままあります。

本Scriptの末尾で連結したリストではなく、そのlengthを取得しているのは、連結したデータ項目数が多すぎて、そのままスクリプトエディタの「結果」欄に出力すると受信時間がかかりハングアップ状態に見えてしまうためです。

AppleScript名：リストの連結（addObjectsFromArray）

— Created 2017-10-12 by Shane Stanley
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property NSMutableArray : a reference to current application’s NSMutableArray

set anArray to NSMutableArray’s new()

repeat 10000 times
　　anArray’s addObjectsFromArray:{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
end repeat

return length of (anArray as list)
–>　　{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1…..}

★Click Here to Open This Script　

2Dリストを左（counterclockwise）に90度回転

Posted on 2月 6, 2018 by Takaaki Naganoya

2D List（２次元配列）を左に90度回転させるAppleScriptです。

回転させるにあたって、各行のアイテム数のうち最大のものを求め、最大アイテム数に足りない行については詰め物をして、２次元配列をなるべく正方形ないし長方形に整った形にしてから回転させます。

AppleScript名：2Dリストを左（counterclockwise）に90度回転

— Created 2017-10-02 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property NSArray : a reference to current application’s NSArray

set origList to {{1, 2, 3, 4, 5, 6, 7}, {11, 12, 13, 14, 15, 16}, {21, 22, 23, 24, 25, 26, 27, 28}}

set wList to rotateListCounterClockwise90(origList, 0) of me

–>　　{{0, 0, 28}, {7, 0, 27}, {6, 16, 26}, {5, 15, 25}, {4, 14, 24}, {3, 13, 23}, {2, 12, 22}, {1, 11, 21}}

set sList to rotateListCounterClockwise90(wList, 0) of me
–>　　{{28, 27, 26, 25, 24, 23, 22, 21}, {0, 0, 16, 15, 14, 13, 12, 11}, {0, 7, 6, 5, 4, 3, 2, 1}}

set eList to rotateListCounterClockwise90(sList, 0) of me
–>　　{{21, 11, 1}, {22, 12, 2}, {23, 13, 3}, {24, 14, 4}, {25, 15, 5}, {26, 16, 6}, {27, 0, 7}, {28, 0, 0}}

set nList to rotateListCounterClockwise90(eList, 0) of me
–>　　{{1, 2, 3, 4, 5, 6, 7, 0}, {11, 12, 13, 14, 15, 16, 0, 0}, {21, 22, 23, 24, 25, 26, 27, 28}}

on rotateListCounterClockwise90(aList, blankItem)
　　set curMax to 0
　　
　　set curLen to length of aList
　　set curMax to getMaxItemCountFrom2DArray(aList) of me
　　
　　set tmpList to {}
　　
　　set twoDList to make2DBlankArray(curLen, curMax) of me
　　
　　set curY to 1
　　repeat with x from curMax to 1 by -1
　　　　
　　　　set curX to 1
　　　　repeat with y from 1 to curLen by 1
　　　　　　set aCon to getItemByXY(x, y, aList, blankItem) of me
　　　　　　set twoDList to setItemByXY(curX, curY, twoDList, aCon) of me
　　　　　　set curX to curX + 1
　　　　end repeat
　　　　
　　　　set curY to curY + 1
　　end repeat
　　
　　return twoDList
end rotateListCounterClockwise90

on getMaxItemCountFrom2DArray(curList)
　　set anArray to NSArray’s arrayWithArray:curList
　　set eRes to (anArray’s valueForKeyPath:"@unionOfObjects.@count")’s valueForKeyPath:"@max.self"
　　return eRes as integer
end getMaxItemCountFrom2DArray

–2D Listに配列の添字的なアクセスを行なってデータを取得
on getItemByXY(aX, aY, aList, aBlankItem) –1 based index
　　try
　　　　set aContents to contents of (item aX of item aY of aList)
　　on error
　　　　set aContents to aBlankItem
　　end try
　　return aContents
end getItemByXY

–2D Listに配列の添字的なアクセスを行なってデータを設定
on setItemByXY(aX, aY, tmpList, aContents) –1 based index
　　set (item aX of item aY of tmpList) to aContents
　　return tmpList
end setItemByXY

–空白の2D Array を出力する
on make2DBlankArray(curLen, curMax)
　　set outArray to {}
　　repeat curMax times
　　　　set tmpList to {}
　　　　repeat curLen times
　　　　　　set the end of tmpList to ""
　　　　end repeat
　　　　set the end of outArray to tmpList
　　end repeat
　　return outArray
end make2DBlankArray

★Click Here to Open This Script　

2Dリストを右（clockwise）に90度回転

Posted on 2月 6, 2018 by Takaaki Naganoya

2D List（２次元配列）を右に90度回転させるAppleScriptです。

AppleScript名：2Dリストを右（clockwise）に90度回転

— Created 2017-10-02 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property NSArray : a reference to current application’s NSArray

set origList to {{1, 2, 3, 4, 5, 6, 7}, {1, 2, 3, 4, 5, 6}, {1, 2, 3, 4, 5, 6, 7, 8}}

set eList to rotateListClockwise90(origList, 0) of me

–>　　{{1, 1, 1}, {2, 2, 2}, {3, 3, 3}, {4, 4, 4}, {5, 5, 5}, {6, 6, 6}, {7, 0, 7}, {8, 0, 0}}

(*)
set sList to rotateListClockwise90(eList, 0) of me
–>　　 {{8, 7, 6, 5, 4, 3, 2, 1}, {0, 0, 6, 5, 4, 3, 2, 1}, {0, 7, 6, 5, 4, 3, 2, 1}}

set wList to rotateListClockwise90(sList, 0) of me
–>　　 {{0, 0, 8}, {7, 0, 7}, {6, 6, 6}, {5, 5, 5}, {4, 4, 4}, {3, 3, 3}, {2, 2, 2}, {1, 1, 1}}

set nList to rotateListClockwise90(wList, 0) of me
–>　　{{1, 2, 3, 4, 5, 6, 7, 0}, {1, 2, 3, 4, 5, 6, 0, 0}, {1, 2, 3, 4, 5, 6, 7, 8}}
*)

on rotateListClockwise90(aList, blankItem)
　　set curMax to 0
　　
　　set curLen to length of aList
　　set curMax to getMaxItemCountFrom2DArray(aList) of me
　　
　　set tmpList to {}
　　
　　set twoDList to make2DBlankArray(curLen, curMax) of me
　　
　　set curY to 1
　　repeat with x from 1 to curMax
　　　　
　　　　set curX to 1
　　　　repeat with y from curLen to 1 by -1
　　　　　　set aCon to getItemByXY(x, y, aList, blankItem) of me
　　　　　　set twoDList to setItemByXY(curX, curY, twoDList, aCon) of me
　　　　　　set curX to curX + 1
　　　　end repeat
　　　　
　　　　set curY to curY + 1
　　end repeat
　　
　　return twoDList
end rotateListClockwise90

★Click Here to Open This Script　

縦書きリストの縦行がすべて空白であったら縦行を削除

Posted on 2月 6, 2018 by Takaaki Naganoya

AppleScript名：縦書きリストの縦行がすべて空白であったら縦行を削除

use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aList to {{"　", "対", "i", "う", "テ"}, {"　", "応", "p", "A", "キ"}, {"　", "バ", "t", "p", "ス"}, {"　", "︱", "の", "p", "ト"}, {"　", "ジ", "﹁", "l", "縦"}, {"　", "ョ", "禁", "e", "書"}, {"　", "ン", "則", "S", "き"}, {"　", "で", "処", "c", "を"}, {"　", "す", "理", "r", "行"}, {"　", "︒", "﹂", "　", "　"}}

set bList to checkBlankVerticalLine(aList, "　") of me

on checkBlankVerticalLine(aList, aBlankChar)
　　set tLen to length of (item 1 of aList)
　　copy aList to bList
　　set hitList to makeRepeatinglList(length of bList, true) of me
　　
　　set aCount to 1
　　repeat
　　　　set workList to {}
　　　　repeat with ii in bList
　　　　　　set jj to contents of ii
　　　　　　set the end of workList to (item aCount of jj = aBlankChar)
　　　　end repeat
　　　　
　　　　if workList = hitList then
　　　　　　repeat with ii from 1 to length of bList
　　　　　　　　set jj to contents of item ii of bList
　　　　　　　　set item ii of bList to removeItemInArray(jj, 1) of me
　　　　　　end repeat
　　　　　　set tLen to tLen – 1
　　　　end if
　　　　set aCount to aCount + 1
　　　　if aCount > tLen then
　　　　　　exit repeat
　　　　end if
　　end repeat
　　
　　return bList
end checkBlankVerticalLine

on removeItemInArray(aList as list, anItemNo as integer)
　　set anArray to current application’s NSMutableArray’s arrayWithArray:aList
　　anArray’s removeObjectAtIndex:(anItemNo – 1)
　　return anArray as list
end removeItemInArray

on makeRepeatinglList(hitNum, hitItem)
　　set outList to {}
　　repeat hitNum times
　　　　set the end of outList to hitItem
　　end repeat
　　return outList
end makeRepeatinglList

★Click Here to Open This Script　