新刊電子書籍「AppleScript基礎テクニック（33）選択中のオブジェクト取得」を刊行

新刊電子書籍「AppleScript基礎テクニック（33）複数のアプリをコントロール」を刊行しました。全74ページ、サンプルAppleScriptアーカイブつき。
→ 販売ページ

macOS上のGUIアプリの書類やウィンドウ中で選択中のオブジェクトを取得し、その情報をもとにAppleScriptで処理を行なって、もとの選択オブジェクトに反映させるといった処理を、日常的に行っています。

このような書き方ができると、まるでAppleScriptによってGUIアプリの機能を拡張しているようにも見えます。実際には外部で処理を行なっていたとしても、使い勝手としては拡張しているように振る舞えます。

ある意味、AppleScriptの備える最強の機能といってもよいでしょう。本書で、この強力なselection機能について、その概要から実例、注意点にいたるまで幅広くご紹介いたします。

PDF 74ページ、Zipアーカイブ添付

selectionの取得方法①（Numbers）
selectionの取得方法②（Numbers）
active sheetの取得方法（Numbers）
selection rangeの取得方法①（Numbers）
selection rangeの取得方法②（Numbers）
selection rangeのセル内容書き換え①（Numbers）
selection rangeのセル内容書き換え②（Numbers）
selection rangeのセル内容書き換え③（Numbers）

selectionの取得方法①（Excel）
selectionの取得方法②（Excel）
選択中のワークシートの取得方法（Excel）
selectionの書き換え（Excel）

selectionの取得方法（Pixelmator Pro）
select-を含む予約語解説①（Pixelmator Pro）
select-を含む予約語解説②（Pixelmator Pro）
select-を含むコマンド実例①（Pixelmator Pro）
select-を含むコマンド実例②（Pixelmator Pro）
select-を含むコマンド実例③（Pixelmator Pro）
select-を含むコマンド実例④（Pixelmator Pro）
select-を含むコマンド実例⑤（Pixelmator Pro）
select-を含むコマンド実例⑥（Pixelmator Pro）
select-を含むコマンド実例⑦（Pixelmator Pro）
select-を含むコマンド実例⑧（Pixelmator Pro）
select-を含むコマンド実例⑨（Pixelmator Pro）
select-を含むコマンド実例⑩（Pixelmator Pro）
select-を含むコマンド実例⑪（Pixelmator Pro）

■selectionを使用うえで注意すべき点

注意点1：大量のオブジェクトの受け渡しに要注意
注意点2：情報の書き戻し時には時間がかかる例も
注意点3：選択オブジェクトの種別判定を①
注意点3：選択オブジェクトの種別判定を②

新刊電子書籍「AppleScript基礎テクニック（32）複数のアプリをコントロール」を刊行

Posted on 11月 21 by Takaaki Naganoya

電子書籍新刊「AppleScript基礎テクニック（32）複数のアプリをコントロール」を刊行しました。全370ページ、サンプルAppleScriptアーカイブつき。
→ 販売ページ

1つのAppleScriptで複数のアプリを操作して処理するのは「常識」ですが、複数のアプリをAppleScriptで操作して処理を行うスタイルは割と独特なものだと指摘されました。

複数アプリの操作はとくに特殊な話ではありませんし、それほど難しい話でもありません。日常的にやっていることなので、その原理がわかれば柔軟で多用途なScriptを書いて「業務を積極的に楽にする」手助けとなることでしょう。

PDF 39ページ、Zipアーカイブ添付

各アプリは他のアプリのオブジェクトを理解できない
他のアプリのオブジェクトを理解するには
オブジェクトの属性値をよく見てみよう①
オブジェクトの属性値をよく見てみよう②
Keynote上のテキストをPages上に再現①
Keynote上のテキストをPages上に再現②
Keynote上のテキストをPages上に再現③
Keynote上のテキストをPages上に再現④

■GUI Scriptingによるコピペではほとんどの処理を実現できません

GUI Scriptingでコピー＆ペースト動作？
異なるアプリ間のオブジェクトのテキスト色の反映

■複数アプリのコントロールその具体例

アプリAのデータをもとにアプリBの機能を利用
複数アプリ、機能の操作例①
複数アプリ、機能の操作例②
複数アプリ、機能の操作例②（参考資料）
複数アプリ、機能の操作例③

余白トリミング実験 v1

Posted on 11月 21 by Takaaki Naganoya

背景が透過しているPNG画像で、余計な余白部分を自動でトリミングするAppleScriptの試作品です。

▲テストに利用したPNG画像（196 × 309 ピクセル）

いまのところ、画像を細かく分割して、透明な画像かどうかをブロックごとにチェックするだけです。

画像が真っ白かどうか、透明かどうかといったチェックは、すでに高速処理できるノウハウがあったので、ただそれを応用したものです。

実際にAppleScriptだけで記述して、そこそこの速度が出ています。画像の分割ブロック数が8×8だといまひとつで、16×16でもイマイチ。32 x 32分割ブロックぐらいで「そんなもんだろ」という印象。

▲8×8分割ブロック（0.04秒ぐらい @MacBook Air M2）

▲16×16分割ブロック（0.1秒ぐらい @MacBook Air M2）

▲32×32分割ブロック（0.5秒ぐらい @MacBook Air M2）

当初は可変サイズ分割を考えていましたが、そこまで難しい処理をしなくても良さそうな雰囲気。

何らかの画像処理を行った結果で透明部分が余計に存在するエリアを削除しておくぐらいなので、そんなにシビアにチューニングしなくてもよさそうな気がします。そんなに巨大な画像を処理しなければいいんじゃないでしょうか。

もしも、巨大な画像を処理する場合には、サムネイル画像を作成して、その画像に対してこのような処理を行えばいいんじゃないでしょうか。

このScriptは、背景が透過していることを前提に組んでありますが、画像の4隅から色をピックアップして、多数決で透過なのか白なのかを決定してもいいかもしれません。「余白がかならず存在する」画像であれば、このやり方でいいかも？

AppleScript名：余白トリミング実験 v1.scptd

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

use AppleScript version "2.8" — macOS 12 or later
use framework "Foundation"
use framework "AppKit"
use scripting additions

property NSData : a reference to current application’s NSData
property |NSURL| : a reference to current application’s |NSURL|
property NSColor : a reference to current application’s NSColor
property NSString : a reference to current application’s NSString
property NSImage : a reference to current application’s NSImage
property NSBezierPath : a reference to current application’s NSBezierPath
property NSPNGFileType : a reference to current application’s NSPNGFileType
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep

property imgDivXStep : 8
property imgDivYStep : 8

set aFile to POSIX path of (choose file)

set a1Dat to current application’s NSDate’s timeIntervalSinceReferenceDate()

set aURL to |NSURL|’s fileURLWithPath:aFile
set aImage to NSImage’s alloc()’s initWithContentsOfURL:aURL

set sRes to aImage’s |size|()
–> example: {width:196.0, height:309.0}

set aHeight to height of sRes
set aWidth to width of sRes

set xBlockSize to (aWidth div imgDivXStep)
set yBlockSize to (aHeight div imgDivYStep)

–transparent block sample
set blankImg to makeNSImageWithFilledWithColor(xBlockSize, yBlockSize, current application’s NSColor’s clearColor()) of me
set blankBit to blankImg’s TIFFRepresentation()

set outList to ""

repeat with y from 0 to (aHeight – yBlockSize) by yBlockSize
　　set oneLine to ""
　　
　　repeat with x from 0 to (aWidth – xBlockSize) by xBlockSize
　　　　–crop a part of image and check transparent
　　　　set tmpImg to (my cropNSImageBy:{x, y, xBlockSize, yBlockSize} fromImage:aImage)
　　　　set tmpBit to tmpImg’s TIFFRepresentation()
　　　　set chkTrans to (blankBit’s isEqualToData:tmpBit) as boolean
　　　　
　　　　if chkTrans = true then
　　　　　　set oneLine to oneLine & "□" –Transparent Block
　　　　else
　　　　　　set oneLine to oneLine & "■" –Not transparent Block
　　　　end if
　　end repeat
　　
　　set outList to outList & oneLine & return
end repeat

set b1Dat to current application’s NSDate’s timeIntervalSinceReferenceDate()
set c1Dat to b1Dat – a1Dat
log c1Dat

return outList

–指定サイズの画像を作成し、指定色で塗ってファイル書き出し
on makeNSImageWithFilledWithColor(aWidth, aHeight, fillColor)
　　set anImage to current application’s NSImage’s alloc()’s initWithSize:(current application’s NSMakeSize(aWidth, aHeight))
　　anImage’s lockFocus()
　　—
　　set theRect to {{x:0, y:0}, {height:aHeight, width:aWidth}}
　　set theNSBezierPath to current application’s NSBezierPath’s bezierPath
　　theNSBezierPath’s appendBezierPathWithRect:theRect
　　—
　　fillColor’s |set|() –色設定
　　theNSBezierPath’s fill() –ぬりつぶし
　　—
　　anImage’s unlockFocus()
　　—
　　return anImage
end makeNSImageWithFilledWithColor

on cropNSImageTo:{x1, y1, x2, y2} fromImage:theImage
　　set newWidth to x2 – x1
　　set newHeight to y2 – y1
　　set theSize to (theImage’s |size|()) as record
　　set oldHeight to height of theSize
　　
　　— transpose y value for Cocoa coordintates
　　set y1 to oldHeight – newHeight – y1
　　set newRect to {{x:x1, y:y1}, {width:newWidth, height:newHeight}}
　　
　　theImage’s lockFocus()
　　set theRep to NSBitmapImageRep’s alloc()’s initWithFocusedViewRect:newRect
　　theImage’s unlockFocus()
　　
　　set outImage to NSImage’s alloc()’s initWithSize:(theRep’s |size|())
　　outImage’s addRepresentation:theRep
　　
　　return outImage
end cropNSImageTo:fromImage:

–NSImageを指定の大きさでトリミング
on cropNSImageBy:{x1, y1, newWidth, newHeight} fromImage:theImage
　　set theSize to (theImage’s |size|()) as record
　　set oldHeight to height of theSize
　　
　　— transpose y value for Cocoa coordintates
　　set y1 to oldHeight – newHeight – y1
　　set newRect to {{x:x1, y:y1}, {width:newWidth, height:newHeight}}
　　
　　theImage’s lockFocus()
　　set theRep to NSBitmapImageRep’s alloc()’s initWithFocusedViewRect:newRect
　　theImage’s unlockFocus()
　　
　　set outImage to NSImage’s alloc()’s initWithSize:(theRep’s |size|())
　　outImage’s addRepresentation:theRep
　　
　　return outImage
end cropNSImageBy:fromImage:

★Click Here to Open This Script　

アプリのキーワード登録をチェック

Posted on 11月 21 by Takaaki Naganoya

アプリケーションフォルダ以下にあるアプリをすべてリストアップして、各アプリに「キーワード」が登録されているかをチェックするAppleScriptです。「キーワード」が設定されているものをPOSIX pathの一覧で返します。

「キーワード」というのは、Finder上で「情報を見る」コマンドで表示させたウィンドウで、「詳細情報」の下に表示される「キーワード」です。

最近、これを登録してあるアプリが出始めてきたので、全体でどの程度の数になっているのか調査すべく、書いてみました。実行には「Metadata Lib」AppleScriptライブラリを必要とします。実行環境はScript Debuggerである必要はありません。普通にスクリプトエディタで大丈夫です。

App Store申請時に記述する検索用キーワードとは異なるようです。他のアプリを検索したときにヒットすることを目的に、「iPhoto」「Aperture」などと指定してあるところが戦略的です。たしかに、Spotlightで「Aperture」をキーワードに検索するとPixelmator Proが出てきます。

AppleScript名：指定フォルダ以下のアプリケーションを取得して、アプリのキーワード登録をチェック.scptd

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

use AppleScript
use scripting additions
use framework "Foundation"
use framework "AppKit"
use mdLib : script "Metadata Lib" version "2.0.0" –https://macosxautomation.com/applescript/apps/Script_Libs.html

set origPath to {(POSIX path of (path to applications folder))}

set aResList to mdLib’s searchFolders:(origPath) searchString:("kMDItemContentType == %@") searchArgs:{"com.apple.application-bundle"}

set sList to {}

repeat with i in aResList
　　set j to contents of i
　　set sRes to retAppKeywordsFromBundleIPath(j) of me
　　if sRes ≠ "" then
　　　　set the end of sList to j
　　end if
end repeat

return sList
–> {"/Applications/Pixelmator Pro.app", "/Applications/Dropzone 4.app", "/Applications/Spotify.app", "/Applications/MarsEdit.localized/MarsEdit.app", "/Applications/Keka.app", "/Applications/MindNode.app", "/Applications/NeoFinder.app", "/Applications/Linearity Curve.app", "/Applications/Amazon Kindle.app", "/Applications/PrimeVideo.app"}

–指定パスからアプリケーションの「キーワード」メタデータを取得する
on retAppKeywordsFromBundleIPath(appPath as string)
　　set theRecord to mdLib’s fetchMetadataFor:appPath
　　return kMDItemKeywords of theRecord
end retAppKeywordsFromBundleIPath

★Click Here to Open This Script　

（確認中）AppleScript Dropletのバグっぽい動作が解消？

Posted on 11月 18 by Takaaki Naganoya

macOS 10.12で導入されたセキュリティ系の機能によって、AppleScriptドロップレットの動作が妨げられる現象が確認されてきました。

ドロップしたファイルが数回に分かれてon openハンドラに渡されたり、ドラッグ＆ドロップしたファイルすべてがドロップレット側に認識されなかったりするという動作です。

これは、Gatekeeperの動作とquarantine機能（もたらされたファイルが安全かどうか確認されるまでプログラム側に引き渡されない仕組み）の相互作用によるもの、という話になっていますが……認証のためのインタフェースが用意されておらず、ユーザー側から見れば「説明もなしに動かなくなった」という状態でした。

macOS 10.12、10.13、10.14、10.15、11、12、13、14とずーーっとそのままです。レポートしても修正されず、Scripter側でも対策コードを共有するほかなく、この素朴な機能は問題を抱えたままになっていました。

一応、Shane Stanleyによる対策コードによってドロップレットが運用できていたのと、display drop dialogなどの他のドラッグ＆ドロップのためのインタフェースを用意できていたのと、もともと個人的にはドロップレットが性に合わなかった（Finder上の選択中のファイルを取得したほうが事故が起こらなくて簡単）ためです。

macOS 15betaでも問題が解決されていなかったので、この問題は放置状態のまま解決されないものとばかり思っていました。

それが、macOS 15.2betaか15.1あたりで解消されたようで（バグが出ても直してもレポートを出さないのがApple風味）、確認してみると13.7.2でもドロップしたファイルを見失うといった動作をしなくなった……ような気がします。

macOS 13/14/15と現行のmacOSに対しては同様のアップデートが行われたのではないでしょうか。

まだ確認が不十分だと感じるのと、どうせmacOSのマイナーアップデートでまた使えなくなったりするんだろうというところです。

一方で、Cocoa AppleScript AppletについてはmacOS 12.6以降ずっと動作しない状況が続いています。こちらもレポートしても一切の反応がない状態です。直す気があるのであればいいのですが、その気がないのならスクリプトエディタのテンプレートから削除するといった処置が必要（試してみて動かないというのが最悪）でしょう。

最前面のKeynote書類で選択中のshapeを一番上のガイドオブジェクトの幅をもとに、残りを等分割

Posted on 11月 15 by Takaaki Naganoya

Keynote書類上で複数Shapeないしtext itemが選択された状態で、一番上にあるitemの幅に、下にあるitemを等分割＋位置合わせを行うAppleScriptです。

言葉で言い表すと難しいのですが、画面キャプチャで表現すると一目瞭然です。

▲処理前、4つのshapeオブジェクトを選択状態に

▲処理後、上側のshapeの幅で下のshapeを等分割＋ギャップ指定

電子書籍作成時によく行う作業をワンアクションで行えるようにしてみました。

2D ListのソートはVanilla AppleScriptで書かれたものを使っていますが、これはソートする対象のデータが極小なのと、本ScriptをmacOS標準搭載のScript Menuから呼び出すために作ったためです。

2D Listのソートを行うためだけに、BridgePlusを使用＝Script DebuggerでEnhanced Appletに書き出す必要があるというのは面倒なので。

AppleScript名：最前面のKeynote書類で選択中のshapeを一番上のガイドオブジェクトの幅をもとに、残りを等分割

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

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

property xGap : 8 –X軸方向のオブジェクトの隙間座標値

tell application "Keynote"
　　tell front document
　　　　set aSel to selection
　　　　if aSel = {} then return
　　　　set fClass to class of first item of aSel
　　　　if fClass = slide then return –スライド上のオブジェクトではなく、スライドが選択されていた場合には処理しない
　　　　
　　　　set objList to {}
　　　　set posList to {}
　　　　set aCount to 1
　　　　
　　　　repeat with i in aSel
　　　　　　set j to contents of i
　　　　　　set tmpClass to class of j
　　　　　　
　　　　　　–条件に合うオブジェクトのみ処理対象に
　　　　　　if tmpClass is in {text item, shape} then
　　　　　　　　set the end of objList to j
　　　　　　　　set the end of posList to ((position of j) & (width of j) & aCount)
　　　　　　　　
　　　　　　　　set aCount to aCount + 1
　　　　　　end if
　　　　end repeat
　　　　
　　　　
　　　　set newPosList to shellSortListAscending(posList, 2) of sortLib –Y軸値をもとにソート
　　　　set guideObj to first item of newPosList –Y軸座標が一番少ない（上）のものをガイドオブジェクトとしてみなす
　　　　
　　　　set newPosList to shellSortListAscending(rest of newPosList, 1) of sortLib –ガイドオブジェクト以外のオブジェクト座標値をX軸値でソート
　　　　set guideWidth to contents of item 3 of guideObj
　　　　
　　　　set xStartPos to item 1 of item 1 of newPosList
　　　　set yPos to item 2 of item 1 of newPosList
　　　　set itemsCount to length of newPosList
　　　　
　　　　set itemWidth to (guideWidth – (xGap * (itemsCount – 1))) / itemsCount
　　　　
　　　　–下側オブジェクトの位置と幅修正処理
　　　　copy xStartPos to x
　　　　repeat with i from 1 to itemsCount
　　　　　　
　　　　　　set y to item 2 of (item i of newPosList)
　　　　　　
　　　　　　set targObj to item (item 4 of (item i of newPosList)) of objList
　　　　　　
　　　　　　tell targObj
　　　　　　　　set position of it to {x, y}
　　　　　　　　set width of it to itemWidth
　　　　　　end tell
　　　　　　
　　　　　　set x to x + itemWidth + (xGap)
　　　　　　
　　　　end repeat
　　end tell
end tell

–Vanilla AppleScriptで書いた2D ListのSorting Lib
script sortLib
　　–シェルソートで入れ子のリストを昇順ソート
　　on shellSortListAscending(aSortList, aKeyItem)
　　　　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 (contents of item aKeyItem of (oBj’s list’s item (j – gap + 1)) > item aKeyItem of 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 shellSortListAscending
　　
　　
　　–シェルソートで入れ子のリストを降順ソート
　　on shellSortListDescending(aSortList, aKeyItem)
　　　　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 (contents of item aKeyItem of (oBj’s list’s item (j – gap + 1)) < item aKeyItem of 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 shellSortListDescending
end script

★Click Here to Open This Script　

ステージマネージャのON_OFF

Posted on 11月 15 by Takaaki Naganoya

macOS 13で搭載された「ステージマネージャ」機能のオン/オフを行うAppleScriptです。

ステージマネージャは、最前面のアプリのウィンドウだけを表示するようにする仕組みで、iPadOSに搭載されたものがそのままmacOSにも搭載されました。ドラッグ＆ドロップをこのステージマネージャに対して行えるのと、表示ウィンドウを最前面のものだけに切り替えるものです。

つまり、マルチウィンドウのGUIに不慣れなユーザーのために用意された機能です。Windowsユーザー向けに用意した、ともいえるでしょう。

このステージマネージャのOn/Offを行います。動作内容はご覧のとおり、単にshellコマンドを呼び出しているだけです。現在オンになっているかどうかも、defaults readコマンドで同様に実行できることでしょう。

▲真っ先にオフにして、二度とオンにすることはなかったステージマネージャ（画面左端）

▲元に戻ると安心します

AppleScript名：ステージマネージャのON_OFF

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

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

set aBool to true
stageManagerControl(aBool) of me

delay 5

set aBool to false
stageManagerControl(aBool) of me

on stageManagerControl(aBool as boolean)
　　set sText to "defaults write com.apple.WindowManager GloballyEnabled -bool " & (aBool as string)
　　do shell script sText
end stageManagerControl

★Click Here to Open This Script　

Pagesで選択中のテキストフレーム内のテキストを、指定記号の前まで太らせる

Posted on 11月 10 by Takaaki Naganoya

以前にKeynote用に作っておいたAppleScriptを、Pages用に書き直しました。

Pages書類、主に奥付けのテキストなどで、「項目名」「：」（セパレータ）「内容」みたいに列挙している箇所を行頭からセパレータの場所の前まで太字の書体に変更します。ヒラギノ角ゴシックでチェックしており、欧文フォントは考慮していません。

Pages v14.2＋macOS 15.2Betaで実験しています。

▲実行前

▲実行後

AppleScript名：フォントを記号の前まで太らせる.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/11/01
—
–　　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 NSFont : a reference to current application’s NSFont
property NSFontManager : a reference to current application’s NSFontManager

–セパレータリスト、表記ゆらぎ対応（ゆらぎ表記個数は可変）
property separatorList : {{"：", ":"}, {"mm", "㎜"}, {"cm", "㎝"}}

tell application "Pages"
　　tell front document
　　　　set aSel to selection
　　　　
　　　　
　　　　–Keynote上の選択中のオブジェクトでループ
　　　　repeat with i in aSel
　　　　　　set j to contents of i
　　　　　　set tmpClass to class of j
　　　　　　
　　　　　　
　　　　　　–選択中のオブジェクトがテキストアイテムの場合に…….
　　　　　　if tmpClass = shape then
　　　　　　　　set objText to object text of j
　　　　　　　　set fontName to font of object text of j
　　　　　　　　set fontSize to size of object text of j
　　　　　　　　
　　　　　　　　
　　　　　　　　–フォントを太らせる（ウェイトを上げる）
　　　　　　　　set fFamilyCount to countFontsInItsFamily(fontName) of me
　　　　　　　　if fFamilyCount = 2 then
　　　　　　　　　　
　　　　　　　　　　–ヒラギノ角ゴProN W3　→　ヒラギノ角ゴProN W6
　　　　　　　　　　set newFont to incrementFontWeight(fontName, 1) of me
　　　　　　　　　　
　　　　　　　　else if fFamilyCount > 4 then
　　　　　　　　　　–ヒラギノ角ゴシック Wn　のウェイトを上げ
　　　　　　　　　　set newFont to incrementFontWeight(fontName, 4) of me
　　　　　　　　　　
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set aCount to 1
　　　　　　　　set tList to splitByLInes(objText) of me
　　　　　　　　
　　　　　　　　
　　　　　　　　–行ごとにParseした行ごとのテキストでループ
　　　　　　　　repeat with ii in tList
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　
　　　　　　　　　　set anOffset to 0
　　　　　　　　　　
　　　　　　　　　　–セパレータでループ
　　　　　　　　　　repeat with iii in separatorList
　　　　　　　　　　　　–セパレータの「ゆらぎ」表記を考慮してループ
　　　　　　　　　　　　repeat with iiii in iii
　　　　　　　　　　　　　　set jjjj to contents of iiii
　　　　　　　　　　　　　　set anOffset to offset of jjjj in jj
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　if anOffset is not equal to 0 then
　　　　　　　　　　　　　　　　exit repeat
　　　　　　　　　　　　　　end if
　　　　　　　　　　　　end repeat
　　　　　　　　　　　　
　　　　　　　　　　　　if anOffset is not equal to 0 then exit repeat
　　　　　　　　　　　　
　　　　　　　　　　end repeat
　　　　　　　　　　
　　　　　　　　　　if anOffset is not equal to 0 then
　　　　　　　　　　　　try
　　　　　　　　　　　　　　set font of characters 1 thru (anOffset – 1) of paragraph aCount of object text of j to newFont
　　　　　　　　　　　　end try
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　　　set aCount to aCount + 1
　　　　　　　　　　
　　　　　　　　end repeat
　　　　　　end if
　　　　end repeat
　　end tell
end tell

–テキストを行ごとにParse
on splitByLInes(someText) — free to a good home
　　set theString to current application’s NSString’s stringWithString:someText
　　set theList to theString’s componentsSeparatedByCharactersInSet:(current application’s NSCharacterSet’s newlineCharacterSet())
　　return theList as list
end splitByLInes

–フォントを太らせる。欧文フォントは考慮していない（別の方法で行う）
on incrementFontWeight(psFontName, incNum)
　　set aFont to current application’s NSFont’s fontWithName:psFontName |size|:9.0
　　–> (NSCTFont) "HiraginoSans-W0 9.00 pt. P [] (0x12870af00) fobj=0x11b1e90d0, spc=1.98"
　　
　　set fontM to current application’s NSFontManager’s sharedFontManager()
　　
　　repeat incNum times
　　　　set aFont to fontM’s convertWeight:true ofFont:aFont
　　end repeat
　　
　　return (aFont’s fontName()) as string
end incrementFontWeight

–指定フォントのファミリーに属するフォント数を取得
on countFontsInItsFamily(aPSName)
　　set aFont to current application’s NSFont’s fontWithName:(aPSName) |size|:9.0
　　set aFamily to aFont’s familyName()
　　set fMan to current application’s NSFontManager’s sharedFontManager()
　　set fList to fMan’s availableMembersOfFontFamily:aFamily
　　return length of (fList as list)
end countFontsInItsFamily

★Click Here to Open This Script　

FileMaker Pro v21.1.1アップデート

Posted on 11月 8 by Takaaki Naganoya

FileMaker Pro 2024（v21)がv21.1.1にアップデートしました。

macOS 12.xのサポートが打ち切られ、macOS 13以降が対象となっています。

FileMaker Pro v21.1.1のAppleScript用語辞書に、とくに変更は加えられていません。

全フォントのmostCompatibleStringEncodingを求めて集計

Posted on 11月 6 by Takaaki Naganoya

使用中のmacOS環境にインストールされているフォントのmostCompatibleStringEncodingを求めて、集計出力するAppleScriptです。

mostCompatibleStringEncodingはフォントが対応しているエンコーディングということで、普通そんなものはないように思えますが、EnglishなどのAscii & Numelicだけの言語用フォントであれば、「それにしか対応していない」という意味でのmostCompatibleStringEncodingはあるんじゃないかと。

一応調査するために書いてみたものです。バーコード系のフォントやドットフォントが該当しそうな感じです。

AppleScript名：全フォントのmostCompatibleStringEncodingを求める.scptd

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

property NSFont : a reference to current application’s NSFont
property NSPredicate : a reference to current application’s NSPredicate
property NSFontManager : a reference to current application’s NSFontManager

script spdf
　　property fList : {}
　　property outList : {}
end script

set (outList of spdf) to {}
set (fList of spdf) to getEveryFontPSName() of me

repeat with i in (fList of spdf)
　　set j to contents of i
　　set aEnc to chkFontsCompatibleEncoding(j) of me
　　–if aEnc is not equal to "default" then set the end of (outList of spdf) to {fontEncoding:aEnc}
　　set the end of (outList of spdf) to {fontEncoding:aEnc}
end repeat

set aCountedList to countEachRecord((outList of spdf)) of me
–> {{aCount:1, aData:{fontEncoding:"NSSymbolStringEncoding"}}, {aCount:860, aData:{fontEncoding:"default"}}, {aCount:1005, aData:{fontEncoding:"NSMacOSRomanStringEncoding"}}}

–Rec in Listの登場頻度を集計して出力
on countEachRecord(aRecList)
　　set theCountedSet to current application’s NSCountedSet’s |set|()
　　repeat with i in aRecList
　　　　set j to contents of i
　　　　(theCountedSet’s addObject:j)
　　end repeat
　　
　　set theEnumerator to theCountedSet’s objectEnumerator()
　　set anArray to current application’s NSMutableArray’s alloc()’s init()
　　
　　repeat
　　　　set aDict to current application’s NSMutableDictionary’s alloc()’s init()
　　　　
　　　　set aValue to theEnumerator’s nextObject()
　　　　if aValue is missing value then exit repeat
　　　　
　　　　set aCount to theCountedSet’s countForObject:aValue
　　　　
　　　　aDict’s setObject:aCount forKey:"aCount"
　　　　aDict’s setObject:aValue forKey:"aData"
　　　　anArray’s addObject:aDict
　　end repeat
　　
　　return anArray as anything
end countEachRecord

on getEveryFontPSName()
　　script spd
　　　　property aList : {}
　　end script
　　
　　set aFontList to NSFontManager’s sharedFontManager()’s availableFonts()
　　set thePred to NSPredicate’s predicateWithFormat:"NOT SELF BEGINSWITH ’.’"
　　set aFontList to (aFontList’s filteredArrayUsingPredicate:thePred) as list
　　
　　set aList of spd to {}
　　repeat with i in aFontList
　　　　set aName to contents of i
　　　　set the end of aList of spd to aName
　　end repeat
　　
　　return aList of spd
end getEveryFontPSName

on chkFontsCompatibleEncoding(fontPSName as string)
　　set aFont to current application’s NSFont’s fontWithName:(fontPSName) |size|:16
　　
　　if aFont’s mostCompatibleStringEncoding() = (current application’s NSASCIIStringEncoding) then
　　　　return "NSASCIIStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSNEXTSTEPStringEncoding) then
　　　　return "NSNEXTSTEPStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSJapaneseEUCStringEncoding) then
　　　　return "NSJapaneseEUCStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSUTF8StringEncoding) then
　　　　return "NSUTF8StringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSISOLatin1StringEncoding) then
　　　　return "NSISOLatin1StringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSSymbolStringEncoding) then
　　　　return "NSSymbolStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSNonLossyASCIIStringEncoding) then
　　　　return "NSNonLossyASCIIStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSShiftJISStringEncoding) then
　　　　return "NSShiftJISStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSISOLatin2StringEncoding) then
　　　　return "NSISOLatin2StringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSUnicodeStringEncoding) then
　　　　return "NSUnicodeStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSWindowsCP1251StringEncoding) then
　　　　return "NSWindowsCP1251StringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSWindowsCP1252StringEncoding) then
　　　　return "NSWindowsCP1252StringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSWindowsCP1253StringEncoding) then
　　　　return "NSWindowsCP1253StringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSWindowsCP1254StringEncoding) then
　　　　return "NSWindowsCP1254StringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSWindowsCP1250StringEncoding) then
　　　　return "NSWindowsCP1250StringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSISO2022JPStringEncoding) then
　　　　return "NSISO2022JPStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSMacOSRomanStringEncoding) then
　　　　return "NSMacOSRomanStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSProprietaryStringEncoding) then
　　　　return "NSProprietaryStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSISO2022JPStringEncoding) then
　　　　return "NSISO2022JPStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSJapaneseEUCStringEncoding) then
　　　　return "NSJapaneseEUCStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSShiftJISStringEncoding) then
　　　　return "NSShiftJISStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSUTF16BigEndianStringEncoding) then
　　　　return "NSUTF16BigEndianStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSUTF16LittleEndianStringEncoding) then
　　　　return "NSUTF16LittleEndianStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSUTF16StringEncoding) then
　　　　return "NSUTF16StringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSUnicodeStringEncoding) then
　　　　return "NSUnicodeStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSUTF32BigEndianStringEncoding) then
　　　　return "NSUTF32BigEndianStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSUTF32LittleEndianStringEncoding) then
　　　　return "NSUTF32LittleEndianStringEncoding"
　　else if aFont’s mostCompatibleStringEncoding() = (current application’s NSUTF32StringEncoding) then
　　　　return "NSUTF32StringEncoding"
　　else
　　　　return "default"
　　end if
end chkFontsCompatibleEncoding

★Click Here to Open This Script　

PostScript名で指定のフォントのTraitMaskを付与する_v3

Posted on 11月 3 by Takaaki Naganoya

PostScript名で指定したフォントにTraitMaskを付与し、そのPostScript名の文字列を返すAppleScriptです。

指定フォントのBoldバージョンを取得する、という用途においてはこれで済むのですが、すでにBold指定されたフォントを渡したときにExtra Boldのフォントを返すという処理には使えません。

AppleScript名：PostScript名で指定のフォントのTraitMaskを付与する_v3.scptd

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

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

property NSFont : a reference to current application’s NSFont
property NSFontManager : a reference to current application’s NSFontManager

set aName to "TimesNewRomanPSMT"
set traitsNum to (current application’s NSBoldFontMask)
set bName to getTraitedFontName(aName, traitsNum) of me
–> "TimesNewRomanPS-BoldMT"

on getTraitedFontName(aName, traitsNum)
　　set bFont to getBoldFontObj(aName, traitsNum) of me
　　return bFont’s fontName() as string
end getTraitedFontName

–BoldフォントのNSFontを取得
on getBoldFontObj(aName, traitsNum)
　　set aFont to current application’s NSFont’s fontWithName:aName |size|:9.0
　　–> (NSCTFont) "HelveticaNeue 9.00 pt. P [] (0x4864eb0e0) fobj=0x12ee73e90, spc=2.50"
　　
　　set fontM to current application’s NSFontManager’s sharedFontManager()
　　
　　–指定のフォントがBoldのtraitを持っているかをチェック
　　set fRes to fontM’s fontNamed:aName hasTraits:traitsNum
　　if (fRes as boolean) = true then return aFont –すでに該当する
　　
　　set bFont to fontM’s convertFont:(aFont) toHaveTrait:(traitsNum)
　　
　　return bFont
end getBoldFontObj

★Click Here to Open This Script　

全フォントから全traitsを調べる v2

Posted on 11月 3 by Takaaki Naganoya

macOSにインストールされているすべてのフォントに対して、すべてのtraitsを確認して、タブ区切りテキストとして出力するAppleScriptです。

実際にNumbersの表データに入力して、Numbers上のフィルタを用いてtraitsの分布状況を調べてみました。とくに問題はないようです。

AppleScript名：全フォントから全traitsを調べる v2.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/11/03
—
–　　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

set fontStatList to {}
set fList to getEveryFontPSName() of me
set fontM to NSFontManager’s sharedFontManager()

repeat with i in fList
　　set j to contents of i
　　set f1Res to (fontM’s fontNamed:(j) hasTraits:(current application’s NSItalicFontMask)) as integer
　　set f2Res to (fontM’s fontNamed:(j) hasTraits:(current application’s NSBoldFontMask)) as integer
　　set f3Res to (fontM’s fontNamed:(j) hasTraits:(current application’s NSUnboldFontMask)) as integer
　　set f4Res to (fontM’s fontNamed:(j) hasTraits:(current application’s NSNonStandardCharacterSetFontMask)) as integer
　　set f5Res to (fontM’s fontNamed:(j) hasTraits:(current application’s NSNarrowFontMask)) as integer
　　set f6Res to (fontM’s fontNamed:(j) hasTraits:(current application’s NSExpandedFontMask)) as integer
　　set f7Res to (fontM’s fontNamed:(j) hasTraits:(current application’s NSCondensedFontMask)) as integer
　　set f8Res to (fontM’s fontNamed:(j) hasTraits:(current application’s NSSmallCapsFontMask)) as integer
　　set f9Res to (fontM’s fontNamed:(j) hasTraits:(current application’s NSPosterFontMask)) as integer
　　set fARes to (fontM’s fontNamed:(j) hasTraits:(current application’s NSCompressedFontMask)) as integer
　　set fBRes to (fontM’s fontNamed:(j) hasTraits:(current application’s NSFixedPitchFontMask)) as integer
　　set fCRes to (fontM’s fontNamed:(j) hasTraits:(current application’s NSUnitalicFontMask)) as integer
　　set the end of fontStatList to {j, f1Res, f2Res, f3Res, f4Res, f5Res, f6Res, f7Res, f8Res, f9Res, fARes, fBRes, fCRes}
end repeat

–結果のリストをタブ区切りテキストに
set sRes to make2DList2TabSepMultilineText(fontStatList) of me
–>
(*
07LightNovelPOP　　0　　1　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0
07YasashisaGothic　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0
07YasashisaGothicBold　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0
7barP　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0
7barSP　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0　　0……..
*)

on getEveryFontPSName()
　　set aFontList to NSFontManager’s sharedFontManager()’s availableFonts()
　　set thePred to NSPredicate’s predicateWithFormat:"NOT SELF BEGINSWITH ’.’"
　　set aFontList to (aFontList’s filteredArrayUsingPredicate:thePred) as list
　　
　　set aList to {}
　　repeat with i in aFontList
　　　　set aName to contents of i
　　　　set the end of aList to aName
　　end repeat
　　
　　return aList
end getEveryFontPSName

on make2DList2TabSepMultilineText(aList)
　　set aStr to ""
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　set tmpStr to list2TABseparatedText(j) of me
　　　　set aStr to aStr & tmpStr & return
　　end repeat
　　
　　return aStr
end make2DList2TabSepMultilineText

–リストをタブ区切りのテキストに変換
on list2TABseparatedText(aList)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to tab
　　set bList to aList as string
　　set AppleScript’s text item delimiters to curDelim
　　return bList
end list2TABseparatedText

★Click Here to Open This Script　

指定フォントの指定Traitが存在するかをチェック

Posted on 11月 3 by Takaaki Naganoya

欧文フォントを太らせる処理を行う下調べとして、指定PostScriptフォント名のフォントファミリーに、指定のバリエーションが存在するかどうかを調べるAppleScriptを書いてみました。

Classic MacOS時代はフォントを変形させてボールド表現を行ったり、イタリック表現を行うなどの機能が実装されていました。

一方、OPENSTEPを源流に持つmacOSは、さまざまなバリエーションのフォントをあらかじめ用意しておくことが必要です。このあたりの仕様は、なんとなく技術的な後退を感じますが、まあいいでしょう。

そして、NSFontManagerの機能を用いて、指定のフォントバリエーション（ボールド）が存在するかを確認するはずだったのが本AppleScriptです。

ただ、実際に試してみたところ、どのフォントを指定してもダメでした。「ボールド書体はない」と言われます。あれ？？？？

▲SF Pro Text、18のスタイルを持つ

▲Skia、10のスタイルを持つ

そこで、macOSに入っているすべてのフォントのPostScript名を取得して、すべてのフォントのTraitsをチェック。

結果、けっこうな数のフォントがboldのTraitsを持っている、と返ってきました。名前に「Bold」と入っているフォントばかりが。

つまり、NSFontManagerのfontNamed:① hasTraits:② は、指定のフォント自体にTraitsがあるのか調べるAPIであったということです。自分が誤解していたようでした。

AppleScript名：指定フォントの指定Traitsが存在するかをチェック.scptd

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

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

–set aName to "HelveticaNeue"
–set aName to "Verdana"
–set aName to "TimesNewRomanPSMT"
set aName to "SFProText-Regular"

–指定のフォントがBoldのtraitを持っているかをチェック
set fontM to current application’s NSFontManager’s sharedFontManager()
set fRes to fontM’s fontNamed:aName hasTraits:(current application’s NSBoldFontMask)
–> false（みんなfalse）

★Click Here to Open This Script　

AppleScript名：全フォントからtraitsを調べる.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/11/03
—
–　　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

set okList to {}
set fList to getEveryFontPSName() of me
set fontM to NSFontManager’s sharedFontManager()

repeat with i in fList
　　set j to contents of i
　　set fRes to (fontM’s fontNamed:(j) hasTraits:(current application’s NSBoldFontMask))
　　if fRes as boolean = true then set the end of okList to j
end repeat

return okList

★Click Here to Open This Script　

Keynoteで選択中のtext itemの冒頭のフォントを太くする v2

Posted on 11月 1 by Takaaki Naganoya

Keynote書類で選択中のテキストアイテムのうち、各行の冒頭からマークの文字までの間を太文字にするAppleScriptです。

v1を改良し、さまざまな区切り記号に対応させるべく、改修を行なってみたものです。

当初は、各テキストアイテムの内部テキストを解析して、共通記号文字を計算して自動で認識処理を行なってみようかと考えていました。統計処理を行なって共通で登場する文字をピックアップさせることを検討していました。

ただ、これだと複数の選択アイテムで別々の区切り文字を採用している場合に対応できません。

統計処理を行わず、技術的にもっとレベルを下げ、「ゆらぎ」検出のためのオーソドックスな、ゆらぎ表記列挙リストを作って、ひたすらループで処理するように改変。

▲処理前　Keynoteの書類上でテキストアイテムを選択

▲処理後　各テキストアイテムで、指定の記号より前の部分の文字を太くした

なお、本Scriptは書式変更ターゲット文字のピックアップ性能を向上させたものであり、欧文フォントの処理を考慮したものにはなっていません。フォントファミリー内のウェイトを上げたフォントを求めるという処理を行なっています。

fFamilyCount = 2

の場合には、「ヒラギノ角ゴProN W3」を「ヒラギノ角ゴProN W6」に変更する処理を行います。

fFamilyCount > 4

の場合には、「ヒラギノ角ゴシック Wn」のウェイトを上げています。

もしも、利用中のMacにウェイトが多数含まれているフォントをインストールして、Keynote書類上でそのフォントを指定している場合には、ウェイトを上げたフォントを求める処理で、文字を太くするよう処理されることでしょう。

AppleScript名：選択中のtext itemの冒頭のフォントを太くする（フォントのWeightを変更）v2.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2024/11/01
—
–　　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 NSFont : a reference to current application’s NSFont
property NSFontManager : a reference to current application’s NSFontManager

–セパレータリスト、表記ゆらぎ対応（ゆらぎ表記個数は可変）
property separatorList : {{"：", ":"}, {"mm", "㎜"}, {"cm", "cm"}}

tell application "Keynote"
　　tell front document
　　　　set aSel to selection
　　　　
　　　　
　　　　–Keynote上の選択中のオブジェクトでループ
　　　　repeat with i in aSel
　　　　　　set j to contents of i
　　　　　　set tmpClass to class of j
　　　　　　
　　　　　　
　　　　　　–選択中のオブジェクトがテキストアイテムの場合に…….
　　　　　　if tmpClass = text item then
　　　　　　　　set objText to object text of j
　　　　　　　　set fontName to font of object text of j
　　　　　　　　set fontSize to size of object text of j
　　　　　　　　
　　　　　　　　
　　　　　　　　–フォントを太らせる（ウェイトを上げる）
　　　　　　　　set fFamilyCount to countFontsInItsFamily(fontName) of me
　　　　　　　　if fFamilyCount = 2 then
　　　　　　　　　　set newFont to incrementFontWeight(fontName, 1) of me
　　　　　　　　else if fFamilyCount > 4 then
　　　　　　　　　　set newFont to incrementFontWeight(fontName, 4) of me
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set aCount to 1
　　　　　　　　set tList to splitByLInes(objText) of me
　　　　　　　　
　　　　　　　　
　　　　　　　　–行ごとにParseした行ごとのテキストでループ
　　　　　　　　repeat with ii in tList
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　
　　　　　　　　　　set anOffset to 0
　　　　　　　　　　
　　　　　　　　　　–セパレータでループ
　　　　　　　　　　repeat with iii in separatorList
　　　　　　　　　　　　–セパレータの「ゆらぎ」表記を考慮してループ
　　　　　　　　　　　　repeat with iiii in iii
　　　　　　　　　　　　　　set jjjj to contents of iiii
　　　　　　　　　　　　　　set anOffset to offset of jjjj in jj
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　if anOffset is not equal to 0 then
　　　　　　　　　　　　　　　　exit repeat
　　　　　　　　　　　　　　end if
　　　　　　　　　　　　end repeat
　　　　　　　　　　　　
　　　　　　　　　　　　if anOffset is not equal to 0 then exit repeat
　　　　　　　　　　　　
　　　　　　　　　　end repeat
　　　　　　　　　　
　　　　　　　　　　if anOffset is not equal to 0 then
　　　　　　　　　　　　try
　　　　　　　　　　　　　　set font of characters 1 thru (anOffset – 1) of paragraph aCount of object text of j to newFont
　　　　　　　　　　　　end try
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　　　set aCount to aCount + 1
　　　　　　　　　　
　　　　　　　　end repeat
　　　　　　end if
　　　　end repeat
　　end tell
end tell

★Click Here to Open This Script　

Keynoteで選択中のtext itemの冒頭のフォントを太くする

Posted on 10月 19 by Takaaki Naganoya

Keynote書類で選択中のテキストアイテムのうち、各行の冒頭から「：」の文字までの間を太文字にするAppleScriptです。

▲処理範囲に入っている文字列

▲処理前

▲処理後

本Scriptは、処理内容が地味な割に、処理内容（の説明）が大変です。かなり複雑な処理をやっているためです。（フォント名を文字列で組み立てるなどの）もっと乱暴な処理もできるのですが、ここはあえて丁寧な処理を行なってみました。

Keynote書類上の選択中のText item（複数の場合もある）内のObject textにアクセス。ここで、文字情報、フォント情報、フォントサイズ情報、文字色情報などが取得できます。

フォントサイズ情報を取得して（テキストアイテム内はすべて同じフォントが指定されているものと想定）、フォント名がPostScript名で返ってくるので、NSFontManagerの機能を用いて、当該フォントが所属するフォントファミリーを求めます。さらに、そのファミリーにいくつのフォントが所属しているのかを求めます。

ここで想定しているのは、ヒラギノ角ゴ W3/W6かヒラギノ角ゴシックW0〜W9です。欧文フォントでは、ボールド書体がファミリー中に存在するかをチェックし、存在すればボールド書体を指定するといったまったく別の処理が必要です。本Scriptはとりあえずやりたいことを詰め込んで動くレベルにまとめただけで、汎用性はあまりありません。

また、Keynoteのtext item中の「行」（paragraph）へのアクセスが安定していません。改行をリターンキーだけで行うか、Shift-Returnで行うか、Control-Returnで行うかといった些細な操作の違いによって行カウントできる行数に差が発生します。

安全のためには、AppleScript上でRTF（NSMutableAttributedString）を作って、そこでフォントの変更を行なってtext itemのobject textに書き戻すのが理想的です。

AppleScript名：選択中のtext itemの冒頭のフォントを太くする.scptd

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

property NSFont : a reference to current application’s NSFont
property NSFontManager : a reference to current application’s NSFontManager

tell application "Keynote"
　　tell front document
　　　　set aSel to selection
　　　　
　　　　repeat with i in aSel
　　　　　　set j to contents of i
　　　　　　set tmpClass to class of j
　　　　　　
　　　　　　if tmpClass = text item then
　　　　　　　　set objText to object text of j
　　　　　　　　set fontName to font of object text of j
　　　　　　　　set fontSize to size of object text of j
　　　　　　　　
　　　　　　　　–フォントを太らせる（ウェイトを上げる）
　　　　　　　　set fFamilyCount to countFontsInItsFamily(fontName) of me
　　　　　　　　if fFamilyCount = 2 then
　　　　　　　　　　set newFont to incrementFontWeight(fontName, 1) of me
　　　　　　　　else if fFamilyCount > 4 then
　　　　　　　　　　set newFont to incrementFontWeight(fontName, 4) of me
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set aCount to 1
　　　　　　　　set tList to splitByLInes(objText) of me
　　　　　　　　
　　　　　　　　
　　　　　　　　repeat with ii in tList
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　set anOffset1 to offset of "：" in jj
　　　　　　　　　　set anOffset2 to offset of ":" in jj
　　　　　　　　　　
　　　　　　　　　　if {anOffset1, anOffset2} is not equal to {0, 0} then
　　　　　　　　　　　　if anOffset1 = 0 then
　　　　　　　　　　　　　　set offRes to anOffset2
　　　　　　　　　　　　else if anOffset2 = 0 then
　　　　　　　　　　　　　　set offRes to anOffset1
　　　　　　　　　　　　else
　　　　　　　　　　　　　　set offRes to anOffset1
　　　　　　　　　　　　end if
　　　　　　　　　　　　
　　　　　　　　　　　　try
　　　　　　　　　　　　　　set font of characters 1 thru offRes of paragraph aCount of object text of j to newFont
　　　　　　　　　　　　end try
　　　　　　　　　　　　
　　　　　　　　　　　　set aCount to aCount + 1
　　　　　　　　　　end if
　　　　　　　　end repeat
　　　　　　end if
　　　　end repeat
　　end tell
end tell

★Click Here to Open This Script　

Numbersの選択範囲で空欄でないセルに指定の文字を入れる

Posted on 10月 17 by Takaaki Naganoya

Numbersの表を書き換えるためのAppleScriptです。表の選択範囲のうち、空欄でないセルに指定の文字（「●」）を入れます。

電子書籍掲載の「表」を作るのに、割と必要なものです。

「表」をまとめる段階では、

のように、生データをそのままセルに記載しておきますが、場所の利用効率でいえばそのまま生データで掲載していると無駄があります。

そこで、空欄ではないセルについては、「●」などの記号を記入することで、コンパクトな「表」に作り変える作業が発生します。本AppleScriptはそれを自動化したものです。

AppleScript名：選択範囲で空欄でないセルに指定の文字を入れる.scpt

script spd
　　property uniqList : {}
end script

set strMark to "●"

tell application "Numbers"
　　tell front document
　　　　tell active sheet
　　　　　　try
　　　　　　　　set theTable to first table whose class of selection range is range
　　　　　　on error
　　　　　　　　display notification "Numbers: There is no selection"
　　　　　　　　return
　　　　　　end try
　　　　　　
　　　　　　tell theTable
　　　　　　　　set (uniqList of spd) to cells of selection range
　　　　　　　　repeat with i in (uniqList of spd)
　　　　　　　　　　set j to contents of i
　　　　　　　　　　set tmpVal to value of j
　　　　　　　　　　if tmpVal is not equal to missing value then
　　　　　　　　　　　　set value of j to strMark
　　　　　　　　　　end if
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
end tell

★Click Here to Open This Script　

指定Bundle IDのアプリの各言語のローカライズ名称を取得して出力

Posted on 10月 17 by Takaaki Naganoya

指定アプリの各ローカライズ言語における名称（CFBundleName）を取得するAppleScriptです。

まだテスト実装レベルのため、無駄な処理が入っています。

もともと本Scriptは、電子書籍に掲載する表を作成するために書いたものです。

▲電子書籍「AppleScriptによるWebブラウザ自動操縦ガイド」より

こうした資料を掲載する際に、手で調査するのは大変なので、AppleScriptを書いて資料を作成しています。ただ、macOS 13以降で（正確にいえばXcode 15以降で）はローカライズの方法が変更されたため、新たに作られた.loctableデータにアクセスしています。

従来のローカライズ方式と、新方式が混在している状況なので、旧方式でアクセスして値が得られなかった場合には、このScriptを使うとよいのでしょう。

AppleScript名：指定Bundle IDのアプリの各言語のローカライズ名称を取得して出力.scpt

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

property NSArray : a reference to current application’s NSArray
property NSPredicate : a reference to current application’s NSPredicate

set targAppBundleID to "com.apple.ScriptEditor2"
set targKey to "CFBundleName"
set aLocale to (current application’s NSLocale’s currentLocale())

set locResList to getAppInfoPlistValueInEveryLocalizedLangs(targAppBundleID, targKey, aLocale) of me
–> {{"ヘブライ語", "עורך התסריטים"}, {"韓国語", "스크립트 편집기"}, {"インドネシア語", "Editor Skrip"}, {"オランダ語", "Scripteditor"}, {"トルコ語", "Betik Düzenleyici"}, {"フィンランド語", "Skriptieditori"}, {"ハンガリー語", "Szkriptszerkesztő"}, {"ロシア語", "Редактор скриптов"}, {"イタリア語", "Script Editor"}, {"スペイン語（ラテンアメリカ）", "Editor de Scripts"}, {"ギリシャ語", "Επεξεργασία σκριπτ"}, {"カタロニア語", "Editor de Scripts"}, {"フランス語（カナダ）", "Éditeur de script"}, {"中国語（台湾）", "工序指令編寫程式"}, {"中国語（香港）", "程式碼編寫程式"}, {"ポーランド語", "Edytor skryptów"}, {"スウェーデン語", "Skriptredigerare"}, {"ノルウェー語", "Prosedyreredigering"}, {"アラビア語", "محرر البرامج النصية"}, {"英語", "Script Editor"}, {"デンマーク語", "Instruksværktøj"}, {"ヒンディー語", "स्क्रिप्ट संपादक"}, {"タイ語", "ตัวแก้ไขสคริปต์"}, {"中国語（中国本土）", "脚本编辑器"}, {"英語（イギリス）", "Script Editor"}, {"マレー語", "Editor Skrip"}, {"チェコ語", "Editor skriptů"}, {"スロバキア語", "Script Editor"}, {"英語（オーストラリア）", "Script Editor"}, {"スロベニア語", "Skriptni urejevalnik"}, {"ドイツ語", "Skripteditor"}, {"ベトナム語", "Trình soạn thảo tập lệnh"}, {"ポルトガル語（ブラジル）", "Editor de Scripts"}, {"スペイン語", "Editor de Scripts"}, {"ウクライナ語", "Редактор скриптів"}, {"ルーマニア語", "Editor scripturi"}, {"フランス語", "Éditeur de script"}, {"クロアチア語", "Urednik skripte"}, {"ポルトガル語（ポルトガル）", "Editor de Scripts"}, {"日本語", "スクリプトエディタ"}}

on getAppInfoPlistValueInEveryLocalizedLangs(targAppBundleID, targKey, aLocale)
　　script spd
　　　　property urlList : {}
　　end script
　　
　　–macOS 13以降がターゲット
　　set v1 to system attribute "sys1" –> 10, 11, 12, 13, 14, 15….
　　if v1 < 13 then error "This Script require macOS 13 or later"
　　
　　–指定アプリのバンドル内のResourceから「InfoPlist.loctable」で終わるファイル名のパスを抽出
　　tell application "Finder"
　　　　set defPath to application file id targAppBundleID
　　end tell
　　
　　set defPath to (POSIX path of (defPath as alias)) & "Contents/Resources" –Cocoa流のPOSIX path
　　set fList to getFilesIn(defPath) of me
　　
　　set anArray to NSArray’s arrayWithArray:fList
　　set aPred to NSPredicate’s predicateWithFormat:"SELF ENDSWITH ’InfoPlist.loctable’"
　　set locRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
　　
　　set resList to {}
　　
　　
　　–.loctableファイルでループ（1つだけだが）
　　repeat with i in locRes
　　　　set j to contents of i
　　　　set (urlList of spd) to (my readPlistAt:(j))
　　　　set langKeys to ((urlList of spd)’s allKeys()) as list
　　　　
　　　　–Language Codeでループ
　　　　repeat with ii in langKeys
　　　　　　set jj to contents of ii
　　　　　　set aLangDat to ((urlList of spd)’s valueForKey:jj)
　　　　　　
　　　　　　—plist（=loctable)のlabelでループ
　　　　　　set allLangKeys to (aLangDat’s allKeys()) as list
　　　　　　repeat with iii in allLangKeys
　　　　　　　　set jjj to contents of iii
　　　　　　　　set aVal to (aLangDat’s valueForKey:(jjj))
　　　　　　　　
　　　　　　　　if jjj = targKey then
　　　　　　　　　　set locLangName to getLangNameWithLocale(jj, aLocale) of me
　　　　　　　　　　set the end of resList to {locLangName, aVal as string}
　　　　　　　　　　exit repeat
　　　　　　　　end if
　　　　　　end repeat
　　　　end repeat
　　end repeat
　　
　　return resList
end getAppInfoPlistValueInEveryLocalizedLangs

–Read Plist
on readPlistAt:thePath
　　set thePath to current application’s NSString’s stringWithString:thePath
　　set thePath to thePath’s stringByExpandingTildeInPath()
　　set theDict to current application’s NSDictionary’s dictionaryWithContentsOfFile:thePath
　　return theDict
end readPlistAt:

–指定フォルダ内のファイルのフルパス一覧を返す
on getFilesIn(posixPath)
　　script spd
　　　　property allItems : {}
　　end script
　　
　　set allItems of spd to {}
　　
　　— make URL
　　set theNSURL to current application’s |NSURL|’s fileURLWithPath:posixPath
　　
　　— make file manager
　　set theNSFileManager to current application’s NSFileManager’s new()
　　
　　— get URL enumerator
　　set theNSFileEnumerator to theNSFileManager’s enumeratorAtURL:theNSURL includingPropertiesForKeys:{current application’s NSURLIsDirectoryKey, current application’s NSURLIsPackageKey} options:((current application’s NSDirectoryEnumerationSkipsPackageDescendants) + (current application’s NSDirectoryEnumerationSkipsHiddenFiles as integer)) errorHandler:(missing value)
　　
　　— get all items from enumerator
　　set (allItems of spd) to theNSFileEnumerator’s allObjects()
　　set theFolders to {} — to store folders
　　
　　— loop through
　　repeat with i from 1 to count of (allItems of spd)
　　　　— is it a directory?
　　　　set {theResult, isDirectory} to ((item i of (allItems of spd))’s getResourceValue:(reference) forKey:(current application’s NSURLIsDirectoryKey) |error|:(missing value))
　　　　if isDirectory as boolean = false then
　　　　　　set {theResult, isPackage} to ((item i of (allItems of spd))’s getResourceValue:(reference) forKey:(current application’s NSURLIsPackageKey) |error|:(missing value))
　　　　　　
　　　　　　— is it not a package?
　　　　　　if not isPackage as boolean then
　　　　　　　　set end of theFolders to (item i of (allItems of spd))’s |path|() as string –«class furl»
　　　　　　end if
　　　　end if
　　end repeat
　　
　　return theFolders
end getFilesIn

on getLangNameWithLocale(langCode, aLocale)
　　set aLangName to (aLocale’s displayNameForKey:(current application’s NSLocaleIdentifier) value:langCode) as string
　　return aLangName
end getLangNameWithLocale

★Click Here to Open This Script　

マウントしたディスクイメージから元のdmgファイルのパスを取得

Posted on 10月 16 by Takaaki Naganoya

マウント中のディスクイメージ（.dmg）ファイルのパスを求めるAppleScriptです。

macOS 13.7.1上で作成し、15.1上でも動作確認していますが、それほど込み入った機能は使っていないので、OSバージョン依存はないことでしょう。

実際に、オープンソースのPDFビューワー「Skim」の各バージョンのdmgファイルをダウンロードして、sdef（AppleScript用語説明）ファイルを収集してバージョンごとの変化を追う作業を行なったときに、バージョン判定を行うために元のdmgファイルのパスを求める処理を行なったものです。

▲マウントしたディスクイメージ（Skim）

▲マウント元のディスクイメージファイル

▲マウントしたディスクイメージからパス情報を取得することで、一部ファイルを取り出してコピーする際にバージョン情報を反映させた

AppleScript名：マウントしたディスクイメージから元のdmgファイルのパスを取得.scpt

use AppleScript
use framework "Foundation"
use scripting additions

set dName to "Skim"

–Disk Imageのマウントを確認
tell application "Finder"
　　set dexRes to (get exists of disk dName)
end tell
if dexRes = false then error "指定のディスクイメージ「" & dName & "」はマウントされていません。" –マウントされていなかった

set aRes to getMountedDiskImageInfo("image-path : ") of me
–> "/Users/me/Downloads/Skim-1.4.6.dmg"

on getMountedDiskImageInfo(targMark)
　　try
　　　　set aRes to do shell script "hdiutil info"
　　on error
　　　　return false
　　end try
　　
　　set aResList to paragraphs of aRes
　　repeat with i in aResList
　　　　set j to contents of i
　　　　if j begins with targMark then
　　　　　　set aOff to offset of targMark in j
　　　　　　set aLen to length of targMark
　　　　　　set aRes to text (aLen + 1) thru -1 of j
　　　　　　return aRes
　　　　end if
　　end repeat
　　return false
end getMountedDiskImageInfo

★Click Here to Open This Script　

Numbersで選択中の2列のセルを比較して並べ直して書き戻す　v2

Posted on 10月 14 by Takaaki Naganoya

Numbers上でデータを整理しているときに、必要になって組んでみたものです。少し大きいAppleScriptですが、ありもののルーチンをつなぎ合わせて書いたので、とくに画期的な何かを書いたということはありません。

もともと、Numbers上にまとめたデータ（2列分）があって、それらを同じものは同じ行に並べ、削除されたものは空欄、追加されたものは下に列挙するという整理を行なっていました。

▲処理前の状態。2列x処理を行う分の行を選択した状態で本AppleScriptを実行する（スクリプトメニューなどを推奨）

▲処理後の状態。このように整理を行う

この作業をまとめて行うものです。そんなに高速化に配慮しているわけではないので、巨大なデータを扱うのには（このままでは）向いていないかもしれません。ただ、高速化の余地はいろいろあります。

もう、これは分かりきっていた話ですが、Numbers向けに凝ったAppleScriptを書くと、Numbersの機能はほとんど使わずに、AppleScriptの配列やらNSObjectのNSArrayやらを使いまくった「Cocoaの機能のオンパレード」みたいなAppleScriptになります。これは、Numbersに絶望的に何も機能がないためで、データの入出力しか行う余地がありません。

AppleScript名：選択中の2列のセルを比較して並べ直して書き戻す　v2

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

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

set {s1Row, s1Column, e1Row, e1Column} to getSelectionRange(curTable) of me
–> {73, 3, 86, 4}

set colWidth to e1Column – s1Column + 1
–> 2

if colWidth is not equal to 2 then
　　display dialog "Numbers上の表の選択幅が2ではないので、処理終了します" buttons {"OK"} default button 1
　　return
end if

set rowHeight to e1Row – s1Row + 1
–> 15

–縦方向に列のセルの値を取得（左側）
set v1List to getValueByRange(curTable, s1Column, s1Row, e1Row) of me

–スイープ（空白セルのmissing valueを除去）
set v1aList to sweepList(v1List, missing value) of me
–> {"com.apple.eloquence.fr-CA.Grandpa", "com.apple.eloquence.fi-FI.Grandpa", " com.apple.eloquence.de-DE.Grandpa", " com.apple.eloquence.pt-BR.Grandpa", "com.apple.eloquence.en-US.Grandpa", "com.apple.eloquence.es-ES.Grandpa", " com.apple.eloquence.en-GB.Grandpa", " com.apple.eloquence.it-IT.Grandpa", " com.apple.eloquence.es-MX.Grandpa"}

–縦方向に列のセルの値を取得（右側）
set v2List to getValueByRange(curTable, e1Column, s1Row, e1Row) of me

–スイープ（空白セルのmissing valueを除去）
set v2aList to sweepList(v2List, missing value) of me
–> {"com.apple.eloquence.de-DE.Grandpa", "com.apple.eloquence.en-GB.Grandpa", "com.apple.eloquence.en-US.Grandpa", "com.apple.eloquence.es-ES.Grandpa", "com.apple.eloquence.es-MX.Grandpa", "com.apple.eloquence.fi-FI.Grandpa", "com.apple.eloquence.fr-CA.Grandpa", "com.apple.eloquence.fr-FR.Grandpa", "com.apple.eloquence.it-IT.Grandpa", "com.apple.eloquence.pt-BR.Grandpa", "com.apple.eloquence.ja-JP.Grandpa", "com.apple.eloquence.ko-KR.Grandpa", "com.apple.eloquence.zh-CN.Grandpa", "com.apple.eloquence.zh-TW.Grandpa"}

set dList to getDiffBetweenLists(v1aList, v2aList) of me
–> {addItems:{"com.apple.eloquence.zh-TW.Grandpa", "com.apple.eloquence.ko-KR.Grandpa", "com.apple.eloquence.ja-JP.Grandpa", "com.apple.eloquence.zh-CN.Grandpa"}, minusItems:{}}

set newList to {}
set minusList to minusItems of dList

repeat with i in v1aList
　　set j to contents of i
　　if j is not in minusList then
　　　　if j is in v2aList then
　　　　　　set the end of newList to j
　　　　else
　　　　　　set the end of newList to ""
　　　　end if
　　else
　　　　set the end of newList to ""
　　end if
end repeat

set addList to addItems of dList
set addList to sort1DNumList(addList, true) of me –昇順ソート

set new2List to newList & addList

set newLen to length of new2List
if newLen > rowHeight then
　　display dialog "新規データが大きいため（" & (rowHeight as string) & "行に対して、データが" & (newLen as string) & "件）データをNumbersに描き戻せません"
　　return –元のデータ範囲よりも、新規データ範囲（行）が多かったら処理を打ち切る（将来アップデート予定。行挿入などで対処）
end if

repeat (rowHeight – newLen + 1) times
　　set the end of new2List to ""
end repeat

setValueByRange(curTable, e1Column, s1Row, e1Row, new2List) of me

on setValueByRange(curTable, s1Column, s1Row, e1Row, vList)
　　tell application "Numbers"
　　　　tell curTable
　　　　　　tell column s1Column
　　　　　　　　set cList to cells s1Row thru e1Row
　　　　　　end tell
　　　　　　
　　　　　　set aCount to 1
　　　　　　repeat with i in cList
　　　　　　　　set aVal to item aCount of vList
　　　　　　　　set value of i to aVal
　　　　　　　　set aCount to aCount + 1
　　　　　　end repeat
　　　　　　
　　　　end tell
　　end tell
end setValueByRange

on getValueByRange(curTable, s1Column, s1Row, e1Row)
　　tell application "Numbers"
　　　　tell curTable
　　　　　　tell column s1Column
　　　　　　　　set vList to value of cells s1Row thru e1Row
　　　　　　　　return vList
　　　　　　end tell
　　　　end tell
　　end tell
end getValueByRange

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 getSelectionRange(theTable)
　　tell application "Numbers"
　　　　tell theTable
　　　　　　set aSel to properties of selection range
　　　　　　set selName to name of aSel
　　　　　　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 e1Row to (address of row of range s2) as integer
　　　　　　set e1Column to (address of column of range s2) as integer
　　　　　　
　　　　　　return {s1Row, s1Column, e1Row, e1Column}
　　　　end tell
　　end tell
end getSelectionRange

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

on sweepList(aList, sweepItem)
　　set bList to {}
　　repeat with i in aList
　　　　if contents of i is not equal to sweepItem then
　　　　　　set the end of bList to contents of i
　　　　end if
　　end repeat
　　return bList
end sweepList

–リストの差分を取得_v2
on getDiffBetweenLists(aArray as list, bArray as list)
　　set allSet to current application’s NSMutableSet’s setWithArray:aArray
　　allSet’s addObjectsFromArray:bArray
　　
　　–重複する要素のみ抜き出す
　　set duplicateSet to current application’s NSMutableSet’s setWithArray:aArray
　　duplicateSet’s intersectSet:(current application’s NSSet’s setWithArray:bArray)
　　
　　–重複部分を削除する
　　allSet’s minusSet:duplicateSet
　　set resArray to (allSet’s allObjects()) as list
　　
　　set aSet to current application’s NSMutableSet’s setWithArray:aArray
　　set bSet to current application’s NSMutableSet’s setWithArray:resArray
　　aSet’s intersectSet:bSet –積集合
　　set addRes to aSet’s allObjects() as list
　　
　　set cSet to current application’s NSMutableSet’s setWithArray:bArray
　　cSet’s intersectSet:bSet –積集合
　　set minusRes to cSet’s allObjects() as list
　　
　　return {addItems:minusRes, minusItems:addRes}
end getDiffBetweenLists

–1D List（数値）をsort / ascOrderがtrueだと昇順ソート、falseだと降順ソート
on sort1DNumList(theList as list, aBool as boolean)
　　tell current application’s NSSet to set theSet to setWithArray_(theList)
　　tell current application’s NSSortDescriptor to set theDescriptor to sortDescriptorWithKey_ascending_(missing value, aBool)
　　set sortedList to theSet’s sortedArrayUsingDescriptors:{theDescriptor}
　　return (sortedList) as list
end sort1DNumList

★Click Here to Open This Script　

Numbersで選択範囲のセルの前後の空白を削除

Posted on 10月 14 by Takaaki Naganoya

コピペで作ったNumbersの表に空白文字（ゴミ）が入っている場合のクリーニング用AppleScriptです。Numbers v14.2用に作成しましたが、バージョンが異なっても動作に変化はないでしょう。

ExcelやNumbersなどの表計算アプリでは、前のセルに入力されたフォーマットを維持する機能がついているため、前のセルが空白文字ではじまる（＝ゴミが入っている）と、次のセルにも同様にゴミが入ることになります。

そこで、クリーニング用に本Scriptを作成しました。

▲こんな風に、セルの先頭にスペースが入ってしまっている場合のクリーニング用Script。対象セルを選択して本Scriptを実行

▲本Script実行後の様子。各セルの冒頭に入っていたスペースが削除される

ただ、大量のセルを処理するような配慮は一切行っていないので、広範囲のセルを処理する場合には、もっと真剣に高速化を行う必要があることでしょう。

macOS標準装備のスクリプトメニューに入れて呼び出すことを想定しています。

AppleScript名：選択範囲のセルの前後の空白を削除して書き戻す

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 every cell of selection range
　　　　repeat with i in cList
　　　　　　set j to contents of i
　　　　　　set tmpVal to value of j
　　　　　　if tmpVal is not equal to missing value then
　　　　　　　　set tmpVal to trimWhiteSpaceFromHeadAndTail(tmpVal) of me
　　　　　　　　ignoring application responses
　　　　　　　　　　set value of j to tmpVal
　　　　　　　　end ignoring
　　　　　　end if
　　　　end repeat
　　end tell
end tell

on trimWhiteSpaceFromHeadAndTail(aStr as string)
　　set aString to NSString’s stringWithString:aStr
　　set bString to aString’s stringByTrimmingCharactersInSet:(NSCharacterSet’s whitespaceAndNewlineCharacterSet)
　　return bString as anything –as anything
end trimWhiteSpaceFromHeadAndTail

★Click Here to Open This Script　

AppleScriptの穴

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

タグ: 13.0savvy

新刊電子書籍「AppleScript基礎テクニック（33）選択中のオブジェクト取得」を刊行

目次

新刊電子書籍「AppleScript基礎テクニック（32）複数のアプリをコントロール」を刊行

目次

余白トリミング実験 v1

アプリのキーワード登録をチェック

（確認中）AppleScript Dropletのバグっぽい動作が解消？

最前面のKeynote書類で選択中のshapeを一番上のガイドオブジェクトの幅をもとに、残りを等分割

ステージマネージャのON_OFF

Pagesで選択中のテキストフレーム内のテキストを、指定記号の前まで太らせる

FileMaker Pro v21.1.1アップデート

全フォントのmostCompatibleStringEncodingを求めて集計

PostScript名で指定のフォントのTraitMaskを付与する_v3

全フォントから全traitsを調べる v2

指定フォントの指定Traitが存在するかをチェック

Keynoteで選択中のtext itemの冒頭のフォントを太くする v2

Keynoteで選択中のtext itemの冒頭のフォントを太くする

指定Bundle IDのアプリの各言語のローカライズ名称を取得して出力

マウントしたディスクイメージから元のdmgファイルのパスを取得

Numbersで選択範囲のセルの前後の空白を削除