リストの連結（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　

Markdown書類から見出し（Header）行を抽出_v2

Posted on 2月 6, 2018 by Takaaki Naganoya

Markdown書類を選択し、正規表現で見出し（Header）行を抽出するAppleScriptです。

# Header Level 1
## Header Level 2
### Header Level 3
#### Header Level 4

のようなデータを処理すると、

{{1, " Header Level 1"}, {2, " Header Level 2"}, {3, " Header Level 3"}, {4, " Header Level 4"}}

のように {{level number, “header text”}…} と結果を出力します。

AppleScript名：Markdown書類から見出し（Header）行を抽出_v2

— Created 2017-08-12 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
–http://piyocast.com/as/archives/4776

property NSRegularExpressionDotMatchesLineSeparators : a reference to current application’s NSRegularExpressionDotMatchesLineSeparators
property NSRegularExpressionAnchorsMatchLines : a reference to current application’s NSRegularExpressionAnchorsMatchLines
property NSRegularExpression : a reference to current application’s NSRegularExpression
property NSString : a reference to current application’s NSString

set aFile to choose file of type {"net.daringfireball.markdown"} –Markdown書類のUTI
set aStr to (read aFile as «class utf8»)
set aList to retHeaders(aStr) of me
–>　　{{3, "choose file, choose folderで選んだ対象の名称変更"}, {3, "choose folderで選んだフォルダ内のファイルの名称変更"}, {3, "Finder上で選んだ（selection）ファイルの名称変更"}, {3, "POSIX pathのファイルの名称変更"}, {3, "ファイルを移動させたうえで名称変更"}, {3, "要注意事項（超重要、生死にかかわる）"}}

on retHeaders(aCon)
　　set tList to {}
　　set regStr to "^#{1,6}[^#]*?$"
　　
　　set headerList to my findPattern:regStr inString:aCon
　　repeat with i in headerList
　　　　set j to contents of i
　　　　set regStr2 to "^#{1,6}[^#]*?"
　　　　set headerLevel to length of first item of (my findPattern:regStr2 inString:j)
　　　　set the end of tList to {headerLevel, text (headerLevel + 1) thru -1 in j}
　　end repeat
　　
　　return tList
end retHeaders

on findPattern:thePattern inString:theString
　　set theOptions to ((NSRegularExpressionDotMatchesLineSeparators) as integer) + ((NSRegularExpressionAnchorsMatchLines) as integer)
　　set theRegEx to NSRegularExpression’s regularExpressionWithPattern:thePattern options:theOptions |error|:(missing value)
　　set theFinds to theRegEx’s matchesInString:theString options:0 range:{location:0, |length|:length of theString}
　　set theFinds to theFinds as list — so we can loop through
　　set theResult to {} — we will add to this
　　set theNSString to NSString’s stringWithString:theString
　　repeat with i from 1 to count of items of theFinds
　　　　set theRange to (item i of theFinds)’s range()
　　　　set end of theResult to (theNSString’s substringWithRange:theRange) as string
　　end repeat
　　return theResult
end findPattern:inString:

★Click Here to Open This Script　

AppleScriptの穴

Useful & Practical AppleScript archive. Click '★Click Here to Open This Script' Link to download each AppleScript

タグ: 10.13savvy

Markdown書類から見出し（Header）行を抽出_v2