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を試してみましょう。自前で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チェックサムを計算し、重複しているものをピックアップしてデータとして出力する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 |
「AppleScript最新リファレンスver2.8対応」をお買い上げの読者の方々に対して、アップデート版として提供されます。
ほとんどできているのですが、「AppleScript最新リファレンスver2.8対応」添付のPiyomaru Script Assistantに合わせて内容の調整を行なっています。macOS 15の登場によって変更になった箇所の情報を中心に内容を補っています。前バージョンからは60ページほど内容を追記しています。
同ツールは初版に添付することをねらっていましたが、macOSのバグ（とくにText To Speech系）の状況確認や対応に時間がかかっていました。
English Version is here.
English version will be updated as original version. At first, English version is devided 3 part. But English version did not make good sales as I expected, so #2 and #3 project will be canceled.
目下、執筆中なのがCocoa Scripting Courseの10巻、NSAttributedStringです。FoundationとAppKitに分かれて機能が分布しており、なかなか言及すべき内容が多いものです。
WebKitにも機能が分布していますが、ざっと見たかぎりではWebKitのNSAttributedStringはAppleScriptから呼び出せないものがほとんどのようなので、ここは無視してよいでしょう。
NSAttributedStringとHTML、そしてMarkdownとの間の変換機能などが最近のmacOSのアップデートで追加されているため、こちらもすぐには完成しないことでしょう。
あけましておめでとうございます。
目下執筆中なのが、「スクリプトエディタScripting Book with AppleScript」という本です。
AppleScriptでスクリプトエディタを操作してさまざまな処理を行うことをテーマに据えています。不可能を可能にする系の内容がぎっしり。割とカロリー高めな内容です。
スクリプトエディタはMac OS X 10.3か4のときにスクリプタブルになり、従来のCarbonではなくCocoaで書き直されました。生産性を向上させるためにスクリプトエディタを操作するScriptingはその頃から行なってきたのですが、ノウハウの総量は巨大なものの、これを必要としているユーザーがどの程度いるのか？ という懸念から、まとめることをためらっていました。
ただ、まとめずに放置しておいては、有用なノウハウも風化してしまうため、この機会にまとめてみることにしたものです。
目下、400ページほど書いてみましたが、これはAppleScriptコマンドリファレンスを含んだものであり、記事ページについては「数ページの箇所もあれば数十ページの章もあって、バランスがよくない」といった印象です。
いったん寝かせて放っておくと、いい感じに発酵して（角がとれて）マイルドな味わいになるかもしれません。
スクリプトエディタから書き出した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 |
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 |
オープンソースのテキストエディタ「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 |
Keynote、Pages、NumbersのiWork appsがバージョン14.3にアップデートしていました（気づかなかった）。
アップデート内容もたいしてありませんし、Apple Inteligenceを利用した機能なので、日本語環境では利用できません。
AppleScript用語辞書についても、とくに前バージョンから変更はありません。
Keynote書類上で選択中のオブジェクトのリサイズを行うAppleScriptです。
本Scriptの作成とテストはKeynote 14.214.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 |
| — – Created by: Takaaki Naganoya – Created on: 2024/12/20 — – Copyright © 2024 Piyomaru Software, All Rights Reserved — 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 |
指定フォルダ以下の画像（種別問わず）をすべてピックアップして、それぞれ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 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 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 {} 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 {} 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 filterDictArrayByLabel(aArray, aPredicate as string) –抽出 set aPredicate to current application’s NSPredicate’s predicateWithFormat:aPredicate set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate –NSArrayからListに型変換して返す set bList to filteredArray as list return bList end filterDictArrayByLabel 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 –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 |
md5、sha-1、sha-3などのチェックサムを計算するAppleScriptです。
AppleScript、といいつつ、これらの処理の主体はすべてObjective-Cで書かれたプログラム（を、Cocoa Framework化したもの）です。
この種類の、ファイルの内容をすべて加算して計算するような処理は、インタプリタ型言語であるAppleScriptは苦手な処理です。何か、頭を使って処理量を減らすような工夫が通じません。
その結果、これらのScriptはScript Debugger上か、Script Debuggerから書き出したEnhanced Applet、その他のFramework呼び出しをサポートしているいくつかのAppleScript実行環境でしか実行できません。
Xcodeを用いてGUIなしヘルパーアプリを作って、他のAppleScript実行環境から呼び出しやすいようにSDEFを介して動かすようにすることも可能ですが、フリーで配布するほどの何かがあるわけでもありません。
なので、現状はこのままです。これらすべてのFrameworkを各ユーザー環境の~/Library/Frameworksフォルダにインストールして使用してください。x64/ARM64EのUniversal Binaryでビルドしてあります。
–> Download md5Lib.framework（To ~/Libraries/Frameworks）
–> Download md5FromDataKit.framework（To ~/Libraries/Frameworks）
–> Download SHA3Kit.framework（To ~/Libraries/Frameworks）
| AppleScript名：ファイルのMD5、SHA1、SHA512のハッシュ値を求める |
| — Created 2016-02-11 by Takaaki Naganoya — 2016 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "md5Lib" –https://github.com/JoeKun/FileMD5Hash set aPath to POSIX path of (choose file) set a to (current application’s FileHash’s md5HashOfFileAtPath:aPath) as string –> "329e854b9993405414c66faac0e80b86" set b to (current application’s FileHash’s sha1HashOfFileAtPath:aPath) as string –> "50847286df61f304d142c6a0351e39029f010fc2" set c to (current application’s FileHash’s sha512HashOfFileAtPath:aPath) as string –> "5132a7b477652db414521b36……..1a6ff240e861752c" return {a, b, c} |
| AppleScript名：NSStringからSHA-3のハッシュ値を求める |
| — Created 2017-08-09 by Takaaki Naganoya — 2017 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "SHA3Kit" –https://github.com/jaeggerr/NSString-SHA3 set origData to (current application’s NSString’s stringWithString:"hello") set aHash1 to (origData’s sha3:256) as string –> "1C8AFF950685C2ED4BC3174F3472287B56D9517B9C948127319A09A7A36DEAC8" set aHash2 to (origData’s sha3:224) as string set aHash3 to (origData’s sha3:384) as string set aHash4 to (origData’s sha3:512) as string |
| AppleScript名：NSDataからMD5値を計算する |
| — Created 2016-02-11 by Takaaki Naganoya — 2016 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "md5FromDataKit" –https://github.com/siuying/NSData-MD5 set aStr to "ぴよまるソフトウェア" set aNSStr to current application’s NSString’s stringWithString:aStr set aData to aNSStr’s dataUsingEncoding:(current application’s NSUTF8StringEncoding) set aMD5Hex to (current application’s NSData’s MD5HexDigest:aData) as string –> "2d0b4e205f274f20b17dc8ca4870f1db" set aMD5 to (current application’s NSData’s MD5Digest:aData)’s |description|() as string –> <2d0b4e20 5f274f20 b17dc8ca 4870f1db> |
2024年に使用していたmacOS：macOS 13＋macOS 15
毎年行なっている、Piyomaru Softwareが書いたAppleScriptの１年を振り返る記事の2024年版です。
2008年から10年ほど運営を続けてきた旧「AppleScriptの穴」Blogが2018年の年初にホスティング会社との行き違いでシャットダウンされ、ゼロから再構築したのがこの現行の「AppleScriptの穴」Blogです。
→ 2018年に書いた価値あるAppleScript
→ 2019年に書いた価値あるAppleScript
→ 2020年に書いた価値あるAppleScript
→ 2021年に書いた価値あるAppleScript
→ 2022年に書いた価値あるAppleScript
→ 2023年に書いた価値ある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以外の一般的なテーマの記事については、こちらにいろいろ投稿しています。
前述のとおり、2018年1月にいちど本Blogは消えていました。その際に、「本Blogが存在しない場合にはどのような現象が起こるのか」を観察。その結果、AppleScriptについて知識を持たない人たちが好き勝手に「嘘」を流布しはじめる、という現象が観測されました。本Blogはそうした「嘘つき」を封じ込めるためのキーストーンとしての役割を果たしているといえます。
本Blogを公開しているだけでは、ホスティング費用やドメイン費用がかかるだけで、何も収益が生まれません。そこで、本Blog＋αの情報を整理してまとめた電子書籍を発行しています。本Blog読者のみなさまにおかれては、電子書籍を購入することで本Blog運営を支えていただけますと幸いです。
電子書籍の2024年における刊行は、現時点で95冊。年間8冊となっています。
Cocoa Scripting Course #7 NSColor
Cocoa Scripting Course #8 File path Processing
Cocoa Scripting Course #9 File Processing
AppleScriptでたのしむ レトロ・グラフィックス プログラム集
Pages＋AppleScriptで本をつくろう！
AppleScript基礎テクニック集（32）複数のアプリをコントロール
AppleScript基礎テクニック集（33）選択中のオブジェクト取得
AppleScript 基礎テクニック集（34）電源制御
目下、既刊本の最新環境へのアップデートを実行中です。
余白トリミング実験 v3
2024年に書いたScriptのうちで一番気合いが入っているのが、この画像の余白トリミングです。AppleScriptでそんな画像処理ができるとは思ってもいませんでしたが、実際にやってみたらそれなりに機能して、それなりの速度で動きました。
Outline View Lib
NSOutlineViewを手軽に使えるライブラリです。他のアプリで作った階層データ（Keynoteのマスターページ名など）をプレビューするなどの用途に使えます。
書式つきテキストを組み立てて、画像を追加し、RTFDとして保存 v2
電子書籍用にまとめていたScriptの中のひとつです。RTFDの新規保存については書いたことがなかったので、「書いておいたほうがよいだろう」と。同様にScptd（バンドル形式AppleScript）の作成Scriptも書いておきたいところ＆scptdの実行Script（Script Viewを自前で作成して）も書いておきたいところですが、公表されているAPIの範囲では実行できるものが見当たりません。
アラートダイアログ上にWebViewで3Dコンテンツを表示（WebGL＋three.js）v4
これも、ずいぶん前に試作品を見ていたのですが、前バージョンが動かなくなって久しかったのでアップデートしておきました。あくまで、デモ用で実用性が皆無ですが、そういうものなんでしょう。
Pagesで、現在表示中のページから離れたページのオブジェクト情報を取得できない
Pagesが怪奇現象を起こすことについては、ずいぶん前から知っていたのですが、その発生条件と範囲を明確にできたことは意義深いことです。
指定のSDEFファイルからコマンドを抽出
SDEF処理系AppleScriptはいろいろ組んでいますが、電子書籍作成時にアプリのアップデート履歴を表で示すためにこうしたScriptが必要です。
Chat GPTに書かせたQuickSort（昇順・降順ソート）2D
ChatGPTに書かせたAppleScriptです。バージョン依存しなかったり、他の言語で書いてあるものを翻訳するようなScriptだと割とまともなAppleScriptを出力してくれます。ただし、高速化の余地があるレベルの（遅い）Scriptだったので、自前で高速化してみました。
Excel__Numbersセルアドレスの相互変換
ChatGPTに書かせたAppleScriptです。こちらも、OSのバージョンに依存せず、他の言語でも書ける内容だったので、問題なく処理できるScriptが出力されました。
NaturalLanguage.frameworkのごくごく入門的なオブジェクト「NLEmbedding」を利用できるか、各言語でチェックを行ったところ、macOS 13、14で予想外の結果が返ってきた内容をmacOS 15で再確認してみました。
ラテン系言語を中心に中国語がサポートされているあたりがあまりにも特徴的なNaturalLanguage.framework。多くの機能を日本語で利用できないことは分かりきっていたのですが、macOS 14で対応言語が激減。このまま廃止されるのかと驚いていたのですが、macOS 15で復旧していました。
どうしてmacOS 14.x台で復旧していなかったのか。ひたすら不思議です。
| AppleScript名：指定言語でNLEmbeddingを処理できるかチェック_13_14_15.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 / 15.2 set aRes to testNLLanguage("NLLanguageEnglish") of me –> true–> true –true set aRes to testNLLanguage("NLLanguageFrench") of me –> true–>false (macOS 14)—> true set aRes to testNLLanguage("NLLanguageGerman") of me –> true–>false (macOS 14)–> true set aRes to testNLLanguage("NLLanguageItalian") of me –> true–>false (macOS 14)–> true set aRes to testNLLanguage("NLLanguagePortuguese") of me –> true–>false (macOS 14)–> true set aRes to testNLLanguage("NLLanguageSimplifiedChinese") of me –> true–>false (macOS 14)–> true set aRes to testNLLanguage("NLLanguageSpanish") of me –> true–>false (macOS 14)–> true set aRes to testNLLanguage("NLLanguageUndetermined") of me –> true –>Natural Language framework doesn’t recognize(macOS 14).–> true –macOS 14.7.2で再確認したところtrueに set aRes to testNLLanguage("NLLanguageAmharic") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageArabic") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageArmenian") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageBengali") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageBulgarian") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageBurmese") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageCatalan") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageCherokee") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageCroatian") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageCzech") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageDanish") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageDutch") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageFinnish") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageGeorgian") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageGreek") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageGujarati") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageHebrew") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageHindi") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageHungarian") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageIcelandic") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageIndonesian") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageJapanese") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageKannada") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageKazakh") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageKhmer") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageKorean") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageLao") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageMalay") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageMalayalam") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageMarathi") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageMongolian") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageNorwegian") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageOriya") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguagePersian") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguagePolish") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguagePunjabi") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageRomanian") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageRussian") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageSinhalese") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageSlovak") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageSwedish") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageTamil") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageTelugu") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageThai") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageTibetan") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageTraditionalChinese") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageTurkish") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageUkrainian") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageUrdu") of me –> false–> false–> false set aRes to testNLLanguage("NLLanguageVietnamese") of me –> false–> false–> 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 |
3年ぐらい前に書いてあった、Mac本体にペアリングして接続しているBluetoothのデバイス名を取得するAppleScriptです。
| AppleScript名：Bluetoothに接続中のデバイス名を取得するv6.scptd |
| — – Created by: Takaaki Naganoya – Created on: 2024/12/13 — – Copyright © 2024 Piyomaru Software, All Rights Reserved — use AppleScript version "2.8" use scripting additions use framework "Foundation" use framework "IOBluetooth" set pRes to getBluetoothPowerState() of me if pRes = false then return set dArray to current application’s IOBluetoothDevice’s pairedDevices() set dRes to my filterRecListByLabel1(dArray, "isConnected != 0") set dNameList to (dRes’s valueForKeyPath:"name") as list –> {"Logicool Z600", "Takaaki Naganoya のキーボード #1", "Takaaki Naganoya のマウス"} –> {"Logicool Z600", "AirPods Pro", "DUALSHOCK 4 Wireless Controller"} –リストに入れたレコードを、指定の属性ラベルの値で抽出 on filterRecListByLabel1(aRecList, aPredicate as string) set aArray to current application’s NSArray’s arrayWithArray:aRecList set aPredicate to current application’s NSPredicate’s predicateWithFormat:aPredicate set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate return filteredArray end filterRecListByLabel1 –Mac本体のBluetoothのパワー状態を取得 on getBluetoothPowerState() set aCon to current application’s IOBluetoothHostController’s alloc()’s init() set pRes to (aCon’s powerState()) as boolean end getBluetoothPowerState |
オープンソースのPDFリーダー「Skim」のバージョン1.7.6において「open location」コマンドが実装されましたが、実際に試してみると動きません。確認は最新版の1.7.7で行いました。
これまでにも追加したコマンドを次のバージョンで廃止して、翌々バージョンで復活させたりと、いろいろその歴史をひもとくと「おっとっと」な動きが見られるので、そういうものなんでしょう。
本Blog上に存在するPDFのURLを指定。open locationでダウンロード＋表示を試みるものの、表示されずにエラーになる。
→ Skimが「http://」をサポートしていないとのこと。https://からのダウンロードおよび表示は確認しました。
| AppleScript名：Skim v17.6で追加されたopen locationのテスト.scpt |
| set aURL to "http://piyocast.com/as/wp-content/uploads/2018/09/GUNDAM-UI.pdf"
tell application "Skim" set erRes to (open location aURL with error reporting) end tell |
新刊電子書籍「AppleScript基礎テクニック（34）電源制御」を刊行しました。全57ページ、サンプルAppleScriptアーカイブつき。Piyomaru Softwareによる電子書籍の95冊目です。
→ 販売ページ
ちょっとAppleScriptを書けるようになった方が、必要に感じてふりかえる「基礎」的な内容をプレゼン資料風に絵でご紹介する「AppleScript基礎テクニック集」の34冊目、Macの電源制御に関する1冊です。 スリープ、シャットダウン、スリープ解除日時指定、バッテリー残量取得、電源種別の判定など、電源制御系の機能は、AppleScriptに添える「気の利いた」スパイス。知っておくと役立つ、実際に動かすと楽しい電源制御機能について、詳細にご紹介します。 いまはMacBook Airで1日中バッテリーで駆動できるのでシビアな計算が必要な場面は減ったように感じますが、それでもバッテリー残量を取得する処理はAppleScriptでも欠かせません。電源制御は使って動かすと面白い処理です。
■最初に：macOS 13以降では最初にステージマネージャを必ずオフにしてください
macOS 13.x
macOS 14.x
macOS 15.x
その他、オフにすることが望ましい機能
■電源制御 関連機能
macOSの各種電源コントロール機能
AppleScriptからスリープ実行
指定日時にスリープ解除
電源種別判定
バッテリー残量データ取得
■スリープ
2つのスリープ処理
スリープ処理
ディスプレイ消灯処理
■スリープ解除
スリープ解除（スケジュール登録）
スリープ解除日時設定のAppleScript①〜③
■スリープ解除検出
スリープ解除検出、2つの方法
一番単純なスリープ解除検出
システム通知を利用したスリープ解除検出①〜③
■電源オフ
電源オフは2コース
■電源種別判定
電源種別判定
■Mac本体のバッテリー残量取得
バッテリー情報を取得する前に
デスクトップ機とノート機の区別①〜③
取得できるMac本体のバッテリー仕様
Mac本体のバッテリー残量を取得
■その他資料
ログアウト処理
再起動
CPU種別判定
CPU動作クロック取得
Apple Siliconの各種温度センサーの値を取得①〜③
Excelでオープンしている最前面の書類の現在表示中のシート上に配置されているpicture（画像）をすべて削除するAppleScriptです。
pictureを大量に配置するScriptの後始末をするために作成したものです（書き捨てレベル）。
数万セルのデータを取得して、ふたたび書き戻すような処理を行っても数秒。セルのデータのI/Oが超高速なExcelですが、画像などのオブジェクト操作は時間がかかり、本Scriptで900個程度のpictureオブジェクト（画像）を削除すると、それなりに待たされます。しかも、ignoring responsesで非同期実行しても待たされます。
▲実行前
▲実行後
| AppleScript名：現在のシート上に存在しているpictureをすべて削除する.scpt |
| — – Created by: Takaaki Naganoya – Created on: 2024/12/07 — – Copyright © 2024 Piyomaru Software, All Rights Reserved — tell application "Microsoft Excel" tell active workbook tell active sheet ignoring application responses delete every picture end ignoring end tell end tell end tell |
指定範囲（30×30）のセルの位置に画像を配置するAppleScriptです。
画像配置Scriptに対して「特定のセルを指定すると配置できずにエラーになる」という反応があったので、テストを行うために書いたものです。
結局、セルアドレスを「B5」ではなく「b5」と小文字で書いたことがエラーの原因でした。Excelのセルアドレスを小文字で書くなんて聞いたことがないのですが、たしかにこれに対処できないのは問題です。
なので、セルのcolumnを計算するルーチンで大文字/小文字を無視するように書き換えました。
| AppleScript名：指定範囲のセルの上に画像を配置.scpt |
| — – Created by: Takaaki Naganoya – Created on: 2024/12/06 — – Copyright © 2024 Piyomaru Software, All Rights Reserved — use AppleScript version "2.4" — Yosemite (10.10) or later use framework "Foundation" use framework "AppKit" use scripting additions property |NSURL| : a reference to current application’s |NSURL| property NSImage : a reference to current application’s NSImage –Select Image file and get width and height set anImagePath to choose file set anImagePOSIX to POSIX path of anImagePath set aURL to |NSURL|’s fileURLWithPath:anImagePOSIX set aImage to NSImage’s alloc()’s initWithContentsOfURL:aURL set overlaySize to aImage’s |size|() repeat with targCellRow from 1 to 30 repeat with targCellCol from 1 to 30 –Column No, & Row No. –> x position & y position set {targCellX, targCellY} to retExcelCellPositiont(targCellCol, targCellRow) of me –Place image on worksheet and resize and relocate it tell application "Microsoft Excel" activate tell active workbook tell active sheet ignoring application responses set newPic to make new picture at beginning with properties {file name:(anImagePOSIX), height:(overlaySize’s |height|), width:(overlaySize’s |width|), top:targCellY, left position:targCellX} end ignoring end tell end tell end tell end repeat end repeat –指定Row, ColumnのCellのpositionを返す on retExcelCellPositiont(x as integer, y as integer) tell application "Microsoft Excel" tell active workbook tell active sheet tell row y tell cell x set xMin0 to left position set yMin0 to top set xWidth0 to width set yHeight0 to height end tell end tell end tell end tell end tell return {xMin0, yMin0} end retExcelCellPositiont script AddressEncoder property parent : AppleScript use scripting additions — 数値からセルアドレス（A1形式）への変換 on numberToCell(columnNumber) set columnAddress to "" set tempNumber to columnNumber — 列番号をA-Z形式に変換 repeat while tempNumber > 0 set remainder to (tempNumber – 1) mod 26 set columnAddress to (character (remainder + 1) of "ABCDEFGHIJKLMNOPQRSTUVWXYZ") & columnAddress set tempNumber to (tempNumber – 1) div 26 end repeat — A1形式のアドレスを返す return columnAddress end numberToCell — セルアドレス（A1形式）から数値への変換 on cellToNumber(cellAddress) set columnPart to "" set rowPart to "" — 列部分と行部分を分離 repeat with char in cellAddress if char is in "0123456789" then set rowPart to rowPart & char else set columnPart to columnPart & char end if end repeat — 列部分を数値に変換 set columnNumber to 0 repeat with i from 1 to length of columnPart set char to character i of columnPart using terms from scripting additions ignoring case set columnNumber to columnNumber * 26 + (offset of char in "ABCDEFGHIJKLMNOPQRSTUVWXYZ") end ignoring end using terms from end repeat — 数値を返す return {columnNumber, (rowPart as integer)} end cellToNumber end script |
