標準偏差を求める v2

Posted on 8月 7, 2019 by Takaaki Naganoya

１次元配列から標準偏差を求めるAppleScriptです。

Numbersで検算してみたら結果が異なりました。元になっているSwiftのプログラムとは計算結果が合っているので、そういうこと（Cocoaの計算機能＋変数型による差異）なんでしょうか。

AppleScript名：標準偏差を求める v2

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/08/07
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"

property NSExpression : a reference to current application’s NSExpression
property NSMutableArray : a reference to current application’s NSMutableArray

set aList to {14.0, 37.0, 18.5, 59.0, 100}
set d1Res to calcStddev(aList) of me
–> 122.708110069451

set a2List to {1, 2, 3, 4, 4, 5, 9, 11}
set d2Res to calcStddev(a2List) of me
–> 3.218598297396

–標準偏差を計算する
on calcStddev(aList)
　　–https://nshipster.com/nsexpression/
　　set anArray to NSMutableArray’s arrayWithArray:aList
　　set anExp to NSExpression’s expressionForFunction:"stddev:" arguments:{(NSExpression’s expressionForConstantValue:anArray)}
　　set valList to anExp’s expressionValueWithObject:(missing value) context:(missing value)
　　return valList as real
end calcStddev

★Click Here to Open This Script　

アラートダイアログ上にRadio Buttonを表示 v4a

Posted on 8月 7, 2019 by Takaaki Naganoya

アラートダイアログ上にRadio Buttonを表示して項目選択するAppleScriptです。

普通にラジオボタンで項目選択できるようになりました。

表示列数を指定できるようにしておきましたが、選択項目の余りが発生すると処理に矛盾が発生するため、キリのいい（割り切れる）列数を指定してください（短時間で作った試作品なので、そこまで気合は入れていません）。

AppleScript名：アラートダイアログ上にRadio Buttonを表示 v4a

— Created 2019-08-07 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"

property NSView : a reference to current application’s NSView
property NSAlert : a reference to current application’s NSAlert
property NSButton : a reference to current application’s NSButton
property NSRadioButton : a reference to current application’s NSRadioButton
property NSButtonTypeRadio : a reference to current application’s NSButtonTypeRadio
property NSRunningApplication : a reference to current application’s NSRunningApplication

property theResult : 0
property returnCode : 0

set paramObj to {myMessage:"Select target Item", mySubMessage:"適切なものを以下からえらんでください", myColNum:2, matrixTitleList:{"にんじん", "ごぼう", "だいこん", "りんご", "キャベツ", "レタス", "じゃがいも", "にんじん", "小松菜", "青梗菜", "しいたけ", "舞茸"}}

–my chooseItemByRadioButton:paramObj –for Debugging
my performSelectorOnMainThread:"chooseItemByRadioButton:" withObject:(paramObj) waitUntilDone:true
return (theResult as integer)

on chooseItemByRadioButton:(paramObj)
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set aMatList to (matrixTitleList of paramObj) as list
　　set aLen to length of aMatList
　　
　　set colNum to (myColNum of paramObj) as integer
　　set rowNum to (aLen div colNum) + (aLen mod colNum)
　　
　　set aButtonCellWidth to 150
　　set aButtonCellHeight to 24
　　
　　set viewWidth to aButtonCellWidth * colNum
　　set viewHeight to aButtonCellHeight * rowNum
　　
　　–define the matrix size where you’ll put the radio buttons
　　set matrixRect to current application’s NSMakeRect(0.0, 0.0, viewWidth, viewHeight)
　　set aView to NSView’s alloc()’s initWithFrame:(matrixRect)
　　
　　set aCount to 1
　　set tmpArray to current application’s NSMutableArray’s new()
　　repeat with y from 1 to rowNum
　　　　repeat with x from 1 to colNum
　　　　　　if aCount ≤ aLen then
　　　　　　　　set j to contents of item aCount of aMatList
　　　　　　　　set tmpB to (NSButton’s alloc()’s initWithFrame:(current application’s NSMakeRect(((x – 1) * aButtonCellWidth), ((aLen – aCount) div colNum) * aButtonCellHeight, aButtonCellWidth, aButtonCellHeight)))
　　　　　　　　
　　　　　　　　(tmpB’s setTitle:j)
　　　　　　　　(tmpB’s setShowsBorderOnlyWhileMouseInside:true)
　　　　　　　　(tmpB’s setTag:(aCount))
　　　　　　　　(tmpB’s setTarget:me)
　　　　　　　　(tmpB’s setAction:("clicked:"))
　　　　　　　　(tmpB’s setButtonType:(current application’s NSButtonTypeRadio))
　　　　　　　　
　　　　　　　　(tmpArray’s addObject:tmpB)
　　　　　　　　
　　　　　　end if
　　　　　　
　　　　　　set aCount to aCount + 1
　　　　end repeat
　　end repeat
　　
　　–Select the first radio button item
　　(tmpArray’s objectAtIndex:0)’s setState:(current application’s NSOnState)
　　set theResult to 1
　　
　　(aView’s setSubviews:tmpArray)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aView
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　if (my returnCode as number) = 1001 then error number -128
end chooseItemByRadioButton:

on doModal:aParam
　　set (my returnCode) to aParam’s runModal()
end doModal:

on clicked:aParam
　　set aTag to tag of aParam
　　set theResult to aTag
end clicked:

★Click Here to Open This Script　

アラートダイアログ上にRadio Buttonを表示 v3

Posted on 8月 7, 2019 by Takaaki Naganoya

アラートダイアログ上にラジオボタン的なUIを表示して選択するAppleScriptです。

–> Downdload calImageDialog (with Library within its bundle)

本当はRadio Button的なものを作りたかったのですが、NSMatrixがmacOS 10.8で非推奨というか事実上の廃止になったことを受けて、Radio Button的なものを作ってみたのですが、割と中途半端です（見た目はスゲーいいのに）。

▲macOS 10.14＋Script Editor上の動き

▲macOS 10.14＋Script Debugger上の動き

一応、ボタンの画像に１月分のカレンダー画像を割り当てており、機能と見た目のバランスを取ろうとしたのですが、Radio Buttonっぽい動きにはなっていません（残念！）。

あと、１年分のカレンダー画像を作成するのに不思議なぐらい時間がかかっています。

あんな素朴なcalコマンドにmacOS 10.13から当日のハイライト表示を消すための「-h」オプションが追加されていたとは、気づきませんでした。10.14で作って10.12上で動かなかったのでcalコマンドのオプションを条件分岐で変更するように初版から修正しました。

AppleScript名：アラートダイアログ上にRadio Buttonを表示 v3

— Created 2019-08-07 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use calImage : script "calImageKit"

property NSView : a reference to current application’s NSView
property NSAlert : a reference to current application’s NSAlert
property NSMatrix : a reference to current application’s NSMatrix
property NSButton : a reference to current application’s NSButton
property NSButtonCell : a reference to current application’s NSButtonCell
property NSRadioButton : a reference to current application’s NSRadioButton
property NSRadioModeMatrix : a reference to current application’s NSRadioModeMatrix
property NSRoundedBezelStyle : a reference to current application’s NSRoundedBezelStyle
property NSRunningApplication : a reference to current application’s NSRunningApplication
property NSAlertSecondButtonReturn : a reference to current application’s NSAlertSecondButtonReturn

property theResult : 0
property returnCode : 0

set paramObj to {myMessage:"Select target month", mySubMessage:"適切なものを以下からえらんでください", matrixTitleList:{"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"}}

–my chooseItemByRadioButton:paramObj–for Debugging

my performSelectorOnMainThread:"chooseItemByRadioButton:" withObject:paramObj waitUntilDone:true
return theResult

on chooseItemByRadioButton:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set aMatList to (matrixTitleList of paramObj) as list
　　set aLen to length of aMatList
　　
　　
　　set aButtonCellWidth to 104
　　set aButtonCellHeight to 104
　　
　　set colNum to 4
　　set rowNum to 3
　　
　　set targYear to 2019
　　
　　set viewWidth to aButtonCellWidth * colNum
　　set viewHeight to aButtonCellHeight * rowNum
　　
　　–create the radio button prototype
　　set aProto to NSButtonCell’s alloc()’s init()
　　aProto’s setTitle:"Options"
　　aProto’s setButtonType:(NSRadioButton)
　　
　　–define the matrix size where you’ll put the radio buttons
　　set matrixRect to current application’s NSMakeRect(0.0, 0.0, viewWidth, viewHeight)
　　set aView to NSView’s alloc()’s initWithFrame:(matrixRect)
　　
　　set aCount to 1
　　set tmpArray to current application’s NSMutableArray’s new()
　　repeat with y from 1 to rowNum
　　　　repeat with x from 1 to colNum
　　　　　　set j to contents of item aCount of aMatList
　　　　　　set tmpB to (NSButton’s alloc()’s initWithFrame:(current application’s NSMakeRect(((x – 1) * aButtonCellWidth), ((aLen – aCount) div colNum) * aButtonCellHeight, aButtonCellWidth, aButtonCellHeight)))
　　　　　　–(tmpB’s setTitle:j)
　　　　　　
　　　　　　set tmpImage to makeSmallCalendarImage(targYear, aCount) of calImage
　　　　　　(tmpB’s setImage:(tmpImage))
　　　　　　(tmpB’s setShowsBorderOnlyWhileMouseInside:true)
　　　　　　(tmpB’s setTag:(aCount))
　　　　　　(tmpB’s setTarget:me)
　　　　　　(tmpB’s setAction:("clicked:"))
　　　　　　(tmpB’s setButtonType:(current application’s NSButtonTypeMomentaryPushIn))
　　　　　　
　　　　　　(tmpArray’s addObject:tmpB)
　　　　　　set aCount to aCount + 1
　　　　end repeat
　　end repeat
　　
　　(aView’s setSubviews:tmpArray)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aView
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　if (my returnCode as number) = 1001 then error number -128
　　
end chooseItemByRadioButton:

on doModal:aParam
　　set (my returnCode) to aParam’s runModal()
end doModal:

on clicked:aParam
　　set aTag to tag of aParam
　　set theResult to aTag
end clicked:

★Click Here to Open This Script　

アラートダイアログ上にpath control x2を表示 v2

Posted on 8月 3, 2019 by Takaaki Naganoya

アラートダイアログ上にPathcontrolを表示して、ファイルパス選択をドラッグ＆ドロップで受け付けるAppleScriptの改良版です。

実行中にアピアランスのDark Mode/Light Modeへの変更が行われたときの対応を追加してみました。

実行途中でアピアランスの変更が行われると、OSが提供している部品をそのまま利用している分にはOSの管理下で色変更が行われますが、あとから色指定している部品はそのままです（↑）。上記の（↑）ように、割と違和感があるというか、実用上困る（そもそもアピアランス変更をそんな時に行う方がどうかしているとは思うのですが）ので、対処してみました。

部品はひととおり作ってあったので、組み合わせただけです。アピアランスの変更Notificationを受信する部品や、アピアランステーマを判定する部品などです。

部品の組み合わせ方にも些細なノウハウがあるので、一応やっておいたことには意義があると思っています。

AppleScript名：アラートダイアログ上にpath control x2を表示 v2

— Created 2019-08-02 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"

property NSView : a reference to current application’s NSView
property NSAlert : a reference to current application’s NSAlert
property NSColor : a reference to current application’s NSColor
property NSTextField : a reference to current application’s NSTextField
property NSPathControl : a reference to current application’s NSPathControl
property NSUserDefaults : a reference to current application’s NSUserDefaults
property NSRunningApplication : a reference to current application’s NSRunningApplication
property NSDistributedNotificationCenter : a reference to current application’s NSDistributedNotificationCenter

property theResult : 0
property returnCode : 0
property resList : {}
property aPathControl : missing value
property bPathControl : missing value

set paramObj to {myMessage:"ファイルの入出力フォルダ選択", mySubMessage:"どれか選択してください。", fromPathMes:"移動元：", toPathMes:"移動先："}
my performSelectorOnMainThread:"chooseTwoPath:" withObject:paramObj waitUntilDone:true

return resList
–> {fromPathRes:"/Users/me/Desktop/keyn1.png", toPathRes:"/Users/me/Desktop/scriptmenu1.png"}

on chooseTwoPath:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set fromLabel to fromPathMes of paramObj
　　set toLabel to toPathMes of paramObj
　　
　　—Dark Mode Notification受信開始
　　NSDistributedNotificationCenter’s defaultCenter()’s addObserver:me selector:"darkModeChanged:" |name|:"AppleInterfaceThemeChangedNotification" object:(missing value)
　　
　　— create a view
　　set theView to NSView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, 600, 60))
　　
　　— create two path control & text field
　　set aPathControl to NSPathControl’s alloc()’s initWithFrame:(current application’s NSMakeRect(100, 35, 700, 20))
　　set bPathControl to NSPathControl’s alloc()’s initWithFrame:(current application’s NSMakeRect(100, 0, 700, 20))
　　
　　–Set path control’s bg colors
　　set {aCol, bCol} to pathControlSrtringColor() of me
　　aPathControl’s setBackgroundColor:(aCol)
　　bPathControl’s setBackgroundColor:(bCol)
　　
　　
　　set aHome to current application’s |NSURL|’s fileURLWithPath:(current application’s NSHomeDirectory()) –initial dir
　　aPathControl’s setURL:aHome
　　bPathControl’s setURL:aHome
　　
　　set a1TF to NSTextField’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 35, 100, 20))
　　set a2TF to NSTextField’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, 100, 20))
　　a1TF’s setEditable:false
　　a2TF’s setEditable:false
　　a1TF’s setStringValue:fromLabel
　　a2TF’s setStringValue:toLabel
　　a1TF’s setDrawsBackground:false
　　a2TF’s setDrawsBackground:false
　　a1TF’s setBordered:false
　　a2TF’s setBordered:false
　　
　　theView’s setSubviews:{a1TF, aPathControl, a2TF, bPathControl}
　　
　　— set up alert
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:theView
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　if (my returnCode as number) = 1001 then error number -128
　　
　　set s1Val to (aPathControl’s |URL|’s |path|()) as string
　　set s2Val to (bPathControl’s |URL|’s |path|()) as string
　　
　　set resList to {fromPathRes:s1Val, toPathRes:s2Val}
　　
　　–Notification受信停止
　　NSDistributedNotificationCenter’s defaultCenter()’s removeObserver:me |name|:"AppleInterfaceThemeChangedNotification" object:(missing value)
end chooseTwoPath:

on doModal:aParam
　　set (my returnCode) to aParam’s runModal()
end doModal:

–ダークモードの判定。ダークモード時：true、ライトモード時：falseが返る
on retLIghtOrDark()
　　set curMode to (NSUserDefaults’s standardUserDefaults()’s stringForKey:"AppleInterfaceStyle") as string
　　return (curMode = "Dark") as boolean
end retLIghtOrDark

–aMaxValを最大値とする数値でNSColorを作成して返す
on makeNSColorFromRGBAval(redValue as integer, greenValue as integer, blueValue as integer, alphaValue as integer, aMaxVal as integer)
　　set aRedCocoa to (redValue / aMaxVal) as real
　　set aGreenCocoa to (greenValue / aMaxVal) as real
　　set aBlueCocoa to (blueValue / aMaxVal) as real
　　set aAlphaCocoa to (alphaValue / aMaxVal) as real
　　set aColor to NSColor’s colorWithCalibratedRed:aRedCocoa green:aGreenCocoa blue:aBlueCocoa alpha:aAlphaCocoa
　　return aColor
end makeNSColorFromRGBAval

–Notification handler
on darkModeChanged:(aNotification)
　　set {aCol, bCol} to pathControlSrtringColor() of me
　　aPathControl’s setBackgroundColor:(aCol)
　　bPathControl’s setBackgroundColor:(bCol)
end darkModeChanged:

on pathControlSrtringColor()
　　set dMode to retLIghtOrDark() of me –Dark mode:true
　　if dMode = false then
　　　　–Light Mode
　　　　set aCol to (NSColor’s cyanColor())
　　　　set bCol to (NSColor’s yellowColor())
　　else
　　　　–Dark Mode
　　　　set aCol to (makeNSColorFromRGBAval(0, 96, 65, 255, 255) of me)
　　　　set bCol to (makeNSColorFromRGBAval(93, 92, 0, 255, 255) of me)
　　end if
　　
　　return {aCol, bCol}
end pathControlSrtringColor

★Click Here to Open This Script　

Keynoteの表の内容を回転（Transpose）

Posted on 8月 2, 2019 by Takaaki Naganoya

Keynoteでオープン中の書類の現在表示中のページ（スライド）上にある表のデータを回転（transpose）する、行列入れ替えするAppleScriptです。

–> Download tableTransposer (Code Signed Applet)

Numbersでは、指定の表データの縦横転置のためのコマンド「行と列を転置」（transpose）がありますが、Keynoteにはありません。

Keynoteの表データをコピーしてNumbersに持って行って転置してKeynoteに戻していますが、メニュー操作で一発で転置できるようにしてみたものです。

回転（転置）前にテーブルの縦横のセル数をカウントして、高さと幅が同じでない場合には処理を行いません。ただ、これでは明らかに使い勝手がよくありません。いっそ、表のセル数を変更して転置したデータ形状に表の方を合わせるべきです。

Script Menuから実行させてみる場合には、コード署名してアプレット書き出しする必要があります。上記のリンクから、コード署名したアプレットをダウンロードして実行してみてください。

AppleScript名：表の内容を回転（Transpose）

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/05/16
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions
use script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

set tName to getTargetTableName() of me
if tName = false then return

–Get Table Values as 2D List
set t1List to getValuesOfATableBy2DList(tName) of me

–Check Table width and height is same or not
set tRes to countElementsOf2DList(t1List) of me
if tRes = false then
　　display notification "Table width and height is not same….."
　　return
end if

–Transpose 2D List
set t2List to transpose2DList(t1List) of me

–Set values to a table
setValuesToATableBy2DList(tName, t2List) of me

–Keynoteの現在の最前面の書類の現在のスライド上の指定名称の表に2D Listの値を入れる
on setValuesToATableBy2DList(tName, tList)
　　tell application "Keynote"
　　　　tell front document
　　　　　　tell current slide
　　　　　　　　tell table tName
　　　　　　　　　　set rCount to count every row
　　　　　　　　　　set cCount to count every column
　　　　　　　　　　
　　　　　　　　　　repeat with i from 1 to rCount
　　　　　　　　　　　　tell row i
　　　　　　　　　　　　　　repeat with ii from 1 to cCount
　　　　　　　　　　　　　　　　tell cell ii
　　　　　　　　　　　　　　　　　　ignoring application responses –Sync Mode
　　　　　　　　　　　　　　　　　　　　set value of it to getItemByXY(ii, i, tList, "") of me
　　　　　　　　　　　　　　　　　　end ignoring
　　　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　end repeat
　　　　　　　　　　　　end tell
　　　　　　　　　　end repeat
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
end setValuesToATableBy2DList

–Keynoteの現在の最前面の書類の現在のスライド上の指定名称の表から2D Listで値を取り出す
on getValuesOfATableBy2DList(tName)
　　set a2Dlist to {}
　　tell application "Keynote"
　　　　tell front document
　　　　　　tell current slide
　　　　　　　　tell table tName
　　　　　　　　　　set rCount to count every row
　　　　　　　　　　repeat with i from 1 to rCount
　　　　　　　　　　　　tell row i
　　　　　　　　　　　　　　set tList to value of every cell
　　　　　　　　　　　　end tell
　　　　　　　　　　　　set the end of a2Dlist to tList
　　　　　　　　　　end repeat
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
　　return a2Dlist
end getValuesOfATableBy2DList

–処理対象となる表の名称を取得する
on getTargetTableName()
　　tell application "Keynote"
　　　　tell front document
　　　　　　tell current slide
　　　　　　　　set tCount to count every table
　　　　　　　　
　　　　　　　　if tCount = 0 then
　　　　　　　　　　display notification "There is no Table"
　　　　　　　　　　return false
　　　　　　　　　　
　　　　　　　　else if tCount > 1 then
　　　　　　　　　　set tList to name of every table
　　　　　　　　　　
　　　　　　　　　　set tRes to choose from list tList with prompt "Chose target Table"
　　　　　　　　　　if tRes = false then return false
　　　　　　　　　　set tName to first item of tRes
　　　　　　　　else
　　　　　　　　　　set tName to name of table 1
　　　　　　　　end if
　　　　　　　　
　　　　　　　　return tName
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　end tell
end getTargetTableName

–2D ListをTransposeする
on transpose2DList(aList as list)
　　load framework
　　return (ASify from (current application’s SMSForder’s colsToRowsIn:aList |error|:(missing value)))
end transpose2DList

—-リストに対して、一般的な配列添字っぽくアクセスするサブルーチン（ただし、要素は1はじまり）

on getItemByXY(aX, aY, aList, aBlankItem)
　　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

on setItemByXY(aX, aY, aList, aContents)
　　set (item aX of item aY of aList) to aContents
　　return aList
end setItemByXY

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

–配列のサイズを数えるサブルーチン

–2D Listの要素数カウント
on countElementsOf2DList(aList)
　　set aDim to getDimension given tArray:aList
　　if aDim is not equal to 2 then return false
　　
　　set aHeight to count every item of aList
　　set aWidth to count every item of item 1 of aList
　　return {xWidth:aWidth, yHeight:aHeight}
end countElementsOf2DList

–指定Listの次元を再帰で取得する
on getDimension given tArray:aList as list : {}, curDim:aNum as integer : 1
　　
　　set anItem to contents of first item of aList
　　set aClass to class of anItem
　　
　　if aClass = list then
　　　　set aNum to aNum + 1
　　　　set aRes to getDimension given tArray:anItem, curDim:aNum
　　else
　　　　return aNum
　　end if
　　
end getDimension

★Click Here to Open This Script　

選択中のリストのテキスト（多分）をもとにKeynoteの表を作成 v2

Posted on 8月 1, 2019 by Takaaki Naganoya

Script Editor上で選択中の1D List（１次元配列）のテキストを評価してリストとして解釈し、それをもとにKeynoteの新規書類上に表を作成するAppleScriptの改良版です。

こんな感じ（↑）に、Script Editor上で1D List（１次元配列）のテキストが存在しているものを、資料化するためにKeynote上で表にすることがあり、その作業を自動化してみました。

スクリプトエディタ上の選択範囲のテキストをrun scriptコマンドで実際に実行（Evalのような使い方）して本物のAppleScriptのリストを作成して処理します。

ここがたいへんにセキュリティホールになりやすいので、実行前にテキストをAppleScriptとして構文確認を行い、危ない構文要素（コマンド類）が入っていないか、AppleScriptの構文的に中途半端でないかチェックを行います。

技術的にはMac OS X 10.4ないし10.5の時代に確立していた内容ではありますが、当時はスクリプトエディタをコントロールして構文色分け情報を取得していたので、macOS 10.10以降でCocoaの機能がAppleScriptから直接利用できるようになって、よりスマートに処理できるようになりました。

Mac OS X 10.4の時代には、plistの情報はテキストで記録されていたので、構文色分け設定を読むのは簡単でした。スクリプトエディタから書式つきテキスト情報（attribute runs）を取得して付け合わせを行っていました。途中でplistの内容がバイナリ化されてplistを読むことが難しくなったので、新規書類に「すべての構文要素が入った最低限度のAppleScript」を転送して構文確認を行い、attribute runsを取得して規定の場所の書式情報を取得することで、特定の構文要素の色分け情報を取得していました（一瞬で新規書類を作成して構文確認し、すぐに破棄するので目には見えない）。

–> Download selectedStrToKeynoteTable (Source AppleScript Bundle with Library)

–> Download selectedStrToKeynoteTableWithCodeSign(AppleScript Applet executable with Code Sign)

ただし、本ScriptをmacOS 10.14上で実行してみていろいろ問題を感じました。まずは、スクリプトエディタ/Script Debugger上で実行する分には何も問題はありません。ここは大事なので明記しておきます。

これ以外の実行環境で実行させると、とたんに首をひねりたくなるような挙動が見られます。Script Menuから実行することを前提に作ってみたわけですが………

普通にScriptとして保存して実行（署名なし、公証なし）：初回実行時にオートメーション認証ダイアログが表示されて実行。数回同じScriptを実行すると実行されなくなる（！）

Appletとして保存して実行（署名なし、公証なし）：実行時、毎回オートメーション認証ダイアログが表示されて実行。

Appletとして保存して実行（署名あり、公証なし）：初回実行時、オートメーション認証ダイアログが表示されて実行。連続して実行するとダイアログ表示なし。しばらく時間を置いて実行するとダイアログ表示される。

macOS 10.14については２か月前から使い始めたので、公証についてもまだうまく行えていません（SD Nortaryで開発者IDが認識されない、、、）。こちら（公証）も試してみるべきなんでしょう。

公証関連については、実際に行っている方、失敗した方の意見をまとめておきたいので、本Blog併設のフォーラムにて（言語は英語でも何語でもOKなので）情報交換させてください。

AppleScript名：選択中のリストのテキスト（多分）をもとにKeynoteの表を作成 v2

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/07/31
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions
use dangerAS : script "checkDangerAS"

set aTargMasterSlide to "空白" –This string is *Localized* in Japanese. This is "Blank"

tell application "Script Editor"
　　tell front document
　　　　set bText to contents of selection
　　end tell
end tell

if bText = "" then return

–指定のテキストをAppleScriptとして評価し、指定の構文要素に該当するものが含まれているかどうかチェック
set dRes to chkTargLexicalElementsFromCompiledScriptAttribute(bText, {9, 14}) of dangerAS
if dRes = missing value then
　　–The selected text contains AppleScript lexical error
　　display dialog "選択中のテキストにAppleScriptの構文エラーが検出されました" default answer bText with title "Error" with icon 2
　　return
end if

if dRes = true then
　　–The selected text contain danger AppleScript lexical element (maybe it is any command)
　　display dialog "選択中のテキストは実行に危険な文字列（AppleScriptコマンド）を含んでいるため、処理しませんでした" default answer bText with title "Error" with icon 2
　　return
end if

try
　　set aRes to run script bText –Danger!! Take Care of.
　　set aClass to class of aRes
on error
　　–The Evaluation error (some AppleScript lexical error)
　　display dialog "The contents of clipboard seems not to be an AppleScript list but " & (aClass as string) & return & bText with title "Error (1)" with icon 2
　　return
end try

if aClass is not equal to list then
　　–The Evaluated result is not list
　　display dialog "The contents of clipboard seems not to be an AppleScript list but " & (aClass as string) & return & bText with title "Error (2)" with icon 2
　　return
end if

set aLen to length of aRes
set aDim to getDimension given tArray:aRes
if aDim > 1 then
　　–Check List’s dimension (the taeget dimension is 1)
　　display dialog "選択中のテキストを評価したリスト（配列）の次元数が１ではなかったので、処理しませんでした" default answer bText with title "Dimension Error(3)" with icon 2
　　return
end if

tell application "Keynote"
　　activate
　　set aDoc to (make new document with properties {document theme:theme "ホワイト", width:1024, height:768}) — –This string is *Localized* in Japanese. This is "White"
　　
　　tell aDoc
　　　　set masList to name of every master slide
　　　　if aTargMasterSlide is not in masList then return –多分ないと思うが、作成予定のマスタースライドが現在有効でない場合に処理打ち切り
　　　　
　　　　set base slide of current slide to master slide aTargMasterSlide
　　　　
　　　　tell current slide
　　　　　　set aTable to make new table with properties {header column count:0, header row count:1, row count:2, column count:aLen, name:"Test Table"}
　　　　　　
　　　　　　tell aTable
　　　　　　　　repeat with y from 1 to 1
　　　　　　　　　　tell row y
　　　　　　　　　　　　repeat with x from 1 to aLen
　　　　　　　　　　　　　　tell cell x
　　　　　　　　　　　　　　　　set value to (item x of aRes) as string
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end repeat
　　　　　　　　　　end tell
　　　　　　　　end repeat
　　　　　　end tell
　　　　　　
　　　　end tell
　　end tell
end tell

–指定Listの次元を再帰で取得する
on getDimension given tArray:aList as list : {}, curDim:aNum as integer : 1
　　set anItem to contents of first item of aList
　　set aClass to class of anItem
　　
　　if aClass = list then
　　　　set aNum to aNum + 1
　　　　set aRes to getDimension given tArray:anItem, curDim:aNum
　　else
　　　　return aNum
　　end if
end getDimension

★Click Here to Open This Script　

AppleScriptの穴

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

月: 2019年8月

アラートダイアログ上にRadio Buttonを表示 v3

アラートダイアログ上にpath control x2を表示 v2