Numbersで最前面の書類のすべてのシート上の表の行数を合計

Posted on 4月 5 by Takaaki Naganoya

Numbersの最前面の書類で、全シート上のすべての表の行数を合計して返すAppleScriptです。

大量のシートを持つ書類上のすべての表の行数をカウントします。それぞれの表からは、ヘッダー行の分はカウントしていません。

Numbersは、Pagesのように「表示範囲にないページ上のオブジェクトからの情報取得ができない（その割に指定ページを表示状態にするための機能もない）」といった動作はしないので、カウント対象のシートをいちいち表示状態にして切り替えるという必要はありません。

AppleScript名：全シート上のtableの行数を合計.scpt

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

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

set totalC to 0

tell application "Numbers"
　　tell front document
　　　　set nList to name of every sheet
　　　　repeat with i in nList
　　　　　　set j to contents of i
　　　　　　
　　　　　　tell sheet j
　　　　　　　　set tCount to count every table
　　　　　　　　
　　　　　　　　repeat with ii from 1 to tCount
　　　　　　　　　　tell table ii
　　　　　　　　　　　　set hCnt to header row count
　　　　　　　　　　　　
　　　　　　　　　　　　set tmpCount to count every row
　　　　　　　　　　　　set totalC to totalC + tmpCount – hCnt
　　　　　　　　　　end tell
　　　　　　　　end repeat
　　　　　　end tell
　　　　　　
　　　　end repeat
　　end tell
end tell

return totalC

★Click Here to Open This Script　

Keynote、Pages、Numbers Ver.14.0が登場

Posted on 4月 3 by Takaaki Naganoya

Keynote、Pages、NumbersのiWorkアプリがバージョン14にアップデートされました。

本バージョンはmacOS 13以降に対応しています。

各アプリのAppleScript用語辞書に変更はありません。Pagesで見られている、ウィンドウで表示されていないページ上のオブジェクトからの情報取得ができない（正確にいえば、表示中の見開き＋2見開き分まで取得可能）という挙動は変わっていません。どうも処理速度向上のための仕様のようなので、この部分はこのままだと思います。

Natural Language frameworkで英語で文章同士の距離を測る

Posted on 3月 13 by Takaaki Naganoya

NaturalLanguage.frameworkを用いて、英語の文章の意味的な距離を測るAppleScriptです。

単語単位の意味的な距離を計算する機能はいまひとつ使い道が限定される感じですが、文単位での意味的な距離の計算には期待してしまうところです。

実際にやってみました。

やってはみたものの、なにかピンと来ないというか、このAPIは1つの文章だけで距離を測るためのものなのか、それとも複数の文の塊で計算するものなのか、、、、

文章のかたまりでも計算できているようです。いろいろサンプル文章をひろってみて距離を計測してみましたが、「なんとなくそんな感じ」の結果が返ってくるだけです。

これは別にAppleが悪いということではなくて、自然言語処理ってこんな感じです。相対的な違いでしかないので、その結果をもって「いい」「わるい」という評価が行えるわけではなく「なんとなくこっち」という判断をするだけです。ただ、間違うこともあるので、その点をあらかじめ知っておくことが重要です。

AppleScript名：英語で文章同士の距離を測る_English.scpt

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/03/13
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.8" — Monterey (12.0) or later
use framework "Foundation"
use framework "NaturalLanguage"
use scripting additions

set targLang to current application’s NLLanguageEnglish
set aEmb to current application’s NLEmbedding’s sentenceEmbeddingForLanguage:(targLang)
if aEmb = missing value then return –NLLanguageJapanese is not available here in macOS 13

set aSent to "This is my book."
set bSent to "We the People of the United States, in Order to form a more perfect Union, establish Justice, insure domestic Tranquility, provide for the common defence, promote the general Welfare, and secure the Blessings of Liberty to ourselves and our Posterity, do ordain and establish this Constitution for the United States of America."
set cSent to "Thanks for updating Takaaki! You have almost completed updating AdRotate to version 5.12.9!
To complete the update click the button on the right. This may take a few seconds to complete!
For an overview of what has changed take a look at the development page and usually there is an article on the blog with more information as well."
set dSent to "He says that he like to read something with iPad."

set aDist to (aEmb’s distanceBetweenString:aSent andString:bSent distanceType:(current application’s NLDistanceTypeCosine))
–> 1.350924730301

set bDist to (aEmb’s distanceBetweenString:aSent andString:cSent distanceType:(current application’s NLDistanceTypeCosine))
–> 1.374191045761

set cDist to (aEmb’s distanceBetweenString:aSent andString:dSent distanceType:(current application’s NLDistanceTypeCosine))
–> 1.168848276138

★Click Here to Open This Script　

NaturalLanguage.frameworkでNLEmbeddingの処理が可能な言語をチェック

Posted on 3月 13 by Takaaki Naganoya

NaturalLanguage.frameworkには各種言語の定義を行なった定数が57ほど定義されているようです。ただし、これらの定義がすべて利用できるわけがありません。

とりあえず、本当にどのぐらいの言語が使えるのか、チェックしておくことが必要です。

結論からいえば、Appleが何を考えているのかよくわかりません。macOS 13では7言語ほど使えるという結果になりましたが、macOS 14では英語しか使えないという結果になっています。OSがバージョンアップするとOSの機能が低下するという理解不能な挙動を示しています。バグ、、、なのかも？？？？

Appleが用意した新機能は、ひととおり「本当に使えるのか」をチェックする必要があります。だいたいは搭載されて1発目はバグだらけで、OSのメジャーアップデートを経て良くなったり、よくならなかったりします。

この機能はどちらなんでしょう？ Shortcutみたいに「救いようがない」のもありますが……

AppleScript名：指定言語でNLEmbeddingを処理できるかチェック_13_14.scpt

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/03/13
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.8"
use framework "Foundation"
use framework "NaturalLanguage"
use scripting additions

–The result is on macOS 13.6.5 / 14.4
set aRes to testNLLanguage("NLLanguageEnglish") of me –> true
set aRes to testNLLanguage("NLLanguageFrench") of me –> true–>false (macOS 14)
set aRes to testNLLanguage("NLLanguageGerman") of me –> true–>false (macOS 14)
set aRes to testNLLanguage("NLLanguageItalian") of me –> true–>false (macOS 14)
set aRes to testNLLanguage("NLLanguagePortuguese") of me –> true–>false (macOS 14)
set aRes to testNLLanguage("NLLanguageSimplifiedChinese") of me –> true–>false (macOS 14)
set aRes to testNLLanguage("NLLanguageSpanish") of me –> true–>false (macOS 14)

set aRes to testNLLanguage("NLLanguageUndetermined") of me –> true –Natural Language framework doesn’t recognize.

set aRes to testNLLanguage("NLLanguageAmharic") of me –> false
set aRes to testNLLanguage("NLLanguageArabic") of me –> false
set aRes to testNLLanguage("NLLanguageArmenian") of me –> false
set aRes to testNLLanguage("NLLanguageBengali") of me –> false
set aRes to testNLLanguage("NLLanguageBulgarian") of me –> false
set aRes to testNLLanguage("NLLanguageBurmese") of me –> false
set aRes to testNLLanguage("NLLanguageCatalan") of me –> false
set aRes to testNLLanguage("NLLanguageCherokee") of me –> false
set aRes to testNLLanguage("NLLanguageCroatian") of me –> false
set aRes to testNLLanguage("NLLanguageCzech") of me –> false
set aRes to testNLLanguage("NLLanguageDanish") of me –> false
set aRes to testNLLanguage("NLLanguageDutch") of me –> false
set aRes to testNLLanguage("NLLanguageFinnish") of me –> false
set aRes to testNLLanguage("NLLanguageGeorgian") of me –> false
set aRes to testNLLanguage("NLLanguageGreek") of me –> false
set aRes to testNLLanguage("NLLanguageGujarati") of me –> false
set aRes to testNLLanguage("NLLanguageHebrew") of me –> false
set aRes to testNLLanguage("NLLanguageHindi") of me –> false
set aRes to testNLLanguage("NLLanguageHungarian") of me –> false
set aRes to testNLLanguage("NLLanguageIcelandic") of me –> false
set aRes to testNLLanguage("NLLanguageIndonesian") of me –> false
set aRes to testNLLanguage("NLLanguageJapanese") of me –> false
set aRes to testNLLanguage("NLLanguageKannada") of me –> false
set aRes to testNLLanguage("NLLanguageKazakh") of me –> false
set aRes to testNLLanguage("NLLanguageKhmer") of me –> false
set aRes to testNLLanguage("NLLanguageKorean") of me –> false
set aRes to testNLLanguage("NLLanguageLao") of me –> false
set aRes to testNLLanguage("NLLanguageMalay") of me –> false
set aRes to testNLLanguage("NLLanguageMalayalam") of me –> false
set aRes to testNLLanguage("NLLanguageMarathi") of me –> false
set aRes to testNLLanguage("NLLanguageMongolian") of me –> false
set aRes to testNLLanguage("NLLanguageNorwegian") of me –> false
set aRes to testNLLanguage("NLLanguageOriya") of me –> false
set aRes to testNLLanguage("NLLanguagePersian") of me –> false
set aRes to testNLLanguage("NLLanguagePolish") of me –> false
set aRes to testNLLanguage("NLLanguagePunjabi") of me –> false
set aRes to testNLLanguage("NLLanguageRomanian") of me –> false
set aRes to testNLLanguage("NLLanguageRussian") of me –> false
set aRes to testNLLanguage("NLLanguageSinhalese") of me –> false
set aRes to testNLLanguage("NLLanguageSlovak") of me –> false
set aRes to testNLLanguage("NLLanguageSwedish") of me –> false
set aRes to testNLLanguage("NLLanguageTamil") of me –> false
set aRes to testNLLanguage("NLLanguageTelugu") of me –> false
set aRes to testNLLanguage("NLLanguageThai") of me –> false
set aRes to testNLLanguage("NLLanguageTibetan") of me –> false
set aRes to testNLLanguage("NLLanguageTraditionalChinese") of me –> false
set aRes to testNLLanguage("NLLanguageTurkish") of me –> false
set aRes to testNLLanguage("NLLanguageUkrainian") of me –> false
set aRes to testNLLanguage("NLLanguageUrdu") of me –> false
set aRes to testNLLanguage("NLLanguageVietnamese") of me –> false

on testNLLanguage(aLangName)
　　set aText to "use AppleScript
use framework ＼"Foundation＼"
use framework ＼"NaturalLanguage＼"

　　set targLang to (current application’s " & aLangName & ")
　　set aEmb to current application’s NLEmbedding’s wordEmbeddingForLanguage:(targLang)
　　if aEmb = missing value then return false
　　return true
　　"
　　return run script aText
end testNLLanguage

★Click Here to Open This Script　

NaturalLanguage frameworkを使って類語語展開＋意味的な距離を計測してソート

Posted on 3月 13 by Takaaki Naganoya

NaturalLanguage frameworkといえば、macOS 10.14で追加されたものですが、自然言語テキストが「何語」であるかを推測するなどの使い方をAppleScriptから行なってきました。正直、その程度しか「役に立つ機能がない」という認識でした。

日本語のサポートはまだまだですが、日本語でなければ意外と使えることがわかりました。

試しに、NaturalLanguage.frameworkの機能を用いて指定の英単語の類義語を生成して、それぞれの元の単語との意味的な距離を計算してみました。

自然言語処理的にわかりやすい言葉でいえば、類語語のリストをword2vecでベクトル化してコサイン距離を計算する、というところでしょうか。

類義語展開であれば、日本語WordNetを利用して検索するAppleScriptを4年ぐらい前に試作ずみなので、このOS側の類義語展開機能がなくても別に構わないのですが、word2vecやsentence2vecで単語や文章をベクトル化して意味的な距離を計測する演算については、利用したいところです。

ただ、OSの機能が向上するどころか退化しているようなので、この分野ではmacOSの進歩は期待できないのかもしれません。

AppleScript名：指定単語の類義語を展開して元の単語との距離を測る.scpt

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/03/12
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—

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

set targLang to current application’s NLLanguageEnglish
set aEmb to current application’s NLEmbedding’s wordEmbeddingForLanguage:(targLang)
if aEmb = missing value then return –NLLanguageJapanese is not available here in macOS 13

–類義語展開（Max.50）
set aWord to "computer"
set aSym to (aEmb’s neighborsForString:aWord maximumCount:20 distanceType:(current application’s NLDistanceTypeCosine)) as list

–コサイン距離を計測（0.0〜2.0）数字が小さいと近いはず。ちょっとでも意味が遠いと2.0になるという悪癖を持つ
set distList to {}
repeat with i in aSym
　　set j to contents of i
　　set aDist to (aEmb’s distanceBetweenString:aWord andString:j distanceType:(current application’s NLDistanceTypeCosine))
　　set the end of distList to {wordName:j, wordDistance:aDist as real}
end repeat

–昇順ソート
set bList to sortRecListByLabel(distList, "wordDistance", true) of me
–> {{wordDistance:0.837697923183, wordName:"workstation"}, {wordDistance:0.875068962574, wordName:"mainframe"}, {wordDistance:0.886509418488, wordName:"laptop"}, {wordDistance:0.901307225227, wordName:"software"}, {wordDistance:0.901674091816, wordName:"computing"}, {wordDistance:0.904342055321, wordName:"palmtop"}, {wordDistance:0.951638877392, wordName:"desktop"}, {wordDistance:0.954249441624, wordName:"intranet"}, {wordDistance:0.958346903324, wordName:"keystroke"}, {wordDistance:0.961381614208, wordName:"notebook"}, {wordDistance:0.964299142361, wordName:"server"}, {wordDistance:0.970234155655, wordName:"hardware"}, {wordDistance:0.974493980408, wordName:"pager"}, {wordDistance:0.981385648251, wordName:"electronic"}, {wordDistance:0.984282553196, wordName:"peripheral"}, {wordDistance:0.993325233459, wordName:"machine"}, {wordDistance:0.996084809303, wordName:"diskette"}, {wordDistance:0.999181330204, wordName:"portable"}, {wordDistance:1.001676082611, wordName:"compatible"}, {wordDistance:1.00532245636, wordName:"programmer"}}

–リストに入れたレコードを、指定の属性ラベルの値でソート
on sortRecListByLabel(aRecList as list, aLabelStr as string, ascendF as boolean)
　　set aArray to current application’s NSArray’s arrayWithArray:aRecList
　　set sortDesc to current application’s NSSortDescriptor’s alloc()’s initWithKey:aLabelStr ascending:ascendF
　　set sortedArray to aArray’s sortedArrayUsingDescriptors:{sortDesc}
　　set bList to (sortedArray) as anything
　　return bList
end sortRecListByLabel

★Click Here to Open This Script　

本当は単語ではなく「文章」の距離を計測できないと実用性が低いところです。word2vecではなくsentence2vecの演算を行いたいところ。

自作のAppleScriptによるアイデアプロセッサ「Kamenoko」も、当初から自然言語処理の機能を盛り込むことを企画していました。sentence2vecぐらいの演算を行なって、各ノードに書いてある文章同士の距離を計測して、距離に応じて色を変えるといった機能も検討していました。

ただ、そうした機能を実装するのに割とデータ量が多くなるとか、アプリとしてパッケージングするのに無理があるとか、もういっそWebサーバー側で処理したほうがいいんじゃないの？　的な話になって見送った経緯があります。

このNaturalLanguage.frameworkがもっと使えるように、なったらいいのに。簡体字の中国語に対応しているぐらいなので、日本語への対応も期待したいところですが……macOS 14では対応言語が英語だけになるなど、展開の仕方が謎であります。

CotEditorで2つの書類の行単位での差分検出

Posted on 3月 12 by Takaaki Naganoya

CotEditorで2つの書類をオープンしておき、行単位での差分を検出し、新規書類に結果を出力するAppleScriptです。

もともと、macOS搭載のFramework名一覧の差分を検出する資料を作成する必要があり、これを片付けるために作成しました。

本AppleScriptを実行すると……

のように、結果を出力します。それほど巨大なデータを想定して作ってはいないので、ほどほどの規模に抑えて利用してください。

AppleScript名：左右のドキュメントを比較.scpt

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

script spd
　　property aList : {}
　　property bList : {}
end script

set (aList of spd) to {}
set (bList of spd) to {}

tell application "CotEditor"
　　set dCount to count every document
　　if dCount is not equal to 2 then
　　　　display notification "Error: This script needs only 2 documents"
　　　　return –Document number Error
　　end if
　　
　　tell window 1
　　　　set w1Bounds to bounds
　　　　copy w1Bounds to {w1X1, w1Y1, w1X2, w1Y2}
　　　　set w1Doc to document of it
　　end tell
　　
　　tell window 2
　　　　set w2Bounds to bounds
　　　　copy w2Bounds to {w2X1, w2Y1, w2X2, w2Y2}
　　　　set w2Doc to document of it
　　end tell
　　
　　if w1X1 > w2X1 then
　　　　set {w1, w2} to {2, 1}
　　else
　　　　set {w1, w2} to {1, 2}
　　end if
　　
　　tell document w1 –左ウィンドウ
　　　　set (aList of spd) to paragraphs of contents
　　end tell
　　
　　tell document w2 –右ウィンドウ
　　　　set (bList of spd) to paragraphs of contents
　　end tell
　　
end tell

–ゴミ掃除
set (aList of spd) to cleanUp1DList((aList of spd), {"
"}) of me

set (bList of spd) to cleanUp1DList((bList of spd), {"
"}) of me

–差分計算
set (cList of spd) to getDiffBetweenLists((aList of spd), (bList of spd)) of me

–結果出力テキスト組み立て
set aRes to listToTextUsingDelim(addItems of (cList of spd), "")
set bRes to listToTextUsingDelim(minusItems of (cList of spd), "")

–結果の新規書類への出力
set d3 to makeNewCotEditorDoc("左→右で追加された項目" & return & return & aRes) of me
set d4 to makeNewCotEditorDoc("左→右で削除された項目" & return & return & bRes) of me

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

on cleanUp1DList(aList as list, cleanUpItems as list)
　　set bList to {}
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is not in cleanUpItems then
　　　　　　set the end of bList to j
　　　　end if
　　end repeat
　　return bList
end cleanUp1DList

–デリミタ文字を指定してリストを文字列化
on listToTextUsingDelim(aList, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set outText to every text item of aList
　　set outText to outText as string
　　set AppleScript’s text item delimiters to curDelim
　　return outText
end listToTextUsingDelim

–指定テキストでCotEditorの新規書類を作成
on makeNewCotEditorDoc(aCon)
　　tell application "CotEditor"
　　　　activate
　　　　set newDoc to make new document
　　　　tell newDoc
　　　　　　set contents to aCon
　　　　end tell
　　end tell
end makeNewCotEditorDoc

★Click Here to Open This Script　

Pagesで、現在表示中のページから離れたページのオブジェクト情報を取得できない

Posted on 3月 10 by Takaaki Naganoya

Pagesのいつかのバージョンから現在表示中のページから離れたページのオブジェクト情報取得および操作ができなくなっていました。バージョン13.xではすでにそうなっていました。12.xからそうだったかもしれません。

2024/4/3追記：Pages v14.0で確認したところ、同じ挙動でした

1〜2ページを表示中に、3〜4ページのオブジェクト情報取得および操作は行えるものの、7〜8ページ以降のオブジェクト情報は取得できないという状況です。自分が確認したのはtableオブジェクトのposition情報。

25％の縮小表示を行った場合には、

問題なく、すべてのページのtable（ツメ）のpositionを取得できますが、

拡大表示すると……

7ページ以降のtableのpositionを取得できていません。

この現象は、全ページに対してツメ（Dictionary index）を付加して統一操作を行うAppleScriptにおいて問題になっていました。実際に、ファイル名に「章番号」を書いておくと、それをピックアップして、ツメの見た目を変更するというAppleScriptを作成して運用しています。このScriptは、ツメの塗りの状態を自動検知して当該章の塗り方を自動で反映するようになっています。

このような高機能Scriptを実用化したものの、最近になっておかしな挙動が確認されていました。

・現在表示中のページのオブジェクト操作は行える
・表示中から離れたページのオブジェクト操作/情報取得が行えない

なんじゃこら？？？？

Pages書類のツメ操作で、いろいろ問題に。

そこで、実験のために表示ページを移動しながらオブジェクト情報を取得してみたら、問題なく情報取得できました。

Pagesには表示対象ページの変更機能はないので、GUI Scriptingで「次のページ」コマンドを強引に実行。あるいは、実行前にPagesの書類表示ズーム倍率を、25％に変更しておく……というほうが「楽」かもしれません。

これをバグとして報告すべきなのか、アプリケーションの挙動として「知っておくべき情報」なのかは判断できません。処理速度向上のための「改善」の結果としてこのような状況が生まれてしまったのかもしれないためです。

ただ、特定のページを表示状態にする機能がないのに、表示範囲外（現在の見開きから＋2見開きを超える範囲）のオブジェクトの情報を取得できないのは、片手落ちの状態でしょう。

与えられた文字列の1D Listのすべての順列組み合わせパターン文字列を返す v3（ベンチマーク用）

Posted on 2月 18 by Takaaki Naganoya

Macの処理速度を測るのにちょうど手頃な内容のプログラムです。与えた配列要素の、順列組み合わせ計算を行います。

M2 MacBook Air@macOS 15.1の環境の実行結果は、

–> {{4, 0.004417896271}, {5, 0.009887933731}, {6, 0.063844919205}, {7, 0.450636982918}, {8, 3.521628022194}, {9, 31.777850985527}}

なので、ほとんどM1 Mac miniと変わりません（少し遅いぐらい）。

AppleScript名：与えられた文字列の1D Listのすべての順列組み合わせパターン文字列を返す v3_for benchmark.scptd

— 2014-10-06 Original By Nigel Garvey@macscripter.net
— 2019-06-19 Modified By Takaaki Naganoya
— 2024-02-18 Modified By Takaaki Naganoya
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

script spdPerm
　　property permutations : missing value
　　property allRes : {}
end script

on run
　　set allList to {{"A", "T", "G", "C"}, {"A", "T", "G", "C", "1"}, {"A", "T", "G", "C", "1", "2"}, {"A", "T", "G", "C", "1", "2", "3"}, {"A", "T", "G", "C", "1", "2", "3", "4"}, {"A", "T", "G", "C", "1", "2", "3", "4", "5"}}
　　
　　repeat with i in allList
　　　　set theList to contents of i
　　　　
　　　　set a1Dat to current application’s NSDate’s timeIntervalSinceReferenceDate()
　　　　set aRes to permute(theList) of me
　　　　set b1Dat to current application’s NSDate’s timeIntervalSinceReferenceDate()
　　　　set c1Dat to (b1Dat – a1Dat)
　　　　set the end of (allRes of spdPerm) to {length of theList, c1Dat}
　　　　
　　end repeat
　　
　　return (allRes of spdPerm)
　　— MacBook Pro 2012 Retina Core i7 2.6GHz@macOS 10.14.6 の実行結果
　　–> {{4, 0.01 }, {5, 0.010347008705}, {6, 0.05}, {7, 1.44}, {8, 11.54}, {9, 107.271}}
　　
　　–M1 Mac mini@macOS 13.6.5 の実行結果
　　–> {{4, 0.005248069763}, {5, 0.01240503788}, {6, 0.063866019249}, {7, 0.434872984886}, {8, 3.519423961639}, {9, 31.62052500248}}
end run

on permute(theList as list)
　　set theArray to current application’s NSMutableArray’s arrayWithArray:theList
　　set (permutations of spdPerm) to current application’s NSMutableArray’s array()
　　prmt(theArray, 0, (count theList) – 1)
　　
　　–Return AppleScript string list
　　set aFinishArray to current application’s NSMutableArray’s new()
　　set anEnum to (permutations of spdPerm)’s objectEnumerator()
　　repeat
　　　　set aValue to anEnum’s nextObject()
　　　　if aValue = missing value then exit repeat
　　　　set aStr to aValue’s componentsJoinedByString:""
　　　　(aFinishArray’s addObject:aStr)
　　end repeat
　　
　　return aFinishArray as list
end permute

on prmt(theArray, theStart as number, theEnd as number)
　　if (theStart = theEnd) then
　　　　(permutations of spdPerm)’s addObject:theArray
　　else
　　　　repeat with x from theStart to theEnd
　　　　　　set theCopy to theArray’s mutableCopy()
　　　　　　–swap
　　　　　　if (x > theStart) then (theCopy’s exchangeObjectAtIndex:theStart withObjectAtIndex:x)
　　　　　　prmt(theCopy, theStart + 1, theEnd)
　　　　end repeat
　　end if
end prmt

★Click Here to Open This Script　

2023年に書いた価値あるAppleScript

Posted on 1月 29 by Takaaki Naganoya

2023年に使用していたmacOS：macOS 13

毎年行なっている、Piyomaru Softwareが書いたAppleScriptの１年を振り返る記事の2023年版です。10年ほど続けてきた旧「AppleScriptの穴」Blogが2018年の年初にホスティング会社との行き違いでシャットダウンされ、再構築したのがこの現行の「AppleScriptの穴」Blogです。

→ 2018年に書いた価値あるAppleScript
→ 2019年に書いた価値あるAppleScript
→ 2020年に書いた価値あるAppleScript
→ 2021年に書いた価値あるAppleScript
→ 2022年に書いた価値あるAppleScript

旧「AppleScriptの穴」Blogの内容については、データベースから抜き出したデータをもとに再構成した「Blogアーカイブ本」にまとめています。

AppleScriptの穴Blogアーカイブvol.1
AppleScriptの穴Blogアーカイブvol.2
AppleScriptの穴Blogアーカイブvol.3
AppleScriptの穴Blogアーカイブvol.4
AppleScriptの穴Blogアーカイブvol.5
AppleScriptの穴Blogアーカイブvol.6

本Blogは、機械翻訳で翻訳しやすいように、平易な日本語で記述してある点がチャームポイントです。それはもう、小学生の日記ぐらいの難易度で。もともとは、2000年代初頭に開発していた「人工知能インタフェース Newt On」のソースコード部品バラバラにして掲載し、用いた部品を個別にメンテナンスすることを「隠れた目的」としていました。また、Scripter間のノウハウの共有を推進することも目的としています。

AppleScript以外の一般的なテーマの記事については、こちらにいろいろ投稿しています。

https://note.com/140software/

2023年的な状況といいますか、昨今のMac環境をとりまく状況として新バージョンのmacOSとしてmacOS 14がありつつも、Appleがマイナーアップデートで新たなバグを盛り込んでくるため、macOS 14に付き合うこと自体がリスクです。β版で確認を行なっても、Release版で安定度が激下がりして、その後にバグ改修と新機能追加が行われるため、つねにどこかにド派手な不具合を抱えているという状況です。

2023年にはそれほど発表できるようなAppleScriptを書いていない（＝自分の作業を効率化するものしか書いていないので外部に発表のしようがない）のと、それほど技術レベルや解決策のレベルが上がったような内容のものはありません。

さまざまな技術的な内容をまとめた記事については、電子書籍に掲載したり、付録Scriptとして添付しています。年間19冊出しています。

ポケコンサークル「LL」会誌Vol.19復刻版（282ページ）

AppleScript基礎テクニック集（29）セキュリティ機能解除（36ページ）

AppleScript＋Xcodeで作るMacアプリ（484ページ）

ChatGPTにAppleScriptを書かせてみた！（76ページ）

AppleScript基礎テクニック（30）コンテクストメニューScriptの作り方（41ページ）

AppleScript基礎テクニック（30）コンテクストメニューScriptの作り方　英語版（41ページ）

AppleScript基礎テクニック（31）スクリプトバンドルの活用（34ページ）

AppleScript ７つの宝珠（３）（35ページ）

Cocoa Scripting Course #5 NSImage（473ページ）

ゆっくりAppleScript解説（1）（45ページ）

ゆっくりAppleScript解説（2）（45ページ）

つたわる資料のつくりかた（66ページ）

Keynote Scripting Book With AppleScript（434ページ）

Cocoa Scripting Course #6 PDFKit（560ページ）

ゆっくりAppleScript解説（3）（42ページ）

AppleScript最新リファレンス v2.8（1008ページ）

AppleScript最新リファレンス v2.8英語版（223ページ）

戦場の絆〜僕らの15年戦争〜v2（394ページ）

Piyomaru Software電子書籍カタログ 2024冬（100ページ）

2023年に書いた記事の中で注目すべきもの

2023年に書いたものは、例年どおりの「価値あるAppleScript」と言うほどのものではなく、「2023年に書いた記事の中で注目すべきもの」をリストアップするという程度の内容になりそうです。

geoCodingLibで住所ジオコーディング

geoCodingLibで逆住所ジオコーディング

住所ジオコーディング（住所→緯度経度情報）/逆住所ジオコーディング（緯度経度情報→住所）は、AppleScriptで普通に実行できてほしい処理のひとつです。こうしてObjective-C/Swiftで書いたプログラムをFrameworkとして呼び出せるようにして呼び出すとか、いろいろ方法があるわけで……少なくとも、ローカルで処理が完結する解決策は用意しておきたいところです。

ChatGPTでchatに対する応答文を取得

AppleScriptからのChatGPTのREST API呼び出しは、かなり早期からできていました。処理したい内容のScriptをChatGPTに書かせて実行するといった「なげやり」な方法であれば、こうしたScriptの延長線上で可能ですが、あらかじめきちんと動くことを保証したScriptのパラメータ部分だけをLLMから取得するとか、複数のScriptを組み合わせて処理を実行させるといった内容を実現する方法を見つけたいところです。

Keynote,Pages,Numbers v13.0がリリースされる

Keynoteはいいアプリケーションだと思うものの、あまりバージョンアップしても機能が追加されないというか、実際に使っている人間からのフィードバックがさっぱりないというか、ユーザーと開発現場の距離が離れてしまっている感じがします。

他形式の3DデータをUSDZデータに変換するあたりのツールが充実する必要があるというか、Keynote側の読み込み機能がもう少し強化されてもよさそうな気もします。

出るか？「AppleScript最新リファレンス」のバージョン2.8対応版

この本は、発行するのに30冊以上も本を出す必要があり、数年かけて計画を実行して、ようやくアップデートにこぎつけました。最初の「AppleScript最新リファレンス」から7年が経過していることに驚かされます。

Excelの書類上に置かれているpictureが置かれているセルのアドレスを推定する v2

Microsoft Excelは依然としてAppleScript用語辞書が大きなアプリケーションではあるのですが、Excelの機能が強力すぎる（表現力が豊かすぎる）ために、目的の処理を行うためにはなかなか一筋縄では行かないようです。

PowerPointを操作するAppleScriptをScript Menuに入れて実行すると動作が完結しない問題

PowerPointにかぎらず、Microsoft OfficeアプリのAppleScript用語辞書が、より詳細な記述を行なっているところに懸念をおぼえます。こんなに細かく書かないとダメなのだろうかと。敷居が高くなりすぎていないかと。あと、Script MenuにPowerPointを操作するAppleScriptを入れて実行すると動かないというのは、ランタイム環境が強く限定され、こんにちのmacOS環境の中で標準レベルといえるScript Menuで動かないのは、よくないと考えます。

Cocoa-AppleScript Appletランタイムが動かない？

macOS 12.xのマイナーバージョンアップ時に機能が損なわれた箇所です。そして、Appleにバグレポートしても治らない。こんな根本的な部分で不具合を起こされても困るのですが……。

macOS 14の変更がmacOS 13にも反映

「システム環境設定」が「システム設定」に変わったときに、各設定Paneを表示するためのAppleScript用語辞書が機能しない、空白の期間が発生していました。macOS 14βで本機能が復旧されたのと同じタイミングで、macOS 13.xにもさかのぼって同じ機能が実装されました。

ただ、システム設定の各Paneへの表示切り替えが行えるだけで、たとえばオーディオ入出力デバイスの切り替え機能が提供されているわけではないため、それについては別途実装したものを呼び出すという解決方法が必要になります。

アプリケーション操作の次の段階へ

Posted on 1月 28 by Takaaki Naganoya

GUIアプリケーションの操作において、若干の不満を覚えつつもmacOS上のGUIアプリケーションの操作を行えてきました。

ただ、「次」の段階が見えているのに、GUIアプリケーション側の機能がそれに追いついていなかったり、未実装の部分があったりで、GUIアプリケーション側が足を引っ張っているように見える今日このごろです。

たとえばKeynoteにおいて、特定のグラフィックだけを削除したい（会社ロゴなど）という場合に、メニューに「この部品に近似する部品を削除」といった機能が実装されていてもよさそうな昨今ですが、それはありません。「類似画像を削除」「類似部品を削除」といった処理はやりたくなる部分だと（勝手に）考えるものです。だいたい、OS内の機能を見ても容易に実装できそうに見えます。

Keynote書類にはimageオブジェクトが用意されており、さまざまなプロパティを取得できるようになっていますが、file nameは取得できても、

file属性を取得できない状態です。

AppleScript名：画像からfile属性を取得（できない）.scpt

tell application "Keynote"
　　tell front document
　　　　set aSel to selection
　　　　set aaSel to first item of aSel
　　　　
　　　　set aFile to file of aaSel
　　　　–> error "Keynoteでエラーが起きました: AppleEventのハンドラで誤りが起きました。" number -10000
　　end tell
end tell

★Click Here to Open This Script　

iCloud上に存在するKeynote書類の内部ファイルに対してのパスを表現しづらい、といった理由は理解できるかもしれませんが、用語辞書にfile属性が取れると明記してある以上、file属性は（ローカルに書類が存在するなどの条件下では）取得できるべきだと考えます。

そして、file属性（おそらく、file pathをalias形式で取得できる）を取れれば、画像の「内容」にもアクセスして、「指定の画像に近似するものを削除」といった処理はできるはずです（画像のハッシュ値を計算する処理は別途する必要はあるわけですが）。

このあたりの処理が、そろそろできてもいいんですが、いろいろ邪魔が入ってできないのが残念な感じがします。

Apple純正マウス、キーボードのバッテリー残量取得

Posted on 1月 11 by Takaaki Naganoya

寝る前にMacをスリープさせるのにScript MenuからAppleScriptを呼び出して実行しています。もともとは、Apple Magic Mouseの充電用に作ったScriptでしたが、普通にマウスの充電を行わない場合にでも呼び出してスリープさせています。

そんなScriptに対して、

「マウスのバッテリー残量を調べて、残量が少ない場合には充電するようにメッセージを出せば便利なのでは？」

などと考えて、ありものの部品を組み合わせて作ろうとしたところ……動かない。

しばらく見ないうちに、system_profiler経由で取得したBluetoothデバイスの各種情報から直接バッテリー残量を取れなくなっていたもよう。

仕方がないので、シェルのioregコマンドから詳細情報を取得し、system_profilerで取得したBluetoothデバイス名（ただしApple純正に限る）の一覧と付け合わせを行なって、これらの周辺機器のバッテリー残量を取得するようにしてみました。

正直、やっつけで作ったので、プログラム自体はあんまり見るべきものはありません。1回作ったら、二度と見直したくないような出来です。Magic Track Padは持っていないので、同デバイスの電池残量レポートについては、お持ちの方はぜひお試しください。

system_profiler経由でBluetoothデバイス名を取得するあたりの処理をライブラリに追い出して、バンドルScript内に入れて呼び出しているので、下記リストは参考程度。実際に実行するには、添付のアーカイブを展開して実行してください。

–> Download script bundle archive

追加：
Apple Magic Trackpad（乾電池式、銀色）の中古を買ってきて試してみたら、

Bluetoothメニュー上でバッテリー残量表示は行われるのですが、本AppleScriptでバッテリー残量を取得することはできませんでした。

AppleScript名：Apple純正マウス、キーボードのバッテリー残量取得.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/01/11
—
–　　Copyright © 2024 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.8"
use framework "Foundation"
use framework "AppKit"
use scripting additions
use btLib : script "btLib"

set devList to getBTBatteryLifeByNameList() of btLib

set aRes to (do shell script "ioreg -c AppleDeviceManagementHIDEventService -r -l")
set aList to paragraphs of aRes

set fromStr to " {"
set toStr to " }"

set statF to false
set allList to {}
set sNum to 0
set eNum to 0
set aCount to 1

–Step 1: ioregの実行結果からデバイスごとの情報に分割
repeat with i in aList
　　set j to contents of i
　　if statF = false then
　　　　if j starts with fromStr then
　　　　　　set statF to true
　　　　　　set sNum to aCount
　　　　end if
　　else
　　　　if j ends with toStr then
　　　　　　set eNum to aCount
　　　　　　set the end of allList to (items sNum thru eNum of aList)
　　　　　　set statF to false
　　　　　　copy {0, 0} to {sNum, eNum}
　　　　end if
　　end if
　　
　　set aCount to aCount + 1
end repeat

–Step 2：　Bluetoothのデバイス（Apple純正デバイス）の名称リストと、Addressをもとにioregの内容を照合

set devIList to {}
set devCount to 1

repeat with i in devList
　　set j to contents of i
　　
　　set tmpName to device_name of j
　　
　　set tmpAddr to device_address of j
　　set tmpAddr to repChar(tmpAddr, ":", "-") of me
　　
　　repeat with ii in allList
　　　　repeat with iii in ii
　　　　　　set jjj to contents of iii
　　　　　　
　　　　　　ignoring case
　　　　　　　　if jjj contains tmpAddr then
　　　　　　　　　　set the end of devIList to {tmpName, devCount, contents of ii}
　　　　　　　　　　set devCount to devCount + 1
　　　　　　　　　　exit repeat
　　　　　　　　end if
　　　　　　end ignoring
　　　　end repeat
　　end repeat
　　
end repeat

–Step 3：取得した名前、Indexをもとにバッテリー比率を求める
set endList to {}

repeat with i in devIList
　　copy i to {tmpName, tmpIndex, dList}
　　
　　repeat with ii in dList
　　　　set jj to contents of ii
　　　　if jj contains "BatteryPercent" then
　　　　　　set batNum to splitAfterAtmark(jj, "= ") of me
　　　　　　set the end of endList to {tmpName, batNum as number}
　　　　end if
　　end repeat
　　
end repeat

return endList
–> {{"Takaaki Naganoya のキーボード #1", 46}, {"Takaaki Naganoya のマウス", 4}}

–指定マーク文字以降の文字列を返す
on splitAfterAtmark(anAdr, aMark)
　　set atPos to offset of aMark in anAdr
　　if atPos = 0 then return false
　　set domainText to text (atPos + 1) thru -1 of anAdr
　　return domainText
end splitAfterAtmark

–Written By Philip Aker
–文字置換ルーチン
on repChar(origText as string, targStr as string, repStr as string)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

★Click Here to Open This Script　

スクリプトエディタで記入した「説明」欄の内容が消えるバグ

Posted on 1月 9 by Takaaki Naganoya

macOS 13.6.4＋スクリプトエディタ　バージョン2.11 (229)の組み合わせで、AppleScript書類の「説明」欄に記入した内容が「消える」トラブルが発生しています。macOS 14上でも発生していることを確認しました。

▲スクリプトエディタ上で新規書類を作成して、AppleScript本文と「説明」欄の内容を書き込んでみた

▲スクリプトエディタで名称を指定して保存（.scpt形式）した状態

▲保存していったんクローズして、再度オープンしてみたところ。「説明」欄の内容が見えない

▲「説明」欄の内容を選択したところ。白い色の文字が存在していることがわかる

「消える」というよりは、「見えなくなる」というのが正しい状況と思われますが、macOSのマイナーアップデートでこうした変更が加わる（正確にいえば、APIなどの変更が行われた一方で、スクリプトエディタの修正が行われずに動作がおかしくなる）というのは納得できません。

なお、バンドル形式のAppleScript（.scptd形式）であれば、「説明」欄の内容が白く表示されることはないようです。

可変次元のベクトルに対応したコサイン類似度計算

Posted on 11月 23, 2023 by Takaaki Naganoya

ChatGPTに書かせたAppleScriptを微修正したものです。ベクトルの内積、外積の計算を経てコサイン類似度計算のAppleScriptを書かせました。

もともとは、ChatGPTのAPIを利用して自然言語テキストをベクトル化し、それらの類似度を計算させるための準備で用意しました。自分が試したときには、ChatGPTのREST APIは1536次元のベクトルを返してきました。残念ながら、いま試してみると（全然REST API呼び出しをしていないのに）Quota Exceedのエラーが出てしまって目的の処理はできませんでした。

このあたり、実際にChatGPTのコンソールから利用履歴を確認してみても、全然呼び出していないことが確認できたので、自分の記憶違いではありません。

もともと、日本語テキストを複数の機械翻訳APIを利用して英訳し、再度日本語訳したのちに文章をベクトル化。これらの複数の機械翻訳APIの結果を比較して、もともとの日本語の文章と類似度が高いものを「正確に英訳された文章」として採用してみるといいんじゃないかと思っていました。翻訳文の質を疑似的に評価してみようと思ったわけです。

ChatGPTに出力させたAppleScriptは、「間違ってはいないんだけど、正しくないし、微妙にムカつく（resultを使って計算したりする）」内容で、よくわかっている人間にとっては簡単に修正できるものですが、基礎がわかっていないとどこが間違っているか指摘しにくいし、そもそも間違っているかどうかも指摘しにくいので……より正確な知識が要求されます。

AppleScript名：可変次元のベクトルに対応したコサイン類似度計算.scpt

— ベクトルの例
set vectorA to {1, 2, 3, 4}
set vectorB to {4, 5, 6, 7}

— コサイン類似度を計算
set similarityResult to cosineSimilarity(vectorA, vectorB)

— 結果を表示
return similarityResult
–> 0.975900072949

— ベクトルのノルムを計算する関数
on vectorNorm(aVec)
　　set sumSquares to 0
　　repeat with i from 1 to (count of aVec)
　　　　set sumSquares to sumSquares + (item i of aVec) ^ 2
　　end repeat
　　return (sumSquares) ^ 0.5
end vectorNorm

— ベクトルのコサイン類似度を計算する関数
on cosineSimilarity(vector1, vector2)
　　set dimension1 to count of vector1
　　set dimension2 to count of vector2
　　
　　if dimension1 = dimension2 then
　　　　set dotProductResult to dotProduct(vector1, vector2)
　　　　set norm1 to vectorNorm(vector1)
　　　　set norm2 to vectorNorm(vector2)
　　　　set similarity to dotProductResult / (norm1 * norm2)
　　　　return similarity
　　else
　　　　error "ベクトルの次元数が一致していません。"
　　end if
end cosineSimilarity

— ベクトルの内積を計算する関数
on dotProduct(vector1, vector2)
　　set dimension1 to count of vector1
　　set dimension2 to count of vector2
　　
　　if dimension1 = dimension2 then
　　　　set sRes to 0
　　　　repeat with i from 1 to dimension1
　　　　　　set sRes to sRes + ((item i of vector1) * (item i of vector2))
　　　　end repeat
　　　　return sRes
　　else
　　　　error "ベクトルの次元数が一致していません。"
　　end if
end dotProduct

★Click Here to Open This Script　

日付変更通知

Posted on 11月 12, 2023 by Takaaki Naganoya

日付の変更を通知するAppleScriptです。

この手のScriptを組もうとしたら、一定間隔で日付（current date）を確認する　ぐらいが安全な方法として考えられます。on idleハンドラを利用して、一定間隔でタイマ割り込みを利用するのが「定番」でしょう。ただ、そのためにはApplet形式で書き出して実行する必要があります。

最近のAppleScript実行環境は、ごく一部の例外をのぞいてCocoaの機能を呼び出せるので、Cocoaの機能でタイマー割り込みを行って、一定間隔で日付データを確認することもできます。こちらは、。一度実行すればメモリ上にオブジェクトが常駐するので、Script Editorの実行が停止していても、起動さえしていれば日付変更時に通知を受信できます。

タイマー割り込み以外の方法を調べてみたら、こんなSystem Notificationが利用できたので、まとめておきました。

本Scriptが機能するのは、「AppleScript最新リファレンス v2.8対応」で明記した「システム通知の受信が有効なAppleScript実行環境」のみです。

AppleScript名：日付変更通知.scptd

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

set dOvs to current application’s NSNotificationCenter’s defaultCenter()
dOvs’s addObserver:me selector:"dateChanged:" |name|:(current application’s NSCalendarDayChangedNotification) object:(missing value)

on dateChanged:anObj
　　display dialog "Update"
end dateChanged:

★Click Here to Open This Script　

macOS 13.xでAS処理系に変更。組み込み実行環境でもライブラリ呼び出しをサポート？

Posted on 11月 8, 2023 by Takaaki Naganoya

macOS 13.xで、アプリケーション組み込み型のAppleScript実行環境（内蔵Script Menu装備）において、ホームディレクトリ下のAppleScriptライブラリを読み込んで実行することが「できなかった」ものを、「できる」ように改修されたようです。

実際に確認を行ったのは、macOS 13.xとCotEditorの組み合わせにおいてです。macOS 13の早期バージョンにおいてはライブラリ呼び出しが行えなかったものが、macOS 13.6.2においては呼び出せるように変わっています。なお、CotEditor側ではAppleScript実行機能まわりに改修を行なっていないことを確認しています。

CotEditorのAppleScript実行機能の実装はosascriptコマンドを呼び出すというものであり、手間をかけていない割に.scpt形式も.scptd形式も実行できるため、「妥当な実装」といったところでしょう。

自分は、各AppleScriptランタイム環境においてAppleScriptライブラリの読み込みと実行が行えるかをチェックしており、現時点でこれが行えない環境は……

・Automatorおよび書き出したアプレット（古すぎる。廃止予定）
・スクリプトエディタの内蔵コンテクストメニュー（セキュリティ的に無理そう）
・フォルダアクション（セキュリティ的に無理そう）
・Switch Control（パレットごと配布することを考えると、やらないほうが安心？）
・FileMaker Pro（構造が違いすぎて対応が難しい？）
・Hammerspoon(applescriptFromFile)（できてもおかしくないが……）

と認識しています。もしかしたら、Hammerspoonは再確認したら動くかもしれません。

なお、もっと巨大で深刻なバグ（AppleScriptドロップレットにドラッグ＆ドロップしたファイルが正しく処理されない問題）はmacOS 10.12から相変わらず放置されています。

display drop dialogライブラリをv1.5にアップデート

Posted on 11月 4, 2023 by Takaaki Naganoya

電子書籍「AppleScript最新リファレンスv2.8対応」の添付Scriptの中にこのAppleScriptライブラリを呼び出しているものがあったので、macOS 11以降のUIに応じて各種サイズを変更した「display drop dialog」のバージョン1.5をリリースしました。

複数のUTIを指定して、複数タイプの書類のドラッグ＆ドロップを受け付けるようにしました。.scptと.scptdのドラッグ＆ドロップを受け付けるとか。

また、本ライブラリではダイアログ上でのファイルの並び順もドラッグ＆ドロップで変更できるため、複数のPDFをドラッグ＆ドロップで指定して、処理順をダイアログ上で変更するといった用途に用いることを想定しています。

AppleScriptをmacOS標準搭載のスクリプトメニューから呼び出したような場合に、処理対象のファイルをドラッグ＆ドロップで指定する場合のファイル受け付けのインタフェースとして用意したものです。

–> Download displayDropDialog15(Install to ~/Libraries/Script Libraries/ folder)

AppleScript名：accept AppleScript documents.scpt

use dropLib : script "display drop dialog" version "1.5"

set aMainMes to "Drop AppleScript"
set aSubMes to "Drag and Drop AppleScript files to Table (.scpt & .scptd)"
set aUTI to {"com.apple.applescript.script-bundle", "com.apple.applescript.script"}
set execButtonTitle to "Execute"

set aRes to (display drop dialog aUTI main message aMainMes sub message aSubMes with initial folder "" OK button title execButtonTitle)

★Click Here to Open This Script　

Finder上で選択中のASバンドル書類をオープンしてscpt形式で再保存

Posted on 10月 20, 2023 by Takaaki Naganoya

Finder上で選択中のAppleScriptバンドル形式書類をスクリプトエディタでオープンして、scpt形式で保存し直すAppleScriptです。

スクリプトエディタのコンテクストメニューが.scpt形式しか認識しないので、バンドル形式のScriptを変換するために作ったものです。

Finderの選択中のファイルをフィルタするのに、フィルタ参照ではなくUTIを求めて判定しています。

「AppleScript最新リファレンスv2.8対応」の付録Scriptの加工用に作ったものです。バンドル形式への変換は書いてあったものの、scpt形式に変換するものは書いていなかったので急遽、用意しました。

AppleScript名：Finder上で選択中のASバンドル書類をオープンしてscpt形式で再保存.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2023/10/20
—
–　　Copyright © 2023 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property |NSURL| : a reference to current application’s |NSURL|
property NSArray : a reference to current application’s NSArray
property NSPredicate : a reference to current application’s NSPredicate
property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey

on run
　　set aResList to main("com.apple.applescript.script-bundle") of me
　　
　　set ngList to {}
　　
　　repeat with i in aResList
　　　　set anAlias to contents of i
　　　　set aRes to saveAppleScriptAsScript(anAlias) of me
　　　　
　　　　if aRes = false then
　　　　　　set the end of ngList to contents of i
　　　　end if
　　end repeat
　　
　　return ngList
end run

–scptdファイルをaliasで渡すと、scptファイルで同じ場所に保存し直す
on saveAppleScriptAsScript(aFile)
　　set dPOSIX to POSIX path of aFile
　　if dPOSIX ends with "/" then
　　　　set dPOSIX to (strings 1 thru -2 of dPOSIX)
　　end if
　　
　　–フルパスから、拡張子を付け替える
　　set newPath to changeExtFromPath(dPOSIX, "scpt") of me
　　set newFile to POSIX file newPath
　　
　　tell application id "com.apple.scripteditor2"
　　　　try
　　　　　　open aFile
　　　　　　
　　　　　　tell front document
　　　　　　　　check syntax
　　　　　　end tell
　　　　　　
　　　　　　save front document as "script" in file newFile
　　　　　　close front document without saving
　　　　　　return true
　　　　on error
　　　　　　return false
　　　　end try
　　　　
　　end tell
end saveAppleScriptAsScript

–POSIX pathの拡張子を付け替える
on changeExtFromPath(aPath, newExt)
　　set pathString to current application’s NSString’s stringWithString:aPath
　　set newPath to ((pathString’s stringByDeletingPathExtension())’s stringByAppendingPathExtension:newExt) as string
　　return newPath
end changeExtFromPath

on main(acceptUTI)
　　tell application "Finder"
　　　　set aSel to selection as alias list
　　end tell
　　
　　set aList to {}
　　
　　repeat with i in aSel
　　　　set anAlias to contents of i
　　　　set aUTI to getUTIfromPath(anAlias) of me
　　　　if aUTI is not equal to missing value then
　　　　　　set uRes to filterUTIList({aUTI}, acceptUTI) of me
　　　　　　
　　　　　　if uRes is not equal to {} then
　　　　　　　　set the end of aList to contents of i
　　　　　　end if
　　　　end if
　　end repeat
　　
　　return aList
end main

–AliasからUTIを求める
on getUTIfromPath(anAlias)
　　set aPOSIXpath to POSIX path of anAlias
　　set aURL to current application’s |NSURL|’s fileURLWithPath:aPOSIXpath
　　if aURL = missing value then return missing value
　　set aRes to aURL’s resourceValuesForKeys:{current application’s NSURLTypeIdentifierKey} |error|:(missing value)
　　if aRes = missing value then return missing value
　　return (aRes’s NSURLTypeIdentifierKey) as string
end getUTIfromPath

–UTIリストが指定UTIに含まれているかどうか演算を行う
on filterUTIList(aUTIList, aUTIstr)
　　set anArray to NSArray’s arrayWithArray:aUTIList
　　set aPred to NSPredicate’s predicateWithFormat_("SELF UTI-CONFORMS-TO %@", aUTIstr)
　　set bRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
　　return bRes
end filterUTIList

★Click Here to Open This Script　

新刊発売　AppleScript最新リファレンス　v2.8対応

Posted on 10月 13, 2023 by Takaaki Naganoya

ようやく完成しました。最初の「AppleScript最新リファレンス　macOS 10.11対応」の刊行から7年。完全刷新のアップデート版を刊行しました。PDF 974ページです。

→ 販売ページ

より広く、よりわかりやすく、よりくわしく

最初の「AppleScript最新リファレンス」（483ページ）から大幅にページを増やして974ページ。その分、解説範囲を広げています。

また、解説内容の難易度や想定ユーザーのレベルに分けた章構成を採用しています。

Script入門者向けに有用な情報（入門編）、Script利用者向けに有用な情報（利用編）、実際にScriptを書くユーザー向けに有用な情報（実践編）、困ったときに調べると便利な情報（資料編）など。

本書の付録は、スクリプトエディタのコンテクストメニューから呼び出すSnipet Scriptの「Piyomaru Context Menu Assistant」最新版、スクリプトエディタのテンプレートとして呼び出せる「Piyomaru Script Templates」、そしてGUI Scriptingの強力な助っ人「Dynamic Menu Clicker」などで構成されます（これからまとめて添付します。ちょっと手直しも必要なので）。

これからScriptに手を出そうかなという人にも、すでに使っているという人にも有用と思われる情報をわかりやすくまとめた1冊です。

■特集
AppleScriptv2.8の全貌
Shortcuts Events
OSAXなき時代のAppleScript命令拡張
各種セキュリティ制限を解除する
各種支援プログラムの現状
macOS標準装備＆Apple純正アプリのAppleScript対応度解説
Finder/Automator/カレンダー/連絡先/メール/マップ/メッセージ/ミュージック/メモ/写真/システム設定/プレビュー/QuickTime Player/リマインダー/Safari/スクリプトエディタ/ショートカット/ターミナル/テキストエディット/tv/VoiceOver/画面共有/コンソール/System Information/Keynote/Pages/Numbers/Claris FileMaker Pro/Xcode/Apple Configurator/Garageband/iMovie/Instruments

■入門編
AppleScriptの世界を形作るもの
macOS標準搭載アプリケーションで AppleScript対応機能を持つもの
AppleScriptを実行できる、さまざまなmacOS標準搭載ツール
AppleScriptを実行できる、サードパーティのハード&ソフト
AppleScriptってなんだろう?
スクリプトエディタの使い方
「構文確認」時に行われること
Scriptを書く前に準備しておくこと
AppleScript最速マスター
文法編
AppleScript予約語一覧
AppleScript最新リファレンス
tellブロック/アクション/ダイアログ表示/コマンド/他の言語呼び出し/序数/制御構文/文字列操作/システム日付/データ型/定数/変数・プロパティ宣言/関数/演算子/パス関連/ファイル入出力/ローカライズ関連/テキスト要約/Webサービス呼び出し/フィルタ参照/サブルーチン宣言/無意味語/クリップボード制御/音量制御/スクリプトオブジェクト/その他
アプリケーションへの命令パターン
Script Debuggerとは?
Finder用語辞書攻略ガイド
Finderを使った定型処理
コラム　GUIアプリの操作に影響を与えるFinder設定項目

■利用編
Script Menuの使い方
FastScripts 3
アプリケーションごとのScript Menu
フォルダアクション解説
Terminalから使うAppleScript
各種プラグインAppleScript
PDF Workflow Script解説
Mail Plugin Script解説
コンテクストメニューから呼び出す
廃止されたプラグインAppleScript
その他のAppleScriptランチャー〜スイッチコントロール/Automator/ショートカット/音声コントロール/Adobe Illustrator 2023/Adobe InDesign 2023/Keyboard Maestro/Hammerspoon/Service Station/Dropzone 4/Visual Studio Code/CotEditor+PowerPack/Xojo 2023/Live Code/Elgato Stream Deck
制限つきユーザーアカウント&制限つきマシン環境下のAppleScript
ペアレンタルコントロールとAppleScript
MDMによる制限環境下のAppleScript

■実践編
OSバージョン番号確認
ランタイム環境を知る
ハードウェア情報
GUI Scriptingの概要
AppleScriptからネット上の機能を手軽に活用
REST API呼び出し
CDN上のJavaScriptライブラリ呼び出し
ドロップレットを作らなくても大丈夫なScript運用術
Cocoa Scripting入門
対応Framework一覧（macOS 13/14）
Mac App StoreでAppleScriptで作ったアプリを販売
Piyomaru コンテクストメニューアシスタント
Piyomaru Script Templates

■資料編
AppleScriptと相性のよくない技術
各アプリケーションにおけるさまざまな座標系
独自マクロ言語内に記述するAppleScript〜Microsoft Office VBA/Claris FileMaker Pro Script Step
iOSデバイスとの連携
下準備
iOSデバイスからAppleScriptを実行する
iOSデバイス上の情報を更新する
AppleScriptで電話をかける
AppleScriptでSMSを送信する
iPhone/iPadとFaceTimeで通話する
リソースリファレンス〜Predicate文/UTI/アイコン/ディスクイメージ
AppleScriptの歴史
macOSとAppleScriptの要素技術史
AppleScriptの歴史 macOS編
AppleScriptの歴史 Classic MacOS編
AppleScript FAQs
エラー番号とエラーメッセージ
AppleScriptのエラー・コード表
キーコード表
キー入力シミュレーション用キーコード
あとがき

macOS 14、英語環境で12時間表記文字と時刻の間に不可視スペースを入れる仕様に

Posted on 10月 7, 2023 by Takaaki Naganoya

macOS 14の英語環境だけで発生している現象ですが、12時間制の時刻表記設定にしてdateオブジェクトから文字列に変換すると、

時刻と「AM」「PM」の間にUTF-8で202Fのキャラクタ「Narrow No-Break Space」を入れてくるようになったもよう。これを入れるとどういう「いいこと」があるのかは、自分にはわかりません。

macOS 10.12あたりで日本語IMからFinder上のファイル名を入力した際に不可視文字を突っ込まれるという「大惨劇」が起こって、こっそり「なかったこと」にされたようですが、あの時にはリネームできないわファイル名を指定すると一致しないわ、既存の不可視文字入りファイルを修正してもそのままでは保存ができないわで、ひどい目に遭いました。現在日時をそのままファイル名に指定すると大惨劇が起こりそうです。

まぁ、でもAppleに報告してもどうせ真面目に取り合わないでしょうし、日本語環境でこの惨劇は発生しないので、英語圏の誰かが報告すればいいんじゃないでしょうか。

なお、Sonomaの日本語環境で12時間制の時刻表記設定にしてdateオブジェクトから文字列を取り出しても、「午前」「午後」といった12時間表記にともなう表記文字と時刻情報との間に、このような不可視キャラクタが混入することは確認できませんでした。

macOS 14、「辞書」が10個増えて、1つ削除に

Posted on 10月 3, 2023 by Takaaki Naganoya

macOS 14上で、恒例の「辞書」アプリ用にOSに収録している辞書について調査を行いました。スクリプトエディタ上で手軽にCocoa Scriptingを使えるようになったmacOS 10.10以降、AppleScriptからこれらの辞書にアクセスして検索ができるようになり「これは便利！」だと痛感。この機能が失われたら大問題だと感じたためです。

辞書データに対して検索を行う場合には、「どの辞書で検索するか」といった指定を文字列で行う必要があるので、正式な名前について知っておく必要があります。

以来、すべてのバージョンで辞書の名称一覧を取得して記録を行なっています。

理由は、macOSのメジャーアップデートごとに辞書の名前が微妙に細かく変わっているからです。

それらの名称変更には、理由がよくわからないものもあれば、なんとなくわかるものもあります。

これは、見て確認して腰を抜かしました。辞書の名前が変わるというのは「おおごと」だと思っており、このようにコロコロ変えていいものではないと考えています。Appleの命名ルールがコロコロ変わるということを思い知らされた事件でした。

これは…名前を変える必要があったものと見ています。

この「Oxford American Writer’s Thesaurus」の変更箇所は、「’」です。macOS 10.13で全角のアポストロフィ文字に変更され、以後そのまま継続しています。

よくよく考えると、これはPredicates文で抽出するさいに「’」が半角で入っていると処理系の都合で問題になるので全角文字に置き換えたというパターンなんでしょう。

ちなみに、macOS 14で追加になったのは….

NE Nationalencyklopedin AB Professional English-Swedish / Svensk-Engelska
Stavropoulos Oxford Greek-English Learners Dictionary
Kamus Komprehensif Bahasa Melayu – Malay Monolingual Dictionary, Oxford Fajar
Kamus Dwibahasa Melayu/Inggeris – English/Malay Bilingual Dictionary, Oxford Fajar
Larousse Editorial Diccionario General de la Lengua Española
Тълковен речник на съвременния български език
Λεξικό της κοινής νεοελληνικής
Larousse Editorial Diccionari Manual de la llengua catalana
Uniwersalny słownik języka polskiego
Dicţionarul explicativ al limbii române
Oxford Punjabi Dictionaries – ਪੰਜਾਬੀ ਅੰਗਰੇਜ਼ੀ ਕੋਸ਼ • پنجابی انگریزی لغت

で、削除されたのは、

Diccionario General de la Lengua Española Vox

です。Google翻訳すると「スペイン語の一般辞書vox」とのこと。あまり大きくない辞書だったのかも？

AppleScriptの穴

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

タグ: 14.0savvy

Numbersで最前面の書類のすべてのシート上の表の行数を合計

Keynote、Pages、Numbers Ver.14.0が登場

Natural Language frameworkで英語で文章同士の距離を測る

NaturalLanguage.frameworkでNLEmbeddingの処理が可能な言語をチェック

Pagesで、現在表示中のページから離れたページのオブジェクト情報を取得できない

2023年に書いた価値あるAppleScript

2023年に書いた記事の中で注目すべきもの

アプリケーション操作の次の段階へ

Apple純正マウス、キーボードのバッテリー残量取得

スクリプトエディタで記入した「説明」欄の内容が消えるバグ

日付変更通知

macOS 13.xでAS処理系に変更。組み込み実行環境でもライブラリ呼び出しをサポート？

display drop dialogライブラリをv1.5にアップデート

Finder上で選択中のASバンドル書類をオープンしてscpt形式で再保存

新刊発売　AppleScript最新リファレンス　v2.8対応

最新OS環境に合わせてアップデート

より広く、よりわかりやすく、よりくわしく

macOS 14、英語環境で12時間表記文字と時刻の間に不可視スペースを入れる仕様に

macOS 14、「辞書」が10個増えて、1つ削除に