Numbers書類上の現在のシートの指定の表を回転させるAppleScriptです。
画像のようにぐるぐる回すわけではなく、90度回転状態と通常状態を切り替えるようです。
▲初期状態
▲transpose１回実行
▲transpose２回実行
| AppleScript名：Numbersの表を回転 |
| tell application "Numbers" tell front document tell active sheet tell table 1 transpose end tell end tell end tell end tell |
Terminal.appで実行環境に登録されているすべてのTerminalのテーマのWindowを新規オープンするAppleScriptです。
実行環境のTerminal.appに登録されている「プロファイル」をリストアップし、各プロファイル（AppleScript用語辞書的には「settings set」）で新規Windowを作成します。
本プログラムは、Terminal.appの機能確認のためのものであって、これ自体に意味はありません。
| AppleScript名：TerminalですべてのテーマのWindowを新規作成する |
| — Created 2019-04-14 by Takaaki Naganoya — 2019 Piyomaru Software tell application "Terminal" set nList to name of every settings set repeat with i in nList set j to contents of i changeSettingAndMakeNewWindow(j) of me end repeat end tell on changeSettingAndMakeNewWindow(aTheme as string) tell application "Terminal" set tmpID to settings set aTheme set default settings to tmpID set startup settings to tmpID tell window 1 do script "" activate end tell end tell end changeSettingAndMakeNewWindow |
文字列で与えたAppleScriptを実行し、その実行結果をテキストで取得したうえにラベルと値に分割してNumbersの「表」に組み立てるAppleScriptです。
仕様書の作成とかテストデータの評価とかそういう仕事を行うさいに、プログラムコード（AppleScriptが出力するrecordとかlistとか）が読めない人向けに確認してもらうために作成したものです。
Numbersに出力すること自体にはさほど意味はありませんが（ExcelでもREST API経由でGoogle Spread Sheetに出力したっていいわけで）、とりあえずプログラムの結果出力になじみのない方々に計算結果を見ていただくためのものです。
AppleScriptの実行結果をスクリプトエディタではなくOSAScriptControllerなどから受け取る部品などが揃ってきたので、こういう加工も割とすぐにできていい感じです。
ちなみに、Numbersの表のセルに対して直接AppleScriptからデータを突っ込んでいますが、これはあらかじめ出力するデータ数が少ないことが見込まれているためです。多い場合（100件前後がひとつの基準に）には、CSVファイルに書き出してNumbersにオープンさせることになるでしょう。
例によって、Numbersの表セルに対してデータを突っ込むさいには非同期モードで実行して速度を稼いでいます。
| AppleScript名：ASの実行結果をNumbersの表に出力する |
| — Created 2019/04/05 by Takaaki Naganoya — 2019 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "OSAKit" use framework "AppKit" use bLus : script "BridgePlus" property NSString : a reference to current application’s NSString property NSThread : a reference to current application’s NSThread property OSAScript : a reference to current application’s OSAScript property NSTextView : a reference to current application’s NSTextView property OSAScriptView : a reference to current application’s OSAScriptView property OSAScriptController : a reference to current application’s OSAScriptController property SMSForder : a reference to current application’s SMSForder property theResult : "" –result set origStr to " tell application ＼"Numbers＼" tell front document properties end tell end tell " my performSelectorOnMainThread:"execASandReturnString:" withObject:origStr waitUntilDone:true set aStr to (my theResult) set aList to my getListFromText:aStr makeNewNumbersDocumentAndTable(length of aList, 2) of me fillCurrentTable(aList) of me –リストに入れたレコードを、指定の属性ラベルの値で抽出 on filterRecListByLabel(aRecList as list, aPredicate as string) –ListからNSArrayへの型変換 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 –NSArrayからListに型変換して返す set bList to filteredArray as list return bList end filterRecListByLabel –リストに入れたレコードを、指定の属性ラベルの値で抽出。値が別途指定のリストの中に存在していることが条件 on filterRecList:(aRecList as list) byLabel:(aPredicate as string) andSublist:(aSubList as list) –ListからNSArrayへの型変換 set aArray to current application’s NSArray’s arrayWithArray:aRecList set aSubArray to current application’s NSArray’s arrayWithArray:aSubList –抽出 set aPredicate to current application’s NSPredicate’s predicateWithFormat_(aPredicate, aSubArray) set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate –NSArrayからListに型変換して返す set bList to filteredArray as list return bList end filterRecList:byLabel:andSublist: –listの共通項を返す on getSameItemsInLists:(aList as list) withList:(bList as list) –ASオブジェクトをCocoaオブジェクトに変換 set aArray to current application’s NSArray’s arrayWithArray:aList set bArray to current application’s NSArray’s arrayWithArray:bList — まとめる 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) –重複部分だけを返す set resArray to duplicateSet’s allObjects() set resList to resArray as list return resList end getSameItemsInLists:withList: –スクリプトエディタのresult欄に返ってきたテキストをリストに変える on getListFromText:aText script getListFromTextO property aaText : "" property gList : {} property outList : {} property aG : "" property valList : {} end script copy aText to (aaText of getListFromTextO) set (gList of getListFromTextO) to {} set (outList of getListFromTextO) to {} set (aG of getListFromTextO) to "" set (valList of getListFromTextO) to {} if (aaText of getListFromTextO) does not start with "{" and (aaText of getListFromTextO) does not end with "}" then return {} end if set aLen to length of (aaText of getListFromTextO) set (aG of getListFromTextO) to text 2 thru -2 of (aaText of getListFromTextO) set (gList of getListFromTextO) to characters of (aG of getListFromTextO) set sPos to 2 –１文字目は＼"{＼"なので2文字目からスキャンを開始する set ePos to 2 set imdF to false –Immediate Data Flag（文字列中を示すダブルクォート内の場合にはtrueになる） set listF to 0 –stacking段数が入る set attrF to true –属性ラベルスキャン時にtrue、データ末尾スキャン時にfalse repeat with i in (gList of getListFromTextO) set j to contents of i if attrF = true and imdF = false and listF = 0 then –属性値部分の末尾検出 if j = ":" then if text sPos thru sPos of (aaText of getListFromTextO) = " " then set sPos to sPos + 1 end if set anOut to text sPos thru ePos of (aaText of getListFromTextO) set sPos to ePos + 1 set the end of (valList of getListFromTextO) to anOut set attrF to false –データのスキャンを開始する set imdF to false set listF to 0 end if else if imdF = false and listF = 0 and j = "," then –データ部分の末尾検出 set anOut to text sPos thru (ePos – 1) of (aaText of getListFromTextO) set sPos to ePos + 1 set the end of (valList of getListFromTextO) to anOut set the end of (outList of getListFromTextO) to (valList of getListFromTextO) set (valList of getListFromTextO) to {} set attrF to true –次が属性値ラベルであることを宣言 set imdF to false set listF to 0 else if j = "{" then if imdF = false then set listF to listF + 1 –１段スタックにpush end if else if j = "}" then if imdF = false then set listF to listF – 1 –１段スタックからpop end if else if j = "＼"" then if imdF = true then set imdF to false else set imdF to true end if end if set ePos to ePos + 1 end repeat –ラストのデータ部分を出力 try set the end of (valList of getListFromTextO) to text sPos thru (ePos – 1) of (aaText of getListFromTextO) set the end of (outList of getListFromTextO) to (valList of getListFromTextO) on error return false end try return contents of (outList of getListFromTextO) end getListFromText: on execASandReturnString:(srcStr as string) set targX to 500 –View Width set targY to 200 –View Height if srcStr = missing value or srcStr = "" then –Error display dialog "Error in reading script source…." buttons {"OK"} default button 1 with icon 1 return end if –Make AppleScript Controller & Script Editor View set osaCon to OSAScriptController’s alloc()’s init() set osaView to OSAScriptView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, targX, targY)) –Make Result View set resView to NSTextView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, targX, targY)) resView’s setRichText:true resView’s useAllLigatures:true –Connect OSAScriptController to Editor View & Result View osaCon’s setScriptView:osaView osaCon’s setResultView:resView –Set AppleScript Source to Editor View & Execute it osaView’s setString:srcStr osaCon’s runScript:(missing value) –Get AppleScript’s Result as string set aRes to resView’s |string|() as list of string or string –as anything set my theResult to aRes –Return the result as string end execASandReturnString: on fillCurrentTable(aList) set aLen to length of aList set aWidth to length of first item of aList tell application "Numbers" tell front document tell active sheet tell table 1 repeat with i from 1 to aLen tell row (i + 1) set aRowList to contents of item i of aList repeat with ii from 1 to aWidth tell cell ii set aTmpData to contents of item ii of aRowList ignoring application responses set value to aTmpData end ignoring end tell end repeat end tell end repeat end tell end tell end tell end tell end fillCurrentTable on makeNewNumbersDocumentAndTable(aHeight, aWidth) tell application "Numbers" make new document tell front document tell active sheet delete every table end tell end tell tell front document tell active sheet set tRes to make new table with properties {row count:aHeight, column count:aWidth} return tRes end tell end tell end tell end makeNewNumbersDocumentAndTable |
「AppleScriptの穴」Blogアーカイブ本の作成作業には、大量のAppleScriptが使用されています。編集や執筆といった地味で地道な作業には、自動化のテクノロジーを投下しないととてもやっていられません。
「生きた事例」としてそれらをどのように使っているかをご紹介します。
・指定フォルダ以下にあるMDとPagesをソートしてPDFに書き出して連結 v4（連続複数出力可能、末尾空白ページ削除）
MarkdownによるPDF書籍の作成時にはなくてはならないScriptです。指定フォルダ以下のMarkdownとPages書類をすべてSpotlightで取得し、順次デスクトップにPDFで書き出しを行い、それらを連結します。PDFは記事単位で生成され、明示的な空白ページ（１ページの空白書類）以外の連結時には最終ページが空白であるかのチェックを行い、空白時には削除したうえで連結します。
「連続複数出力可能」というのは、複数の書籍の順次出力をサポートしているという意味です。Book1こと「AppleScript最新リファレンス」とBook2こと「最新事情がわかるAppleScript 10大最新技術」を同時に作成したので（作成期間が実質１か月ちょっとでしぬかと思いました）、その時に両方とも同時に全記事のPDF出力を行えるよう開発。複数の書籍のフォルダを指定して順次出力を行います。さすがにこれはBlogに載せていません。
電子書籍の執筆中は執筆しながら体裁を確認し、出力用のツールScriptも開発して「筆者」「編集者」「デザイナー」「開発者」という１人で何役もこなして目が回っていましたが、ツール類は一度作れば作業効率を大幅に上げたまま別の仕事（Blogアーカイブ本、とか）に使用できるのでたいへんに役立っています。自分が「原稿を書くだけの人」だったら、バイトを雇ったりしないととてもやっていられません。
また、これにInDesignの書類やPDF原稿を含めるように機能追加してもいいわけで、非常に拡張しやすく、システム化のためのベースとして活用したいところです。
・Skimのcurrent page indexをNumbers上のセルに転送してカーソル移動
PDFのTOCのデータをNumbers書類上に作成するさいに使用しています。Skimで現在表示中のページ番号をNumbersの表中の選択中のセルに文字列で転送し、Numbers上のカーソルを下方向に１つ移動させます。いいかげんTOCのデータ作成も全自動化したいところですが、PDF上で確認しつつ半自動で作成しています。それでも、すべて手作業で行うよりははるかに労力を削減できています。
・Numbersの最前面の書類からデータを取り出して指定PDFのTOCを作成する v2.scptd
Numbers上に作成したTOC（PDFしおり）データから実際に指定のPDFに階層構造つきTOCを作成するAppleScriptです。「TOCなしの数百ページのPDFなんか読みたくない」「TOCつけろ」という読者の方のありがたいアドバイスにより実戦投入。いまのバージョンはNumbersの表中の選択中のセルからデータを取得しているので、選択しなくても大丈夫なように、、、、書き換えておきます。こうして、作業上問題が発生しそうな箇所はつねにアップデートしています。
・現在表示中のページをJPEG画像で書き出す
Skim用のAppleScriptです。販売サイトに掲載する表紙などの紹介画像を作成するさいに、Skimで表示中のPDFから表示中のページの内容をJPEG画像としてデスクトップに生成します。このあたりを自動化していないと、サンプルページの掲載だけでも相当手間がかかります。
・PDFから指定ページ以降を削除
販売物を掲載したあとに、「お試し版」PDFを作成する段階で使用します。指定PDFから指定ページ以降をすべて削除するものです。これでおおよそ削除しておいてから、Adobe Acrobatで編集してTOCのうちページが存在しないものを削除したり、こまかいページの削除を行なっています。
知り合いの本Blog愛読者の方々から「アーカイブ本まだ？」と言っていただいて幾星霜。ちょっと手が空いてしまったので、Blogアーカイブ本に着手しました。ここに、Blogアーカイブ本のVol.4（2011〜2012年）の発売をお知らせいたします。
本Blog「AppleScriptの穴」は、開設10年目を迎える直前の2018年１月末に、格安ホスティングサービス「Xserver」との間の手違いでDBがシャットダウンされ、そのままの形で公開し続けることができなくなってしまいました。
そこで、AppleScriptのプログラムによるFinder上のAppleScriptの自動HTML化、AppleScriptによるXML-RPC経由でのWordPressへの自動記事投入といったさまざまなソリューションを投下して、現在の登録記事数に復旧。自動記事投入による復旧を行なったために、当時の作業環境でオープンできない（OSバージョン依存、アプリケーション依存）Scriptについては掲載を見送っています。
旧AppleScriptの穴：2008〜2018年 Mac OS X 10.4〜10.5の時代に開設
現AppleScriptの穴：2018年〜 Cocoa APIを呼びまくる現在のスタイルが定着
自動投入可能なコンテンツを優先して掲載したため、旧Blogと現Blogでは掲載内容が大幅に変わっています。別物といってよいでしょう。
そのため、Cocoa APIを使用しない「オールドスタイルのAppleScript」については再掲載が難しく、このBlogアーカイブ本シリーズにしか情報をまとめていません。
旧Blogアーカイブ本シリーズも、１年ごとに区切って記事をPDF化して４冊目。この頃の記事投稿数が少なかったので、Vol.4は2011年1〜2012年12月の２年分の内容をまとめています。全450ページ、2,000円。ファイル形式はPDFで、キーワードによる全文検索や印刷が行えます。
また、OS X 10.8のAppleScriptに巨大なバグが存在しているため、巻頭にてその内容や回避策についての解説を行なっています。
もちろん、各プログラムリスト末尾にURLリンクをそなえ、ワンクリックでプログラム内容をスクリプトエディタに転送可能です。
ほとんどの掲載プログラムについてコメントを行い、現時点（2019年時点）で評価してどうか、ということを追記しています。
リスト同士のdiffをとる
日本の月呼称を返す
指定の月を１月分リスト化
指定日がその月の中で何週目かを求める
指定日がその月の中で何週目かを求めて、週リストを取得する
与えられたリストに、値がヌルの要素が入っているか判定し、フラグ、ブランク開始終了位置を返す v2
iCalで選択中のイベントのカレンダー情報を取得する
画面の解像度を取得するv3
画面の解像度を取得するv4
シェルソートでリストをソート
Numbersでtableの縦サイズをふやす
リストで与えられたデータの変動ベクトル方向を取得する
Photoshopでオープンしている画像から、選択部分のサイズをもとに画像分割を行う
フォルダ内の画像ファイルを順次Numbersのセルに貼り付ける
２行に別れているデータを１行分にまとめる
指定年のすべての日付をdateオブジェクトで取得する
指定のテキストをAppleScriptとしてコンパイルし、実行可能なアプレットとして出力する
サウンド入力元、出力先の名称をリストで取得する
サウンド入力元、出力先を設定する
サウンド入出力の選択中の項目名を取得
InDesign CS3でBookを作成するテスト
Mail.appでメールの送信（プレーンテキストへの変換つき）
分布リスト作成 v1
入れ子のリストをタブ区切りのテキストに
コードのチェック
数値リストを連続部分に分解する（アイテム番号を返す）
数値リストを連続部分に分解する（データを返す）
AppleScriptによる並列処理 v2
AppleScriptによる並列処理 v2〜実際に使ってみての評価
スリープ復帰日時を設定する
ファイルのファイル名を求める
AppleScriptによる並列処理v3a
QuickTimeムービーの縦横ドット数を取得する
iTunes 10.3β AppleScript用語辞書に変更なし
リスト中の値が連続する箇所をアイテム番号のリストで返す
FileMaker Proで書き出したTab区切りテキストファイルをExcelで読み込む
リスト中の値が連続する箇所をアイテム番号のリストで返す v2
Keynoteの各slideのtitleで、同じものが続く箇所に連番を振り直す
指定のデジカメ画像のExif情報から指定のプロパティを取得する
SIGMA Raw画像からメーカーと機種名を取り出す v2
子番号を考慮しつつ、新しいファイル名を返す
文字列末尾からスペースを削る
指定アイテム以降は指定アイテム目に改行で区切って連結する
指定矩形内に含まれるデータをアイテム番号で返す
数字の文字が入っているかどうかをテストする
文字列の先頭と末尾に指定文字が存在した場合にはトリミングして返す
Photoshopで指定座標のカラー値をRGB値で返す
Safari 5.1でWeb検索
OS X 10.7, Lionへの移行について
リスト同士の引き算、足し算
印刷可能なプリンタ一覧から選択してプリント実行 10.4〜10.7
1〜指定数までの乱数を返す、ただし別途指定の数（aException）を除く
指定フォルダ内のPDFの１ページ目のみ取り出して別フォルダに保存 v2
TextWranglerで連続置換を指定フォルダ内のhtmlファイルに対してすべて実行
Mail.appで添付ファイルを指定してメール送信
文字列中に指定文字が何個入っているかカウントする v2
Safari 5.1.1、iPhoto 9.2が登場。AppleScript用語辞書に変更なし
指定アプリの指定タグの文字列をアプリ内のLocalizableStringsから取得する
指定アプリの指定タグの文字列をアプリ内のLocalizableStringsから取得する v3
投稿も受け付けています
Excel 2011で表示中のワークブック内のすべてのシートの表示状態を変更する v2
XcodeのAppleScript用語辞書の変遷
Xcode 4.2.1、iTunes 10.5.1登場。AS用語辞書に変更なし
OmniGraffleで指定書類からURLつきの画像の情報を集める
OmniGraffleで指定文字を名前に含むドキュメントをオープンしているかチェック
指定名称のOmniGraffle書類中に、urlListで示した名称のCanvasが存在するかを取得する
指定名称のOmniGraffle書類中に、urlListで示した名称のCanvasが存在するかを取得する v2
与えられたリスト中のfalseの項目番号をリストで返す
OmniGraffleで指定ドキュメントのWindowを求める v2
OmniGraffleで表示中のCanvasを切り替えてループし、各Canvasの表示倍率を取得する
OmniGraffleで表示中のCanvasを切り替えてループし、各Canvasの表示倍率を設定する
OmniGraffleでcanvas名一覧を取得する
OmniGraffleで画面設計図のCanvas名称をクリーニングする
OmniGraffleで指定名称の書類の現在表示中のCanvas上から、URLつきの画像（Solid）の情報を集める
OmniGraffleで選択中のグラフィックのサイズを50％にする
Safari 5.1.2、AppleScript用語辞書に変更なし
OmniGraffleで各ページに用意したtitleから、目次を作成する
リストから指定のアイテムを削除する（１項目）
Canvasの大きさを取得（Pointで返る）
リンクつき目次を作成する v1
現在表示中のCanvasに存在しているラインのうち青いものに影を付ける
通常版のOmniGraffleでProfessional版でしか作れない「表」を作る
最前面のドキュメントの全Canvas上のグラフィックがそれぞれグループ化されていないかチェック。されていなければグループ化
Numbersで選択中のデータをもとにOmniGraffleの選択中のグラフィックのサイズで表作成
「A x B = C」の数の組み合わせを求める
「YxX」の形式の文字列を、{Y,X}のように数字のリストにして返す
miで選択中の内容をファイルに書き出してperlのプログラムとしてterminalで実行
与えられたテキストをPhotoshopでRGBデータと評価してCMYK値を返す
ファイル選択ダイアログを表示して、パスを取得する（Perl中へのAppleScript埋め込み）
AppleScriptObjCのメモリー浪費現象を解決？！
近似式によるRGB→CMYK/CMYK→RGB変換
PhotoshopでRGB→CMYK、CMYK→RGB変換
Excel 2011で現在オープン中の書類の選択中のシートをCSV書き出し
Mac App Store公開アプリのSandbox対応義務化 期限が6/1に延期
Excel 2011ですべてのタブのデータを取得して１つにまとめる v3
自然言語による相対日付指定v13
AppleScriptで正規表現（regexp）を
tellブロックの書き方いろいろ
Excel 2011で現在表示中のウィンドウのすべてのタブのズーム倍率を変更する
curlでダウンロードv2
100倍速いシェルソートでリストをソート
Excelの表中のデータを拾ってセルに色を付ける
InDesign CS3で指定のオプジェクトを、JPEG書き出ししてiPhoneへ
NSTextViewからのテキストデータ取得、テキスト設定サンプル
インストールされているアプリのAS辞書を書き出すv2
AppleScriptレコードのラベルのリストを作成
iPhoto, iTunes, Safariアップデートについて
QuickTime 7で録画して任意のファイル名で保存
Microsoft Office v2011 14.2.1アップデートで辞書に変更なし
ASObjC Runner〜ASOCの機能にAppleScript的な記法を
指定文字列から、指定ペア文字で囲まれる部分を削除。前方からスキャンして削除実行
offset ofの高速実行
指定ハードウェアポートのデバイス名を取得する v1.1
無線LANの電源のONOFF
無線LANネットワークを指定して接続する
簡易マクロ展開つきのコードチェック v1
日本語数値表現エンコードされた数値のparseテスト v2
EPSファイルの破損チェック（高速版）
インターネットのサービスを利用して日本国内の天気予報を取得する
WWDC2012のビデオが公開に
任意の桁数の２進数文字列を10進数に戻す
16進数文字列を10進数数値に変換する
HTMLコードのRGB 16進数コードを数値リストに変換
Numbersで指定範囲を高速に埋める
TidBitsがMountain Lion上のAppleScriptのルール変更について解説
iPhoneアプリをAppleScriptからコントロール
指定フォルダ内のPDFの空白ページ以外を個別に取り出して別フォルダに保存 v3
通知センター経由でTwitter投稿（10.8用）v2
Mail 4.0->6.0の移行でAppleScript関連機能の変更が発生
Skimでオープン中のPDFの現在のページの内容をOmniGraffleにペースト
OS X v10.8.2 追加アップデート 1.0がMail.appのAppleScript系のバグを修正
FTPソフトウェア「Transmit」の基礎的なスクリプティング(1)
Safari 6で指定のURLをオープンする
Transmitで指定のファイルを指定のお気に入りサーバーにアップロード
PhotoshopでJavaScript経由でEPS/PDFをオープン
指定フォルダが共有されているかチェック
Keynote、Pages、NumbersのいわゆるiWorkアプリケーションがそろってアップデートし、日本語、中国語、韓国語の縦書きテキストに対応しました。
| Keynote | Pages | Numbers | |
|---|---|---|---|
| macOS 10.12 | v8.1 | v7.1 | v5.1 |
| macOS 10.13 | v9.0 | v8.0 | v6.0 |
| macOS 10.14 | v9.0 | v8.0 | v6.0 |
この、macOS 10.14用のバージョンが今回の最新アップデートです。最新のiWorkアプリケーションは最新のmacOSが必要です（記事執筆時にはmacOS 10.13用のアップデータが出ていなかったのでこう書きました。現在は10.13/10.14で実行可能）。
iWorkアプリケーション、とくにPagesについては日本語の縦書きができないことに対してMac App Store上で膨大な批判コメントがついており、アップデートとともにこれらの批判をかわそうという意図のようです（かわすだけで、もう一歩進んだ使い方の提案などはしていないもよう）。
macOS 10.12で足踏みをしている多くのユーザー（10.13が地雷すぎてアップデートできなかったユーザー）にアップデートを思い切らせるだけのものがあるでしょうか？
例によってこれらのiWorkアプリケーションのAppleScript用語辞書を書き出して前バージョンと比較したところ、数少ないものの大きな変更が加わっていることがわかりました。それが「selection」の実装です。
「選択中のオブジェクトに対してScriptで操作を行う」
という処理がほぼできなかったiWorkアプリケーションにおいて、selectionが実装されたことの意味は大きいと思います。
ただし、本当にすべてのオブジェクトをselectionで取得できるのか、実際に検証するまでわかりません（それがAppleクオリティー）。
検証したところ、KeynoteとNumbersではほとんど機能アップしておらず、既存の「選択中のスライド」（current slide）「現在のドキュメント」（front document）という範囲でしかselectionが機能していないことが判明しました（Numbersで「選択中の表」をselectionから取得できないのはとても残念。別の方法（↓）はあるけど）。
tell application "Numbers"
tell front document
tell active sheet
set theTable to first table whose class of selection range is range
tell theTable
try
set selList to value of every cell of selection range –選択範囲のデータを取得
on error
return "" –何も選択されてなかった場合
end try
end tell
end tell
end tell
end tell
★Click Here to Open This Script
唯一、Pagesではさまざまな選択中のオブジェクトにアクセスできるようになっており、常識的なエンジニアが担当していれば、じきに各アプリケーション間の機能の不整合を修正してくることでしょう。
今回のアップデートが、Pagesを中心に行われた（Pagesと共通の部品を使って、ついでにオマケでKeynoteとNumbersの機能アップが行われた）ことが伺い知れます。
まだ実装途上と思わせるものが、このあたりにあります。書類内のさまざまなオブジェクトによって、状態によってはselectionから（実際に選択していても）参照できないものがありました。とくに、Pages書類上の本文テキストをselectionから取得できないことについては、「テキストエディタ以下」「CotEditorの爪の垢でも煎じて飲ませてもらえ」ともいえるわけで、最大のがっかりポイントといえます。
| オブジェクト配置＝テキストと移動（デフォルト） | オブジェクト配置＝移動しない | |
|---|---|---|
| 本文中の文字 | selectionから取得できない（エラーになる） | selectionから取得できない（エラーになる） |
| 表（table） | selectionから取得できない（エラーになる） | 取得できる |
| 図形（shape） | 取得できる | 取得できる |
| グラフ（chart） | 取得できる | 取得できる |
| 画像（image） | 取得できる | 取得できる |
| テキストオブジェクト（shape） | 取得できる | 取得できる |
| ムービー（movie） | 取得できる | 取得できる |
| ライン（line） | 取得できる | 取得できる |
また、imageオブジェクトはファイルパスを「file」という属性ラベルで返してくることになっているのですが、この「file」が既存のAppleScriptの予約語とコンフリクトしており、属性値をまとめて取得しようとするとエラーになります。
imageオブジェクトからfile属性を単独で取得してもエラーになるため、Scripterからは解決方法がありません。ここは予約語を「image path」などのコンフリクトしない単語ないし連語に変更することで問題の回避を行なっていただきたいものです。
現時点では、AppleScriptでアクセス可能な属性値に縦書きへの変更を行うためのものは用意されていません。縦書きのテキストオブジェクトを任意の場所に作成するといった処理は無理です。
しいていえば、あらかじめ縦書きのテキストアイテム（place holder）を含むテンプレート書類を用意しておき、テンプレートから作成した新規書類のplace holderにテキストを流し込むぐらいでしょうか。あと、GUI Scriptingで強引に操作すれば、縦書きのテキストアイテムを生成できないこともありません。
最初、用語辞書の中に「selection」をみつけたときにはメイン環境をmacOS 10.12.6から10.14.4にアップデートしかけました。
ただ、詳細に検証して実態がわかると、アップデートを思いとどまりました。「selection」が利用できることの意義は大きいですが、Pagesの地の文（本文）の選択範囲が取得できないなど、何を目的として実装されたかが不明な仕上がりになっています。最終的には、本文テキストないしオブジェクト内部テキストの選択を取得するselectionと、各オブジェクトの選択を求めるselected itemの２つに分けるのがスマートなやり方だと思います（実装する方にしてみれば、泥臭い努力が必要なわけですが）。
Pagesのtableオブジェクトへのアクセスに「オブジェクト配置＝移動しない」への設定が要求されることについては、かなり根深い問題があるものと思われますが、もう２・３発ジャブが入っていたら（Keynote上のテキストオブジェクトとか、Numbers上の表オブジェクトをselectionからアクセスできたとか）macOS 10.14にアップデートしていたかもしれません。
Safari上で表示中のYouTubeのムービーの再生状態を取得、再生/停止のトグル動作を行うなどのAppleScriptです。
macOS標準搭載のスクリプトメニューに入れて呼び出しています。
| AppleScript名：Safariの最前面のウィンドウで再生中のYouTubeムービーの状態を取得する |
| –Get YouTube Movie status tell application "Safari" tell front document set aRes to (do JavaScript "document.querySelector(’#movie_player video’).paused;") end tell end tell |
| AppleScript名：Safariの最前面のウィンドウで再生中のYouTubeムービーを再生_停止をトグル切り替え |
| –Toggle Youtube play/pause tell application "Safari" tell front document set aRes to (do JavaScript "document.querySelector(’#movie_player .ytp-play-button’).click();") end tell end tell |
| AppleScript名：Safariの最前面のウィンドウでオープン中のYouTubeムービーを再生 |
| tell application "Safari" tell front document set aURL to URL –最前面のウィンドウがYouTubeの場合のみ処理 if aURL begins with "https://www.youtube.com/" then set aRes to (do JavaScript "document.querySelector(’#movie_player video’).paused;") if aRes = true then –停止中（一時停止中）の場合のみ再生操作 (do JavaScript "document.querySelector(’#movie_player .ytp-play-button’).click();") end if end if end tell end tell |
| AppleScript名：Safariの最前面のウィンドウでオープン中の YouTubeムービーの再生フレームの冒頭からの時間を取得 |
| tell application "Safari" tell front document set aURL to URL –最前面のウィンドウがYouTubeの場合のみ処理 if aURL begins with "https://www.youtube.com/" then set tRes to (do JavaScript "document.querySelector(’#movie_player video’).getCurrentTime();") end if end tell end tell |
| AppleScript名：Safariの最前面のウィンドウでオープン中のYouTubeムービーの再生ポジションを変更 |
| tell application "Safari" tell front document set aURL to URL –最前面のウィンドウがYouTubeの場合のみ処理 if aURL begins with "https://www.youtube.com/" then set tRes to (do JavaScript "document.querySelector(’#movie_player video’).currentTime =300;") end if end tell end tell |
| AppleScript名：Safariの最前面のウィンドウでオープン中のYouTubeムービーのdurationを取得 |
| tell application "Safari" tell front document set aURL to URL –最前面のウィンドウがYouTubeの場合のみ処理 if aURL begins with "https://www.youtube.com/" then set tRes to (do JavaScript "document.querySelector(’#movie_player video’).duration;") end if end tell end tell |
自分は100個以上のApple MLを購読。さすがに政府公共機関向けと学校教育機関向けMLは追い出されましたが、入れるかぎりのMLに入っておいて、手元（Mail.app上）でAppleScriptのボットを走らせメールタイトルをもとに綿密なフォルダ分けを行なって、各ML上の頻出語句でフォルダ分けして情報を整理・活用しておりました。
そんな最中、2017年1月末に発生したML Serverのダウン。その後１か月もの間、US Appleにあらゆる方法でコンタクトして無視されるという経験を経て、US在住のMLメンバーが知り合いのApple社員に電話し、それでようやく復旧したことは記憶に新しいところです。
ここに、数日前に掲載した、list.apple.com上の「Lists hosted on this site」のML一覧の画像があります。25個のMailing Listが掲載されていることが確認できます（記事作成時点のカウント）。
しかし、自分の手元には、このリストに載っていないMLあてのメールが続々と到着。
「あれ？ list server上で加入フォームへのリンクが設置されていない、活動中のMailing Listがけっこうある？？」
と、気がついて、、、Numbers上に記載したメールアドレスを読み取ってテストメールを送信するAppleScriptを作成して、ジャンルごとにMailing Listにテストメールを送信してみました。
手で数えたところ、「Lists hosted on this site」のページからリンクされていないが、物理的に生きているMLが35もありました。内容によっては極端に流量が少なかったり、すでに廃止されて久しい技術のために論理的に生きていないMLなどもありますが、それでも30前後は普通に運用されているMLと言ってよいでしょう。
以下、自分の個人的なカテゴリ分けのもと、「紹介されていないが生きている」MLは名称を赤く塗っておきました。
個別のMLを正式に終了させる場合には、きちんとアナウンスしてほしいところです。
追記：SALT MLとSmartCard Users MLがテスト対象のリストからもれていましたが、いずれも健在のようです。
macOS 10.14.4Betaを使っていて遭遇したトラブルというかバグのような挙動なのですが、「システム環境設定」の「セキュリティーとプライバシー」＞「プライバシー」＞「アクセシビリティ」の項目。これは、Scripterにはおなじみの「GUI Scriptingの許可」を行う設定項目です。
ここに、同一名称で異なるバージョン（バージョン番号の大きいもの＝新バージョン）のアプリケーションが登録されない、という不具合です。
たとえば、v1.0のappletを登録しておいて、v2.0のappletを登録しようとしても、すでにv1.0が登録されているので追加登録できないし、いったん登録したものを削除できなかったという状況でした。
macOS 10.10あたりでこの項目で不可解な挙動が見られたことがありましたが、それが復活したような不安定さを感じます。ただ、テスト機はHDDで運用しているため、設定項目の変更がなかなか反映されないといった独特の挙動が発生することもあり、継続調査は必要だと感じています。まだ、他のユーザーの環境でも同様の問題が発生するか裏取りができていない状況ではあります。
ただ、Betaの最中に突然発症したので、作成途中のプログラムは10.14対応を見合わせる必要が出てきました。
本BlogにアクセスしているクライアントのOSバージョンについてlogから調査してみたところ、（自分のメイン環境が10.12ということもありますが）10.12が最多。10.9から10.12にほぼ同じぐらいのクライアントが存在しているもようです。鬼っ子10.13や鬼っ子改の10.14については、logに形跡が残っていない（Unknown Version？）としか言いようがありません。10.14は多い可能性もあります。
AppleはmacOS 10.13でバギーなまま使い物にならない状態のOSをリリースしたという「前科」があり、10.14もその延長線上にあるということから、つねに疑問を持って接しています。
▲2019.1の本Blogにアクセスしてきたクライアントのうち、Mac OS Xのバージョン別構成比
AppleScript関連の情報源については、US Appleの主催しているAppleScript Users MLが圧倒的に活発だったのですが、2017年１月31日「血の火曜日事件」とのちに呼ばれる（嘘）MLサーバーのクラッシュが発生。
このサーバーダウンに際してAppleに対しさまざまなチャネル経由で「MLサーバーが落ちてるぞ！」と知らせたものの、縦割り管理が行きすぎてトラブルへの対応がめちゃめちゃ後手後手なApple。まったくMLサーバーの障害について対応しませんでした（Developper Support経由でアクセスしても対応がないのはどうかと思います）。
CEOに直接メールしてもダメ、Developper Supportにメールや電話してもダメ。MLの管理者にメールしろとか言われましたが、落ちているサーバー上にアカウントがある管理者にメールして、何の意味があるというのでしょう。
結局、この１か月間の空白によりMailing Listから多くのユーザーが離れ、MLが復旧したことを１年間知らなかったユーザーがいたほどです。
「人の煩悩の数ほど存在している」と言われていたApple MLですが、開発者サポートについてはWebフォーラムに移行しつつありました。これは、従業員が仕事中にMLに質問を投げたり回答することをTopが嫌ったとも、Apple Developper Program外のメンバーに対してApple従業員がコメントすることのコストをTopが嫌ったとも噂されていますが、正確なところはよくわかりません。
Mailing Listでないと自動処理ロボットで情報収集をしにくいし、Webフォーラムはサーバーの応答性によって閲覧に時間がかかるのでとてもとても勘弁してほしいのですが、最近はフォーラムが多いようです。
Shaneが（４）と（５）にコメントをするようになって、それにしたがって（１）から人が減ったように思います。現状、あんまり活性度は高くありません。
（１）がコケたときに危機感を抱いた有志が立ち上げたML群です。AppleScript系ではあんまり活性度は高くありません。
正直、使い勝手がいまひとつで、質問しても答えてもらえそうな気配がまったくしません。ここにはScripterはまったくいません。Appleの従業員が質問に答えてくれるようですが、そんなもんに一切期待していないので用はありません。
Xcode関連のScript（Xcode上でGUIアプリを記述するAppleScript）だとここで調べ物をしています。2018/9に管理者が交代になってLate Light Softwareが（Mark AlldrittとShane Stanleyが）運営、コメントするようになりました。
2016年ごろに刷新されたWeb Forumです。割と活発に稼働していますが、基本的に「メーカーへの質問」とか「ユーザーサポート」の性質が強いので、書き込みしにくい印象があります（個人の印象です）。
これらのほかに、Twitterで「AppleScript」をキーワードに検索巡回を行い、間違った内容を吹聴しているユーザーに対して「これはこうだよー」とBotのようにコメントをつけています。ただ、TwitterのMac版クライアントがなくなって使い勝手が著しく悪くなったので、先行き不透明です。
ちなみに、本Blogにもフォーラムを作っておきましたが、なぜか私の独演会状態になっています。
エラーをプログラムで発生させ、macOS 10.14で新設されたエラーコード-1743のエラーメッセージを確認するAppleScriptです。
Mojaveの「オートメーション」項目未登録アプリケーションがAppleEventを他のアプリケーションに送信した場合に発生するエラー-1743。
2019-01-15 99:99:99.999999+0900 1014test[13673:1813575] *** -[AppDelegate applicationWillFinishLaunching:]: Not authorized to send Apple events to Keynote. (error -1743)
macOS 10.14以降でのみ発生するエラーであり、それ以前のバージョンのmacOSでは発生しません。
以前作った、エラーコード表をプログラムから自動で生成するAppleScriptにこの-1743のエラーを発生させ、そのエラーメッセージ内容を取得してみました。
エラー-1743のエラーメッセージのうち、「current application」の部分には任意のアプリケーション名が入るようです。
| AppleScript名：error_generator |
| — – Created by: Takaaki Naganoya – Created on: 2019/01/16 — – Copyright © 2019 Piyomaru Software, All Rights Reserved — use AppleScript version "2.7" — Mojave (10.14) or later use framework "Foundation" use scripting additions set erList to {"-1743"} set mesList to {} repeat with i in erList set j to contents of i set {aNum, aMes} to errorGenerator(j) of me set the end of mesList to {aNum, aMes} end repeat mesList –> {{-1743, "current applicationにApple Eventsを送信する権限がありません。"}} on errorGenerator(aNum as number) set handlerName to "errorGenerator" try error number aNum on error errMsg number ErrNbr partial result partialResult from from_ to to_ return {ErrNbr, errMsg} end try end errorGenerator |
Adobe Illustratorで指定のartboardの名称を取得するAppleScriptです。
本来であれば、Illustratorのdocument以下のartboardの名称を取得するのであれば、
tell application "Adobe Illustrator"
set aName to name of artboard 1 of document 1
end tell
★Click Here to Open This Script
で取得できる「はず」ですが、実際にAdobe Illustratorに対してこれを実行するとエラーになります（Adobe Illustrator CC2018＝Adobe Illustrator v22.1にて実行）。
これは、Adobeがいいかげんな実装を行って、出荷前に一切のチェックを行わないためです。100％ Adobeのせいです。
ちなみに、このproperty値からnameをIllustratorへのtellブロック外で取得すると、
のようになります。エラーメッセージの文字列としては取得できることがわかります。エラーメッセージのダイアログではAdobe IllustratorのAppleScript用語辞書の予約語を用いて表示が行われていますが、実際にエラーメッセージを（Adobe Illustratorのtellブロック外で）文字列として取得すると、用語辞書が用いられないので生のAppleEventの文字列を相手にすることになります。
というわけで、手段をえらばずにエラーメッセージから名前を取り出してみました。任意のアートボードのプロパティ値を取得してgetArtboardNameFromPropertiesを呼び出すと、アートボード名を抽出します。なお、動作原理の都合上、アートボード名にダブルクォートを含まないようにしてください。
こんなイレギュラーでトリッキーなやり方が必要なのは、Adobeの開発者がバカだからです（本当に）。心の底から軽蔑します（artboardのnameを取得する場合には、部分的にJavaScriptを呼び出して実行してもOK、というかその方法が推奨されます）。
| AppleScript名：アートボードの名前を取得する |
| — – Created by: Takaaki Naganoya – Created on: 2019/01/11 — – Copyright © 2019 Piyomaru Software, All Rights Reserved — use AppleScript version "2.4" — Yosemite (10.10) or later use framework "Foundation" use scripting additions tell application "Adobe Illustrator" tell document 1 tell artboard 1 set aProp to properties set aName to getArtboardNameFromProperties(aProp) of me end tell end tell end tell on getArtboardNameFromProperties(aProp) set beginStr to "«class bAl9»:＼"" try set aRec to aProp as string on error erM set offsetA to offset of beginStr in erM set ermB to text (offsetA + (length of beginStr)) thru -1 of erM set offsetB to offset of "＼"" in ermB set resB to text 1 thru (offsetB – 1) of ermB return resB end try error "Illigal Data Format" –Error end getArtboardNameFromProperties |
AppleScriptにClosureがない云々という話を見かけることがあります。JavaScript系の人が言っているのをよく見かけます。
ハンドラ内にさらに入れ子状にハンドラを宣言してプライベートなハンドラとして利用するのがclosureである、という説明を見かけました。
そういうものであれば、明確に存在します。Script文で記述するScript Objectです。
ハンドラ内に記述したScript文でScript Objectの宣言を行い、ハンドラ内でプライベートなサブハンドラを列挙することもできますし、外部に記述して論理分割することもできます。
実際に、巨大なScript同士を（何も考えずに）つないで使うような場合に重宝しています。
プライベートなハンドラをハンドラ内に入れ子状に作成したScript（本サンプルScriptのようなもの）については、たしかにinnerFunc1やinnerFunc2はメイン側（一番外側）からは直接呼び出すことはできないので、プライベートな関数のような扱いを行えます。便利かもしれないし、それほどでもない感じもします。
このあたりは個人の「趣味」の世界なので、そういう構造にしたい人はすればいいし、したくない人はしなければよいのではないでしょうか。
| AppleScript名：closure1 |
| set a to mainHander("ABC") of me –> "ABCABC….ABCABC" on mainHander(aParameter) script aClosure on innerFunc1(aParameter) set a to aParameter & aParameter return a end innerFunc1 on innerFunc2(aParameter) set a to aParameter & "…." & aParameter return a end innerFunc2 end script set a to innerFunc1(aParameter) of aClosure set b to innerFunc2(a) of aClosure return b end mainHander |
Cocoaの機能を利用するAppleScriptObjCの宣言を行った場合でも、同様にハンドラ内のScript Object内にさらにプライベートハンドラを記述する記法はコンパイル（＝構文確認）を通るようです。
| AppleScript名：closure2 |
| — – Created by: Takaaki Naganoya – Created on: 2019/01/04 — – Copyright © 2019 Piyomaru Software, All Rights Reserved — use AppleScript version "2.4" — Yosemite (10.10) or later use framework "Foundation" use scripting additions set a to mainHander("ABC") of me –> "ABCABC….ABCABC" on mainHander(aParameter) script aClosure on innerFunc1(aParameter) set a to aParameter & aParameter return a end innerFunc1 on innerFunc2(aParameter) set a to aParameter & "…." & aParameter return a end innerFunc2 end script set a to innerFunc1(aParameter) of aClosure set b to innerFunc2(a) of aClosure return b end mainHander |
本Blogには基礎的で再利用性の高いAppleScriptを掲載しています。高度で見ただけで腰を抜かすような高度なものは掲載していません。逆にいえば、そういう「高度で奇抜なもの」も一般的で簡単なScriptの組み合わせで作られている、ということです。
2018年を振り返ると、Blogの再構築のために過去掲載の記事から新しめのものだけを再掲載。途中から新規作成分を掲載しています。
消滅したBlogの再構築をゼロから開始。Blog投稿用のAppleScriptを作成してローカルのAppleScriptをHTML化してXML-RPC経由でWordPressに主要なAppleScriptをアップロード。この「Finder上で選択しておいたScriptをHTML化してWordPressにアップロード」するというAppleScript（というか、その部品）を用意できていなければ、こんなに早期に復旧することはなかったでしょう。
・(GET)駅すぱあとAPIで駅コードから駅名称を取得
ヴァル研究所の「駅すぱあとAPI」が公開されているのを見つけ、実際に呼び出してみました。ただ、このAPIの呼び出しが必要な開発案件にまだ出くわしていないので、本気で使い込んではいません。REST APIは全般的に「仕様的に呼び出せるものは呼び出せる」「呼び出すことが目的ではなく、それをどのように活用するかが目標」です。Google翻訳だろうがDropboxだろうが、REST APIをAppleScriptから呼び出せるというのは「当然のこと」なので、あえてBlogに掲載する意義もそれほど感じませんが、、、、
・指定PDFの全ページからリンクアノテーションのURLを取得してURLを書きかえる
PDFのリンク書き換えScriptは、えほんシリーズ（Keynoteで作成）のPDFにScript Linkを埋め込むために試作したScript群の一部です。結局、Keynoteバージョン8.2か8.3あたりでKeynote書類にカスタムURLプロトコルのリンクを埋め込めるようになったため、自力で対応しなくても大丈夫になりましたけれども。
・AppleScriptの構文色分けカラーフォーマットをplistから読み込む
これは、Cocoaの機能を使わずに構文色分けフォーマットの判定を行っていた従来バージョンのルーチン（電子書籍のオマケ「Piyomaru Script Assistant」に使用）を、Cocoaの機能を用いて書き換えたものです。速度的なメリットはとくにありませんが、これを下敷きにしてさらに高度なものを作成するためにクリアしておきたい技術的な課題でありました。
のちに、このあたりの技術的な問題をクリアしたScriptを「AppleScript書類から指定の構文要素をピックアップ（Cocoa Property名称）して文字列化」として掲載しています。本来の作成目的はさらにこれを発展させたものです。
あまり派手ではありませんが、
・shebangっぽい行から実行プログラムを取得してスクリプト言語の拡張子を取得
というScriptも個人的には割と重要です。このScriptの作成目的は、FileMaker ProのDB内に格納したshell scriptなどを、shebangの情報をもとにファイル書き出しして実行するというものです。こういう目的を果たすScriptが存在していなかったためです（国内、海外ともに探しても見つからず）。
これは、個人的にはかなり意義のあるものです。掲載している分はこの程度の数ですが、未掲載分が大量にあります。このあたりの機能を確認することで、大きな収穫がありました。Cocoaの機能を使い出して真っ先に調べたのが、NSArray、NSString、NSDictionaryなどのデータ処理に必要なクラスの情報。ついで、NSImageなど画像処理に必要なクラス。NSObjectについてはずいぶん後になってから調べました。
・自分を最前面に移動させてAbout表示
これは、特殊な実行環境からこの機能を実現するための方法が見つからなかったので、「見つけたことが重要」な内容です。Scriptそのものにはあまり重要性はありません。
・配列に入れた画像を類似度でソートする
こういう処理はぜひAppleScriptでクリアしておきたい内容です。Cocoaの機能に手を出しはじめたのも、REST APIの呼び出しや機械学習（強化学習）やこのあたりの処理ができるようになるだろう、と感じたためです。強化学習については11月ごろに実現しています。
・アニメーションGIFをフレームごとに画像に分解する
分解すること自体にはあまり意味はありませんが、アニメーションGIFを作成するObjective-Cのプログラムが見つからない今日このごろ。Photoshopを使えば作れなくはないのですが、Photoshopを使わないで画像処理することに意義があります（使わなければMac App Storeに出せるので）。
・TwitterへのTweet文字数チェック
Github上で発見した当時「こんないいものが存在しているのに、なんでMac版のTwitterクライアントにこの機能は搭載されていないんだろ？」と首をひねっていましたが、間もなくMac版のTwitterクライアントが廃止に。あのアプリケーションは方向性がブレブレで、機能不十分で、User Interfaceもさっぱりな最低の存在でした。Appleに買収されたがっているがゆえの「瀬戸際外交の一種」とも見られていましたが、Twitterはどこに向かっているのでしょう？
・atan2をFramework呼び出しで計算する
これは、１つの緯度/経度情報をもとに他の座標がどの方角に存在するかを計算するために必要なものです。
・Bash In Tokyoで音声認識コマンドプログラムをデモしてきました
とりあえず作ってデモしてみたところ、若干方向性が合っていないことを感じ取って、のちのTanzakuにつながることになります。とくに、ファイルのドラッグ＆ドロップ処理系とターミナル的なコマンド処理系を同時に実装すると「違和感」しかない、ということに気づいた次第です。
・Blog Archiveの電子書籍を計画しています
ごく一部の読者の方々のご要望を受けて企画した本シリーズ。続刊はすでに（機械的に）作成してあるのですが、内容確認とコメント追記にものすごくパワーが必要なので、思ったよりも進んでいませんが、すすんではいます。
・数値演算ライブラリ「calcLibAS」v1.3（28倍速）
数値演算ライブラリについては、Sephes Math LibraryをObjective-Cなどでラッピングしたものが決定版になるかと思っていましたが、本ライブラリはまさに掘っ建て小屋。冗談で作ってみたら予想外に実用性が出てしまったものです。
さすがに、引越しの最中に何かまとまったプログラムは書けません。
Blogアーカイブ本 vol.1を販売開始
Blogアーカイブ本 vol.2を販売開始
半信半疑で出してみたBlogアーカイブ本のVol.1〜2。一部読者のみなさまからはご好評いただいております。
・CPUの温度、放熱ファンの回転数を取得する
MacBook Proでデモを行っている最中に、AppleScriptを走らせて遅くなる現象に直面することがままありました。よくよく調べてみたら、長大なAppleScriptを実行しているさいにCPUが過熱してサーマルスロットリングが発生しているケースが多いことが判明。これは、環境がかわって南国の東向きの部屋に移動したことがきっかけですが、ノートPC用の放熱台にくわえ放熱ファンを強制的に高回転させるソフトウェア「TG Pro」を併用することで解決しています。本ルーチンは顧客に納品するGUIアプリケーションの部品として利用し、バッチ処理時のCPU過熱警報の機能として組み込みました。けっこう重要な部品です。
・Blogアーカイブ本 vol.3を販売開始
・AppleScript書類から指定の構文要素をピックアップ（Cocoa Property名称）
余裕を見て調査していたAppleScript構文要素の判別機能のCocoa版がだいたい予定どおりのレベルに仕上がったのが、本ルーチンです。
・MOSAミーティングで新プロジェクト「Tanzaku」を発表
自然言語コマンドを実行する「Newt On」Project（2002）、日本語音声認識コマンダー「ことだま」（2003）、その他日本語を理解して実行する各種プログラム試作品の集大成ともいうべきプログラム「Tanzaku」（2018）〜Talking Command Droplet via filenameです。
・easyJParse v3
AppleScriptに備わっている「words of」による簡易形態素解析機能。なぜか途中の記号類をドロップするため、いまひとつ実用的ではありませんでしたが、本プログラムにより本来の有用性を確保したといえなくもありません。何回か手を出しては放り投げていたものですが、デモの間際に集中して作ったら完成しました。コマンド解釈用に作ったので、この程度でも十分でした。
・イベント「Think AppleScript」盛会のうちに終了
初回だったので予定どおり、想定どおり、AppleScriptの歴史的経緯やおおまかな話などを詳細にご紹介しつつ、現時点での業務系のScriptでCocoaの機能を用いつつAdobe Createvie Suitesアプリケーションを操作する内容をデモしていただきました。質疑応答の中から、「iOSのSiriショートカットでiOSからosascriptコマンドを経由してMac上のAppleScriptを呼び出せる」といった話まで広がったのは収穫でした（結局、Entanglerのほうが６億倍ぐらい便利なのでSiriショートカットは使わずじまいですが）。
・ファイル作成日、修正日を変更する
他の補助アプリケーションの手助けなしに、ファイルの各種属性を書き換えられるようになったわけで、まことにけっこうなことです。
・NSURLからBookmarkを作成するじっけん
この機能はなくて困っていたので、できるという話は朗報でした。
・WebView＋ボタンを作成 v3（URLから読み込み）
従来のWebViewがDepricated扱いになり、WKWebViewを使わなくてはならなくなったわけですが、使いこなすのに予想外に資料が存在せず（使い方がイレギュラーなこともある？）、いろいろ苦労していました。このあたり、プログラミングではなく「調査」の成果なわけですが、できないことをできるようにするためには、こうした下調べが欠かせません。
・機械学習で学習したMSの画像を連邦・ジオン軍判定してフォルダ分け v2
強化学習によって作成したモデルをもとにバッチ処理を行うというのは、１つの目標として据えていたので、そのやり方がわかって、実際にひととおり動作するプログラムを作成できたのはなかなかナイスです。
・tccKitで指定Bundle IDのアプリケーションの「オートメーション」認証状況を取得
macOS 10.14で大幅に変わった環境ですが、それに対処するためのノウハウも蓄積しつつあります。その中で最大のものがこれです。CodeSignさえ行えれば、動作内容の変化を最低限に抑えられる（初回のみセキュリテイダイアログを表示）のではないかと。ただ、CodeSignを行うような開発ライセンスを持っていないユーザーがドロップレットを作成した際にダイアログが出ることに不満を持っているようです。ドロップレットではなく、スクリプトメニューから実行するようにすれば、macOS 10.14のセキュリテイ対策機能に合っているように思います。
・macOS 10.14 AppleScriptリリースノート
後日確認したところ、macOSリリースノートに統合されたので、個別のリリースノートとして追記されることはなくなった、と明記されていました。内容をバックアップしておく必要がありそうです。
・easyJParse v4
簡易日本語形態素解析プログラムのアップデート版です。固有名詞に対応するための仕組みも見えてきました。
2018年にBlogに掲載したプログラムでいえば、強化学習、簡易日本語形態素解析、WkWebView利用あたりがポイントでしょうか。
Keynoteの最前面の書類の現在表示中のスライド（ページ）上の表の指定セルに計算式を入れ、表示フォーマットを指定するAppleScriptです。
計算式については、Keynote上で実際に入力して、AppleScriptから指定セルのpropertyを取得して、記入方法を確認しました。
tell application "Keynote"
tell front document
tell current slide
tell table 1
tell column 2
tell cell 3
properties
–> {vertical alignment:center, row:row "3" of table 1 of slide 1 of document id "11E9C7CA-50E5-4360-A26D-C8B14BAE004D" of application "Keynote", class:cell, font name:"HiraKakuProN-W3", formatted value:"50%", background color:{65527, 65533, 65524}, formula:"=B2÷B1", name:"B3", text wrap:true, text color:{0, 0, 0}, alignment:center, column:column "B" of table 1 of slide 1 of document id "11E9C7CA-50E5-4360-A26D-C8B14BAE004D" of application "Keynote", format:percent, font size:22.0, value:0.5}
end tell
end tell
end tell
end tell
end tell
end tell
★Click Here to Open This Script
このような状態で、
実際に実行すると、
のようになります。セルに指定できるformatの種類は、KeynoteのAppleScript用語辞書にあるように、
automatic/checkbox/currency/date and time/fraction/number/percent/pop up menu/scientific/slider/stepper/text/duration/rating/numeral system
のとおりです。実際に指定してみるとわかるのですが、Keynoteのアプリケーション仕様にない予約語があり（checkbox、pop up menu、slider、stepper）これらを指定してもKeynoteがサポートしている範囲内のformatでしか表示されません。
なお、掲載Scriptではわかりやすいように確認処理を省略していますが、実行の前提条件としてKeynote書類がオープンされていて、表示中のスライド（ページ）上に表オブジェクトが存在する状態になっていることが必要です。これらの前提条件を満たしていない場合には、エラーになります。
| AppleScript名：Keynoteの表セルに計算式を入れる |
| tell application "Keynote" tell front document tell current slide tell table 1 tell column 2 tell cell 3 set its value to "=B2÷B1" set its format to percent end tell end tell end tell end tell end tell end tell |
従来、AppleScriptのRelease Notesは独立して掲載されていましたが、「macOS Mojave 10.14 Release Notes」として１本の記事にまとめて掲載されていました。内容を吟味したうえで日本語訳して掲載します。
macOS 10.14, Mojave上のAppleScriptはバージョン2.7と10.13から変更はありません。このところ、OS２バージョンに１回AppleScript処理系がバージョンアップするような格好になっているため、納得のいくところですが、バージョン番号が変わっていない割には環境が激変しています。控えめに言っても、Classic Mac OSからMac OS Xへの移行時よりも変化が大きい環境です。
あるアプリケーションからApple eventを送信する場合には、AppleScriptアプレットであっても、ユーザーの許可が必要になった。
許可取得中アプリケーションの一覧はシステム環境設定.appの「セキュリティとプライバシー」＞「プライバシー」＞「オートメーション」カテゴリにて、閲覧や編集が行える。
もしも、ユーザーが許可ダイアログで同意を行わなかった場合には、イベントの実行はブロックされ、エラー-1743（”
サードパーティーのScripting Additions（OSAX）がインストールできなくなった（認識されなくなった）。/Library/ScriptingAdditions、/Network/Library/ScriptingAdditionsおよび~/Library/ScriptingAdditionsフォルダ内に存在するScripting Additionsは無視される。
アプリケーションの一部品としてScripting Additionsをバンドル内に組み込み、アプリケーションとScripting Additionsの両方が同一IDでコードサインを施された場合にのみ実行が許可される。
アプリケーションとの通信許可が行われる頻度ですが、
スクリプトエディタ：（確認対象外）
Script Debugger：実行時初回のみ
スクリプトメニュー：実行時初回のみ
AppleScriptアプレット：毎回（初回通信時のみ）実行時初回のみ
AppleScriptアプレット（Code Sign）：初回実行時のみ
AppleScript GUIアプリケーション（Code Sign）：初回実行時のみ
となっています（2019/2/1修正）。アプリケーションとの通信許可が求められる単位は、各実行ファイル。Script Debugger上でScriptを記述するためにSafariと通信を行う場合には、初回のみ許可を求められます。スクリプトエディタ上でAppleScriptを記述する場合には、とくに通信許可の確認ダイアログは表示されません。
許可されたアプリケーション一覧については、/usr/bin/tccutilコマンドでリセット可能。
許可状況のリストアップについては、/Library/Application Support/com.apple.TCC/TCC.dbにて管理。Apple純正ツールtccutilでは削除しかできない状況です。
→ その後、Hal Mueller氏によるサンプルコードを用いたtccKit.frameworkを介して、指定Bundle IDの「オートメーション」認証状況を取得できるようになりました
ただし、同じく「プライバシー」項目の「フルディスクアクセス」に、スクリプトエディタとスクリプトメニューを登録する必要があります。OSインストールや10.14以下のOSからのアップデート時、新規ユーザーアカウント作成時に行う「恒例行事」になることでしょう。
Script Additionの使用/不使用をuse scripting additions文で制御できますが、事実上これがStandard Additions OSAXの使用/不使用制御を行うためだけの存在になったといえます。
現在残存している著名なサードパーティのOSAXに、
・Satimage OSAX
・XMLTools
ただし、今後もScripting Additions/OSAXの利用について制約が緩和される可能性はないため、移行のための「その場しのぎ」に限定されます。OSAXによるScript機能の拡張については、これで終了です。
個人的には、Classic MacOSからMac OS X（現・macOS）への移行の際に、OSAXになるべく依存しないようにAppleScriptを記述するように方針転換し、本Blog掲載のScriptについても「よほどのこと」がなければOSAXを使用していません。XMLからXPathを用いてデータを取得する用途についてはXMLTools OSAXの機能が強力ですが、XPathQuery4ObjCなどの代替手段を用意しています。
なお、macOS 10.14搭載のスクリプトエディタは~/Library/Frameworksフォルダ内のFrameworkを無視するものの、これが「仕様」なのか「バグ」なのかは不明。Shane Stanley的には「仕様」とのこと。
→ SIPの機能による制限。これを回避するためにはTerminal上からcsrutilコマンドによりSIPを無効化する操作が必要
Script Menuは「スクリプトメニュー」という別アプリケーションに分離されました。
Script MenuはこれまでMenu Exrtraとして存在していたのですが、macOS 10.14で変更されたかたちです（Script Menuは時代によってSystem Eventsが管轄していたり、独立したアプリケーションだった時期があったりとけっこういろいろ存在形態が変更され続けてきました）。Menu Extraから独立アプリケーションへの変更はセキュリティポリシーを独自に適用するため、でしょうか？（なんとなく意図は理解できそうですが、こんな大事なことはリリースノートに書いてほしい）
macOS 10.14搭載のContacts.app（旧称：アドレスブック）から、プラグインScriptがサポートされなくなりました。Contacts.appのAppleScript用語辞書にはプラグインScript用の用語が残っているため注意が必要です。
Finderに、デスクトップ上のファイルを「過去7日間」「過去30日間」などとまとめる「スタック」の機能が付きました。AppleScriptからこの「スタック」を選択してselection（as alias list）を取得すると、中に入っているファイルへの参照がリストで返ってきます（スタックに該当するクラスが定義されているわけではありません）。
DVDプレイヤーはアプリケーションから補助ツールに格下げになって（Zipアーカイバなどと同じ）AppleScriptからの操作機能が削除されました。DVD再生コントロールなどはフリーの「Free Mac Media Player」をダウンロードして行うようにしてください。
Numbersで選択中のセルがなければ、最前面の書類の選択中のワークシートのうちのTable 1を全選択するAppleScriptです。
選択部分からデータを取得する処理はよく行いますが、プログラム側から選択部分を作成するというのはやっていなかったので、試行錯誤してみました。
| AppleScript名：Table 1の全セルを選択する v3.scptd |
| — – Created by: Takaaki Naganoya – Created on: 2018/11/05 — – Copyright © 2018 Piyomaru Software, All Rights Reserved — use AppleScript version "2.4" — Yosemite (10.10) or later use framework "Foundation" use scripting additions tell application "Numbers" tell front document tell active sheet try –選択セルがある場合 set theTable to first table whose class of selection range is range on error –選択セルがない場合はTable 1を全選択 set tCount to count every table if tCount = 0 then error "There is no table in active sheet" tell table 1 set selection range to cell range end tell end try end tell end tell end tell |
2018年１月末の本Blog消失に伴い、電子書籍「AppleScript最新リファレンス」「AppleScript 10大最新技術」本文中からリンクしていた本Blog上のURLの変更先情報補完、および抜けていた記事のBlogへの補充作業がほぼ終了しました。
抜けた記事の再作成＆更新作業は割としんどいものでした（ーー；；；
２つの電子書籍のサポートページ上にURLの対応表を掲載いたしましたので、ご参照ください。
オープンソースのフレームワーク「SerialKeyGenerator」を用いてシリアルコードを生成、検証するAppleScriptです。
シリアルコードは、日本では「レジストコード」「プロダクトコード」などと呼ばれるもので、ソフトウェアの販売時にこのコードを発行し、ソフトウェアのシリアルコード入力ダイアログに入力してもらうことで、完全版として機能させるというものです。
Mac App StoreではApple IDとひもづけることでシリアルコードを使用しないソフトウェア販売とライセンシングを行なっていますが、Mac App Store外で販売する場合にはシリアルコードのことを考える必要が出てきます。
コードの文字数を増やすと、仮にキーボードから入力する場合の難易度が上がってしまいます。適度な長さの文字列になることが望ましいところです。
シリアルコードが仮に流出した場合に備え、どの購入者のコードが流出したかを特定する必要があります。そのため、シリアルコードにはその名のとおり、購入者の番号を含めてあるのが普通です。
SerialKeyGeneratorでは、シークレットキーワード、ユーザー番号をもとにシリアルコードが生成されます。日時を考慮してシリアルコードを計算するため、同じシリアルコードを生成させても日時が変われば結果は異なります。
ただ、おおもとのシークレットキーワードが判明してしまうと、第三者がシリアルコードを勝手に発行してソフトウェアの不正使用ができてしまうため、アプリケーション内に格納するシークレットキーワードは文字ダンプされても判明しないようにしておくのが普通です。
–> Download serialKeyGenKit.framework（To ~/Library/Frameworks/）
| AppleScript名：SerialKeyGeneratorサンプル1 |
| — Created 2015-10-24 by Takaaki Naganoya — 2015 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "serialKeyGenKit" –https://github.com/danielvy/SerialKeyGenerator –Generate Serial Code with secret Keyword set aGen to current application’s SerialKeyGenerator’s alloc()’s initWithSecret:"Piyomaru" –> (SerialKeyGenerator) <SerialKeyGenerator: 0x7f8b5b5fa200> set aList to {} repeat with i from 1 to 10 set aRes to (aGen’s generateSerialWithSequence:i |data|:i) set the end of aList to (aRes as text) end repeat aList –> {"1CHH8-BJY89-TR9Z9-AKSTL-70JZF", "4KXCF-LS6P5-7BKYN-CUMPY-NM072", "41GO2-OGZ3T-83YP9-2LS4J-9W3MI", "CA3WV-C7FU7-PSPJ3-LNGT7-N6AJT", "3OG0B-MCFUM-7YKHT-EE533-LNJEJ", "4SKWQ-9G8XE-ZCE6K-APSAL-R0T8S", "CTEZT-H4AQQ-BM15H-FH2DG-P7K7O", "4BZ1X-2OHKF-5FWND-7SZVA-EBR89", "BDKRI-9JU7T-G6N20-YPU9K-6FXQW", "9EWW5-O3FMV-SDEZA-77JZE-OY8FL"} –Decode Serial with secret Keyword set rList to {} set bGen to current application’s SerialKeyGenerator’s alloc()’s initWithSecret:"Piyomaru" –> (SerialKeyGenerator) <SerialKeyGenerator: 0x7fb6992b8400> repeat with i in aList set bRes to (bGen’s decodeSerial:(contents of i)) set aDate to bRes’s |date| as date set aSeq to bRes’s sequence as integer set aData to bRes’s |data| as integer set the end of rList to {aData, aSeq, aDate} end repeat return rList –> {{1, 1, date "2018年11月3日土曜日 16:44:57"}, {2, 2, date "2018年11月3日土曜日 16:44:57"}, {3, 3, date "2018年11月3日土曜日 16:44:57"}, {4, 4, date "2018年11月3日土曜日 16:44:57"}, {5, 5, date "2018年11月3日土曜日 16:44:57"}, {6, 6, date "2018年11月3日土曜日 16:44:57"}, {7, 7, date "2018年11月3日土曜日 16:44:57"}, {8, 8, date "2018年11月3日土曜日 16:44:57"}, {9, 9, date "2018年11月3日土曜日 16:44:57"}, {10, 10, date "2018年11月3日土曜日 16:44:57"}} |
オープンソースのフレームワーク「JXLS」を用いてExcelデータを組み立てるAppleScriptです。
フォント名と色を指定してみました。実際に案件で使用したことがないので、徹底的に活用した………という経験がないので、いまのところ何か風景画像をExcel書類に変換して「実はExcelで作りました」とかフカすぐらいしか用途がなさそうです。
–> Download JXLS（To ~/Library/Frameworks/）
| AppleScript名：ASOCでExcelファイル生成テスト v2 |
| — Created 2015-10-08 by Takaaki Naganoya — 2015 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "JXLS" –https://github.com/JanX2/JXLS set aFile to POSIX path of (choose file name) set filePath to current application’s NSString’s stringWithString:aFile set workBook to current application’s JXLSWorkBook’s new() set workSheet to workBook’s workSheetWithName:"ぴよぴよシート" workSheet’s setWidth:1000 forColumn:0 defaultFormat:(missing value) repeat with i from 0 to 64 set aCell to (workSheet’s setCellAtRow:i column:0 toString:(current application’s NSString’s stringWithString:("ぴよまる " & (i as text)))) (aCell’s setFontName:"HiraKakuStd-W8") (aCell’s setFontHeight:320) –this is point * 20 (aCell’s setFontColorIndex:i) (aCell’s setForegroundFillColorIndex:13) end repeat workBook’s writeToFile:filePath |
