Pagesで選択中のテキストボックスの一番近くにある白い文字のボックスのテキストを取得

Pagesで作成した書類で、プログラムリストの上に配置したタイトルのテキストを取得するAppleScriptです。

割といきあたりばったりで作ってしまったツールです。

Pagesで電子書籍を作成し、レイアウトしたAppleScriptのプログラムリストのファイル名を求めるために、プログラムリストの上に配置した白い文字で記述したテキストフレーム（Pages上ではShapeオブジェクト）を特定します。

フィルタ参照で相対座標値を表現できるといいのですが、そういうのはできないので、地道に距離計算しています。

「上」「下」という相対的な位置関係を表現するのに、結局数値比較しかできないので、どうしたものかと考えていたのですが、結局この「上」という表現は用いずじまいでした。「一番距離が近いテキストフレーム、文字色は白っぽい」だけで割と正確に特定できたので、いいだろうかというところです。相対位置関係を表記するライブラリなども作っておくといいかもしれません。

予想外の要素が、白いとだけ思っていた文字色が、RGB値では若干ゆらいでいたので、そのあたりの辻褄合わせを地味にやっています。カラードメイン（色名をラフに計算する）系のライブラリを使えば「white」などと雑な表現で指定できたかもしれません。

実際に使っているものは、本Scriptにくわえて選択中のテキストフレームの内容をAppleScriptとしてメモリ上で構文確認とコンパイルを行なって、ここで取得したファイル名でAppleScriptとして保存する処理を行なっています。

AppleScript名：Pagesで選択中のテキストボックスの一番近くにある白い文字のボックスの名前を取得.scpt

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

use AppleScript
use scripting additions
use framework "Foundation"
use framework "OSAKit"

property |NSURL| : a reference to current application’s |NSURL|
property OSANull : a reference to current application’s OSANull
property NSString : a reference to current application’s NSString
property OSAScript : a reference to current application’s OSAScript
property OSALanguage : a reference to current application’s OSALanguage
property NSFontAttributeName : a reference to current application’s NSFontAttributeName
property OSALanguageInstance : a reference to current application’s OSALanguageInstance
property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey

tell application "Pages"
　　tell front document
　　　　set aSel to selection
　　　　if aSel = {} then return
　　　　set aaSel to first item of aSel
　　　　
　　　　set targPos to position of aaSel
　　　　set targCon to object text of aaSel –選択中のtext frame（Pages上ではShape）の本文
　　　　
　　　　tell current page
　　　　　　–文字が入っているiWork objectのみが対象
　　　　　　set tList to every shape whose object text is not equal to targCon and object text of it is not equal to "" –オブジェクト
　　　　　　set pList to position of every shape whose object text is not equal to targCon and object text of it is not equal to "" –座標
　　　　　　set cList to color of object text of every shape whose object text is not equal to targCon and object text of it is not equal to "" –文字色
　　　　end tell
　　　　
　　　　–クレヨンピッカーから指定しても、白色に若干の「ゆらぎ」があるようなので、数値比較で抽出
　　　　set aRes to findItemNums({65500, 65500, 65500}, cList) of me
　　　　set aLen to length of aRes
　　　　if aLen = 0 then
　　　　　　display dialog "No Hit(error)"
　　　　　　
　　　　else if aLen = 1 then
　　　　　　set tmpTarg to first item of aRes
　　　　　　set tmpTargTextFrame to item tmpTarg of tList
　　　　　　set oRes to object text of tmpTargTextFrame
　　　　　　
　　　　else
　　　　　　set p2List to {}
　　　　　　repeat with i in aRes
　　　　　　　　set j to contents of i
　　　　　　　　set the end of p2List to contents of item j of pList
　　　　　　end repeat
　　　　　　
　　　　　　set L2ItemNums to retNearestItemByPosition({targPos}, p2List) of me
　　　　　　set oRes to object text of (item (first item of L2ItemNums) of tList)
　　　　　　
　　　　end if
　　end tell
end tell

return oRes

–RGBの値がaNumにlistで入ってくる{r, g, b}
–リスト中に入っている指定要素をサーチして、各チャネルの値よりも大きい場合に合致したとみなし、出現アイテム番号を返す（複数対応）
on findItemNums(aNum, aList)
　　if aList = {missing value} then return {}
　　if aNum = {missing value} then return {}
　　
　　set iCount to 1
　　set hitF to false
　　set hitList to {}
　　copy aNum to {aNum1, aNum2, aNum3}
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is not equal to missing value then
　　　　　　copy j to {tmpR, tmpG, tmpB}
　　　　　　
　　　　　　if (tmpR > aNum1) and (tmpG > aNum2) and (tmpB > aNum3) then
　　　　　　　　set the end of hitList to iCount
　　　　　　end if
　　　　end if
　　　　set iCount to iCount + 1
　　end repeat
　　
　　return hitList
end findItemNums

on retNearestItemByPosition(L1Pos, L2Pos)
　　
　　set resItemNum to {}
　　
　　repeat with i in L1Pos
　　　　set j to contents of i
　　　　set iCount to 1
　　　　set tDList to {}
　　　　
　　　　repeat with ii in L2Pos
　　　　　　set jj to contents of ii
　　　　　　
　　　　　　copy jj to {tmpX1, tmpY1}
　　　　　　copy j to {tmpX2, tmpY2}
　　　　　　
　　　　　　if tmpX1 ≥ tmpX2 then
　　　　　　　　set xDist to tmpX1 – tmpX2
　　　　　　else
　　　　　　　　set xDist to tmpX2 – tmpX1
　　　　　　end if
　　　　　　
　　　　　　if tmpY1 ≥ tmpY2 then
　　　　　　　　set yDist to tmpY1 – tmpY2
　　　　　　else
　　　　　　　　set yDist to tmpY2 – tmpY1
　　　　　　end if
　　　　　　
　　　　　　set tArea to xDist * yDist
　　　　　　set t2Area to absNum(tArea) of me
　　　　　　set the end of tDList to {area:t2Area, itemNum:iCount}
　　　　　　set iCount to iCount + 1
　　　　end repeat
　　　　
　　　　set resList to sortRecListByLabel(tDList, "area", true) of me
　　　　–> {{itemNum:2, area:100}, {itemNum:3, area:1739}, {itemNum:4, area:3780}, {itemNum:1, area:4554}}
　　　　
　　　　set tItem to itemNum of first item of resList
　　　　set the end of resItemNum to tItem
　　　　
　　end repeat
　　
　　return resItemNum
end retNearestItemByPosition

on arrangeTargItemByItemNumList(L2Pos, L2ItemNums)
　　set L3Pos to {}
　　repeat with i in L2ItemNums
　　　　set j to contents of i
　　　　set the end of L3Pos to item j of L2Pos
　　end repeat
　　
　　return L3Pos
end arrangeTargItemByItemNumList

on absNum(q)
　　if q is less than 0 then set q to –q
　　return q
end absNum

–リストに入れたレコードを、指定の属性ラベルの値でソート
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　

Numbersで選択中の範囲を横方向に逆順に並べて、選択範囲に再設定

Posted on 1月 14 by Takaaki Naganoya

Numbersで縦方向に行単位で任意の並べ替え（Ascending、Descending）を行うのは問題ないのですが、横方向に並べ替えをする機能がなかったので、作ってみました。

▲初期状態。左側のデータが新しく、右端が一番古いデータ。並べ替えを行う範囲を選択

▲実行後。横方向に逆順に並べ替えを行った。左端が一番古く、右端が一番新しいデータ

標準機能で欲しいところです。

データ取得は速いものの、スプレッドシートへのデータの書き込みに時間のかかるNumbers。本ScriptもApple Silicon Macで実行すればそこそこの速度で実行してくれますが、おそらくExcelに対して同様の処理を実行したら1,000倍ぐらい高速です。

それほど大量のデータを処理すると、非同期処理が途中でおかしくなるので、数千セルぐらいを上限としておいたほうがよいでしょう。

AppleScript名：Numbersで選択中の範囲を横方向に逆順に並べて、選択範囲に再設定.scptd

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

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

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

set (aList of spd) to get2DListFromNumbersSelection() of me
if (aList of spd) = "" then return "No Selection"

set (bList of spd) to {}

repeat with i in (aList of spd)
　　set tmpList to contents of i
　　set tmpList to reverse of tmpList
　　set the end of (bList of spd) to tmpList
end repeat

set (bList of spd) to FlattenList((bList of spd)) of me

tell application "Numbers"
　　tell front document
　　　　tell active sheet
　　　　　　tell table 1
　　　　　　　　set (cList of spd) to cell of selection range
　　　　　　　　
　　　　　　　　set iCount to 1
　　　　　　　　repeat with i in (cList of spd)
　　　　　　　　　　set newVal to contents of item iCount of (bList of spd)
　　　　　　　　　　if (newVal as string) is equal to "missing value" then set newVal to ""
　　　　　　　　　　
　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　set value of i to newVal
　　　　　　　　　　end ignoring
　　　　　　　　　　
　　　　　　　　　　set iCount to iCount + 1
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
end tell

on get2DListFromNumbersSelection()
　　–Numbersで選択範囲を縦に区切ったリストを返す
　　tell application "Numbers"
　　　　tell front document
　　　　　　tell active sheet
　　　　　　　　try
　　　　　　　　　　set theTable to first table whose class of selection range is range
　　　　　　　　on error
　　　　　　　　　　return "" –何も選択されてなかった場合
　　　　　　　　end try
　　　　　　　　
　　　　　　　　tell theTable
　　　　　　　　　　set selList to value of every cell of selection range –選択範囲のデータを取得
　　　　　　　　　　
　　　　　　　　　　set selName to name of selection range –選択範囲のrange情報を取得
　　　　　　　　　　set {s1, s2} to parseByDelim(selName, ":") of me
　　　　　　　　　　
　　　　　　　　　　–始点の情報を取得する
　　　　　　　　　　set s1Row to (address of row of range s1) as integer
　　　　　　　　　　set s1Column to (address of column of range s1) as integer
　　　　　　　　　　
　　　　　　　　　　–終点の情報を取得する
　　　　　　　　　　set s2Row to (address of row of range s2) as integer
　　　　　　　　　　set s2Column to (address of column of range s2) as integer
　　　　　　　　　　
　　　　　　　　　　–選択範囲の情報を取得する
　　　　　　　　　　set selHeight to s2Row – s1Row + 1 –高さ(Height of selection range)
　　　　　　　　　　set selWidth to s2Column – s1Column + 1 –幅(Width of selection range)
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
　　
　　set aLen to length of selList
　　set aaLen to selHeight
　　
　　set bList to {}
　　repeat with i from 1 to aaLen
　　　　set aHoriList to {}
　　　　
　　　　repeat with ii from 1 to selWidth
　　　　　　set j1 to ii + (i – 1) * selWidth
　　　　　　set tmpCon to contents of item j1 of selList
　　　　　　
　　　　　　set aClass to class of tmpCon
　　　　　　if aClass = number or aClass = integer or aClass = real then
　　　　　　　　set tmpCon to tmpCon as integer
　　　　　　end if
　　　　　　
　　　　　　set the end of aHoriList to tmpCon
　　　　end repeat
　　　　
　　　　set the end of bList to aHoriList
　　end repeat
　　
　　return bList
end get2DListFromNumbersSelection

–テキストを指定デリミタでリスト化
on parseByDelim(aData, aDelim)
　　set aText to current application’s NSString’s stringWithString:aData
　　set aList to aText’s componentsSeparatedByString:aDelim
　　return aList as list
end parseByDelim

–By Paul Berkowitz
–2009年1月27日 2:24:08:JST
–Re: Flattening Nested Lists
on FlattenList(aList)
　　set oldDelims to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to {"????"}
　　set aString to aList as text
　　set aList to text items of aString
　　set AppleScript’s text item delimiters to oldDelims
　　return aList
end FlattenList

★Click Here to Open This Script　

Skimがv1.7.8でopen locationコマンドを削除

Posted on 1月 14 by Takaaki Naganoya

オープンソースのPDFビューワー「Skim」がバージョン1.7.8において「open location」コマンドを削除しました。

open locationコマンドは標準装備されているものであり、Skim側で実装しなくても問題ないという結論に至ったのかもしれません。

なお、オープンできる（Skimが応答する）URLはhttps://のみであり、http://については応答しないのもv1.7.6から変わっていません。

ただ、これまでにSkimは何度も「トラブルを起こしたコマンドをいったん削除してあとあと再実装」という動きをしているので、再実装される可能性は否定できません。しらんけど。

選択範囲の値を取得して、冒頭の値の新しい数値を指定すると以下自動加算

Posted on 1月 14 by Takaaki Naganoya

Numbers上で選択範囲のデータに対して一括で数値を加算するAppleScriptです。

Numbers上で台割（PDFに対して付加するTOC用データ）を管理しているところに、実際の電子書籍の記事が増えて、各記事のノンブル（ページ番号）を変更する必要があるわけですが……これに、当初は「+18で」みたいなScriptを運用していたのですが、暗算で差分を計算していたものの、この仕様だと使いにくかったのです。

そこで、新たなページ数を入力すると、AppleSript側で差分を計算して後の選択範囲に対して加算するようにしてみました。

▲初期状態

▲PDFを参照して新版の「おくづけ」は552ページになっていることを確認　ここで、本Scriptを実行

▲差分（増分）を暗算で計算して入力するのではなく、最初のページの変更後のページ数が何か、を入力。Script側で差分を自動計算

▲実行後の状態

巨大なScriptも役立ちますが、こういう「ちょっとした」サイズのScriptもまた役に立ちます。

AppleScript名：選択範囲の値を取得して、冒頭の値の新しい数値を指定すると以下自動加算.scpt

set sNum to text returned of (display dialog "Input New First Num" default answer "")
tell application "Numbers"
　　tell front document
　　　　tell active sheet
　　　　　　tell table 1
　　　　　　　　set mySelectedRanges to value of every cell of selection range
　　　　　　　　set cellList to cell of selection range
　　　　　　　　
　　　　　　　　set addNum to sNum – (first item of mySelectedRanges)
　　　　　　　　
　　　　　　　　
　　　　　　　　set iCount to 0
　　　　　　　　set newList to {}
　　　　　　　　repeat with i in cellList
　　　　　　　　　　set tmpVal to value of i
　　　　　　　　　　set the end of newList to tmpVal + addNum
　　　　　　　　end repeat
　　　　　　　　
　　　　　　　　repeat with i from 1 to (length of cellList)
　　　　　　　　　　tell item i of cellList
　　　　　　　　　　　　set value to item i of newList
　　　　　　　　　　end tell
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
end tell

★Click Here to Open This Script　

スタイルつきテキストでスタイルつきテキストを検索 v1.1

Posted on 1月 13 by Takaaki Naganoya

スタイルつきテキストの中をスタイルつきテキストで検索するAppleScriptです。フォント、サイズ、色の属性を考慮して文字とこれらの属性値が合っている場合に合致しているものとみなします。

最初のバージョンはChatGPTに書かせたもので、実際に動かしてみたら激遅だったので、2パスで検索することで高速化してみました。オリジナルより100倍以上速くなっているはずです。

Step1: 検索対象文字列、検索文字列の両方をテキスト化して、テキストベースで出現情報を計算
Step2: 出現情報をもとにスタイルつきテキスト（NSAttributedString）の書式情報の照合を行い、合致するものを出力

という処理に変更しました。ChatGPTが出力してきたAppleScriptは、1文字ずつチェック範囲を変更しながら書式情報とテキスト情報の照合を行うという「脳筋処理」だったので、少なく見積もっても100倍。データ量が増えれば増えるほど高速化の度合いが上昇します。

AppleScript名：find Styled Text in Styled Text_v1.1.scptd

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

use AppleScript
use framework "Foundation"
use scripting additions

property NSString : a reference to current application’s NSString
property NSLiteralSearch : a reference to current application’s NSLiteralSearch
property NSMutableArray : a reference to current application’s NSMutableArray

— サンプルデータ
set targetText to "これはサンプルテキストです。サンプルは重要です。サンプルだよー。サンプルサンプル"
set searchText to "サンプル"

— 属性付き文字列の作成
set targetAttributedString to current application’s NSMutableAttributedString’s alloc()’s initWithString:targetText
set searchAttributedString to current application’s NSMutableAttributedString’s alloc()’s initWithString:searchText

— 属性を設定 (例: フォントと色)
set targetFont to current application’s NSFont’s fontWithName:"HiraginoSans-W2" |size|:13
set targetColor to current application’s NSColor’s redColor()
set searchFont to current application’s NSFont’s fontWithName:"HiraginoSans-W2" |size|:13
set searchColor to current application’s NSColor’s redColor()

— 属性を追加
targetAttributedString’s addAttribute:(current application’s NSFontAttributeName) value:targetFont range:{0, targetAttributedString’s |length|()}
targetAttributedString’s addAttribute:(current application’s NSForegroundColorAttributeName) value:targetColor range:{0, targetAttributedString’s |length|()}
searchAttributedString’s addAttribute:(current application’s NSFontAttributeName) value:searchFont range:{0, searchAttributedString’s |length|()}
searchAttributedString’s addAttribute:(current application’s NSForegroundColorAttributeName) value:searchColor range:{0, searchAttributedString’s |length|()}

— 属性付き検索を実行
set matches to searchAttributedStringWithAttributes(targetAttributedString, searchAttributedString) of me
–> {{location:3, |length|:4}, {location:14, |length|:4}, {location:24, |length|:4}, {location:32, |length|:4}, {location:36, |length|:4}}

— NSAttributedStringの属性付き検索を行うハンドラー（複数一致対応）
on searchAttributedStringWithAttributes(targetAttributedString, searchAttributedString)
　　set targText to targetAttributedString’s |string|() as string
　　
　　set searchAttributes to searchAttributedString’s attributesAtIndex:0 effectiveRange:(missing value)
　　set searchString to searchAttributedString’s |string|() as string
　　
　　–テキストベースで検索
　　set strRangeList to searchWordRanges(targText, searchString) of me
　　–あとは、検索箇所の文字書式をループで照合する
　　
　　set matList to {} — 結果を格納するリスト
　　
　　— ループで対象の文字列が含まれる位置の書式情報を検索
　　repeat with i in strRangeList
　　　　set j to contents of i
　　　　set tmpLoc to location of j
　　　　set tmpLen to |length| of j
　　　　
　　　　— 対象範囲の属性を取得
　　　　set targetAttributes to (targetAttributedString’s attributesAtIndex:(tmpLoc) effectiveRange:(current application’s NSMakeRange(tmpLoc, tmpLen)))
　　　　
　　　　if (targetAttributes = searchAttributes) then
　　　　　　set the end of matList to {location:(tmpLoc as integer), |length|:(tmpLen as integer)} — 属性が一致した場合
　　　　end if
　　end repeat
　　
　　return matList — 一致したすべての範囲を返す
end searchAttributedStringWithAttributes

–プレーンテキストベースで検索文字列の出現情報を返す（複数対応）
on searchWordRanges(aTargText as string, aSearchStr as string)
　　set aStr to NSString’s stringWithString:aTargText
　　set bStr to NSString’s stringWithString:aSearchStr
　　
　　set hitArray to NSMutableArray’s alloc()’s init()
　　set cNum to (aStr’s |length|()) as integer
　　
　　set aRange to current application’s NSMakeRange(0, cNum)
　　
　　repeat
　　　　set detectedRange to aStr’s rangeOfString:bStr options:(NSLiteralSearch) range:aRange
　　　　set aLen to (detectedRange’s |length|) as number
　　　　
　　　　if aLen = 0 then exit repeat
　　　　
　　　　hitArray’s addObject:detectedRange
　　　　
　　　　set aNum to (detectedRange’s location) as number
　　　　set bNum to (detectedRange’s |length|) as number
　　　　
　　　　set aRange to current application’s NSMakeRange(aNum + bNum, cNum – (aNum + bNum))
　　end repeat
　　
　　return hitArray
end searchWordRanges

★Click Here to Open This Script　

スタイルつきテキストでスタイルつきテキストを検索

Posted on 1月 13 by Takaaki Naganoya

たかだか3Kバイトごときの文字量のスタイルつきテキストから検索を行うのに、M2 Airで2・3秒ぐらいかかります。

属性値をDictionary in Arrayとして解釈して検索を行うよりも、大幅に処理に時間がかかるようです。

1文字ずつ開始位置をズラして文字＆書式の再照合を行っているので、アホみたいに処理時間がかかります。Cocoaの機能を使って処理しているのに、Pagesに問い合わせるよりも時間がかかっている雰囲気です。

本ScriptはChatGPTに書かせたもので、おそらく処理に時間がかかって「無駄」になるものと見込んでいました。

スタイルつきテキストに対してスタイルつきテキストによる検索を行うのは、予想どおりものすごく負荷が大きくなるようで……本Scriptは残念ながら作り捨てになりそうです。

もう少し頭を使って、文字だけで出現位置チェックを行い、出現位置情報をもとに書式の照合を行うようにすれば、10倍ぐらい高速に処理できそうです。

AppleScript名：find Styled Text in Styled Text.scptd

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

use AppleScript
use framework "Foundation"
use scripting additions

— 使用例
set targetText to "これはサンプルテキストです。サンプルは重要です。サンプルだよー。"
set searchText to "サンプル"

— NSAttributedStringの属性付き検索を行うハンドラー（複数一致対応、変数名変更）
on searchAttributedStringWithAttributes(targetAttributedString, searchAttributedString)
　　— 検索対象の全長を取得
　　set targetLength to targetAttributedString’s |length|()
　　set searchLength to searchAttributedString’s |length|()
　　
　　— 検索する属性辞書を取得
　　set searchAttributes to searchAttributedString’s attributesAtIndex:0 effectiveRange:(missing value)
　　set searchString to searchAttributedString’s |string|() as string
　　
　　— 結果を格納するリスト
　　set matches to {}
　　
　　— ループで対象の文字列を検索
　　set currentIndex to 1
　　
　　repeat while (currentIndex + searchLength ≤ targetLength)
　　　　— 対象範囲の属性辞書を取得
　　　　set targetAttributes to targetAttributedString’s attributesAtIndex:currentIndex effectiveRange:(missing value)
　　　　
　　　　— 対象範囲の文字列を取得
　　　　set targetRange to (current application’s NSMakeRange(currentIndex, searchLength))
　　　　set targetSubstring to (targetAttributedString’s attributedSubstringFromRange:(targetRange))’s |string|()
　　　　
　　　　— 属性と文字列の一致を確認
　　　　if (targetSubstring as string = searchString) and (targetAttributes = searchAttributes) then
　　　　　　set end of matches to {location:currentIndex, |length|:searchLength}
　　　　end if
　　　　
　　　　— 次の位置に進む
　　　　set currentIndex to currentIndex + 1
　　end repeat
　　
　　return matches — 一致したすべての範囲を返す
end searchAttributedStringWithAttributes

★Click Here to Open This Script　

AS書類を書式で分解して再構成

Posted on 1月 12 by Takaaki Naganoya

AppleScriptの書類を読み込んでNSAttributedStringに変換し、書式情報にもとづいてNSDictionary in NSArrayに変換。この状態でデータ抽出などを行なっていたのですが、このデータをもとにNSAttributedStringに再構成するAppleScriptです。

本Scriptの通しの処理内容としては、読み込んだAppleScriptを書式情報をもとに分解して、再構成するという……大豆から豆腐を作って、豆腐を崩して豆を得る、みたいな内容です。

NSAttributedStringを再構成する部分の処理を書いていなかったので、必要に迫られて書いてみました。

AppleScript構文色分け設定情報をもとに処理するため、色分け設定で複数の構文要素で同じ色を指定している場合にはエラーを返します。単にNSAttributedStringを解釈して再構成する、といった処理であればAppleScript構文色分け設定へのアクセス自体は必要ないところですが、すでに不可分なレベルで組み込まれているため、現状ではそのままです。

いっそ、こうした処理をする前にplistをバックアップし、必要な情報を書き込んだplistを設定ファイルとして使用するといった処理を行った方がいいのかもしれません。これまでは、「そんな処理はとても行えない」と判断していましたが、よくよく考えればとくに苦労せずに実現できそうです。

AppleScript名：AS書類を書式で分解して再構成.scptd

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

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

property NSFont : a reference to current application’s NSFont
property NSColor : a reference to current application’s NSColor
property |NSURL| : a reference to current application’s |NSURL|
property NSString : a reference to current application’s NSString
property OSAScript : a reference to current application’s OSAScript
property NSDictionary : a reference to current application’s NSDictionary
property NSUnarchiver : a reference to current application’s NSUnarchiver
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSFontAttributeName : a reference to current application’s NSFontAttributeName
property NSMutableAttributedString : a reference to current application’s NSMutableAttributedString
property NSForegroundColorAttributeName : a reference to current application’s NSForegroundColorAttributeName

property asCol : {}

set asCol to getAppleScriptSourceColors() of me –AppleScript構文色分け設定をplistから読み込む

set aFile to POSIX path of (choose file of type {"com.apple.applescript.script", "com.apple.applescript.script-bundle"})
set aURL to |NSURL|’s fileURLWithPath:(aFile)
set theScript to current application’s OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
set styledText to theScript’s richTextSource()

–Styled TextをDictionarry in Listに
set sRes to getAttributeRunsFromAttrStringRBO(styledText) of styleTextToDict

–Dictionarry in ListをStyled Textに再構成
set bRes to retAttributedStringFromAttrDict(sRes) of attrDictToAttrStr

script styleTextToDict
　　use AppleScript
　　use framework "Foundation"
　　use framework "AppKit"
　　use scripting additions
　　property parent : AppleScript
　　
　　–Styled Textを
　　on getAttributeRunsFromAttrStringRBO(theStyledText)
　　　　script aSpd
　　　　　　property styleList : {}
　　　　end script
　　　　
　　　　set (styleList of aSpd) to {} —for output
　　　　
　　　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　　　
　　　　set theLength to theStyledText’s |length|()
　　　　set startIndex to 0
　　　　set aCount to 0
　　　　
　　　　repeat until (startIndex = theLength)
　　　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength – startIndex}
　　　　　　
　　　　　　–String　　
　　　　　　set aText to (thePureString’s substringWithRange:theRange) as string
　　　　　　set strLen to (length of aText)
　　　　　　
　　　　　　–Color
　　　　　　set aColor to (theAtts’s valueForKeyPath:"NSColor")
　　　　　　if aColor is not equal to missing value then
　　　　　　　　set aSpace to aColor’s colorSpace()
　　　　　　　　
　　　　　　　　set aRed to (aColor’s redComponent()) * 255
　　　　　　　　set aGreen to (aColor’s greenComponent()) * 255
　　　　　　　　set aBlue to (aColor’s blueComponent()) * 255
　　　　　　　　
　　　　　　　　set colList to {aRed as integer, aGreen as integer, aBlue as integer} –for comparison
　　　　　　　　set colStrForFind to (aRed as integer as string) & " " & (aGreen as integer as string) & " " & (aBlue as integer as string) –for filtering
　　　　　　else
　　　　　　　　set colList to {0, 0, 0}
　　　　　　　　set colStrForFind to "0 0 0"
　　　　　　end if
　　　　　　
　　　　　　–Font
　　　　　　set aFont to (theAtts’s valueForKeyPath:"NSFont")
　　　　　　if aFont is not equal to missing value then
　　　　　　　　set aDFontName to aFont’s displayName()
　　　　　　　　set aDFontSize to aFont’s pointSize()
　　　　　　end if
　　　　　　
　　　　　　–Range
　　　　　　set the end of (styleList of aSpd) to {stringVal:aText, atrIndex:aCount, colorStr:colStrForFind, colorVal:colList, fontName:aDFontName as string, fontSize:aDFontSize}
　　　　　　set startIndex to current application’s NSMaxRange(theRange)
　　　　　　
　　　　　　set aCount to aCount + 1
　　　　end repeat
　　　　
　　　　return (styleList of aSpd)
　　　　
　　end getAttributeRunsFromAttrStringRBO
　　
　　–NSColorからRGBの値を取り出す
　　on retColListFromNSColor(aCol, aMAX as integer)
　　　　using terms from scripting additions
　　　　　　set aRed to round ((aCol’s redComponent()) * aMAX) rounding as taught in school
　　　　　　set aGreen to round ((aCol’s greenComponent()) * aMAX) rounding as taught in school
　　　　　　set aBlue to round ((aCol’s blueComponent()) * aMAX) rounding as taught in school
　　　　end using terms from
　　　　if aRed > aMAX then set aRed to aMAX
　　　　if aGreen > aMAX then set aGreen to aMAX
　　　　if aBlue > aMAX then set aBlue to aMAX
　　　　
　　　　return {aRed, aGreen, aBlue}
　　end retColListFromNSColor
　　
　　–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
　　
end script

script attrDictToAttrStr
　　use AppleScript
　　use framework "Foundation"
　　use framework "AppKit"
　　use scripting additions
　　property parent : AppleScript
　　
　　–書式つきテキストを組み立てる（メイン側）
　　on retAttributedStringFromAttrDict(attrRes)
　　　　script aSpd
　　　　　　property styleList : {}
　　　　end script
　　　　
　　　　set (styleList of aSpd) to {} —for output
　　　　
　　　　set allAttrStr to NSMutableAttributedString’s alloc()’s init()
　　　　
　　　　repeat with i in attrRes
　　　　　　set j to contents of i
　　　　　　set tmpAttrStr to makeRTFfromParameters(stringVal of j, fontName of j, fontSize of j, colorVal of j) of me
　　　　　　
　　　　　　(allAttrStr’s appendAttributedString:tmpAttrStr)
　　　　end repeat
　　　　
　　　　return allAttrStr
　　end retAttributedStringFromAttrDict
　　
　　–書式つきテキストを組み立てる（パーツ組み立て用サブ側）
　　on makeRTFfromParameters(aStr as string, fontName as string, aFontSize as real, aColorList as list)
　　　　–Font & Size
　　　　set aVal1 to NSFont’s fontWithName:fontName |size|:aFontSize
　　　　set aKey1 to (NSFontAttributeName)
　　　　
　　　　–Color
　　　　copy aColorList to {rCol, gCol, bCOl}
　　　　set aVal2 to makeNSColorFromRGBAval(rCol, gCol, bCOl, 255, 255) of asCol
　　　　set aKey2 to (NSForegroundColorAttributeName)
　　　　
　　　　set keyList to {aKey1, aKey2}
　　　　set valList to {aVal1, aVal2}
　　　　set attrsDictionary to NSMutableDictionary’s dictionaryWithObjects:valList forKeys:keyList
　　　　
　　　　–Text
　　　　set attrStr to NSMutableAttributedString’s alloc()’s initWithString:aStr attributes:attrsDictionary
　　　　return attrStr
　　end makeRTFfromParameters
　　
　　
　　–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
　　
end script

–AppleScriptの構文色分けのカラー値をRGBで取得する
on getAppleScriptSourceColors()
　　— get the plist info as a dictionary
　　set thePath to NSString’s stringWithString:"~/Library/Preferences/com.apple.applescript.plist"
　　set thePath to thePath’s stringByExpandingTildeInPath()
　　set theInfo to NSDictionary’s dictionaryWithContentsOfFile:thePath
　　
　　— extract relevant part and loop through
　　set theArray to (theInfo’s valueForKey:"AppleScriptSourceAttributes") as list
　　
　　set colList to {}
　　
　　repeat with i from 1 to count of theArray
　　　　set anEntry to item i of theArray
　　　　
　　　　set colorData to NSColor of anEntry
　　　　set theColor to (NSUnarchiver’s unarchiveObjectWithData:colorData)
　　　　
　　　　set {rVal, gVal, bVal} to retColListFromNSColor(theColor, 255) of me
　　　　
　　　　set fontData to NSFont of anEntry
　　　　set theFont to (NSUnarchiver’s unarchiveObjectWithData:fontData)
　　　　
　　　　set aFontName to theFont’s displayName() as text
　　　　set aFontSize to theFont’s pointSize()
　　　　
　　　　set aColRec to {redValue:rVal, greenValue:gVal, blueValue:bVal, fontName:aFontName, fontSize:aFontSize}
　　　　
　　　　set the end of colList to aColRec
　　end repeat
　　
　　return colList
end getAppleScriptSourceColors

–NSColorからRGBの値を取り出す
on retColListFromNSColor(aCol, aMAX as integer)
　　using terms from scripting additions
　　　　set aRed to round ((aCol’s redComponent()) * aMAX) rounding as taught in school
　　　　set aGreen to round ((aCol’s greenComponent()) * aMAX) rounding as taught in school
　　　　set aBlue to round ((aCol’s blueComponent()) * aMAX) rounding as taught in school
　　end using terms from
　　
　　if aRed > aMAX then set aRed to aMAX
　　if aGreen > aMAX then set aGreen to aMAX
　　if aBlue > aMAX then set aBlue to aMAX
　　
　　return {aRed, aGreen, aBlue}
end retColListFromNSColor

★Click Here to Open This Script　

OSAScriptViewのじっけん#2

Posted on 1月 9 by Takaaki Naganoya

OSAScriptViewの実験の続編です。#1ではSingle Windowのアプリを作って実験してみました（モノ自体は作ってあったので）。macOS 15.3 beta+Xcode 16.2でテストしました。

#2ではDocumentベースのアプリを作って、そこにOSAScriptViewを載せました。余計なテキストフィールドが載っているのは、いろいろ野望があるためです。

–> Download Fake Script Editor

#1と同様にコピペでAppleScriptを入力して、実際に動かして、結果を受け取れます。

ただし、この段階ですでに問題山積の状態です。Compile操作を行うと、ひさしぶりのビーチボール表示になって返ってきません。

Run Scriptはできるのに、Compile（Check Syntax）動作で落ちます。

この段階でかなり「どうすんの、これ？」という状態です。普通に部品を並べて普通につないで動かしたらクラッシュするというのは……

OSAScriptViewのじっけん#1

Posted on 1月 9 by Takaaki Naganoya

OSASCriptViewを試してみましょう。自前でScript Editorをどの程度作れるのかという確認作業です。Xcode 16.2＋macOS 15.3betaで確認を行なっています。

–> Download Xcode Project osascript_test

とはいえ、これは2017年にすでに調査してありました。OSASCriptControllerとOSAScriptViewをCocoa Bindingでつないで、さらにいくつかの必要なボタンをOSASCriptControllerにつないで、簡単なAppleScript記述＋実行のテストプロジェクトを作成。

この実行環境は、AppleScriptライブラリを認識して呼び出せますし、OSの構文色分け設定を認識します。

ただし、Apple純正のスクリプトエディタ同様、Cocoa Objectのログ表示は行えません。

また、かなり致命的な問題なのですが、バンドル形式のAppleScriptはこの状態では編集・実行できません。

Appleが配布していたサンプルコードで、AppleScriptObjCが出たての頃にスクリプトエディタをASOCで組んだプロジェクトを見かけたのですが、それを探して編集するのが手っ取り早そうです。ただ、あれもバンドル形式のAppleScript書類を編集・実行できなかった記憶があります。

指定フォルダ以下の画像のMD5チェックサムを求めて、重複しているものをピックアップしてダイアログでプレビュー_v4

Posted on 1月 2 by Takaaki Naganoya

指定フォルダ以下の画像（種別問わず）をすべてピックアップして、それぞれMD5チェックサムを計算し、重複しているものをピックアップしてデータとして出力するAppleScriptです。実行にはScript Debuggerを必要とします。今後は、ScriptableなライブラリをXcodeで1本作って、そこにAppleScriptから呼び出すのに便利なFrameworkを突っ込みまくるようにするのかも？　

–> Download Script Bundle within framework and library

前バージョンのScriptでは指定フォルダ直下の画像だけをピックアップするようになっていました、Spotlight検索でサブディレクトリ以下もすべて画像収集するように変更し、本Scriptだけで重複画像のブラウズができるようになっています。NSOutlineView＋NSImageでブラウズするダイアログの部品はedama2さんから提供していただいています。

AppleScript名：指定フォルダ以下の画像のMD5チェックサムを求めて、重複しているものをピックアップしてダイアログでプレビュー_v4.scptd

— Created 2015-10-01 by Takaaki Naganoya
— Modified 2015-10-01 by Shane Stanley–With Cocoa-Style Filtering
— Modified 2018-12-01 by Takaaki Naganoya
— Modified 2024-12-19 by Takaaki Naganoya
— Modified 2025-01-01 by Takaaki Naganoya
— Modified 2025-01-02 by Takaaki Naganoya
use AppleScript
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "md5Lib" –https://github.com/JoeKun/FileMD5Hash
use outImageV : script "visLib" –NSOUtlineView+NSImageView Lib by edama2
use mdLib : script "Metadata Lib" version "2.0.0"

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 NSCountedSet : a reference to current application’s NSCountedSet
property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey
property NSString : a reference to current application’s NSString
property NSFileManager : a reference to current application’s NSFileManager
property NSMutableArray : a reference to current application’s NSMutableArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor

script spd
　　property fList : {}
　　property fRes : {}
　　property md5List : {}
　　property fmdList : {}
　　property dupRes : {}
　　property outList : {}
end script

set aFol to POSIX path of (choose folder)
–set aFol to POSIX path of (path to pictures folder)

set (fRes of spd) to mdLib’s searchFolders:{aFol} searchString:("(kMDItemContentTypeTree CONTAINS %@)") searchArgs:{"public.image"}

–すべての画像のMD5チェックサムを計算
set (md5List of spd) to {}
set (fmdList of spd) to {}

repeat with i in (fRes of spd)
　　set j to contents of i
　　set md5Res to (current application’s FileHash’s md5HashOfFileAtPath:(j)) as string
　　set the end of (md5List of spd) to md5Res
　　set the end of (fmdList of spd) to {filePath:j, md5:md5Res}
end repeat

–チェックサムが重複している画像を取り出す
set fmdArray to NSArray’s arrayWithArray:(fmdList of spd)

set (dupRes of spd) to returnDuplicatesOnly((md5List of spd)) of me
set (outList of spd) to {}
set procMDs to {}
set aRecord to {}

repeat with i in (dupRes of spd)
　　set j to contents of i
　　
　　if j is not in procMDs then
　　　　set aRes to filterDictArrayByLabel(fmdArray, "md5 == ’" & j & "’") of me
　　　　
　　　　set tmpMD5 to filePath of (first item of aRes)
　　　　
　　　　set tmpRes to {}
　　　　repeat with ii in aRes
　　　　　　set jj to contents of ii
　　　　　　set idSrcURL to (current application’s NSURL’s fileURLWithPath:(filePath of jj))
　　　　　　set the end of tmpRes to {|name|:idSrcURL’s lastPathComponent(), fileURL:idSrcURL, isLeaf:true}
　　　　end repeat
　　　　
　　　　set aRec to {|name|:j, fileRes:"", isLeaf:false, children:tmpRes}
　　　　set aRecord’s end to aRec
　　　　set the end of procMDs to j
　　　　set the end of (outList of spd) to aRec
　　end if
end repeat

–OutlineView＋ ImageViewでダイアログ表示
set mainMes to "重複画像一覧"
set subMes to "指定フォルダ以下の重複画像は以下のとおりです"
set aRes to outImageV’s alert:mainMes informativeText:subMes treeData:(outList of spd) isExpand:true

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterDictArrayByLabel(aArray, aPredicate as string)
　　–抽出
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat:aPredicate
　　set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate
　　return filteredArray
end filterDictArrayByLabel

–指定フォルダ以下のすべてのファイルを再帰で取得
on retFullpathsWithinAFolderWithRecursive(aFol)
　　set anArray to NSMutableArray’s array()
　　set aPath to NSString’s stringWithString:aFol
　　set dirEnum to NSFileManager’s defaultManager()’s enumeratorAtPath:aPath
　　
　　repeat
　　　　set aName to (dirEnum’s nextObject())
　　　　if aName = missing value then exit repeat
　　　　set aFullPath to aPath’s stringByAppendingPathComponent:aName
　　　　anArray’s addObject:(aFullPath as string)
　　end repeat
　　
　　return anArray as list
end retFullpathsWithinAFolderWithRecursive

–Alias listから指定UTIに含まれるものをPOSIX pathのリストで返す
on filterAliasListByUTI(aList, targUTI)
　　set newList to {}
　　repeat with i in aList
　　　　set j to POSIX path of i
　　　　set tmpUTI to my retUTIfromPath(j)
　　　　set utiRes to my filterUTIList({tmpUTI}, targUTI)
　　　　if utiRes is not equal to {} then
　　　　　　set the end of newList to j
　　　　end if
　　end repeat
　　return newList
end filterAliasListByUTI

–指定のPOSIX pathのファイルのUTIを求める
on retUTIfromPath(aPOSIXPath)
　　set aURL to |NSURL|’s fileURLWithPath:aPOSIXPath
　　set {theResult, theValue} to aURL’s getResourceValue:(reference) forKey:NSURLTypeIdentifierKey |error|:(missing value)
　　
　　if theResult = true then
　　　　return theValue as string
　　else
　　　　return theResult
　　end if
end retUTIfromPath

–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

on returnDuplicatesOnly(aList as list)
　　set aSet to NSCountedSet’s alloc()’s initWithArray:aList
　　set bList to (aSet’s allObjects()) as list
　　
　　set dupList to {}
　　repeat with i in bList
　　　　set aRes to (aSet’s countForObject:i)
　　　　if aRes > 1 then
　　　　　　set the end of dupList to (contents of i)
　　　　end if
　　end repeat
　　
　　return dupList
end returnDuplicatesOnly

★Click Here to Open This Script　

執筆中：AppleScript最新リファレンスver2.8対応（macOS 15対応アップデート）

Posted on 1月 1 by Takaaki Naganoya

「AppleScript最新リファレンスver2.8対応」をお買い上げの読者の方々に対して、アップデート版として提供されます。

ほとんどできているのですが、「AppleScript最新リファレンスver2.8対応」添付のPiyomaru Script Assistantに合わせて内容の調整を行なっています。macOS 15の登場によって変更になった箇所の情報を中心に内容を補っています。前バージョンからは60ページほど内容を追記しています。

同ツールは初版に添付することをねらっていましたが、macOSのバグ（とくにText To Speech系）の状況確認や対応に時間がかかっていました。

執筆中：Cocoa Scripting Course #10 NSAttributedString

Posted on 1月 1 by Takaaki Naganoya

目下、執筆中なのがCocoa Scripting Courseの10巻、NSAttributedStringです。FoundationとAppKitに分かれて機能が分布しており、なかなか言及すべき内容が多いものです。

WebKitにも機能が分布していますが、ざっと見たかぎりではWebKitのNSAttributedStringはAppleScriptから呼び出せないものがほとんどのようなので、ここは無視してよいでしょう。

NSAttributedStringとHTML、そしてMarkdownとの間の変換機能などが最近のmacOSのアップデートで追加されているため、こちらもすぐには完成しないことでしょう。

執筆中：スクリプトエディタ Scripting Book with AppleScript

Posted on 1月 1 by Takaaki Naganoya

あけましておめでとうございます。

目下執筆中なのが、「スクリプトエディタScripting Book with AppleScript」という本です。

AppleScriptでスクリプトエディタを操作してさまざまな処理を行うことをテーマに据えています。不可能を可能にする系の内容がぎっしり。割とカロリー高めな内容です。

スクリプトエディタはMac OS X 10.3か4のときにスクリプタブルになり、従来のCarbonではなくCocoaで書き直されました。生産性を向上させるためにスクリプトエディタを操作するScriptingはその頃から行なってきたのですが、ノウハウの総量は巨大なものの、これを必要としているユーザーがどの程度いるのか？　という懸念から、まとめることをためらっていました。

ただ、まとめずに放置しておいては、有用なノウハウも風化してしまうため、この機会にまとめてみることにしたものです。

目下、400ページほど書いてみましたが、これはAppleScriptコマンドリファレンスを含んだものであり、記事ページについては「数ページの箇所もあれば数十ページの章もあって、バランスがよくない」といった印象です。

いったん寝かせて放っておくと、いい感じに発酵して（角がとれて）マイルドな味わいになるかもしれません。

choose fileで指定したsdefを読み込み、sdef中のサンプル（用例）を個別にHTML書き出しする

Posted on 12月 30, 2024 by Takaaki Naganoya

スクリプトエディタから書き出したsdefファイルを選択すると、指定の書き出し先フォルダにsdef内のAppleScriptサンプルをHTML形式で書き出すAppleScriptです（最初のバージョンでHTMLの実体参照デコード処理をハードコーディングしていたのを、Cocoaの機能を利用するよう書き換えました）。

スクリプトエディタでAppleScript用語辞書を表示させた状態で、ファイル書き出しすると個別のsdefファイルとして保存できます。この状態のsdefにアプリのバージョン番号を付加して、バージョン履歴として保存しています。

こうして保存しておいたsdef内のサンプルAppleScriptをHTMLとして書き出します。Pixelmator Proに58本のサンプルScriptが入っていたので、けっこうな分量になります。それを手作業で取り出すのは手間なので、Scriptで取り出すことにしました。

それを収集するために作ったのが本Scriptです。

本来、スクリプトエディタで表示（xinclude解消＋レンダリング）させたsdefを処理させるAppleScriptで、いちいちxincludeの展開を行わせるのは無意味なのですが、本Scriptはもともと「アプリのBundle IDを指定してsdefのパスを求めて処理する」ようになっていたため、仕様がとがりすぎて汎用性がいまひとつだったので、「スクリプトエディタで書き出したsdefを処理」するように書き換えたという経緯があるためです。説明したら余計にわからなくなったような、、、、

AppleScript名：choose fileで指定したsdefを読み込み、sdef中のサンプル（用例）を個別にHTML書き出しする v2.scptd

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

use AppleScript
use framework "Foundation"
use framework "AppKit"
use scripting additions

set sdefAlias to (choose file of type {"com.apple.scripting-definition"} with prompt "書き出したSDEFを選択")
set sdefFullPath to (POSIX path of sdefAlias)

–SDEF読み込み（Xincludeの展開が必要な状態）
tell current application
　　set theXML to read sdefAlias as «class utf8»
end tell

–NSXMLDocumentの生成、Xincludeを有効に
set {theXMLDoc, theError} to current application’s NSXMLDocument’s alloc()’s initWithXMLString:theXML options:(current application’s NSXMLDocumentXInclude) |error|:(reference)

set aDocStr to (theXMLDoc’s XMLData)
set aDocStr2 to (current application’s NSString’s alloc()’s initWithData:(aDocStr) encoding:(current application’s NSUTF8StringEncoding)) as string

set sampleList to (extractStrFromTo(aDocStr2, "<html>", "</html>") of me)
set sampleCount to length of sampleList
if sampleCount = 0 then return

set outFol to POSIX path of (choose folder with prompt "Select Output Folder")

set aCount to 1

repeat with i in sampleList
　　set j to (contents of i)
　　
　　if j is not equal to "" then
　　　　set j1 to decodeCharacterReference(j) of me
　　　　set j2 to "<!DOCTYPE html><html><meta charset=utf-8><title>" & (aCount as string) & "</title><body>" & j1 & "</body></html>"
　　　　
　　　　set wPath to outFol & (aCount as string) & ".html"
　　　　set fRes to writeToFileAsUTF8(j2, wPath) of me
　　　　if fRes = false then error
　　　　
　　　　set aCount to aCount + 1
　　end if
end repeat

–指定パスからアプリケーションのScriptabilityをbooleanで返す
on retAppSdefNameFromBundleIPath(appPath as string)
　　set aDict to (current application’s NSBundle’s bundleWithPath:appPath)’s infoDictionary()
　　set aRes to aDict’s valueForKey:"OSAScriptingDefinition"
　　if aRes = missing value then return false
　　set asRes to aRes as string
　　
　　return asRes as string
end retAppSdefNameFromBundleIPath

–指定文字と終了文字に囲まれた内容を抽出
on extractStrFromTo(aParamStr, fromStr, toStr)
　　set theScanner to current application’s NSScanner’s scannerWithString:aParamStr
　　set anArray to current application’s NSMutableArray’s array()
　　
　　repeat until (theScanner’s isAtEnd as boolean)
　　　　set {theResult, theKey} to theScanner’s scanUpToString:fromStr intoString:(reference)
　　　　theScanner’s scanString:fromStr intoString:(missing value)
　　　　set {theResult, theValue} to theScanner’s scanUpToString:toStr intoString:(reference)
　　　　if theValue is missing value then set theValue to "" –>追加
　　　　theScanner’s scanString:toStr intoString:(missing value)
　　　　anArray’s addObject:theValue
　　end repeat
　　
　　return (anArray as list)
end extractStrFromTo

on writeToFileAsUTF8(aStr, aPath)
　　set cStr to current application’s NSString’s stringWithString:aStr
　　set thePath to POSIX path of aPath
　　set aRes to cStr’s writeToFile:thePath atomically:false encoding:(current application’s NSUTF8StringEncoding) |error|:(missing value)
　　return aRes as boolean
end writeToFileAsUTF8

–文字置換
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

–実体参照をデコード
on decodeCharacterReference(aStr)
　　set anNSString to current application’s NSString’s stringWithString:aStr
　　set theData to anNSString’s dataUsingEncoding:(current application’s NSUTF16StringEncoding)
　　set styledString to current application’s NSAttributedString’s alloc()’s initWithHTML:theData documentAttributes:(missing value)
　　set plainText to (styledString’s |string|()) as string
　　return plainText
end decodeCharacterReference

★Click Here to Open This Script　

選択範囲のセルの数値がAscendingになっているかをチェック

Posted on 12月 26, 2024 by Takaaki Naganoya

Numbersで選択中のセルが1→2→3と、値が増加する形式（Ascending）になっているかをチェックするAppleScriptです。

書籍のページ（ノンブル）は、かならず1–>2–>3とページ数がかならず増加するようになっています。これが、途中で減るような値になっているとまずいので、そのチェックを行うようにしてみたものです。

本ScriptはNumbers v14.3でテストしていますが、もっと古いバージョンでも問題ないことでしょう。

AppleScript名：選択範囲のセルの数値がAscendingになっているかをチェック

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

property NSString : a reference to current application’s NSString
property NSCharacterSet : a reference to current application’s NSCharacterSet

set curTable to getCurTable() of me
if curTable = "" then return

tell application "Numbers"
　　tell curTable
　　　　set cList to value of every cell of selection range
　　end tell
end tell

copy cList to dList

set dList to shellSortAscending(dList) of me

if cList = dList then
　　return true
else
　　return false
end if

on getCurTable()
　　tell application "Numbers"
　　　　tell front document
　　　　　　tell active sheet
　　　　　　　　try
　　　　　　　　　　set theTable to first table whose class of selection range is range
　　　　　　　　on error
　　　　　　　　　　return "" –何も選択されてなかった場合
　　　　　　　　end try
　　　　　　　　
　　　　　　　　return theTable
　　　　　　end tell
　　　　end tell
　　end tell
end getCurTable

–入れ子ではないリストの昇順ソート
on shellSortAscending(aSortList)
　　script oBj
　　　　property list : aSortList
　　end script
　　set len to count oBj’s list’s items
　　set gap to 1
　　repeat while (gap ≤ len)
　　　　set gap to ((gap * 3) + 1)
　　end repeat
　　repeat while (gap > 0)
　　　　set gap to (gap div 3)
　　　　if (gap < len) then
　　　　　　repeat with i from gap to (len – 1)
　　　　　　　　set temp to oBj’s list’s item (i + 1)
　　　　　　　　set j to i
　　　　　　　　repeat while ((j ≥ gap) and (oBj’s list’s item (j – gap + 1) > temp))
　　　　　　　　　　set oBj’s list’s item (j + 1) to oBj’s list’s item (j – gap + 1)
　　　　　　　　　　set j to j – gap
　　　　　　　　end repeat
　　　　　　　　set oBj’s list’s item (j + 1) to temp
　　　　　　end repeat
　　　　end if
　　end repeat
　　return oBj’s list
end shellSortAscending

★Click Here to Open This Script　

CotEditor v5.0.7でwrite to consoleにオプションが追加される

Posted on 12月 23, 2024 by Takaaki Naganoya

オープンソースのテキストエディタ「CotEditor」の「write to console」コマンドにオプションが追加されました。

title（実行したAppleScript名の表記）と、timestamp表示の有無を指定できるようになっています。

ただし、これらのオプションが効くには条件があります。CotEditorの外部から、スクリプトエディタやScript Debuggerなどで実行したAppleScript内でCotEditorに対してwrite to consoleコマンドを実行した場合には、これらのオプションを指定していても、とくにtitle（ファイル名）については効きません。

CotEditorの内蔵スクリプトメニュー内で実行したAppleScriptにおいて「write to console」コマンドを実行した場合にはtitle（ファイル名）、timestamp（日時）の指定が有効です。

AppleScript名：コンソールテスト1.scpt

tell application "CotEditor"
　　write to console "ぴよまるさんだよ" with title without timestamp
　　write to console "ぴよぴよさんだよ" with title and timestamp
end tell

★Click Here to Open This Script　

Cocoa Scripting Course用、タイトルの丸つき数字から表を編集 v2（複数スライド選択用）

Posted on 12月 23, 2024 by Takaaki Naganoya

Keynote書類で、タイトルに入っている丸つき数字を取得して、同スライド内にある「表」の行数を追加し、追加したヘッダーカラムに丸つき数字を追加するAppleScriptです。Cocoa Scripting Courseで手間のかかるページの作業を効率化するために作成しました。

本ScriptはKeynote 14.3で作成していますが、とくにあたらしめの機能は使っていないため、かなり古いバージョンに対しても使えるはずです。

▲処理前

▲処理後　表の行数が変更されている

Keynoteの現在表示中のスライドからテキストを抽出し、そこから丸つき数字の文字だけを取り出します。

それぞれの丸つき数字文字を数値に変換し、最大値を求めます。この最大値と表の行数を比較。表で足りない行数を計算して、表に行を新規追加。カラムヘッダーに丸つき数字を補います。

こうした処理を選択中の複数のスライド（ページ）に対して実行します。

表の「中身」についても、実際にスライド上に配置しているので自動で抽出できてもよさそうですが、そこに時間をかけても仕方がないのでいまはこのままです。あとで、そういう処理ができるようになるかもしれません。

AppleScript名：Cocoa Scripting Course用、タイトルの丸つき数字から表を編集 v2（複数スライド選択用）.scptd

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

tell application "Keynote"
　　tell front document
　　　　set sSel to selection
　　　　if class of first item of sSel is not equal to slide then return
　　　　
　　　　repeat with curSlide in sSel
　　　　　　set current slide to curSlide
　　　　　　
　　　　　　tell current slide
　　　　　　　　–タイトルから丸つき数字文字のみ抽出
　　　　　　　　set myTitle to object text of default title item
　　　　　　　　set numStr to holdNumberWithSignOnly(myTitle) of me
　　　　　　　　set numList to characters of numStr
　　　　　　　　
　　　　　　　　–丸つき数字のうち最大のものを取得
　　　　　　　　set cList to {}
　　　　　　　　repeat with i in numList
　　　　　　　　　　set j to decodeNumFromNumWithSign(i) of me
　　　　　　　　　　set the end of cList to j
　　　　　　　　end repeat
　　　　　　　　
　　　　　　　　set sList to shellSortDescending(cList) of me
　　　　　　　　set theLargestNum to first item of sList –最大値
　　　　　　　　
　　　　　　　　
　　　　　　　　–表の情報を取得
　　　　　　　　tell table 1
　　　　　　　　　　set rCount to count every row
　　　　　　　　　　set tHeight to height of it
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　–追加が必要な行数を算出
　　　　　　　　set addRows to theLargestNum + 2 – rCount
　　　　　　　　if addRows > 0 then
　　　　　　　　　　tell table 1
　　　　　　　　　　　　set row count to (rCount + addRows)
　　　　　　　　　　　　
　　　　　　　　　　　　repeat with i from (rCount – 1) to (rCount + addRows – 2)
　　　　　　　　　　　　　　tell row (i + 1)
　　　　　　　　　　　　　　　　tell cell 1
　　　　　　　　　　　　　　　　　　set value to convNumToNumWithSign(i) of me
　　　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end repeat
　　　　　　　　　　　　
　　　　　　　　　　　　tell row -1
　　　　　　　　　　　　　　tell cell 1
　　　　　　　　　　　　　　　　set value to "返り値"
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end tell
　　　　　　　　　　　　
　　　　　　　　　　　　–Resize Heiight
　　　　　　　　　　　　set curRows to row count
　　　　　　　　　　　　set height to (tHeight / rCount) * curRows
　　　　　　　　　　end tell
　　　　　　　　end if
　　　　　　end tell
　　　　end repeat
　　end tell
end tell

–文字列から丸つき数字のみ抽出
on holdNumberWithSignOnly(aStr as text)
　　set aNSString to current application’s NSString’s stringWithString:aStr
　　
　　return (aNSString’s stringByReplacingOccurrencesOfString:"[^＼＼U000024EA-＼＼U000024EA＼＼U00002460-＼＼U00002473＼＼U00003251-＼＼U000032BF＼＼U000024FF-＼＼U000024FF＼＼U00002776-＼＼U0000277F＼＼U000024EB-＼＼U000024F4＼＼U00002780-＼＼U00002789＼＼U0000278A-＼＼U00002793＼＼U000024F5-＼＼U000024FE]" withString:"" options:(current application’s NSRegularExpressionSearch) range:{0, aNSString’s |length|()}) as text
end holdNumberWithSignOnly

–丸つき数字を数字に変換
on decodeNumFromNumWithSign(aStr as string)
　　set numStr to "①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳㉑㉒㉓㉔㉕㉖㉗㉘㉙㉚㉛㉜㉝㉞㉟㊱㊲㊳㊴㊵㊶㊷㊸㊹㊺㊻㊼㊽㊾㊿"
　　if numStr does not contain aStr then return false
　　using terms from scripting additions
　　　　set bNum to offset of aStr in numStr
　　end using terms from
　　return bNum
end decodeNumFromNumWithSign

–数字を丸つき数字に変換
on convNumToNumWithSign(aNum as number)
　　if (aNum ≤ 0) or (aNum > 50) then return ""
　　set aStr to "①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳㉑㉒㉓㉔㉕㉖㉗㉘㉙㉚㉛㉜㉝㉞㉟㊱㊲㊳㊴㊵㊶㊷㊸㊹㊺㊻㊼㊽㊾㊿"
　　set bChar to character aNum of aStr
　　return bChar
end convNumToNumWithSign

–入れ子ではないリスト（1D List）の昇順ソート
on shellSortAscending(aSortList)
　　script oBj
　　　　property list : aSortList
　　end script
　　set len to count oBj’s list’s items
　　set gap to 1
　　repeat while (gap ≤ len)
　　　　set gap to ((gap * 3) + 1)
　　end repeat
　　repeat while (gap > 0)
　　　　set gap to (gap div 3)
　　　　if (gap < len) then
　　　　　　repeat with i from gap to (len – 1)
　　　　　　　　set temp to oBj’s list’s item (i + 1)
　　　　　　　　set j to i
　　　　　　　　repeat while ((j ≥ gap) and (oBj’s list’s item (j – gap + 1) > temp))
　　　　　　　　　　set oBj’s list’s item (j + 1) to oBj’s list’s item (j – gap + 1)
　　　　　　　　　　set j to j – gap
　　　　　　　　end repeat
　　　　　　　　set oBj’s list’s item (j + 1) to temp
　　　　　　end repeat
　　　　end if
　　end repeat
　　return oBj’s list
end shellSortAscending

–入れ子ではないリスト（1D List）の降順ソート
on shellSortDescending(aSortList)
　　script oBj
　　　　property list : aSortList
　　end script
　　set len to count oBj’s list’s items
　　set gap to 1
　　repeat while (gap ≤ len)
　　　　set gap to ((gap * 3) + 1)
　　end repeat
　　repeat while (gap > 0)
　　　　set gap to (gap div 3)
　　　　if (gap < len) then
　　　　　　repeat with i from gap to (len – 1)
　　　　　　　　set temp to oBj’s list’s item (i + 1)
　　　　　　　　set j to i
　　　　　　　　repeat while ((j ≥ gap) and (oBj’s list’s item (j – gap + 1) < temp))
　　　　　　　　　　set oBj’s list’s item (j + 1) to oBj’s list’s item (j – gap + 1)
　　　　　　　　　　set j to j – gap
　　　　　　　　end repeat
　　　　　　　　set oBj’s list’s item (j + 1) to temp
　　　　　　end repeat
　　　　end if
　　end repeat
　　return oBj’s list
end shellSortDescending

★Click Here to Open This Script　

iWork apps 14.3にアップデート

Posted on 12月 22, 2024 by Takaaki Naganoya

Keynote、Pages、NumbersのiWork appsがバージョン14.3にアップデートしていました（気づかなかった）。

アップデート内容もたいしてありませんし、Apple Inteligenceを利用した機能なので、日本語環境では利用できません。

AppleScript用語辞書についても、とくに前バージョンから変更はありません。

Keynoteで選択中のオブジェクトをリサイズ

Posted on 12月 20, 2024 by Takaaki Naganoya

Keynote書類上で選択中のオブジェクトのリサイズを行うAppleScriptです。

本Scriptの作成とテストはKeynote ~~14.2~~14.3上で行いました。

Keynote書類は、4:3の書類と16:9の書類が存在しており、4:3の書類を16:9にリサイズしても内容についてはとくに変更は加えられず、逆に16:9の書類を4:3に変換すると、中身がぐしゃぐしゃになります。

「じゃあ、オブジェクトをグループ化してリサイズすれば？」

という話になりますが、やってみるとこれはうまく動きません。

iWork Apps間でのオブジェクトのコピー＆ペーストにも問題があります。

たとえば、KeynoteからPagesにペーストした瞬間に「文字の回り込み」がデフォルトでオンになってしまい（この挙動が邪魔）、隣接するオブジェクトを避けて文字が回り込み、おかしな状態になります。

Keynote書類のリサイズ、他のiWork Appへのデータ使い回しを便利に行うために、オブジェクトのリサイズ処理というのは重要なテーマであり続けています。ただ、重要ではあるものの、iWork App上のオブジェクトのコントロール機能がAppleScript側に公開されていないため、手作業なしに複数オブジェクトをまとめてリサイズすることは（現状では）不可能です。

▲処理前　Keynote書類上のオブジェクトを選択した状態

▲処理後　本Scriptを実行したことにより、Keynote書類上の各種オブジェクトが1/2のサイズになっている。ただし、lineの太さがそのままだったり、text alignの都合でバランスが悪くなってしまった箇所がある

なので、ここに示したScriptは「あくまでも試作品」レベルのものであり、この困難な作業に対する「銀の弾丸」ではありません。

lineオブジェクトの線の太さを制御できないですし、テキストオブジェクトの左寄せ/右寄せといった制御がAppleScriptからできないため、テストデータを処理してみてもこれらの手作業が必要だと感じます。

それでも、100％すべて手作業で調整するよりは「いくぶんマシ」なものでしょう。

AppleScript名：選択中のオブジェクトのリサイズ.scptd

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

set aScale to 2

tell application "Keynote"
　　tell front document
　　　　set aSel to selection
　　　　
　　　　repeat with i in aSel
　　　　　　set j to contents of i
　　　　　　set aClass to class of j
　　　　　　
　　　　　　
　　　　　　if aClass is not in {document, slide} then
　　　　　　　　set aPos to position of j
　　　　　　　　copy aPos to {xPos, yPos}
　　　　　　　　
　　　　　　　　set aWidth to width of j
　　　　　　　　set aHeight to height of j
　　　　　　　　
　　　　　　　　
　　　　　　　　if (aClass = text item) or (aClass = shape) then
　　　　　　　　　　tell j
　　　　　　　　　　　　try
　　　　　　　　　　　　　　set firstSize to size of first character of object text
　　　　　　　　　　　　　　set targSize to firstSize / aScale
　　　　　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　　　　　set size of every character of object text to targSize
　　　　　　　　　　　　　　end ignoring
　　　　　　　　　　　　end try
　　　　　　　　　　end tell
　　　　　　　　else if aClass = table then
　　　　　　　　　　tell j
　　　　　　　　　　　　set cList to every cell
　　　　　　　　　　　　repeat with ii in cList
　　　　　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　　　　　set aSize to font size of jj
　　　　　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　　　　　set font size of jj to (aSize / aScale)
　　　　　　　　　　　　　　end ignoring
　　　　　　　　　　　　end repeat
　　　　　　　　　　end tell
　　　　　　　　else if aClass = line then
　　　　　　　　　　set lineW to width of j
　　　　　　　　　　–set width of j to (lineW / aScale)
　　　　　　　　end if
　　　　　　　　
　　　　　　　　ignoring application responses
　　　　　　　　　　set j’s width to (aWidth / aScale)
　　　　　　　　　　set j’s height to (aHeight / aScale)
　　　　　　　　　　set j’s position to {xPos / aScale, yPos / aScale}
　　　　　　　　end ignoring
　　　　　　end if
　　　　end repeat
　　end tell
end tell

★Click Here to Open This Script　

指定フォルダ以下の画像のMD5チェックサムを求めて、重複しているものをピックアップ

Posted on 12月 19, 2024 by Takaaki Naganoya

指定フォルダ以下の画像（種別問わず）をすべてピックアップして、それぞれMD5チェックサムを計算し、重複しているものをピックアップしてデータとして出力するAppleScriptです。実行にはScript Debuggerを必要とします。内蔵のMD5計算Frameworkはx64/Apple Silicon（ARM64E）のUniversal Binaryでビルドしてあります。

–> –> Download photoDupLister（Script Bundle with Framework in its bundle）

＃　本Scriptのファイル収集ルーチンが、再帰で下位フォルダの内容をすべてピックアップするものではありませんでした
＃　実際に指定フォルダ以下すべての画像を収集する（Spotlightで）ようにしてみたら5.5万ファイルの処理に26分ほどかかりました

MD5チェックサムが同じということは、同じ画像である可能性が高いものです。

ここで、各画像のチェックサムを計算するさいに、サムネイルを生成してからチェックサムを計算するかどうかという話があります。

サムネイルを作成すべき派の言い分は、そのほうが計算量が減らせるし、同一画像の縮尺違い（拡大/縮小率違い）を求めることもできるというものです。

サムネイル作成否定派の言い分は、そんなもん作る前に画像のチェックサムを計算してしまえ、逆に手間だというものでした。

これは、どちらの意見ももっともだったので、実際にシミュレーションを行ってみるしかないでしょう。そこで、ありもののルーチンを集めて実際に作ってみたのが本Scriptです。サムネイルは作らないで処理してみました。

自分のMacBook Air M2のPicturesフォルダに入っていた約5,000の画像ファイルを処理したところ、16ペアの重複画像がみつかりました。処理にかかる時間はおよそ9秒です（実行するたびに所要時間が若干変化）。おそらく、Intel Macで実行すると数十秒から数分かかるのではないかと。

実用性を確保したい場合には、画像を回転しつつチェックサムを1画像あたり4パターン求めるとか、やはり同じサイズのサムネイル画像を生成してサムネイルに対してMD5チェックサムを計算するとか、画像の類似度を計算するオプションなども欲しいところです。

また、処理内容が並列処理向きなので、並列で処理してみてもよいでしょう。マシン環境を調べてSoCのPコアの個数をかぞえて、Pコアと同数の処理アプレットを生成して並列実行。……余計な処理を行うせいで速くならない可能性が高そうです。

AppleScript名：指定フォルダ以下の画像のMD5チェックサムを求めて、重複しているものをピックアップ

— Created 2015-10-01 by Takaaki Naganoya
— Modified 2015-10-01 by Shane Stanley–With Cocoa-Style Filtering
— Modified 2018-12-01 by Takaaki Naganoya
— Modified 2024-12-19 by Takaaki Naganoya
use AppleScript version "2.8"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "md5Lib" –https://github.com/JoeKun/FileMD5Hash

script spd
　　property fList : {}
　　property fRes : {}
　　property md5List : {}
　　property fmdList : {}
　　property dupRes : {}
　　property outList : {}
end script

set anUTI to "public.image"

set aFol to choose folder
–set aFol to path to pictures folder

set (fList of spd) to getFilePathList(aFol) of me

–指定のFile listのうち画像のみ抽出
set (fRes of spd) to filterAliasListByUTI((fList of spd), "public.image") of me
if (fRes of spd) = {} then return

–すべての画像のMD5チェックサムを計算
set (md5List of spd) to {}
set (fmdList of spd) to {}

–チェックサムが重複している画像を取り出す
set fmdArray to NSArray’s arrayWithArray:(fmdList of spd)

set (dupRes of spd) to returnDuplicatesOnly((md5List of spd)) of me
set (outList of spd) to {}
set procMDs to {}

repeat with i in (dupRes of spd)
　　set j to contents of i
　　
　　if j is not in procMDs then
　　　　set aRes to filterDictArrayByLabel(fmdArray, "md5 == ’" & j & "’") of me
　　　　
　　　　set tmpMD5 to filePath of (first item of aRes)
　　　　
　　　　set tmpRes to {}
　　　　repeat with ii in aRes
　　　　　　set jj to contents of ii
　　　　　　set the end of tmpRes to filePath of jj
　　　　end repeat
　　　　
　　　　set aRec to {md5:j, fileRes:tmpRes}
　　　　set the end of (outList of spd) to aRec
　　　　set the end of procMDs to j
　　end if
end repeat

return (outList of spd)

on getFilePathList(aFol)
　　set aURL to current application’s |NSURL|’s fileURLWithPath:(POSIX path of aFol)
　　set aFM to current application’s NSFileManager’s defaultManager()
　　set urlArray to aFM’s contentsOfDirectoryAtURL:aURL includingPropertiesForKeys:{} options:(current application’s NSDirectoryEnumerationSkipsHiddenFiles) |error|:(missing value)
　　return urlArray as anything
end getFilePathList

★Click Here to Open This Script　

AppleScriptの穴

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

タグ: 14.0savvy

Skimがv1.7.8でopen locationコマンドを削除

選択範囲の値を取得して、冒頭の値の新しい数値を指定すると以下自動加算

スタイルつきテキストでスタイルつきテキストを検索 v1.1

スタイルつきテキストでスタイルつきテキストを検索

AS書類を書式で分解して再構成

OSAScriptViewのじっけん#2

OSAScriptViewのじっけん#1

指定フォルダ以下の画像のMD5チェックサムを求めて、重複しているものをピックアップしてダイアログでプレビュー_v4

執筆中：AppleScript最新リファレンスver2.8対応（macOS 15対応アップデート）

執筆中：Cocoa Scripting Course #10 NSAttributedString

執筆中：スクリプトエディタ Scripting Book with AppleScript

choose fileで指定したsdefを読み込み、sdef中のサンプル（用例）を個別にHTML書き出しする

CotEditor v5.0.7でwrite to consoleにオプションが追加される

Cocoa Scripting Course用、タイトルの丸つき数字から表を編集 v2（複数スライド選択用）

iWork apps 14.3にアップデート

Keynoteで選択中のオブジェクトをリサイズ

指定フォルダ以下の画像のMD5チェックサムを求めて、重複しているものをピックアップ