指定のAppleScriptテキストを構文確認して変数・プロパティ、サブルーチン名部分のみを取得して置換

指定のAppleScriptのテキストを構文確認して、構文的に「変数・プロパティ、サブルーチン名」部分に該当する部分のテキストを取得して、目的のテキストに差し替えるAppleScriptです。

Script Debugger上の生産性を向上させるために書いたものです。Script Debuggerはいわゆる「デバッグ」段階では役に立ちますが、快適にScriptを書くための機能はほとんどありません。

いわゆる、ブレークポイントの設定、プログラムのステップ実行、ステップ実行時の変数値のリアルタイムモニタリング、という「デバッガ」の機能は持っていますが、巨大なScriptを書いたときの特定のサブルーチンを前回実行時に指定したパラメータで再実行して結果を比較といった機能は備えていません（切実にほしー。自分で作りたいぐらい）。

とくに、記述中のAppleScriptの選択部分の構文要素を検出して特定の構文要素（コメントとか変数名とか）についてのみ処理を行うような機能が用意されていない点が残念です（スクリプトエディタ用は数百本書いて使っているので）。

とりわけ、プロパティ文の記述などは毎回同じようなものをコピペで足すだけなので、書き足すのがかったるいと思っていました。

そこで、編集中のAppleScriptの範囲から構文要素を考慮して変数名だけ書き換えてくれるといった機能を足してみました。

テキストで与えたAppleScript（実際にはScript Debuggerの選択範囲から取得）を

	property textList : {}

実際にメモリ上でコンパイル（構文確認）して、書式付きテキストを取得し、そこから構文色分け設定に基づいて該当する構文要素をピックアップ。該当する構文要素の箇所を置換します。

--> textList

＃　置換部分だけ文字置換にしていますが、そこはそれ

	property boundsList : {}

–> Download repLexicalValStr as AppleScript bundle doc with library

例によって、AppleScriptの構文色分け設定の値を読み取って処理しているので、構文要素間で色の値（RGB値）で重複があると（or 値が近すぎると）エラーになります。また、先日報告された「RGB以外の色空間の色」で設定してある場合でもRGB色空間に色データを変換して処理しています（まさかCMYKとかグレースケールで色設定しているユーザーがいるとは思わなかったわー）。

スクリプトエディタ、Script Debugger上での動作を確認していますが、Applet書き出ししたときにまだ謎なメッセージを出すようです。何か、明示的にメインスレッドで実行する必要のあるものがあったでしょうか。

▲Applet書き出しして、実行した際に、ちょっと謎なメッセージが出る時がある（macOS 10.14.5）。vectorってなんだよ？

▲Applet実行時にエラーが出たあとに、再度実行したときにこんな謎なメッセージが出る（macOS 10.14.5）

AppleScript名：指定のAppleScriptテキストを構文確認して変数・プロパティ、サブルーチン名部分のみを取得して置換.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/07/04
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions
use framework "AppKit"
use framework "OSAKit"
use attrLib : script "asAttrRecLib"

property NSArray : a reference to current application’s NSArray
property OSANull : a reference to current application’s OSANull
property NSString : a reference to current application’s NSString
property OSAScript : a reference to current application’s OSAScript
property NSPredicate : a reference to current application’s NSPredicate
property NSDictionary : a reference to current application’s NSDictionary
property NSUnarchiver : a reference to current application’s NSUnarchiver
property OSALanguage : a reference to current application’s OSALanguage
property NSCountedSet : a reference to current application’s NSCountedSet
property NSMutableArray : a reference to current application’s NSMutableArray
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property OSALanguageInstance : a reference to current application’s OSALanguageInstance

script spd
　　property fArray : {}
　　property outList : {}
　　property resStr : {}
end script

on run
　　set theSource to "　　property textList : {}"
　　set repValstr to "boundsList"
　　
　　set pureValStr to retTargStrFromCompiledScriptAttribute(theSource, 7) of me –Variables and Sub-routine names
　　–> "textList"
　　
　　set newLine to repChar(theSource, pureValStr, repValstr) of me
　　–> "　　property boundsList : {}"
　　
　　display dialog newLine
end run

–AppleScriptのソーステキストをコンパイルして、
on retTargStrFromCompiledScriptAttribute(theSource as string, colSettingOrder as integer)
　　if colSettingOrder < 1 or colSettingOrder > 18 then error ("Lexical element index range error (safe range: 1….18. You set " & colSettingOrder as string) & ")"
　　
　　–AppleScriptの構文色分け情報を取得
　　set ccRes to getAppleScriptSourceColors() of me
　　set cRes to chkASLexicalFormatColorConfliction(ccRes) of me –構文色分けの重複色チェック
　　if cRes = false then error "There is some duplicate(s) color among AppleScript’s lexical color settings"
　　
　　–検索用の色情報を作成
　　set commentCol to contents of item colSettingOrder of ccRes –Variable and Sub-routine name
　　set searchVal to (redValue of commentCol as string) & " " & (greenValue of commentCol as string) & " " & (blueValue of commentCol as string) –for filtering
　　
　　–与えられたテキストをAppleScriptとして評価し構文色分け情報をもとにStyle Runs的なDictionary化して返す
　　set aRitch to compileASSourcetextAndReturnStyledText(theSource) of me
　　
　　
　　–書式付きテキストからstyle runs的な書式リストを作成
　　set anAttrList to getAttributeRunsFromAttrString(aRitch) of attrLib
　　–>
　　(*
(NSArray) {
　　{
　　　　fontSize:12.0,
　　　　stringVal:"set",
　　　　colorVal:{
　　　　　　14,
　　　　　　62,
　　　　　　251
　　　　},
　　　　fontName:"Osaka",
　　　　itemIndex:1,
　　　　colorStr:"14 62 251"
　　},…..
*)
　　
　　set tmp1Array to NSArray’s arrayWithArray:anAttrList
　　
　　–コメント以外の要素をピックアップ文字と色で抽出
　　–set thePred2 to NSPredicate’s predicateWithFormat_("colorStr != %@ && stringVal != %@", searchVal, (return & return & return & return))
　　set thePred2 to NSPredicate’s predicateWithFormat_("colorStr == %@", searchVal)
　　set (fArray of spd) to ((tmp1Array’s filteredArrayUsingPredicate:thePred2)’s valueForKeyPath:"itemIndex") as list
　　–> {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84}
　　
　　–アイテム番号のリストをもとに、ピックアップ対象のアイテムだけを再連結
　　set (outList of spd) to {}
　　repeat with i in (fArray of spd)
　　　　set aStr to ((item i of anAttrList)’s stringVal) as string
　　　　set the end of (outList of spd) to aStr
　　end repeat
　　
　　set (resStr of spd) to retDelimedText((outList of spd), return) of me
　　
　　return (resStr of spd)
end retTargStrFromCompiledScriptAttribute

on retDelimedText(aList, aDelim)
　　set aText to ""
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set aText to aList as text
　　set AppleScript’s text item delimiters to curDelim
　　return aText
end retDelimedText

——-

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

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

–NSColorからRGBの値を取り出す
on retColListFromNSColor(aCol, aMAX as integer)
　　set aSpace to (aCol’s colorSpaceName()) as string
　　–set aSpace to (aCol’s type()) as integer
　　
　　if aSpace is in {"NSDeviceRGBColorSpace", "NSCalibratedRGBColorSpace"} then
　　　　copy aCol to cCol
　　else
　　　　–RGB以外の色空間の色は、RGBに変換
　　　　–CMYKとグレースケールは同一メソッドでRGBに変換できることを確認済み
　　　　set cCol to aCol’s colorUsingColorSpaceName:"NSCalibratedRGBColorSpace"
　　　　if cCol = missing value then error "Color Space Conversion Error (" & aSpace & " to NSCalibratedRGBColorSpace)"
　　end if
　　
　　set aRed to round ((cCol’s redComponent()) * aMAX) rounding as taught in school
　　set aGreen to round ((cCol’s greenComponent()) * aMAX) rounding as taught in school
　　set aBlue to round ((cCol’s blueComponent()) * aMAX) rounding as taught in school
　　
　　if aRed > aMAX then set aRed to aMAX
　　if aGreen > aMAX then set aGreen to aMAX
　　if aBlue > aMAX then set aBlue to aMAX
　　
　　return {aRed, aGreen, aBlue} as list
end retColListFromNSColor

–AS書式で配色に重複がないかどうかチェック
on chkASLexicalFormatColorConfliction(aList)
　　set anArray to current application’s NSArray’s arrayWithArray:aList
　　set bList to (anArray’s valueForKeyPath:"redValue.stringValue") as list
　　set cList to (anArray’s valueForKeyPath:"greenValue.stringValue") as list
　　set dList to (anArray’s valueForKeyPath:"blueValue.stringValue") as list
　　
　　set colStrList to {}
　　repeat with i from 1 to (length of bList)
　　　　set bItem to contents of item i of bList
　　　　set cItem to contents of item i of cList
　　　　set dItem to contents of item i of dList
　　　　set the end of colStrList to bItem & " " & cItem & " " & dItem
　　end repeat
　　
　　set aRes to returnDuplicatesOnly(colStrList) of me
　　
　　if aRes is equal to {} then
　　　　return true –重複が存在しなかった場合
　　else
　　　　return false –重複があった場合
　　end if
end chkASLexicalFormatColorConfliction

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

–テキスト形式のAppleScriptをコンパイルして書式付きテキスト（NSAttributedString）を返す
on compileASSourcetextAndReturnStyledText(theSource)
　　— create a new AppleScript instance
　　set anOSALanguageInstance to OSALanguage’s languageForName:"AppleScript"
　　
　　set theScript to OSAScript’s alloc()’s initWithSource:theSource fromURL:(missing value) languageInstance:anOSALanguageInstance usingStorageOptions:(OSANull)
　　set {theResult, theError} to theScript’s compileAndReturnError:(reference)
　　
　　if theResult as boolean is false then
　　　　— handle error
　　　　error "Compile Error"
　　else
　　　　set styledSourceText to theScript’s richTextSource()
　　end if
　　
　　return styledSourceText
end compileASSourcetextAndReturnStyledText

–文字置換
on repChar(origText as string, targChar as string, repChar as string)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to targChar
　　set tmpList to text items of origText
　　set AppleScript’s text item delimiters to repChar
　　set retText to tmpList as string
　　set AppleScript’s text item delimiters to curDelim
　　return retText
end repChar

★Click Here to Open This Script　

アラートダイアログ上にTextViewを表示

Posted on 7月 8 by Takaaki Naganoya

アラートダイアログ上にTextViewを表示して、指定のテキストを閲覧するAppleScriptです。

とくにこれといって何か表示するものを思いつかなかったので、自分自身のソースコードを取得して表示しています。スクリプトエディタやScript Debugger上で実行した場合には自分自身のソースコードをテキストビュー上で表示します。

読み取り専用のスクリプトやアプレットで実行している場合にはソースコードを取得できません。何か適宜自分で表示させたいテキストを与えてみてください。

AppleScript名：アラートダイアログ上にTexViewを表示

— Created 2019-07-02 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "OSAKit"

property |NSURL| : a reference to current application’s |NSURL|
property NSFont : a reference to current application’s NSFont
property NSView : a reference to current application’s NSView
property NSAlert : a reference to current application’s NSAlert
property NSColor : a reference to current application’s NSColor
property NSTextView : a reference to current application’s NSTextView
property NSScrollView : a reference to current application’s NSScrollView
property NSRunningApplication : a reference to current application’s NSRunningApplication
property OSAScript : a reference to current application’s OSAScript

property returnCode : 0

–Get Self Source Code (a kind of joke)
set mePath to path to me
set asStr to getASsourceFor(mePath) of me

set paramObj to {myMessage:"Main Message", mySubMessage:"Sub information", mes1:(asStr), mesWidth:400, mesHeight:200, fontName:"HiraginoSans-W3", fontSize:11.0}

–my dispTextViewWithAlertdialog:paramObj–for debug
my performSelectorOnMainThread:"dispTextViewWithAlertdialog:" withObject:paramObj waitUntilDone:true

on dispTextViewWithAlertdialog:paramObj
　　–Receive Parameters
　　set aMainMes to (myMessage of paramObj) as string –Main Message
　　set aSubMes to (mySubMessage of paramObj) as string –Sub Message
　　set mesStr to (mes1 of paramObj) as string –Text Input field 1 Label
　　set aWidth to (mesWidth of paramObj) as integer –TextView width
　　set aHeight to (mesHeight of paramObj) as integer –TextView height
　　set aFontName to (fontName of paramObj) as string –TextView font name
　　set aFontSize to (fontSize of paramObj) as real –TextView font size
　　
　　— Create a TextView with Scroll View
　　set aScroll to NSScrollView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight))
　　set aView to NSTextView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight))
　　aView’s setRichText:true
　　aView’s useAllLigatures:true
　　aView’s setTextColor:(current application’s NSColor’s cyanColor()) –cyanColor
　　aView’s setFont:(current application’s NSFont’s fontWithName:aFontName |size|:aFontSize)
　　set aColor to current application’s NSColor’s colorWithDeviceRed:0.0 green:0.0 blue:0.0 alpha:0.5
　　aView’s setBackgroundColor:aColor
　　aView’s setString:mesStr
　　aScroll’s setDocumentView:aView
　　aView’s enclosingScrollView()’s setHasVerticalScroller:true
　　
　　— set up alert
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aScroll
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　if (my returnCode as number) = 1001 then error number -128
end dispTextViewWithAlertdialog:

on doModal:aParam
　　set (my returnCode) to aParam’s runModal()
end doModal:

–指定AppleScriptファイルのソースコードを取得する（実行専用Scriptからは取得できない）
— Original Created 2014-02-23 Shane Stanley
on getASsourceFor(anAlias as {alias, string})
　　set aURL to |NSURL|’s fileURLWithPath:(POSIX path of anAlias)
　　set theScript to OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
　　
　　if theScript is equal to missing value then
　　　　error "Compile Error" — handle error
　　else
　　　　set sourceText to theScript’s source()
　　end if
　　
　　return sourceText as string
end getASsourceFor

★Click Here to Open This Script　

指定のAppleScriptのソースコードからコメント部分のみを取得

Posted on 7月 8 by Takaaki Naganoya

指定のAppleScript書類のソースコードを取得し、構文色分け情報をもとにコメント部分の文字列のみを取得するAppleScriptです。

こうした処理はとくに昨日今日で実現したものではなく、実は同じような処理をOS X 10.4の時代からスクリプトエディタをAppleScriptから操作して行ってきました（スクリプトエディタ版のコメント抽出プログラムは、電子書籍の購入者特典でつけた「Piyomaru Script Assistant」に入っています）。Cocoaの機能を利用して処理すると、スクリプトエディタを操作せずにAppleScript書類から情報を取得できます。もちろん、GUIアプリケーションを操作しないぶん、並列処理にも有利です。

本Scriptを実行すると、指定のAppleScript書類をバックグラウンドでオープンして、書式情報を取得し、コメントに該当する箇所の文字のみを取得して返します。

–> Download commentPicker (executable app within library)

ほんの少し修正することで、ソースコードからコメント部分のみを削除したテキストを取得することも可能です。

AppleScript名：指定のAppleScriptのソースコードからコメント部分のみを取得.scptd

property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property OSAScript : a reference to current application’s OSAScript
property NSPredicate : a reference to current application’s NSPredicate
property NSDictionary : a reference to current application’s NSDictionary
property NSUnarchiver : a reference to current application’s NSUnarchiver
property NSCountedSet : a reference to current application’s NSCountedSet
property NSMutableArray : a reference to current application’s NSMutableArray
property NSMutableDictionary : a reference to current application’s NSMutableDictionary

script spd
　　property fArray : {}
　　property outList : {}
　　property resStr : {}
end script

–AppleScriptの構文色分け情報を取得
set ccRes to getAppleScriptSourceColors() of me
set cRes to chkASLexicalFormatColorConfliction(ccRes) of me –構文色分けの重複色チェック
if cRes = false then error "There is some duplicate(s) color among AppleScript’s lexical color settings"

–検索用の色情報を作成
set commentCol to contents of item 5 of ccRes –Comment
set searchVal to (redValue of commentCol as string) & " " & (greenValue of commentCol as string) & " " & (blueValue of commentCol as string) –for filtering

–処理対象のAppleScript書類を選択
set asPath to choose file of type {"com.apple.applescript.script-bundle", "com.apple.applescript.script"}

–書式付きテキストからstyle runs的な書式リストを作成
set anAttrList to getAttrRecFromASPath(asPath) of attrLib
–>
(*
(NSArray) {
　　{
　　　　fontSize:12.0,
　　　　stringVal:"set",
　　　　colorVal:{
　　　　　　14,
　　　　　　62,
　　　　　　251
　　　　},
　　　　fontName:"Osaka",
　　　　itemIndex:1,
　　　　colorStr:"14 62 251"
　　},…..
*)

set tmp1Array to NSArray’s arrayWithArray:anAttrList

–コメント以外の要素をピックアップ文字と色で抽出
–set thePred2 to NSPredicate’s predicateWithFormat_("colorStr != %@ && stringVal != %@", searchVal, (return & return & return & return))
set thePred2 to NSPredicate’s predicateWithFormat_("colorStr == %@", searchVal)
set (fArray of spd) to ((tmp1Array’s filteredArrayUsingPredicate:thePred2)’s valueForKeyPath:"itemIndex") as list
–> {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84}

–アイテム番号のリストをもとに、ピックアップ対象のアイテムだけを再連結
set (outList of spd) to {}
repeat with i in (fArray of spd)
　　set aStr to ((item i of anAttrList)’s stringVal) as string
　　set the end of (outList of spd) to aStr
end repeat

set (resStr of spd) to retDelimedText((outList of spd), return) of me

return (resStr of spd)

——-

★Click Here to Open This Script　

Handle diff v2

Posted on 7月 3 by Takaaki Naganoya

Script Debugger上でオープン中の２つのAppleScript書類のうち、名称が同じハンドラ（サブルーチン）の内容同士を比較して、お互いに合っているかどうかをチェックするAppleScriptです。

アプリケーション書き出しして、Script Debuggerのスクリプトメニューに入れて実行します（AppleScript書類のままだと、Myriad Tables Lib内のフレームワークが呼べないため）。

▲本Scriptはスクリプトエディタの環境設定で行うAppleScriptの構文色分け設定色が「RGBカラー」でないとエラーになります。CMYKとかグレースケールカラーで指定して、そのままRGBに変換されずに保持される（CMYK色はアクセスしているうちにRGBに変換されるが、グレースケールは保持される）ため、色空間の判定を行ってRGB色に変換してから処理する必要があります（自分用メモ）

スクリプトエディタ上で設定する構文色分け設定をもとに、AppleScriptの構文要素を考慮したハンドラ一覧を作成し、２つのAppleScript書類の間に共通して存在するハンドラ名のハンドラ（サブルーチン）のAppleScriptソースを取得。インデント（tab）を削除したのちに比較を実行。

共通名称のハンドラすべてをチェックして、結果を表インタフェースで表示します。初版（v1）では実行するたびに１つのハンドラをチェックしていたのですが、あまりにかったるいので即座にループですべて調べてまとめて結果を表示するようにしました（v2）。

–> download executable archive (mainly for macOS 10.14 or later)

ただし、１つのAppleScript書類内にScript Object（JavaScriptでいうところのClosureみたいなもの）で論理分割された同名のハンドラが複数回登場するパターンは想定していません。複数検出するとエラーになります。

とくにScript Debuggerを対象にせずスクリプトエディタを対象にしてもよいのですが、些細な変更で実現できるため、興味のある方はやってみてください。あと、本Scriptは必要に迫られまくって作ったものなので、動作でおかしい箇所があったらぜひぜひご指摘を。

個人的には、ハンドラ名称を構文要素を考慮しつつ取得している一方で、ハンドラの内容は単なる文字列検索で取り出しているというあたりにアンバランスさを感じます。ただ、趣味のScriptではないので若干の手抜きを（＾ー＾；；

macOS 10.14.5上のスクリプトエディタで、構文色分け情報を何回設定しても「黒」になるという現象に遭遇したのですが、他のユーザー環境上での再現性については未知数であるため、まだレポートできない状況です。

→　その後、本ツールは強化されて、構文色分け設定にRGB以外の色が設定してあってもRGBに変換して処理する機能や、構文色分け設定を参照したコメント除去機能や、各種書式情報の取得を３倍高速化するカラーキャッシュなどの機能を実装したプログラムに（必要に迫られて）成長しました。

AppleScript名：Handle diff v2.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/07/02
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.5" — Sierra (10.12) or later (maybe 10.11 is OK but not confirmed)
use framework "Foundation"
use scripting additions
use framework "OSAKit"
use script "Myriad Tables Lib" version "1.0.9" –https://www.macosxautomation.com/applescript/apps/Script_Libs.html

–構文色分け設定に重複色がないかチェック
set cList to getAppleScriptSourceColors() of me
set cRes to chkASLexicalFormatColorConfliction(cList) of me –構文色分けの重複色チェック
if cRes = false then error "There is some duplicate(s) color among AppleScript’s lexical color settings"

–Script Debugger上でオープン中の２つのAppleScript書類のパスを取得
set dList to retTwoPathList() of me
if dList = false then return

copy dList to {d1Path, d2Path}

–各AppleScript書類のハンドラ名称一覧を取得する
set hList1 to retHandlerNamesFromAppleScriptSource(d1Path as alias) of me
set hList2 to retHandlerNamesFromAppleScriptSource(d2Path as alias) of me

–２つのAppleScript書類のハンドラの共通項目（名称のみ）を抽出する
set resList to returnDuplicatesOnly(hList1 & hList2) of me
if resList = {} then
　　–共通のハンドラ（サブルーチン）が指定の２つのScriptに存在していなかった
　　display dialog "There is no common handler between the scripts." buttons {"OK"} default button 1
　　return
end if

–各AppleScript書類のソースを取得して、指定のハンドラのテキストを取得する
set s1Source to getASsourceFor(d1Path as alias) of me
set s2Source to getASsourceFor(d2Path as alias) of me

if (s1Source = false) or (s2Source = false) then
　　display dialog "Error occured in getteing AS source" buttons {"OK"} default button 1
　　return
end if

set outList to {}
repeat with i in resList
　　set resHandler to contents of i
　　set s1Source to extractHandlerSourceOnly(s1Source, resHandler) of me
　　set s2Source to extractHandlerSourceOnly(s2Source, resHandler) of me
　　set compareF to (s1Source is equal to s2Source) as boolean
　　set the end of outList to {resHandler, compareF}
end repeat

–結果表示
tell me to activate
display table with data outList with prompt "Handler contents compare results" column headings {"Handler name", "Match?"} with title "Handler Diff Results"

–指定のハンドラの内容を抽出する（コメントぐらいは結果から削除してもいいような気もする）
–Script Objectの使用は考慮していない。１つのAppleScript書類からScript Objectで論理分割された同名のハンドラが複数検出されるケースは想定していない
on extractHandlerSourceOnly(wholeScript as string, handlerName as string)
　　–インデント文字（Tab）をすべて削除
　　set targScript to repChar(wholeScript, tab, "") of me
　　
　　–"on"ではじまるハンドラと仮定して抽出
　　set handlerStr to extractStrFromTo(targScript, "on " & handlerName, "end " & handlerName) of me
　　if handlerStr = false then
　　　　–"to"ではじまるハンドラと仮定して抽出
　　　　set handlerStr to extractStrFromTo(targScript, "to " & handlerName, "end " & handlerName) of me
　　　　if handlerStr = false then return false
　　else
　　　　return handlerStr
　　end if
end extractHandlerSourceOnly

on retHandlerNamesFromAppleScriptSource(aFile)
　　set aRec to getAttrRecFromASPath(aFile) of me
　　set cList to getAppleScriptSourceColors() of me
　　
　　set targAttr to contents of item 7 of cList –ハンドラあるいは変数
　　set tmpCoStr to ((redValue of targAttr) as string) & " " & ((greenValue of targAttr) as string) & " " & ((blueValue of targAttr) as string)
　　
　　set ontoColItem to contents of item 3 of cList –スクリプティング予約語（on/to）
　　set ontoCoStr to ((redValue of ontoColItem) as string) & " " & ((greenValue of ontoColItem) as string) & " " & ((blueValue of ontoColItem) as string)
　　
　　
　　–変数あるいはハンドラ名称をリストアップ(variables & handler)
　　set tmp1Array to NSArray’s arrayWithArray:aRec
　　set thePred0 to NSPredicate’s predicateWithFormat_("colorStr == %@", tmpCoStr)
　　set dArray to (tmp1Array’s filteredArrayUsingPredicate:thePred0) as list
　　
　　–改行を含むデータをリストアップ(text data contains return)
　　set thePred1 to NSPredicate’s predicateWithFormat_("stringVal CONTAINS %@", return)
　　set eArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred1)’s valueForKeyPath:"itemIndex") as list
　　
　　set the beginning of eArray to 0 –ハンドラ宣言部がTopに来る場合に備える
　　
　　–"on"（ハンドラ宣言）の項目をリストアップ文字と色で抽出
　　set thePred2 to NSPredicate’s predicateWithFormat_("stringVal == %@ && colorStr == %@ ", "on", ontoCoStr)
　　set fArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred2)’s valueForKeyPath:"itemIndex") as list
　　
　　–"to"（ハンドラ宣言ないしは代入対象指定）　の項目をリストアップ文字と色で抽出
　　set thePred3 to NSPredicate’s predicateWithFormat_("stringVal == %@ && colorStr == %@ ", "to", ontoCoStr)
　　set gArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred3)’s valueForKeyPath:"itemIndex") as list
　　
　　
　　set handlerList to {}
　　
　　–on ではじまるハンドラの抽出
　　repeat with i in eArray –改行を含むテキストのアイテム番号リスト
　　　　set j to (contents of i) as integer
　　　　repeat with ii in fArray –"on"の項目リスト
　　　　　　set jj to (contents of ii) as integer
　　　　　　
　　　　　　set handlerStr to missing value
　　　　　　
　　　　　　if (j + 1) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of (aRec as list))
　　　　　　else if (j + 2) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of (aRec as list))
　　　　　　end if
　　　　　　
　　　　　　if handlerStr is not in {"error", missing value} and handlerStr is not in handlerList then
　　　　　　　　set the end of handlerList to handlerStr
　　　　　　end if
　　　　　　
　　　　end repeat
　　end repeat
　　
　　
　　–to ではじまるハンドラの抽出
　　repeat with i in eArray –改行を含むテキストのアイテム番号リスト
　　　　set j to (contents of i) as integer
　　　　repeat with ii in gArray –"to"の項目リスト
　　　　　　set jj to (contents of ii) as integer
　　　　　　
　　　　　　set handlerStr to missing value
　　　　　　
　　　　　　if (j + 1) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of (aRec as list))
　　　　　　else if (j + 2) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of (aRec as list))
　　　　　　end if
　　　　　　
　　　　　　if handlerStr is not in {"error", missing value} and handlerStr is not in handlerList then
　　　　　　　　set the end of handlerList to handlerStr
　　　　　　end if
　　　　　　
　　　　end repeat
　　end repeat
　　
　　return handlerList
end retHandlerNamesFromAppleScriptSource

–ソースを取得してコンパイル（構文確認）する方式から、URL（fileURL）を指定してコンパイル（構文確認）する方式に変更した
on getAttrRecFromASPath(aFile)
　　set aURL to current application’s |NSURL|’s fileURLWithPath:(POSIX path of aFile)
　　set theScript to OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
　　
　　if theScript is equal to missing value then
　　　　— handle error
　　　　error "Compile Error"
　　else
　　　　–set sourceText to theScript’s source() –No Use
　　　　set styledSourceText to theScript’s richTextSource()
　　end if
　　
　　set attrRes to getAttributeRunsFromAttrString(styledSourceText) of me
　　return attrRes
end getAttrRecFromASPath

–指定AppleScriptファイルのソースコードを取得する（実行専用Scriptからは取得できない）
— Original Created 2014-02-23 Shane Stanley
on getASsourceFor(anAlias as {alias, string})
　　set aURL to current application’s |NSURL|’s fileURLWithPath:(POSIX path of anAlias)
　　set theScript to OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
　　
　　if theScript is equal to missing value then
　　　　— handle error
　　　　error "Compile Error"
　　else
　　　　set sourceText to theScript’s source()
　　end if
　　
　　return sourceText as string
end getASsourceFor

–Attributed StringをDictionary化
on getAttributeRunsFromAttrString(theStyledText)
　　script aSpd
　　　　property styleList : {}
　　end script
　　
　　set (styleList of aSpd) to {} —for output
　　
　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　
　　set theLength to theStyledText’s |length|()
　　set startIndex to 0
　　set itemCount to 1
　　
　　repeat until (startIndex = theLength)
　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(specifier) inRange:{startIndex, theLength – startIndex}
　　　　
　　　　–String　　
　　　　set aText to (thePureString’s substringWithRange:theRange) as string
　　　　
　　　　–Color
　　　　set aColor to (theAtts’s valueForKeyPath:"NSColor")
　　　　if aColor is not equal to missing value then
　　　　　　set aSpace to aColor’s colorSpace()
　　　　　　
　　　　　　set aRed to (aColor’s redComponent()) * 255
　　　　　　set aGreen to (aColor’s greenComponent()) * 255
　　　　　　set aBlue to (aColor’s blueComponent()) * 255
　　　　　　
　　　　　　set colList to {aRed as integer, aGreen as integer, aBlue as integer} –for comparison
　　　　　　set colStrForFind to (aRed as integer as string) & " " & (aGreen as integer as string) & " " & (aBlue as integer as string) –for filtering
　　　　else
　　　　　　set colList to {0, 0, 0}
　　　　　　set colStrForFind to "0 0 0"
　　　　end if
　　　　
　　　　–Font
　　　　set aFont to (theAtts’s valueForKeyPath:"NSFont")
　　　　if aFont is not equal to missing value then
　　　　　　set aDFontName to aFont’s displayName()
　　　　　　set aDFontSize to aFont’s pointSize()
　　　　end if
　　　　
　　　　set the end of (styleList of aSpd) to {stringVal:aText, colorStr:colStrForFind, colorVal:colList, fontName:aDFontName as string, fontSize:aDFontSize, itemIndex:itemCount}
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　　　
　　　　set itemCount to itemCount + 1
　　end repeat
　　
　　return (styleList of aSpd)
　　
end getAttributeRunsFromAttrString

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

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

–AS書式で配色に重複がないかどうかチェック
on chkASLexicalFormatColorConfliction(aList)
　　set anArray to current application’s NSArray’s arrayWithArray:aList
　　set bList to (anArray’s valueForKeyPath:"redValue.stringValue") as list
　　set cList to (anArray’s valueForKeyPath:"greenValue.stringValue") as list
　　set dList to (anArray’s valueForKeyPath:"blueValue.stringValue") as list
　　
　　set colStrList to {}
　　repeat with i from 1 to (length of bList)
　　　　set bItem to contents of item i of bList
　　　　set cItem to contents of item i of cList
　　　　set dItem to contents of item i of dList
　　　　set the end of colStrList to bItem & " " & cItem & " " & dItem
　　end repeat
　　
　　set aRes to returnDuplicatesOnly(colStrList) of me
　　log aRes
　　if aRes is equal to {} then
　　　　return true –重複が存在しなかった場合
　　else
　　　　return false –重複があった場合
　　end if
end chkASLexicalFormatColorConfliction

on retTwoPathList()
　　tell application "Script Debugger"
　　　　set dList to name of every document
　　　　set dResList to choose from list dList with prompt "Select two documents" with multiple selections allowed
　　　　if dResList = false then return false
　　　　if length of dResList is not equal to 2 then
　　　　　　display dialog "Please Select two documents to compare handler contents" buttons {"OK"} default button 1 with icon 1 with title "Selection Error"
　　　　　　return false
　　　　end if
　　　　
　　　　set dPathList to {}
　　　　repeat with i in dResList
　　　　　　set j to contents of i
　　　　　　tell document j
　　　　　　　　set tmpPath to (file spec) as string –HFS path string
　　　　　　end tell
　　　　　　
　　　　　　set the end of dPathList to tmpPath
　　　　end repeat
　　end tell
　　
　　return dPathList
end retTwoPathList

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

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

★Click Here to Open This Script　

AppleScript書類を構文要素ごとに分解（Script Libraries対応版）

Posted on 7月 3 by Takaaki Naganoya

指定のAppleScript書類を読み込んで、スクリプトエディタ上で実行するのと同じ構文色分けのデータに変換するAppleScriptです。

説明するのがややこしい、AppleScript書類の内容を分析するためのAppleScriptです。

AppleScriptのプログラム内容を分析するプログラムは昔からよく作ってきました。とくに、プログラムが巨大になってきたり複雑になってきたり、納品直前に巨大な仕様変更があったりすると（涙）、自分で書いたプログラムを自分で分析する必要が出てくるからです。

AppleScriptの構文解析は面倒です。「return return」（前者はサブルーチンから値を返すコマンド　後者は改行コード）といった記述が可能なので、これを正しく解釈する必要があります。

GithubやXcode上のソースコードエディタなど、キーワードだけで色分けするバカプログラムでは「return return」を正しく解釈できていません。

AppleScriptの処理系そのものが持っている「構文色分け」の機能を用いて、構文解析するのではなく、処理系の機能を用いて構文ごとに色分けされた、その色分け結果の情報を用いて構文ごとの要素を区分けするという方法をMac OS X 10.3の時代から使っていました。

当初はスクリプトエディタをコントロールして実行していましたが、macOS 10.10以降でCocoaの機能が利用できるようになったため、Cocoaのメソッドを用いて処理するようになってきました。

ところが最近、これまで使っていたサブルーチン部品では分析できないケースが出てきました。AppleScript Librariesを組み込んだバンドルスクリプトを処理させるとエラーになります。

自分が使っていたサブルーチンでは、指定のAppleScript書類のソースコードを求め、メモリ上でコンパイルしてインスタンスを生成し、そこから書式情報を取得していました。

しかし、AppleScript Librariesを含むAppleScriptバンドル書類に対してこれを用いると、エラーが出て処理できないことがわかりました。つまり、ライブラリが含まれていない状態のソースを取得してコンパイル（構文確認）すると、ライブラリが存在しないというエラーに直面するわけです。

仕方なく、Xcode上でヘッダーファイル「OSAScript.h」を調べ、URL指定してコンパイル（構文確認）できるメソッドがあることを確認。これを使ってみたところ、AppleScript Librariesを含むAppleScriptバンドル書類も構文要素ごとに分解できました。Shane Stanleyから「Appleのオンラインドキュメントを見ただけでは調査したことにならない。ヘッダーファイルを確認する必要がある」とは何回もコメントをもらっていますが、なかなか奥深いです。

最初（v1.0）、

- (id)initWithContentsOfURL:(NSURL *)url language:(OSALanguage *)language error:(NSDictionary * __nullable * __nullable)errorInfo DEPRECATED_IN_MAC_OS_X_VERSION_10_6_AND_LATER;

を使っていたのですが、「DEPRECATED_IN_MAC_OS_X_VERSION_10_6_AND_LATER」の表記に気づいて、

- (instancetype)initWithSource:(NSString *)source fromURL:(nullable NSURL *)url languageInstance:(nullable OSALanguageInstance *)instance usingStorageOptions:(OSAStorageOptions)storageOptions AVAILABLE_MAC_OS_X_VERSION_10_6_AND_LATER;

に変更しました。OSA言語インスタンスを作ったまま使っていなかったりしますが、その時の変更の名残です。

AppleScript名：AppleScript書類を構文要素ごとに分解（Script Libraries対応版）v1.1.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/07/03
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions
use framework "OSAKit"
use framework "AppKit"

property OSANull : a reference to current application’s OSANull
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property OSAScript : a reference to current application’s OSAScript
property NSPredicate : a reference to current application’s NSPredicate
property NSDictionary : a reference to current application’s NSDictionary
property NSUnarchiver : a reference to current application’s NSUnarchiver
property OSALanguage : a reference to current application’s OSALanguage
property OSALanguageInstance : a reference to current application’s OSALanguageInstance
property OSADontSetScriptLocation : a reference to current application’s OSADontSetScriptLocation

set aFile to choose file of type {"com.apple.applescript.script-bundle", "com.apple.applescript.script"}
set aRec to getAttrRecFromASPath(aFile) of me

–ソースを取得してコンパイル（構文確認）する方式から、URL（fileURL）を指定してコンパイル（構文確認）する方式に変更した
on getAttrRecFromASPath(aFile)
　　set aURL to current application’s |NSURL|’s fileURLWithPath:(POSIX path of aFile)
　　set anOSALanguageInstance to OSALanguage’s languageForName:"AppleScript"
　　set {theScript, theError} to OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(reference)
　　
　　if theError is not equal to missing value then
　　　　— handle error
　　　　error "Compile Error"
　　else
　　　　–set sourceText to theScript’s source() –No Use
　　　　set styledSourceText to theScript’s richTextSource()
　　end if
　　
　　set attrRes to getAttributeRunsFromAttrString(styledSourceText) of me
　　return attrRes
end getAttrRecFromASPath

–Attributed StringをDictionary化
on getAttributeRunsFromAttrString(theStyledText)
　　script aSpd
　　　　property styleList : {}
　　end script
　　
　　set (styleList of aSpd) to {} —for output
　　
　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　
　　set theLength to theStyledText’s |length|()
　　set startIndex to 0
　　set itemCount to 1
　　
　　repeat until (startIndex = theLength)
　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength – startIndex}
　　　　
　　　　–String　　
　　　　set aText to (thePureString’s substringWithRange:theRange) as string
　　　　
　　　　–Color
　　　　set aColor to (theAtts’s valueForKeyPath:"NSColor")
　　　　if aColor is not equal to missing value then
　　　　　　set aSpace to aColor’s colorSpace()
　　　　　　
　　　　　　set aRed to (aColor’s redComponent()) * 255
　　　　　　set aGreen to (aColor’s greenComponent()) * 255
　　　　　　set aBlue to (aColor’s blueComponent()) * 255
　　　　　　
　　　　　　set colList to {aRed as integer, aGreen as integer, aBlue as integer} –for comparison
　　　　　　set colStrForFind to (aRed as integer as string) & " " & (aGreen as integer as string) & " " & (aBlue as integer as string) –for filtering
　　　　else
　　　　　　set colList to {0, 0, 0}
　　　　　　set colStrForFind to "0 0 0"
　　　　end if
　　　　
　　　　–Font
　　　　set aFont to (theAtts’s valueForKeyPath:"NSFont")
　　　　if aFont is not equal to missing value then
　　　　　　set aDFontName to aFont’s displayName()
　　　　　　set aDFontSize to aFont’s pointSize()
　　　　end if
　　　　
　　　　set the end of (styleList of aSpd) to {stringVal:aText, colorStr:colStrForFind, colorVal:colList, fontName:aDFontName as string, fontSize:aDFontSize, itemIndex:itemCount}
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　　　
　　　　set itemCount to itemCount + 1
　　end repeat
　　
　　return (styleList of aSpd)
　　
end getAttributeRunsFromAttrString

★Click Here to Open This Script　

テキストから数値を抽出して度数分布集計 v3

Posted on 6月 29 by Takaaki Naganoya

CotEditorで編集中の最前面の書類の本文中から指定桁の数値を抽出して登場回数で度数分布の集計を行うAppleScriptです。

初版では、集計対象の数値を桁数で指定するという（使うのに）無茶な仕様になっていたので、この頭の悪い仕様に作った本人もめまいがしていました。

わざわざAppleScriptを使うのは、他のどの環境でも追いつけない高度な処理を行うことに意義があると思っています。

そこで、

　（１）数字部分をあらかじめ抽出して事前に集計（分布および最小値、最大値を計算）
　（２）事前集計結果をグラフ表示
　（３）集計対象の数字の範囲を最小値〜最大値までの間で指定できるように
　（４）パラメータの入力、および事前集計結果の表示を自前で作成したアラートダイアログで表示

といった変更を加えてみました。初版では「数字の桁数」というご無体な指定で数字を抽出していましたが、最初に最大値を計算しておいたことで、最大値の桁数ですべて数値を抽出し、最小値・最大値の間に収まる数値のみを抽出して度数分布を再計算しています（言うほど計算結果が変わってきたりはしないんですけど　＾ー＾；；）。

このぐらい行えば、安心して見られる感じでしょうか。

追記：
4.11といった文字が「4」と「11」に分離して認識されるようだったので数値として認識するCharacter setに「.」（小数点）および「,」（桁数区切り）を追加してみました。想定していた部分はうまくクリアしたものの、「REV.」の部分の「.」も認識して「0.411」のような数値として認識したようです。

このあたりに課題を残しつつも、全体として見ると当初からノイズとして除去する対象として考えていた箇所でもあったため、そんなもんだろうかと。

アラートダイアログに表示するテスト集計結果の文字が小さかったので、少し大きくしてみました。フォントについては「ヒラギノ角ゴシック W1」（PostScript名は「HiraginoSans-W1」）を指定しています。このあたりは好みに応じて変更してみるとよいでしょう。

巨大なテキスト（青空文庫の小説１作文まるごととか）を対象に処理していないので（画面キャプチャ掲載している程度のサイズ）そういう配慮は行っていません。仕事だと考慮しないでもないですが、必要と思われた処理をとりあえず組んでみた程度なので、そういうものだとお考えください。

–> Download Applet With Libraries (mainly for macOS 10.14 or later)

AppleScript名：テキストから数値を抽出して度数分布集計 v3.1

— Created 2019-06-29 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use bPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

property NSView : a reference to current application’s NSView
property NSAlert : a reference to current application’s NSAlert
property NSColor : a reference to current application’s NSColor
property NSTextField : a reference to current application’s NSTextField
property NSTextView : a reference to current application’s NSTextView
property NSScrollView : a reference to current application’s NSScrollView
property NSRunningApplication : a reference to current application’s NSRunningApplication

–property theResult : 0
property returnCode : 0
property segRes : missing value

set segRes to missing value

tell application "CotEditor"
　　if (count every document) = 0 then return –No Document
　　
　　tell front document
　　　　set aText to contents of it
　　　　set lineTerm to (line ending)
　　end tell
　　
　　–改行コードの選択（ドキュメントの状態から取得）
　　if lineTerm = LF then
　　　　set aRet to ASCII character 10 –To avoid keyword conflict (string)
　　else if lineTerm = CR then
　　　　set aRet to ASCII character 13
　　else if lineTerm = CRLF then
　　　　set aRet to (ASCII character 13) & (ASCII character 10)
　　else
　　　　set aRet to ASCII character 10
　　end if
end tell

–事前にテキストから自動で数値部分を抽出して分析
set cArray to extractNumberFromText(aText) of me
set aRes to (cArray’s valueForKeyPath:"@max.self")’s intValue()
set bRes to (cArray’s valueForKeyPath:"@min.self")’s intValue()
set cRes to (cArray’s valueForKeyPath:"@count")’s intValue()

–事前に数字の分布シミュレーションを計算
set tmpLen to count every character of (aRes as string)
set theList to my findPattern:("[0-9]{" & tmpLen & "}") inString:aText
set sampleStr to calculateNumFreq(cArray, "■", aRet, bRes, aRes, true) of me

set sampleStr to return & return & "テスト集計結果：" & return & return & sampleStr

–テキストからの数値抽出時のパラメータ取得
set paramObj to {myMessage:"テキスト内の数値の度数分布集計", mySubMessage:"集計対象の数値の範囲と、集計時のグラフ生成時の構成文字を指定してください", mes1:"最小値（min.）", mes1Default:(bRes as string), mes2:"最大値（max.）", mes2Default:(aRes as string), mes3:"出力文字", mes3Default:"絆", aSample:sampleStr}

–set segRes to my inputParametersFromAlertDialog:paramObj–for debugging
my performSelectorOnMainThread:"inputParametersFromAlertDialog:" withObject:(paramObj) waitUntilDone:true
if segRes = missing value then return –Cancel

–度数分布計算
set tmpLen to count every character of ((a2Res of segRes) as string)
set theList to my findPattern:("[0-9]{" & tmpLen & "}") inString:aText
set outStr to calculateNumFreq(cArray, a3Res of segRes, aRet, a1Res of segRes, a2Res of segRes, false) of me

–テキストエディタへの集計結果出力
tell application "CotEditor"
　　tell front document
　　　　set contents of it to (aText & aRet & aRet & "集計結果：" & aRet & aRet & outStr & aRet)
　　end tell
end tell

on inputParametersFromAlertDialog:paramObj
　　–Receive Parameters
　　set aMainMes to (myMessage of paramObj) as string –Main Message
　　set aSubMes to (mySubMessage of paramObj) as string –Sub Message
　　set mes1Label to (mes1 of paramObj) as string –Text Input field 1 Label
　　set mes2Label to (mes2 of paramObj) as string –Text Input field 2 Label
　　set mes3Label to (mes3 of paramObj) as string –Text Input field 3 Label
　　set aTextInputString to (mes1Default of paramObj) as string –Text Input field 1 Default value
　　set bTextInputString to (mes2Default of paramObj) as string –Text Input field 2 Default value
　　set cTextInputString to (mes3Default of paramObj) as string –Text Input field 2 Default value
　　set sampleString to (aSample of paramObj) as string
　　
　　— Create a view
　　set theView to NSView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, 500, 400))
　　
　　— create two input field and their labels pairs
　　–NSTextFields for Input
　　set aTextInput to makeNSTextField(100, 70, 140, 20, true, (aTextInputString), true, true) of me
　　set bTextInput to makeNSTextField(100, 35, 140, 20, true, (bTextInputString), true, true) of me
　　set cTextInput to makeNSTextField(100, 0, 140, 20, true, (cTextInputString), true, true) of me
　　
　　–Labels
　　set a1TF to makeNSTextField(0, 70, 100, 20, false, (mes1Label), false, false) of me
　　set a2TF to makeNSTextField(0, 35, 100, 20, false, (mes2Label), false, false) of me
　　set a3TF to makeNSTextField(0, 0, 100, 20, false, (mes3Label), false, false) of me
　　
　　–Sample Text View
　　set aColor to NSColor’s colorWithDeviceRed:0.0 green:0.0 blue:0.0 alpha:0.9
　　set tvScroll to NSScrollView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 120, 500, 300))
　　set tvView to NSTextView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 120, 500, 380))
　　tvView’s setRichText:true
　　tvView’s useAllLigatures:true
　　tvView’s setTextColor:(NSColor’s cyanColor()) —
　　tvView’s setFont:(current application’s NSFont’s fontWithName:"HiraginoSans-W1" |size|:16.0)
　　tvView’s setBackgroundColor:aColor
　　tvView’s setEditable:false
　　
　　tvScroll’s setDocumentView:tvView
　　tvView’s enclosingScrollView()’s setHasVerticalScroller:true
　　tvView’s setString:(sampleString)
　　
　　
　　theView’s setSubviews:{a1TF, aTextInput, a2TF, bTextInput, a3TF, cTextInput, tvScroll}
　　
　　— set up alert
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:theView
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　if (my returnCode as number) = 1001 then
　　　　set my segRes to missing value
　　else
　　　　set s1Val to (aTextInput’s integerValue()) as integer
　　　　set s2Val to (bTextInput’s integerValue()) as integer
　　　　set s3Val to (cTextInput’s stringValue()) as string
　　　　
　　　　–return {a1Res:s1Val, a2Res:s2Val, a3Res:s3Val}–old version’s way to return values
　　　　set my segRes to {a1Res:s1Val, a2Res:s2Val, a3Res:s3Val}
　　end if
end inputParametersFromAlertDialog:

on doModal:aParam
　　set (my returnCode) to aParam’s runModal()
end doModal:

on makeNSTextField(xPos as integer, yPos as integer, myWidth as integer, myHeight as integer, editableF as boolean, setVal as string, backgroundF as boolean, borderedF as boolean)
　　set aNSString to NSTextField’s alloc()’s initWithFrame:(current application’s NSMakeRect(xPos, yPos, myWidth, myHeight))
　　aNSString’s setEditable:(editableF)
　　aNSString’s setStringValue:(setVal)
　　aNSString’s setDrawsBackground:(backgroundF)
　　aNSString’s setBordered:(borderedF)
　　return aNSString
end makeNSTextField

–与えられたテキストから数値部分を抽出して1D Arrayで返す
on extractNumberFromText(aText)
　　set aStr to current application’s NSString’s stringWithString:aText
　　–set nonDigitCharacterSet to (current application’s NSCharacterSet’s decimalDigitCharacterSet())’s invertedSet()
　　set nonDigitCharacterSet to (current application’s NSCharacterSet’s characterSetWithCharactersInString:"0123456789.,")’s invertedSet()
　　set bArray to (aStr’s componentsSeparatedByCharactersInSet:nonDigitCharacterSet)
　　
　　–Sweep Blank Items
　　load framework –BridgePlus
　　set cArray to (current application’s SMSForder’s arrayByDeletingBlanksIn:(bArray))’s valueForKey:"intValue"
　　return cArray –return as NSArray
end extractNumberFromText

–正規表現でテキスト中から指定パターンに該当する箇所を抽出してリストで返す
on findPattern:thePattern inString:theString
　　set theOptions to ((current application’s NSRegularExpressionDotMatchesLineSeparators) as integer) + ((current application’s NSRegularExpressionAnchorsMatchLines) as integer)
　　set theRegEx to current application’s NSRegularExpression’s regularExpressionWithPattern:thePattern options:theOptions |error|:(missing value)
　　set theFinds to theRegEx’s matchesInString:theString options:0 range:{location:0, |length|:length of theString}
　　set theFinds to theFinds as list — so we can loop through
　　set theResult to {} — we will add to this
　　set theNSString to current application’s NSString’s stringWithString:theString
　　repeat with i from 1 to count of items of theFinds
　　　　set theRange to (item i of theFinds)’s range()
　　　　set end of theResult to (theNSString’s substringWithRange:theRange) as integer
　　end repeat
　　return theResult
end findPattern:inString:

–1D Listをユニーク化してソート
on uniquifyAndSort1DList(theList as list, aBool as boolean)
　　set aArray to current application’s NSArray’s arrayWithArray:theList
　　set bArray to aArray’s valueForKeyPath:"@distinctUnionOfObjects.self"
　　set aDdesc to current application’s NSSortDescriptor’s sortDescriptorWithKey:"self" ascending:aBool selector:"compare:"
　　set cArray to bArray’s sortedArrayUsingDescriptors:{aDdesc}
　　
　　set bList to cArray as list
　　return bList
end uniquifyAndSort1DList

–度数分布集計して文字グラフ出力
on calculateNumFreq(theList, outChar, aLineTerminator, aMin, aMax, zeroPaddingF)
　　set theCountedSet to current application’s NSCountedSet’s alloc()’s initWithArray:theList
　　set newArray to current application’s NSMutableArray’s new()
　　
　　set kList to uniquifyAndSort1DList(theList, false) of me –降順ソート
　　set maxDigit to (count every character of (aMax as string))
　　
　　repeat with i in kList
　　　　if (i ≥ aMin) and (i ≤ aMax) then
　　　　　　(newArray’s addObject:{theKey:i, theCount:(theCountedSet’s countForObject:i)})
　　　　end if
　　end repeat
　　
　　set outStr to ""
　　
　　repeat with i in newArray as list
　　　　set j to (current application’s NSDictionary’s dictionaryWithDictionary:i)
　　　　set tmpStr to (j’s valueForKey:"theKey")
　　　　
　　　　if zeroPaddingF = true then
　　　　　　–Zero Pagging
　　　　　　set keyNumStr to numToZeroPaddingStr(tmpStr, maxDigit, "0") of me
　　　　else
　　　　　　–No Padding
　　　　　　copy (tmpStr as string) to keyNumStr
　　　　end if
　　　　
　　　　set outStr to outStr & keyNumStr & "："
　　　　
　　　　set aNum to (j’s valueForKey:"theCount")
　　　　repeat aNum times
　　　　　　set outStr to outStr & outChar
　　　　end repeat
　　　　
　　　　set outStr to outStr & aLineTerminator
　　end repeat
end calculateNumFreq

–整数の値に指定桁数ゼロパディングして文字列で返す
on numToZeroPaddingStr(aNum as integer, aDigit as integer, paddingChar as text)
　　set aNumForm to current application’s NSNumberFormatter’s alloc()’s init()
　　aNumForm’s setPaddingPosition:(current application’s NSNumberFormatterPadBeforePrefix)
　　aNumForm’s setPaddingCharacter:paddingChar
　　aNumForm’s setMinimumIntegerDigits:aDigit
　　
　　set bNum to current application’s NSNumber’s numberWithInt:aNum
　　set aStr to aNumForm’s stringFromNumber:bNum
　　
　　return aStr as text
end numToZeroPaddingStr

★Click Here to Open This Script　

テキストから指定桁数の数値を抽出して度数分布集計

Posted on 6月 28 by Takaaki Naganoya

CotEditorで編集中の最前面の書類の本文中から指定桁の数値を抽出して登場回数で度数分布の集計を行うAppleScriptです。

CotEditorのアプリケーション内のスクリプトメニューに入れて実行できることを確認してあります（@macOS 10.14.5）。

たまたま、テキストで集計していた情報のうち、数値部分の度数分布を計算したいと考え、ありもののルーチンを組み合わせて作ったものです。

実行すると、集計対象の数値の桁数を聞いてくるため、適当なものを選択してださい。

CotEditorのScriptingの要注意点で、オブジェクト階層を素直に書いて、当該階層のオブジェクトの属性値を取りたいような場合に、そのまま属性を書いても取得できないケースが見られます。そのため、明示的にオブジェクト階層を指定するために「of it」を書いています。Xcodeが同じような挙動を行うため、注意が必要です。

本Scriptについていえば、正規表現でテキストから情報を抽出したりと、一応最低限のレベルはクリアしているものの、いまひとつ満足できません。

数字が連続して登場している箇所を抽出し、どれを集計対象にするのかといった分析を冒頭で行ってユーザーに問い合わせしたいところです。現段階では、「桁数を聞く」という頭の悪い実装になっていますが、そのうちどうにかしたいと考えるところです。

AppleScript名：テキストから指定桁数の数値を抽出して度数分布集計.scptd

— Created 2019-06-28 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property graphStr : "絆" –グラフに出力する文字

tell application "CotEditor"
　　–最前面の書類からテキスト本文を取得
　　tell front document
　　　　set aText to contents of it –本文
　　　　set lineTerm to (line ending) –改行コード
　　end tell
　　
　　–改行コードの選択（ドキュメントの状態から取得）
　　if lineTerm = LF then
　　　　set aRet to ASCII character 10 –To avoid keyword conflict (string)
　　else if lineTerm = CR then
　　　　set aRet to ASCII character 13
　　else if lineTerm = CRLF then
　　　　set aRet to (ASCII character 13) & (ASCII character 10)
　　else
　　　　set aRet to ASCII character 10
　　end if
end tell

–桁数選択
set digiList to {"2", "3", "4", "5"}
set digitRes to first item of (choose from list digiList with prompt "Choose the digit to extract as numbers")

–正規表現で数字部分のみ抽出
set theList to my findPattern:("[0-9]{" & digitRes & "}") inString:aText

–検出した数字部分の度数分布を計算
set theCountedSet to current application’s NSCountedSet’s alloc()’s initWithArray:theList
set newArray to current application’s NSMutableArray’s new()
set kList to uniquifyAndSort1DList(theList, false) of me –降順ソート

repeat with i in kList
　　(newArray’s addObject:{theKey:i, theCount:(theCountedSet’s countForObject:i)})
end repeat

–出力用のテキストを作成
set outStr to ""
repeat with i in newArray as list
　　set outStr to (outStr & (theKey of i) as string) & "："
　　set aNum to (theCount of i) as integer
　　
　　repeat aNum times
　　　　set outStr to outStr & graphStr
　　end repeat
　　
　　set outStr to outStr & aRet
end repeat

–最前面のテキスト末尾に集計結果を出力
tell application "CotEditor"
　　tell front document
　　　　set contents of it to (aText & aRet & aRet & "集計結果：" & aRet & aRet & outStr & aRet)
　　end tell
end tell

★Click Here to Open This Script　

アラートダイアログ上にTextField x 2を表示 v2

Posted on 5月 2 by Takaaki Naganoya

アラートダイアログに簡易UIを実装して便利なダイアログ部品を整備する計画の一環として作成した、アラートダイアログにNSTextFieldを２つ＋ラベル用のfield２つを作成して、ユーザーからの数値入力を取得するAppleScriptです。

スクリプトエディタ、ScriptDebuggerの両方で実行できますが、Script Menuから実行するとダイアログが最前面に表示されません。Script Menuから実行する場合にはAppleScript書類の状態で呼び出すのではなく、AppleScriptアプレットに書き出して呼び出すのがよいでしょう。

macOS 10.14上では本Scriptの実行は明確にメインスレッド上で行うことを要求されます。Control-Comand-Rで実行してください。

AppleScript名：アラートダイアログ上にTextField x 2を表示 v2

— Created 2019-05-02 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"

property NSView : a reference to current application’s NSView
property NSAlert : a reference to current application’s NSAlert
property NSTextField : a reference to current application’s NSTextField
property NSRunningApplication : a reference to current application’s NSRunningApplication

property theResult : 0
property returnCode : 0

set paramObj to {myMessage:"Keynoteオブジェクトの２次元詰め込み", mySubMessage:"詰め込み先の矩形サイズを数値で入力してください", mes1:"幅", mes1Default:"900", mes2:"高さ", mes2Default:"500"}

set segRes to my simulateAndRetRect:paramObj
–> {a1Res:900, a2Res:500}

on simulateAndRetRect:paramObj
　　–Receive Parameters
　　set aMainMes to (myMessage of paramObj) as string –Main Message
　　set aSubMes to (mySubMessage of paramObj) as string –Sub Message
　　set mes1Label to (mes1 of paramObj) as string –Text Input field 1 Label
　　set mes2Label to (mes2 of paramObj) as string –Text Input field 2 Label
　　set aTextInputString to (mes1Default of paramObj) as string –Text Input field 1 Default value
　　set bTextInputString to (mes2Default of paramObj) as string –Text Input field 2 Default value
　　
　　— Create a view
　　set theView to NSView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, 300, 60))
　　
　　— create two input field and their labels pairs
　　–NSTextFields for Input
　　set aTextInput to makeNSTextField(100, 35, 140, 20, true, (aTextInputString), true, true) of me
　　set bTextInput to makeNSTextField(100, 0, 140, 20, true, (bTextInputString), true, true) of me
　　
　　–Labels
　　set a1TF to makeNSTextField(0, 35, 100, 20, false, (mes1Label), false, false) of me
　　set a2TF to makeNSTextField(0, 0, 100, 20, false, (mes2Label), false, false) of me
　　
　　theView’s setSubviews:{a1TF, aTextInput, a2TF, bTextInput}
　　
　　— set up alert
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:theView
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　if (my returnCode as number) = 1001 then error number -128
　　
　　set s1Val to (aTextInput’s integerValue()) as integer
　　set s2Val to (bTextInput’s integerValue()) as integer
　　
　　return {a1Res:s1Val, a2Res:s2Val}
end simulateAndRetRect:

on doModal:aParam
　　set (my returnCode) to aParam’s runModal()
end doModal:

★Click Here to Open This Script　

Google Sheets URLから正規表現でIDを抽出 v2

Posted on 4月 18 by Takaaki Naganoya

文字列で与えられたGoogle SpreadSheetsのURLから正規表現の機能を用いてSheets IDを抽出するAppleScriptです。

初回掲載時の内容にShane Stanleyから「長さが０の文字列」（zero length string）に対応できていないので、変更したほうがいいよ、という助言をもらったので書き換えました（Thanks Shane!）。

AppleScript名：Google Sheets URLから正規表現でIDを抽出 v2

— Created 2019-04-18 by Takaaki Naganoya
— Modified 2019-04-19 by Shane Stanley
use AppleScript version "2.5" –macOS 10.11 or later
use scripting additions
use framework "Foundation"

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

–https://developers.google.com/sheets/guides/concepts?hl=ja
set aURLText to "https://docs.google.com/spreadsheets/d/1qpyC0XzvTcKT6EISywvqESX3A0MwQoFDE8p-Bll4hps/edit#gid=0
"
set sheetsID to (stripGoogleSheetsIDFromURL(aURLText) of me) as string
–> "1qpyC0XzvTcKT6EISywvqESX3A0MwQoFDE8p-Bll4hps"

set aURLText to "" –Zero Length String
set sheetsID to (stripGoogleSheetsIDFromURL(aURLText) of me) as string
–> ""

on stripGoogleSheetsIDFromURL(aText as string)
　　set sStrHead to "/spreadsheets/d/"
　　set regStr to sStrHead & "([a-zA-Z0-9-_]+)"
　　
　　set anNSString to NSString’s stringWithString:aText
　　set aRange to anNSString’s rangeOfString:regStr options:(NSRegularExpressionSearch)
　　
　　–if aRange = {location:0, length:0} then return ""–v1
　　if |length| of aRange = 0 then return "" –Prepare for zero length strings(Thanks Shane!)
　　
　　set bStr to anNSString’s substringWithRange:aRange
　　set theString to bStr’s stringByReplacingOccurrencesOfString:sStrHead withString:"" options:(NSRegularExpressionSearch) range:{location:0, |length|:length of sStrHead}
　　
　　return theString as string
end stripGoogleSheetsIDFromURL

★Click Here to Open This Script　

指定単語の花文字テキストを取得する（Retina対応）英文字用 v2

Posted on 3月 29 by Takaaki Naganoya

英語版の花文字テキストを作成してテキストエディタ（CotEditor）に出力するAppleScriptです。

描画用の英単語と、塗りつぶし用の英単語を別々に指定できます。invertFをtrueに設定すると、白黒反転出力を行います。

おおもとの元ネタは、大型計算機を大勢のユーザーで共有していた時代（ぱそこん登場前）、計算結果を高速プリンタの帳票に出力するようになっていたころにさかのぼります。どのユーザーの計算結果かを大量のプリンタの出力結果の中から仕分けるため、印刷出力の１ページ目をユーザー名などの情報を印字した「バナー」として使用。

そのさい、ドットインパクトプリンターだったので、決められた固定ドット数の文字しか印字できないため、英数字を組み合わせて擬似的に大きな文字でバナーを印刷していたことに端を発します。

その時代の「残り香」ともいえるバナーがパソコンの電子メールやBBSの時代にお遊びの「花文字」として引き継がれ、原始的なアスキーアートの一種として楽しまれてきました。

いまでも、shell commandの「banner」コマンドにその末裔を見ることができます。

先週のmacOS nativeのデモ時に「祝」という花文字を「呪」の文字で出力するという、定番の持ちネタを披露したところ、たいへんウケておりました。

ただ、これを海外のScripter向けにそのままデモしても受けません。

この、花文字テキストを出力するプログラムの英語版としては、love.scptといういにしえのデータをそのまま使いまわしたものがありますが、描画パターンを数値データで保持しているため、異なるパターンを表示させることはできません。

そこで、日本語版の花文字テキスト出力プログラムに若干手をくわえ、英単語の出力が行えるようにしてみました。

テキストの出力はCotEditorに対して行なっていますが、新規書類を指定文字で作成する程度なので、AppleScriptに対応しているテキストエディタならどれでも作り変えられます。また、表示を等幅フォントにしておく必要があります（あとから指定してもOK）。

AppleScript名：指定単語の花文字テキストを取得する（Retina対応）英文字用 v2

— Created 2017-12-12 by Takaaki Naganoya
— Modified 2019-03-29 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

property NSFont : a reference to current application’s NSFont
property NSUUID : a reference to current application’s NSUUID
property NSColor : a reference to current application’s NSColor
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSImage : a reference to current application’s NSImage
property NSPredicate : a reference to current application’s NSPredicate
property NSDictionary : a reference to current application’s NSDictionary
property NSBezierPath : a reference to current application’s NSBezierPath
property NSColorSpace : a reference to current application’s NSColorSpace
property NSPNGFileType : a reference to current application’s NSPNGFileType
property NSFontManager : a reference to current application’s NSFontManager
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSFontAttributeName : a reference to current application’s NSFontAttributeName
property NSKernAttributeName : a reference to current application’s NSKernAttributeName
property NSMutableParagraphStyle : a reference to current application’s NSMutableParagraphStyle
property NSLigatureAttributeName : a reference to current application’s NSLigatureAttributeName
property NSMutableAttributedString : a reference to current application’s NSMutableAttributedString
property NSUnderlineStyleAttributeName : a reference to current application’s NSUnderlineStyleAttributeName
property NSParagraphStyleAttributeName : a reference to current application’s NSParagraphStyleAttributeName
property NSForegroundColorAttributeName : a reference to current application’s NSForegroundColorAttributeName

property fillCharList : {}
property fillCharCounter : 1

set aString to "Love"
set bString to "hate"
set hanaSize to 24
set thisFont to selectAFont(first character of aString) of me
if thisFont = false then return –Cancel

–花文字文字列を作成
set fRes to getEnglishHanamojiStr(hanaSize, thisFont, aString, bString, 0.7, true, true) of me
makeNewDocument given parameter:fRes

–花文字文字列を計算して返す
on getEnglishHanamojiStr(aFontSize as real, aFontName as string, aString as string, fillString as string, aThread as real, incFontName as boolean, invertF as boolean)
　　
　　set my fillCharList to characters of fillString
　　set my fillCharCounter to 1
　　
　　–指定文字コードが指定フォント中に存在するかチェック
　　repeat with i in (characters of aString)
　　　　set fRes to retGlyphsInFont(aFontName, id of i) of me
　　　　if fRes = false then return false
　　end repeat
　　
　　set aThreadShould to 768 * aThread
　　if (chkMultiByteChar(first character of aString) of me) = false then
　　　　set spaceChar to string id 12288 –全角スペース（UTF-16）
　　else
　　　　set spaceChar to string id 32 –半角スペース
　　end if
　　
　　set fillColor to NSColor’s whiteColor –塗り色
　　set bString to aString & " " –処理内容の帳尻合わせ（そのままだと右端が欠けるのでスペースを入れた）
　　set anAssrStr to makeRTFfromParameters(bString, aFontName, aFontSize, -2, (aFontSize * 1.2)) of me
　　set aSize to anAssrStr’s |size|()
　　
　　if class of aSize = record then
　　　　set attrStrWidth to width of aSize
　　　　set attrStrHeight to height of aSize
　　else if class of aSize = list then –macOS 10.13.xのバグ回避
　　　　copy aSize to {attrStrWidth, attrStrHeight}
　　end if
　　
　　set {xPos, yPos} to {0, 0}
　　
　　set tmpImg1 to makeImageWithFilledColor(attrStrWidth, attrStrHeight, fillColor) of me
　　set tmpImg2 to drawAttributedStringsOnImage(tmpImg1, anAssrStr, xPos, yPos) of me
　　set aRawimg to NSBitmapImageRep’s imageRepWithData:(tmpImg2’s TIFFRepresentation())
　　
　　–画像から順次指定座標の色データを拾って花文字listに反映
　　set strList to {}
　　repeat with y from 1 to attrStrHeight – 1
　　　　
　　　　set strListX to {}
　　　　repeat with x from 0 to attrStrWidth – 1
　　　　　　set tmpCol to getColorFromRawImage(aRawimg, x, y) of me
　　　　　　
　　　　　　if invertF = false then
　　　　　　　　
　　　　　　　　–通常描画（invert = false）時
　　　　　　　　if tmpCol is not equal to false then
　　　　　　　　　　if tmpCol is not equal to {255, 255, 255} then
　　　　　　　　　　　　copy tmpCol to {tmpR, tmpG, tmpB}
　　　　　　　　　　　　if (tmpR + tmpG + tmpB) < aThreadShould then
　　　　　　　　　　　　　　set the end of strListX to getChar() of me
　　　　　　　　　　　　else
　　　　　　　　　　　　　　set the end of strListX to spaceChar
　　　　　　　　　　　　end if
　　　　　　　　　　else
　　　　　　　　　　　　set the end of strListX to spaceChar
　　　　　　　　　　end if
　　　　　　　　end if
　　　　　　　　
　　　　　　else
　　　　　　　　–白黒反転（invert = true)時
　　　　　　　　if tmpCol is not equal to false then
　　　　　　　　　　if tmpCol is not equal to {255, 255, 255} then
　　　　　　　　　　　　copy tmpCol to {tmpR, tmpG, tmpB}
　　　　　　　　　　　　if (tmpR + tmpG + tmpB) < aThreadShould then
　　　　　　　　　　　　　　set the end of strListX to spaceChar
　　　　　　　　　　　　else
　　　　　　　　　　　　　　set the end of strListX to getChar() of me
　　　　　　　　　　　　end if
　　　　　　　　　　else
　　　　　　　　　　　　set the end of strListX to getChar() of me
　　　　　　　　　　end if
　　　　　　　　end if
　　　　　　　　
　　　　　　end if
　　　　end repeat
　　　　set the end of strList to strListX
　　end repeat
　　
　　–2D List→Text
　　set aRes to list2dToStringByUsingDelimiters(strList, "", return) of me
　　
　　if incFontName = true then
　　　　set fName to getDisplayedNameOfFont(aFontName) of me
　　　　set aRes to "Font=" & fName & return & return & aRes
　　end if
　　
　　return aRes
end getEnglishHanamojiStr

on getChar()
　　set retChar to item (my fillCharCounter) of (my fillCharList)
　　if (my fillCharCounter) = length of (my fillCharList) then
　　　　set (my fillCharCounter) to 1
　　else
　　　　set (my fillCharCounter) to (my fillCharCounter) + 1
　　end if
　　return retChar
end getChar

–指定Raw画像中の指定座標のピクセルの色をRGBで取り出す
on getColorFromRawImage(aRawimg, x as real, y as real)
　　set aRatio to getImageRatio() of me –Retina Display対応
　　set origColor to (aRawimg’s colorAtX:(x * aRatio) y:(y * aRatio))
　　
　　set srgbColSpace to NSColorSpace’s deviceRGBColorSpace
　　if srgbColSpace = missing value then return false
　　
　　set aColor to (origColor’s colorUsingColorSpace:srgbColSpace)
　　
　　set aRed to (aColor’s redComponent()) * 255
　　set aGreen to (aColor’s greenComponent()) * 255
　　set aBlue to (aColor’s blueComponent()) * 255
　　
　　return {aRed as integer, aGreen as integer, aBlue as integer}
end getColorFromRawImage

–画像のうえに指定のスタイル付きテキストを描画して画像を返す
on drawAttributedStringsOnImage(anImage, anAssrStr, xPos as real, yPos as real)
　　anImage’s lockFocus()
　　anAssrStr’s drawAtPoint:(current application’s NSMakePoint(xPos, yPos))
　　anImage’s unlockFocus()
　　return anImage
end drawAttributedStringsOnImage

–書式つきテキストを組み立てる
on makeRTFfromParameters(aStr as string, fontName as string, aFontSize as real, aKerning as real, aLineSpacing as real)
　　set aVal1 to NSFont’s fontWithName:fontName |size|:aFontSize
　　set aKey1 to (NSFontAttributeName)
　　
　　set aVal2 to NSColor’s blackColor()
　　set aKey2 to (NSForegroundColorAttributeName)
　　
　　set aVal3 to aKerning
　　set akey3 to (NSKernAttributeName)
　　
　　set aVal4 to 0
　　set akey4 to (NSUnderlineStyleAttributeName)
　　
　　set aVal5 to 2 –all ligature ON
　　set akey5 to (NSLigatureAttributeName)
　　
　　set aParagraphStyle to NSMutableParagraphStyle’s alloc()’s init()
　　aParagraphStyle’s setMinimumLineHeight:(aLineSpacing)
　　aParagraphStyle’s setMaximumLineHeight:(aLineSpacing)
　　set akey7 to (NSParagraphStyleAttributeName)
　　
　　set keyList to {aKey1, aKey2, akey3, akey4, akey5, akey7}
　　set valList to {aVal1, aVal2, aVal3, aVal4, aVal5, aParagraphStyle}
　　set attrsDictionary to NSMutableDictionary’s dictionaryWithObjects:valList forKeys:keyList
　　
　　set attrStr to NSMutableAttributedString’s alloc()’s initWithString:aStr attributes:attrsDictionary
　　return attrStr
end makeRTFfromParameters

–指定サイズの画像を作成し、背景を指定色で塗る
on makeImageWithFilledColor(aWidth as real, aHeight as real, fillColor)
　　set anImage to NSImage’s alloc()’s initWithSize:(current application’s NSMakeSize(aWidth, aHeight))
　　set aRatio to getImageRatio() of me –Retina Display対応
　　
　　anImage’s lockFocus()
　　set theRect to {{x:0, y:0}, {width:aWidth * aRatio, height:aHeight * aRatio}}
　　set theNSBezierPath to NSBezierPath’s bezierPath
　　theNSBezierPath’s appendBezierPathWithRect:theRect
　　fillColor’s |set|()
　　theNSBezierPath’s fill()
　　anImage’s unlockFocus()
　　
　　return anImage
end makeImageWithFilledColor

–2D Listをアイテム間および行間のデリミタを個別に指定してテキスト変換
on list2dToStringByUsingDelimiters(aList as list, itemDelimiter, lineDelimiter)
　　set outList to {}
　　repeat with i in aList
　　　　set aStr to listToStringUsingTextItemDelimiter(i, itemDelimiter) of me
　　　　set the end of outList to aStr
　　end repeat
　　
　　set bStr to listToStringUsingTextItemDelimiter(outList, lineDelimiter) of me
　　return bStr
end list2dToStringByUsingDelimiters

on listToStringUsingTextItemDelimiter(sourceList as list, textItemDelimiter)
　　set CocoaArray to NSArray’s arrayWithArray:sourceList
　　set CocoaString to CocoaArray’s componentsJoinedByString:textItemDelimiter
　　return (CocoaString as string)
end listToStringUsingTextItemDelimiter

–ユーザー環境にインストールされているすべてのフォントのPostScript名とグリフ数を返す
on getEveryFontPSNameANdGlyphsNum(aStr)
　　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 aNum to countNumberOfGlyphsInFont(aName) of me
　　　　set dName to getDisplayedNameOfFont(aName) of me
　　　　
　　　　set fRes to retGlyphsInFont(aName, id of aStr) of me
　　　　if fRes = true then
　　　　　　set the end of aList to {fontName:aName, fontNum:aNum, dispName:dName}
　　　　end if
　　end repeat
　　
　　return aList
end getEveryFontPSNameANdGlyphsNum

–指定Postscript名称のフォントに定義されている文字数を数えて返す
on countNumberOfGlyphsInFont(fontName as string)
　　set aFont to NSFont’s fontWithName:fontName |size|:9.0
　　if aFont = missing value then return false
　　set aProp to aFont’s numberOfGlyphs()
　　return aProp as number
end countNumberOfGlyphsInFont

–フォントのPostScript NameからDisplayed Nameを取得
on getDisplayedNameOfFont(aName as string)
　　set aFont to NSFont’s fontWithName:aName |size|:9.0
　　set aDispName to (aFont’s displayName()) as string
　　return aDispName
end getDisplayedNameOfFont

–全角文字が存在するか
on chkMultiByteChar(checkString as string)
　　set aStr to NSString’s stringWithString:checkString
　　set aRes to aStr’s canBeConvertedToEncoding:(current application’s NSASCIIStringEncoding)
　　return (aRes as boolean)
end chkMultiByteChar

–指定名称のフォントに指定の文字コードが含まれているかチェック
on retGlyphsInFont(fontName as string, strCode as integer)
　　set aFont to NSFont’s fontWithName:fontName |size|:24.0
　　if aFont = missing value then return false
　　set aSet to aFont’s coveredCharacterSet()
　　set aRes to (aSet’s characterIsMember:strCode) as boolean
　　return aRes as list of string or string –as anything
end retGlyphsInFont

on selectAFont(aString)
　　set fRes to getEveryFontPSNameANdGlyphsNum(aString) of me
　　set theArray to NSArray’s arrayWithArray:fRes
　　set thePred to NSPredicate’s predicateWithFormat:"fontNum > 10000"
　　set bArray to ((theArray’s filteredArrayUsingPredicate:thePred)’s valueForKeyPath:"dispName") as list
　　set thisFont to choose from list bArray
　　return thisFont
end selectAFont

–Retina Display対応ルーチン
on getImageRatio()
　　set retinaF to detectRetinaDisplay() of me
　　if retinaF = true then
　　　　return 2.0 as real
　　else
　　　　return 1.0 as real
　　end if
end getImageRatio

on detectRetinaDisplay()
　　set dispList to current application’s NSScreen’s screens()
　　set retinaF to false
　　
　　repeat with i in dispList
　　　　set j to contents of i
　　　　set aDepth to j’s backingScaleFactor()
　　　　if aDepth > 1.0 then
　　　　　　set retinaF to true
　　　　end if
　　end repeat
　　
　　return retinaF
end detectRetinaDisplay

on makeNewDocument given parameter:aStr
　　tell application id "com.coteditor.CotEditor"
　　　　activate
　　　　set newDoc to make new document
　　　　tell newDoc
　　　　　　set contents to aStr
　　　　end tell
　　end tell
end makeNewDocument

★Click Here to Open This Script　

Xcodeで最前面のAS sourceを構文確認

Posted on 3月 27 by Takaaki Naganoya

Xcodeで編集中のAppleScriptのプログラムを構文確認（コンパイルと表記されている、構文チェックと中間コードへの変換チェック、省略表記の展開など）するAppleScriptです。

本ScriptはXcode 9.2＋macOS 10.12.6でテストしたものです。macOS 10.14＋Xcode 10.2で実行したところ、file documentのnameに「– Edited」という入っていてはいけない文字列が入っていたり（それはWindowのtitleであってdocumentのnameじゃないだろう、、、、）、AppleScriptからXcodeを（データ書き込み）操作するとXcodeがクラッシュしたりと、まともに動作していない印象です。

Xcode 10.1＋macOS 10.13.6で動かしたぶんには、Xcode上の表示は更新されていないものの、プロジェクト内の他のファイルをいったん表示させたあとに再度Scriptを表示させると書き換わっていました。Xcode 10.2＋macOS 10.14.4の組み合わせでおかしな動きを行なっているようです。

XcodeのテキストエディタはAppleScriptの構文色分けを反映して表示しませんし、編集中にコンパイル（構文確認）するための機能がありません。インデント合わせやtellブロックやifブロックのネスティングの確認なども行えないため、記述のための最低限の機能を備えておらず、まともにプログラムを書くのであればScript Debuggerの併用は必須といえます。

先日のmacOS Nativeのミーティングにて、プレーンテキストエディタであるCotEditor上に記述したテキストのAppleScriptをコンパイル（構文確認）し、実際に実行して結果をCotEditor上の新規書類に出力するデモを実施。

このデモ内容は、はるかかなた昔から行なってきたものであり、CotEditorにかぎらず、あまねくどんなテキストエディタに対しても実行できるものです。macOS標準搭載のテキストエディットに対してすら同様のScriptを実行できます。

……と、振り返っていたときに、冒頭の「機能が致命的に足りない」Xcodeのテキストエディタのことを思い出したのです。

Xcodeのテキストエディタは（AppleScriptにとっては）致命的に機能が足りない欠陥品ですが、欠陥品には欠陥品なりの扱いをすればよいのではないかと気づきました。Xcodeに対してAppleScriptを実行することで、ソースを取得し、AppleScriptでAppleScriptをコンパイルし、Xcodeに書き戻してやればよいのではないか、と。

ずいぶんと昔に書いたXcode操作のScriptに若干のルーチンを足して動かしてみたところ、想像どおりうまく動きました。

ただし、少々のテストを行なっただけなので、実際にもっと使い込んでみる必要性を感じます。また、Xcode側が不可思議な挙動を行うため、Xcode上でAppleScriptを記述する場合には、依然としてScript Debugger必須です。

ちなみに、XcodeのAppleScriptサポート機能はいまひとつ不思議な挙動を行います。tellブロックでオブジェクト（documentとか）をくくり、その内側でオブジェクトに対する操作を行おうとするとエラー。tellブロックを正常に認識せず、tellブロック内でもそのオブジェクトへの参照を「of it」のように書く必要があります（実は、CotEditorもこのタイプ）。

最近、そのような不思議な挙動を行うアプリケーションがいくつか見られたため、「はいはい。君はof itが必要な人なんだね」と乗り切りましたが、これに気づかないと永遠にXcodeのまともなScriptは書けません。要注意です。

AppleScript名：最前面のAS sourceを構文確認.scptd

— Created 2018-05-19 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "OSAKit"

property OSAScript : a reference to current application’s OSAScript
property OSALanguage : a reference to current application’s OSALanguage
property OSALanguageInstance : a reference to current application’s OSALanguageInstance

property targX : 1024 –View Width
property targY : 2048 –View Height

tell application "Xcode"
　　–最前面のWindowの情報を取得
　　set winProp to properties of front window
　　set aDoc to document of winProp –Xcode のworkspace document（xcodeproj）
　　–> workspace document "WKWebViewDemo.xcodeproj" of application "Xcode"
　　
　　set docProp to properties of aDoc
　　set xcodeDocPath to path of docProp
　　–> "/Users/me/Documents/Objective-C/WKWebViewDemo_MAC-master/WKWebViewDemo.xcodeproj"
　　
　　set aFileDoc to name of winProp
　　–> "ViewController.m"
　　
　　try
　　　　set aDoc to file document aFileDoc
　　　　–> source document "ViewController.m" of application "Xcode"
　　on error
　　　　–Storyboard/Xib file/info.plist/Assetsなどを表示中の場合にはエラーになる
　　　　return false
　　end try
　　
　　set aDocPath to path of aDoc
　　–> "/Users/me/Documents/Objective-C/WKWebViewDemo_MAC-master/WKWebViewDemo/ViewController.m"
end tell

if aDocPath does not end with ".applescript" then
　　display notification "Front Xcode document does not seem an AppleScriptObjC source"
　　return
end if

set theSource to read ((POSIX file aDocPath) as alias) as «class utf8»
set aRes to retComiledAppleScriptString(theSource, "AppleScript") of me

tell application "Xcode"
　　tell aDoc
　　　　set text of it to aRes
　　end tell
end tell

–Compile AppleScript Source
on retComiledAppleScriptString(aStr as string, osalangName as string)
　　set osaCon to current application’s OSAScriptController’s alloc()’s init()
　　set osaView to current application’s OSAScriptView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, targX, targY))
　　osaCon’s setScriptView:osaView
　　osaCon’s setLanguage:(OSALanguage’s languageForName:osalangName)
　　osaView’s setString:aStr
　　osaCon’s compileScript:(missing value) –Compile（構文確認）
　　
　　set aRes to (osaView’s |string|()) as string
　　return aRes
end retComiledAppleScriptString

★Click Here to Open This Script　

青空文庫のテキストのルビタグを超高速削除

Posted on 3月 18 by Takaaki Naganoya

青空文庫のテキストのルビタグをすべて削除するAppleScriptです。

CotEditorでオープン中の青空文庫のテキストからルビタグを削除し、元のドキュメントに置換結果を反映させます。

テストに使用したのは、夏目漱石の「こころ」のテキストです。上記ページの「テキストファイル(ルビあり）」をダウンロードして、Zipアーカイブを展開して使用しました。

ファイルサイズ373KB、当該部分4,570箇所。開始文字「《」、終了文字「》」で囲われたエリアをすべて削除するという、AppleScriptにはあからさまに不得意そうな処理で、最初に書いたAppleScriptでは１分半以上かかっていました。内容は、おおよそ常識的なサブルーチンを組み合わせてループで回しただけです。わざと遅くなるように組んだりはしていません。

これを、

　（１）CotEditorからの文章テキストの取得
　（２）置換当該箇所のリストアップ
　（３）文字置換
　（４）CotEditorへの文章テキストの転送

の４つのステージに分け、それぞれ処理時間を計測。すると、（１）、（２）、（４）については１秒かかるかかからないかぐらいの速度で実行していることが判明。圧倒的に（３）文字置換の処理に時間がかかっていました。

もともと文字置換には、AppleScript処理系最速のtext item delimitersを用いるサブルーチンを使用していました。これ以上、この方向に頑張っても速く処理することはできません。一応、ダメ元で4,570個の要素を持つ巨大なtext item delimitersを作成し一括処理できないか試してみたものの、さすがに処理系のキャパシティを超過しているようで処理が戻ってきません（迷走状態）。完全にお手上げです。

そこで、AppleScriptの処理系に依存したtext item delimitersによる処理をやめ、メモリ管理効率がよくないAppleScriptのstring型のデータで保持することをやめ、置換のたびにAppleScriptのstring型に変換（cast）することをやめ、置換中は最初から最後までNSMutableStringで管理するようにしました。

このように大幅に書き換えたところ、トータルで3.58秒で処理終了するようになりました。

すべての置換が終了したあとにNSMutableStringをAppleScriptのstringに変換し、CotEditorの最前面のドキュメントに結果を転送しています。

AppleScript名：青空文庫のテキストのルビタグを削除

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/03/18
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"

property NSScanner : a reference to current application’s NSScanner
property NSOrderedSet : a reference to current application’s NSOrderedSet
property NSMutableString : a reference to current application’s NSMutableString
property NSRegularExpressionSearch : a reference to current application’s NSRegularExpressionSearch

tell application "CotEditor"
　　tell front document
　　　　set aCon to contents
　　end tell
end tell

set bCon to trimStrFromTo(aCon, "《", "》") of me

tell application "CotEditor"
　　tell front document
　　　　set contents to bCon
　　end tell
end tell

–開始文字と終了文字に囲われた文字列をすべて削除する
on trimStrFromTo(aParamStr, fromStr, toStr)
　　script hsAry
　　　　property anArray : {}
　　　　property curStr : ""
　　end script
　　
　　set theScanner to NSScanner’s scannerWithString:aParamStr
　　set (anArray of hsAry) to {}
　　
　　repeat until (theScanner’s isAtEnd as boolean)
　　　　set {aResult, theKey} to theScanner’s scanUpToString:fromStr intoString:(reference)
　　　　theScanner’s scanString:fromStr intoString:(missing value)
　　　　
　　　　set {bResult, theValue} to theScanner’s scanUpToString:toStr intoString:(reference)
　　　　if theValue is missing value then set theValue to ""
　　　　
　　　　theScanner’s scanString:toStr intoString:(missing value)
　　　　set the end of (anArray of hsAry) to (fromStr & theValue & toStr)
　　end repeat
　　
　　–Case: Not found
　　if length of (anArray of hsAry) = 0 then return aParamStr
　　
　　–Uniquefy
　　set (anArray of hsAry) to makeUniqueListFrom((anArray of hsAry)) of me
　　
　　–Replace strings as NSMutableString
　　set (curStr of hsAry) to NSMutableString’s stringWithString:aParamStr
　　repeat with i in (anArray of hsAry)
　　　　set j to contents of i
　　　　set (curStr of hsAry) to ((curStr of hsAry)’s stringByReplacingOccurrencesOfString:(j) withString:"" options:(NSRegularExpressionSearch) range:{location:0, |length|:((curStr of hsAry)’s |length|())})
　　end repeat
　　
　　return (curStr of hsAry) as string
end trimStrFromTo

–1D Listをユニーク化（重複削除）
on makeUniqueListFrom(theList)
　　set theSet to NSOrderedSet’s orderedSetWithArray:theList
　　return (theSet’s array()) as list
end makeUniqueListFrom

★Click Here to Open This Script　

HTMLをplain textに変換（文字コード自動認識ライブラリ展開）

Posted on 3月 14 by Takaaki Naganoya

HTMLをプレーンテキストに変換するAppleScriptです。

本来は、文字コードの自動推測を行う部分はライブラリ化していますが、掲載用にライブラリをScript中に展開してみました。

コードの自動推測部分の処理は、昔のCotEditorのソースを読んで前半部分の「古くからある文字エンコーディングの勝ち抜け」処理を書き、後半部分のマイナー文字エンコーディングの多数決＆文字化け検出方式がオリジナル処理部分です。

本コード自動推測は、意味のある日本語のテキストを処理するように設計してあるので、寿司屋の湯呑みのように魚の名前の漢字が１文字で羅列されているようなテキストの文字コード自動判別でミスを起こす可能性があります（実際に魚の名前のテキストを作って読み込んでみましたが、とくに問題はありませんでした）。

ただ、最近はUTF-8だけでなんとかなりそうなので、そこまでエグいテキストに遭遇することもないでしょう。

AppleScript名：HTMLをplain textに変換（文字コード自動認識ライブラリ展開）

— Created 2017-09-08 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
–use jLib : script "japaneseTextEncodingDetector"

property NSString : a reference to current application’s NSString
property NSMutableArray : a reference to current application’s NSMutableArray
property NSAttributedString : a reference to current application’s NSAttributedString
property NSUnicodeStringEncoding : a reference to current application’s NSUnicodeStringEncoding

set aFile to choose file
set aRes to readJapanesTextFileWithGuessingEncoding(POSIX path of aFile) of me
if aRes = false then return ""

set aPlainText to HTMLDecode(aRes) of me

on HTMLDecode(HTMLString)
　　set theString to current application’s NSString’s stringWithString:HTMLString
　　set theData to theString’s dataUsingEncoding:(NSUnicodeStringEncoding)
　　set attStr to NSAttributedString’s alloc()’s initWithHTML:theData documentAttributes:(missing value)
　　return (attStr’s |string|()) as string
end HTMLDecode

–Read Japanese text with detecting its text encoding
on readJapanesTextFileWithGuessingEncoding(aPOSIXpath as string)
　　
　　–ISO2022JP check
　　set aNSData to current application’s NSData’s dataWithContentsOfFile:aPOSIXpath
　　set aDataLength to aNSData’s |length|()
　　if aDataLength > 1024 then set aDataLength to 1024
　　
　　–0x1B check
　　set anNSString to current application’s NSString’s stringWithString:(character id 27) — 0x1B
　　set theData to anNSString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set theRange to aNSData’s rangeOfData:theData options:0 range:(current application’s NSMakeRange(0, aDataLength))
　　
　　–found 0x1B in aNSData
　　if |length| of theRange = 1 and location of theRange < aDataLength then
　　　　set aStr to (current application’s NSString’s alloc()’s initWithData:aNSData encoding:(current application’s NSISO2022JPStringEncoding)) –21
　　　　if aStr is not equal to missing value then return (aStr as text) — ISO2022JP
　　end if
　　
　　–EUC
　　set resValue to (current application’s NSString’s alloc()’s initWithData:aNSData encoding:(current application’s NSJapaneseEUCStringEncoding))
　　if resValue is not equal to missing value then return (resValue as text)
　　
　　–UTF-8
　　set resValue to (current application’s NSString’s alloc()’s initWithData:aNSData encoding:(current application’s NSUTF8StringEncoding))
　　if resValue is not equal to missing value then return (resValue as text)
　　
　　–SHift JIS
　　set resValue to (current application’s NSString’s alloc()’s initWithData:aNSData encoding:(current application’s NSShiftJISStringEncoding))
　　if resValue is not equal to missing value then return (resValue as text)
　　
　　–多数決を取る
　　–UTF-16BE/LE/無印Unicodeは多数決を取る
　　set resValue1 to (current application’s NSString’s alloc()’s initWithData:aNSData encoding:(current application’s NSUTF16BigEndianStringEncoding)) as text
　　set sample1 to getTextSample(resValue1) of me
　　set lang1 to specifyLanguageOfText(sample1) of me
　　set para1 to length of (paragraphs of sample1)
　　set words1 to length of (words of sample1)
　　
　　–UTF-16LE　　
　　set resValue2 to (current application’s NSString’s alloc()’s initWithData:aNSData encoding:(current application’s NSUTF16LittleEndianStringEncoding)) as text
　　set sample2 to getTextSample(resValue2) of me
　　set lang2 to specifyLanguageOfText(sample2) of me
　　set para2 to length of (paragraphs of sample2)
　　set words2 to length of (words of sample2)
　　
　　–無印Unicode
　　set resValue3 to (current application’s NSString’s alloc()’s initWithData:aNSData encoding:(current application’s NSUnicodeStringEncoding)) as text
　　set sample3 to getTextSample(resValue3) of me
　　set lang3 to specifyLanguageOfText(sample3) of me
　　set para3 to length of (paragraphs of sample3)
　　set words3 to length of (words of sample3)
　　
　　–文字および文法的に見て「日本語」ならそれを返す
　　if lang1 = "ja" then return resValue1
　　if lang2 = "ja" then return resValue2
　　if lang3 = "ja" then return resValue2
　　
　　
　　–文字化けしたときには、日本語の「Word」として認識されづらく、Paragraphも少ない（１とか）なので条件で除外する
　　if para1 is not equal to 1 then
　　　　if (words1 ≤ words2) or (words1 ≤ words3) then
　　　　　　return resValue1
　　　　end if
　　end if
　　
　　if para2 is not equal to 1 then
　　　　if (words2 ≤ words1) or (words2 ≤ words3) then
　　　　　　return resValue2
　　　　end if
　　end if
　　
　　if para3 is not equal to 1 then
　　　　if (words3 ≤ words1) or (words3 ≤ words2) then
　　　　　　return resValue3
　　　　end if
　　end if
　　
　　return false –文字コード判定に失敗した
end readJapanesTextFileWithGuessingEncoding

on specifyLanguageOfText(aStr)
　　set aNSstring to current application’s NSString’s stringWithString:aStr
　　set tagSchemes to current application’s NSArray’s arrayWithObjects:(current application’s NSLinguisticTagSchemeLanguage)
　　set tagger to current application’s NSLinguisticTagger’s alloc()’s initWithTagSchemes:tagSchemes options:0
　　tagger’s setString:aNSstring
　　set aLanguage to tagger’s tagAtIndex:0 |scheme|:(current application’s NSLinguisticTagSchemeLanguage) tokenRange:(missing value) sentenceRange:(missing value)
　　return aLanguage as text
end specifyLanguageOfText

on getTextSample(aText)
　　set aLen to length of aText
　　if aLen < 1024 then
　　　　set bLen to aLen
　　else
　　　　set bLen to 1024
　　end if
　　return (text 1 thru bLen of aText)
end getTextSample

★Click Here to Open This Script　

「戦場の絆」の日本国内の設置店舗数をカウント

Posted on 3月 3 by Takaaki Naganoya

アーケードゲーム「戦場の絆」が設置されている日本国内のゲームセンターの件数をカウントするAppleScriptです。

指定ページを取得し、本文内容をプレーンテキスト化して正規表現でデータ抽出して加算を行うという処理内容です。

部品がありきたりなので、新規作成部分はほとんどありません（メイン部分だけ）。

AppleScript名：戦場の絆の日本国内の設置店舗数をカウント.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/03/03
—
–　　Copyright © 2019 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 NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSPredicate : a reference to current application’s NSPredicate
property NSURLQueryItem : a reference to current application’s NSURLQueryItem
property NSAttributedString : a reference to current application’s NSAttributedString
property NSURLComponents : a reference to current application’s NSURLComponents
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSUnicodeStringEncoding : a reference to current application’s NSUnicodeStringEncoding

set aTotal to 0

–「戦場の絆」公式ページに掲載されている店舗一覧の都道府県別コード
set areaList to {"JP-01", "JP-02", "JP-03", "JP-04", "JP-05", "JP-06", "JP-07", "JP-08", "JP-09", "JP-10", "JP-11", "JP-12", "JP-13", "JP-14", "JP-15", "JP-16", "JP-17", "JP-18", "JP-19", "JP-20", "JP-21", "JP-22", "JP-23", "JP-24", "JP-25", "JP-26", "JP-27", "JP-28", "JP-29", "JP-30", "JP-31", "JP-32", "JP-33", "JP-34", "JP-35", "JP-36", "JP-37", "JP-38", "JP-39", "JP-40", "JP-41", "JP-42", "JP-43", "JP-44", "JP-45", "JP-46", "JP-47"}

–「戦場の絆」公式ページに掲載されている店舗一覧のBase URL
set baseURL to "https://gundam-kizuna.jp/locations/list"

–都道府県コードでループ
repeat with i in areaList
　　–店舗一覧の都道府県別ページをダウンロード
　　set j to contents of i
　　set aRec to {area:j}
　　set aRes to retURLwithParams(baseURL, aRec) of me
　　set shellText to "curl -s " & aRes
　　set htmlRes to (do shell script shellText)
　　set aPlainText to (HTMLDecode(htmlRes) of me)
　　
　　–店舗件数が入っている箇所を抽出して加算
　　set aList to paragraphs of aPlainText
　　set anArray to (NSArray’s arrayWithArray:aList)
　　set aPred to (NSPredicate’s predicateWithFormat:"SELF MATCHES ’[0-9]{1,3}件の店舗が見つかりました。’")
　　set bRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
　　
　　if bRes is not equal to {} then
　　　　set a to repChar(contents of first item of bRes, "件の店舗が見つかりました。", "") of me
　　　　try
　　　　　　set aNum to a as integer
　　　　　　set aTotal to aTotal + aNum
　　　　on error
　　　　　　log {"Error in ", j}
　　　　end try
　　end if
end repeat

return aTotal
–> 622 (2019/3/3)

(*
set countryList to {"HKG", "TWN"}–香港と台湾の店舗のコード
set baseURL2 to "https://gundam-kizuna.jp/locations/list"
*)

–パラメータつきURLを作成
on retURLwithParams(aBaseURL as string, aRec as record)
　　set aDic to NSMutableDictionary’s dictionaryWithDictionary:aRec
　　
　　set aKeyList to (aDic’s allKeys()) as list
　　set aValList to (aDic’s allValues()) as list
　　set aLen to length of aKeyList
　　set bLen to length of aValList
　　if aLen is not equal to bLen then return false
　　
　　set qList to {}
　　repeat with i from 1 to aLen
　　　　set aName to (contents of item i of aKeyList) as string
　　　　set aVal to (contents of item i of aValList) as string
　　　　set the end of qList to (NSURLQueryItem’s queryItemWithName:aName value:aVal)
　　end repeat
　　
　　set aComp to NSURLComponents’s alloc()’s initWithString:aBaseURL
　　aComp’s setQueryItems:qList
　　set aURL to (aComp’s |URL|()’s absoluteString()) as text
　　
　　return aURL
end retURLwithParams

–テキストをHTMLとして解釈しプレーンテキスト化
on HTMLDecode(HTMLString)
　　set theString to NSString’s stringWithString:HTMLString
　　set theData to theString’s dataUsingEncoding:(current application’s NSUnicodeStringEncoding)
　　set attStr to NSAttributedString’s alloc()’s initWithHTML:theData documentAttributes:(missing value)
　　set aStr to attStr’s |string|()
　　return aStr as string
end HTMLDecode

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

★Click Here to Open This Script　

クリップボード内のRTFをStyled Stringとして解釈して行ごとに分割して画面描画サイズ幅で昇順ソートして再結合

Posted on 2月 27 by Takaaki Naganoya

クリップボードにコピーしておいた書式つきテキストを、行ごとに画面上の描画サイズで昇順ソートし、再結合してクリップボードに転送するAppleScriptです。

ほぼ毎日使っているAppleScriptの改良版です。

Cocoaの機能を呼び出すと、AppleScript冒頭にproperty宣言文を書くことになりますが（書かなくてもいいんですが）、この宣言文を「プロポーショナルフォントを考慮しつつ実際の画面上の描画サイズを考慮」して短いものから長いものにソートして掲載しています。

ただし、従来のバージョンでは実際のフォントではなく一律に指定フォントで描画したさいの描画幅でソートしていたため、ごくまれに掲載時のリストが短い順になっていませんでした（世界中で誰も気にしてねえよ！　＾ー＾；）。

これを、実際の指定フォントやサイズを考慮した行単位のスタイル付きテキストに分解し、描画幅でソートしたあとにスタイル付きテキストを再合成するようにしました。

従来のOld Style AppleScriptではスタイル付きテキストの操作は一切できませんでしたが、Cocoaの機能を活用することでこのように自由度の高い処理ができるようになった、という好例です。

なお、本ルーチンによって厳密に描画幅でソートしても、Web掲載時にはWebブラウザのレンダリングのルール（＆ユーザー側で指定しているWebブラウザのフォント）が適用されるため、macOS上のアプリケーション上での見た目と若干違いが出るという残念な結果も出ています。

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

AppleScript名：クリップボード内のRTFをStyled Stringとして解釈して行ごとに分割して画面描画サイズ幅で昇順ソートして再結合

— Created 2017-04-24 by Shane Stanley
— Modified 2019-02-27 by Takaaki Naganoya
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use bPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

property NSFont : a reference to current application’s NSFont
property NSColor : a reference to current application’s NSColor
property NSPasteboard : a reference to current application’s NSPasteboard
property NSAttributedString : a reference to current application’s NSAttributedString
property NSFontAttributeName : a reference to current application’s NSFontAttributeName
property NSMutableAttributedString : a reference to current application’s NSMutableAttributedString
property NSForegroundColorAttributeName : a reference to current application’s NSForegroundColorAttributeName

–クリップボードの内容をNSAttributedStringに
set anAttr to my getClipboardASStyledText()
if anAttr = missing value then return

–Split Attributed Strings into lines
set attrList to splitAttributedStringByLines(anAttr) of me

–Sort by Width in ascending
set sortedList to shellSortListAscending(attrList, 1) of me

–Append Attributed Strings
set mutableReturn to NSMutableAttributedString’s alloc()’s initWithString:(return)
set outStr to NSMutableAttributedString’s alloc()’s initWithString:""

repeat with i in sortedList
　　copy i to {tmpWidth, tmpAttr}
　　(outStr’s appendAttributedString:tmpAttr)
　　
　　set tmpStr to tmpAttr’s |string|() as string
　　if (tmpStr does not end with string id 10) and (tmpStr does not end with string id 13) then
　　　　(outStr’s appendAttributedString:mutableReturn)
　　end if
end repeat

— Set Styled String to Clipboard
set theArray to {outStr}
restoreClipboard(theArray) of me

–Clipboardにデータを設定する
on restoreClipboard(theArray as list)
　　set thePasteboard to NSPasteboard’s generalPasteboard()
　　thePasteboard’s clearContents()
　　thePasteboard’s writeObjects:theArray
end restoreClipboard

— クリップボードの内容をNSAttributedStringとして取り出して返す
on getClipboardASStyledText()
　　try
　　　　set theNSPasteboard to NSPasteboard’s generalPasteboard()
　　　　set theAttributedStringNSArray to theNSPasteboard’s readObjectsForClasses:({NSAttributedString}) options:(missing value)
　　　　set theNSAttributedString to theAttributedStringNSArray’s objectAtIndex:0
　　　　return theNSAttributedString
　　on error
　　　　return missing value
　　end try
end getClipboardASStyledText

on splitAttributedStringByLines(theStyledText)
　　set outList to {}
　　set outAttr to NSMutableAttributedString’s alloc()’s initWithString:""
　　
　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　set theLength to theStyledText’s |length|()
　　set startIndex to 0
　　
　　repeat until (startIndex = theLength)
　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength – startIndex}
　　　　set aText to (thePureString’s substringWithRange:theRange) as string –String
　　　　
　　　　set aColor to (theAtts’s valueForKeyPath:"NSColor") –Color
　　　　set aFont to (theAtts’s valueForKeyPath:"NSFont") –Font
　　　　if aFont is equal to missing value then error "Not font name and size are specified" –Font Name error
　　　　set aDFontName to aFont’s displayName() –Font Name
　　　　set aDFontSize to aFont’s pointSize() –Font Size
　　　　
　　　　set tmpAttrStr to generateAttributedString(aText, aDFontName, aDFontSize, aColor) of me
　　　　outAttr’s appendAttributedString:tmpAttrStr
　　　　
　　　　if (aText contains return) or (aText contains string id 10) then –CR or LF
　　　　　　set tmpSize to outAttr’s |size|()
　　　　　　set tmpWidth to retWidthFromSize(tmpSize) of me
　　　　　　
　　　　　　set the end of outList to {tmpWidth, outAttr}
　　　　　　set outAttr to NSMutableAttributedString’s alloc()’s initWithString:""
　　　　end if
　　　　
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　end repeat
　　
　　set tmpSize to outAttr’s |size|()
　　set tmpWidth to retWidthFromSize(tmpSize) of me
　　set the end of outList to {tmpWidth, outAttr}
　　
　　return outList
end splitAttributedStringByLines

on retWidthFromSize(tmpSize)
　　if class of tmpSize = record then
　　　　–macOS 10.10, 10.11, 10.12
　　　　set tmpWidth to width of tmpSize
　　else
　　　　–macOS 10.13, 10.14
　　　　set tmpWidth to first item of tmpSize
　　end if
　　return tmpWidth
end retWidthFromSize

on generateAttributedString(aStr, aFontPSName, aFontSize, aColor)
　　set tmpAttr to NSMutableAttributedString’s alloc()’s initWithString:aStr
　　set aRange to current application’s NSMakeRange(0, tmpAttr’s |length|())
　　set aVal1 to NSFont’s fontWithName:aFontPSName |size|:aFontSize
　　tmpAttr’s beginEditing()
　　tmpAttr’s addAttribute:(NSFontAttributeName) value:aVal1 range:aRange
　　tmpAttr’s addAttribute:(NSForegroundColorAttributeName) value:aColor range:aRange
　　tmpAttr’s endEditing()
　　return tmpAttr
end generateAttributedString

–入れ子のリストを昇順ソート
on shellSortListAscending(a, keyItem)
　　return sort2DList(a, keyItem, {true}) of me
end shellSortListAscending

–入れ子のリストを降順ソート
on shellSortListDecending(a, keyItem)
　　return sort2DList(a, keyItem, {false}) of me
end shellSortListDecending

–2D Listをソート
on sort2DList(aList as list, sortIndexes as list, sortOrders as list)
　　load framework
　　–index値をAS流（アイテムが1はじまり）からCocoa流（アイテムが0はじまり）に変換
　　set newIndex to {}
　　repeat with i in sortIndexes
　　　　set j to contents of i
　　　　set j to j – 1
　　　　set the end of newIndex to j
　　end repeat
　　
　　–Sort TypeのListを作成（あえて外部から指定する内容でもない）
　　set sortTypes to {}
　　repeat (length of sortIndexes) times
　　　　set the end of sortTypes to "compare:"
　　end repeat
　　
　　–Sort
　　set resList to (current application’s SMSForder’s subarraysIn:(aList) sortedByIndexes:newIndex ascending:sortOrders sortTypes:sortTypes |error|:(missing value)) as list
　　return resList
end sort2DList

★Click Here to Open This Script　

オープン中のScriptをすべて書き換える

Posted on 1月 19 by Takaaki Naganoya

Script Editorでオープン中のAppleScript書類に対してすべて文字置換を行って、変更があれば保存を行うAppleScriptです。

Xcodeで作成するAppleScriptアプリケーションのプロジェクトで、サブScriptをZipアーカイブに入れ、展開しては順次呼び出すようにしていました。

サブスクリプト側とメインのAppleScriptアプリケーション側はUser Defaultsを介してパラメータのやりとりを行っていますが、Bundle IDの大文字/小文字の記述ミスからうまくパラメータの受け渡しが行えませんでした。

そこで、すべてのサブスクリプトを書き換えることにしたのですが、順次オープンして書き換えたのでは、（サブスクリプトの数が多すぎて）手間がかかり書き換えミスの可能性も否定できません。テキストエディタでは、BBEditなどで指定ディレクトリ以下のテキストファイルに対してすべて処理する機能が実装されていますが、Script DebuggerなどAppleScriptの編集プログラムにその機能が実装されているのは見たことがありません。

処理内容も簡単なので、その場で作ってしまいました。

なお、Script EditorをコントロールするAppleScriptは、大事をとってScript Editor以外のプログラム上で実行することが推奨されます。Script DebuggerかmacOS標準搭載のスクリプトメニューです。

Mac OS X 10.4の頃までは、Script Editor上でScript EditorをコントロールするAppleScriptを書いて実行するといろいろ不具合が出ていました。Mac OS X 10.5以降でずいぶん改善された印象があります。

本AppleScriptのような処理内容では、単なる文字置換ではなく、指定の構文要素（文字定数など）に該当するものがあれば置換を行うなど、より高度な処理を行うものに書き換えていくとよいでしょう。さすがに変数名の置換は作って使っていますが、文字定数やコメント内容を対象にするものを用意しておいてもいいように思えます。

AppleScript名：オープン中のScriptをすべて書き換える.scptd

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

set origStr to "jp.piyomarusoft.samplebundleid"
set toStr to "jp.piyomarusoft.sampleBundleID"

tell application "Script Editor"
　　set dList to every document
　　
　　repeat with i in dList
　　　　set j to contents of i
　　　　
　　　　tell j
　　　　　　
　　　　　　set aCon to text of it
　　　　　　set bCon to repChar(aCon, origStr, toStr) of me
　　　　　　
　　　　　　considering case
　　　　　　　　if aCon is not equal to bCon then
　　　　　　　　　　set text of it to bCon
　　　　　　　　　　save
　　　　　　　　end if
　　　　　　end considering
　　　　　　
　　　　end tell
　　　　
　　end repeat
end tell

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

★Click Here to Open This Script　

ZipZapで指定アーカイブをメモリ上で展開して指定ファイルのみ取り出す

Posted on 1月 11 by Takaaki Naganoya

オープンソースのZipZapをCocoa Framework化したものを呼び出して、指定のZipアーカイブをメモリ上で展開し、指定ファイルの内容を取り出すAppleScriptです。

–> ZipZap.framework(To ~/Library/Frameworks/)

ZipアーカイブでAppleScriptを固めておいて、XcodeのAppleScriptアプリケーションのプロジェクト中に入れておき、指定ファイルのScriptをZipアーカイブから取り出して実行するときに使っています。

ZipZapはXcode Projectに入れてよし、Cocoa Frameworkに入れて呼び出してよし、と自分にとってたいへんに使い勝手のよい部品であり、重要なパーツになっています。

AppleScript名：ZipZapで指定アーカイブをメモリ上で展開して指定ファイルのみ取り出す

— Created 2019-01-11 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "ZipZap" –https://github.com/pixelglow/ZipZap
use framework "OSAKit"
use BPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

property |NSURL| : a reference to current application’s |NSURL|
property ZZArchive : a reference to current application’s ZZArchive
property OSAScript : a reference to current application’s OSAScript

set anArchive to POSIX path of (choose file of type {"public.zip-archive"})
set aRes to extractArchiveAndPickupAFile(anArchive, "", "02_script.scpt") of me

on extractArchiveAndPickupAFile(aPath, aPass, aTargFileName)
　　set oldArchive to ZZArchive’s archiveWithURL:(|NSURL|’s fileURLWithPath:aPath) |error|:(missing value)
　　set aList to oldArchive’s entries() as list
　　
　　set outList to {}
　　
　　repeat with i in aList
　　　　set encF to i’s encrypted() as boolean
　　　　set aFileName to (i’s fileName())
　　　　
　　　　if (aFileName as string) = aTargFileName then
　　　　　　
　　　　　　set aExt to (aFileName’s pathExtension()) as string
　　　　　　set aUTI to my retFileFormatUTI(aExt)
　　　　　　set aData to (i’s newDataWithError:(missing value)) –Uncompressed raw data
　　　　　　
　　　　　　if aData = missing value then
　　　　　　　　set aData to (i’s newDataWithPassword:(aPass) |error|:(missing value))
　　　　　　　　if aData is equal to (missing value) then
　　　　　　　　　　return false
　　　　　　　　end if
　　　　　　end if
　　　　　　
　　　　　　if aUTI = "public.plain-text" then
　　　　　　　　–Plain Text
　　　　　　　　set aStr to (NSString’s alloc()’s initWithData:aData encoding:(NSUTF8StringEncoding)) as string
　　　　　　　　
　　　　　　else if aUTI = "com.apple.applescript.script" then
　　　　　　　　–AppleScript .scpt file
　　　　　　　　set aScript to (OSAScript’s alloc()’s initWithCompiledData:aData |error|:(missing value))
　　　　　　　　set aStr to (aScript’s source()) as string
　　　　　　　　
　　　　　　end if
　　　　　　return aStr
　　　　　　
　　　　end if
　　end repeat
　　
end extractArchiveAndPickupAFile

on retFileFormatUTI(aExt as string)
　　tell script "BridgePlus"
　　　　load framework
　　　　return (current application’s SMSForder’s UTIForExtension:aExt) as string
　　end tell
end retFileFormatUTI

★Click Here to Open This Script　

MacJournalで選択中のエントリの文中からdata detectorで日付を取得して作成日付に反映

Posted on 1月 8 by Takaaki Naganoya

MacJournalで選択中のjournal entryの文中（plain text content）からData Detector（NSDataDetector）で日付を取得し、初出の日付をjournal entryの作成日付に設定するAppleScriptです。

macOSの不具合情報をMacJournalにスクラップして整理していたところ、記事作成日をjournal entryの作成日付に反映させたいと考え、以前に作ってあったScriptを修正し、Data Detectorで日付情報を抽出するようにしてみました。

なお、複数のjournal entryを選択した状態で実行すると、ループですべての選択中のjournal entryを処理します。

macOS標準搭載のScript Menuに入れて使用しています。

AppleScript名：MacJournalで選択中のエントリの文中からdata detectorで日付を取得して作成日付に反映

— Created 2019-01-08 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

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

tell application "MacJournal"
　　set aSel to selected entries
　　
　　repeat with i in aSel
　　　　set j to contents of i
　　　　set aName to name of j
　　　　set aDate to date of j
　　　　set aStr to plain text content of j
　　　　set aDateList to getDatesIn(aStr) of me
　　　　
　　　　if aStr is not equal to "" and aDateList is not equal to {} then
　　　　　　set targDate to contents of (first item of aDateList)
　　　　　　try
　　　　　　　　set date of j to targDate
　　　　　　end try
　　　　end if
　　end repeat
end tell

on getDatesIn(aString)
　　set anNSString to NSString’s stringWithString:aString
　　set {theDetector, theError} to NSDataDetector’s dataDetectorWithTypes:(current application’s NSTextCheckingTypeDate) |error|:(reference)
　　set theMatches to theDetector’s matchesInString:anNSString options:0 range:{0, anNSString’s |length|()}
　　set theResults to theMatches’s valueForKey:"date"
　　return theResults as list
end getDatesIn

★Click Here to Open This Script　

1D Listのうち指定文字種（複数指定可）で構成される要素のみ抽出 v2

Posted on 1月 1 by Takaaki Naganoya

1D List（配列）に入れた文字要素を文字種類で該当するものだけ抽出するAppleScriptの改良版です。

プログラムを見ていただくとわかるとおり、

　数字：”9″
　英字：”A”
　半角記号：”$”
　ひらがな：”ひ”
　カタカナ：”カ”
　漢字：”漢”

で文字種類を指定します。

ルーチンは２種類用意しており、

filterByMultipleCharKindStrictly：文字種別を判定して指定文字種のみから構成されるものを抽出（厳密に文字種別を遵守）
filterByMultipleCharKind：文字種別を判定して指定文字種のみから構成されるものを抽出

前者は複数の文字種リストを指定したら、その文字種リストと等しいパターンの文字列だけを抽出します。
後者は複数の文字種リストを指定したら、その文字種のうちどれかだけで構成される文字列だけを抽出します。

 {"Naganoya", "ながのや", "ナガノヤ", "長野谷", "ぴよまるソフトウェア", "ぴよまるSoftware", "Piyomaru12345", "123456789", "ぴよまる1234"}

　　
という文字列を与え、

{"ひ", "カ"}--Hiragana, Katakana

　　
という抽出パターンを指定すると、

filterByMultipleCharKindStrictly --> {"ぴよまるソフトウェア"}
filterByMultipleCharKind --> {"ながのや", "ナガノヤ"}

　　
のように抽出します。

スピードを考えなければ、機能は実用レベルにあると思われます。

高速化する場合には、

（１）Cocoaの機能を一切使わない（小さいデータを小分けにしてCocoaの機能を呼び出しているので、Cocoaの機能を使って高速化するのに最悪の処理パターンになっている。データ量のわりに時間がかかる。むしろCocoaの機能を使わない方が高速）

（２）Cocoaで一括処理できるように検討する（NSPredicatesで文字種別を同時に指定して抽出するなど）

といったところでしょうか。長い割にはそんなによくないプログラムですね。機能すること以外に取り柄がないというか、、、

AppleScript名：1D Listのうち指定文字種（複数指定可）で構成される要素のみ抽出 v2

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

property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSScanner : a reference to current application’s NSScanner
property NSNumber : a reference to current application’s NSNumber
property NSDictionary : a reference to current application’s NSDictionary
property NSOrderedSet : a reference to current application’s NSOrderedSet
property NSCountedSet : a reference to current application’s NSCountedSet
property NSCharacterSet : a reference to current application’s NSCharacterSet
property NSMutableArray : a reference to current application’s NSMutableArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor
property NSNumberFormatter : a reference to current application’s NSNumberFormatter
property NSMutableCharacterSet : a reference to current application’s NSMutableCharacterSet
property NSRegularExpressionSearch : a reference to current application’s NSRegularExpressionSearch
property NSNumberFormatterRoundUp : a reference to current application’s NSNumberFormatterRoundUp
property NSStringTransformFullwidthToHalfwidth : a reference to current application’s NSStringTransformFullwidthToHalfwidth

set aList to {"Naganoya", "ながのや", "ナガノヤ", "長野谷", "ぴよまるソフトウェア", "ぴよまるSoftware", "Piyomaru12345", "123456789", "ぴよまる1234"} –Alphabet, Hiragana, Katakana, Kanji, Hiragana+Katakana, Hiragana + Alphabet, Alphabet + Numeric, Numeric

set aRes to filterByMultipleCharKind(aList, {"A"}) of me –アルファベットで構成される要素のみ抽出
–> {"Naganoya"}

set bRes to filterByMultipleCharKind(aList, {"ひ"}) of me –ひらがなだけで構成される要素のみ抽出
–> {"ながのや"}

set cRes to filterByMultipleCharKind(aList, {"カ"}) of me –カタカナだけで構成される要素のみ抽出
–> {"ナガノヤ"}

set dRes to filterByMultipleCharKind(aList, {"漢"}) of me –漢字だけで構成される要素のみ抽出
–> {"長野谷"}

set eRes1 to filterByMultipleCharKindStrictly(aList, {"ひ", "カ"}) of me –ひらがな＋カタカナで構成される要素のみ抽出
–> {"ぴよまるソフトウェア"}

set eRes2 to filterByMultipleCharKind(aList, {"ひ", "カ"}) of me –ひらがな or カタカナ　だけで構成される要素のみ抽出
–> {"ながのや", "ナガノヤ"}

set fRes1 to filterByMultipleCharKindStrictly(aList, {"A", "9"}) of me –Alphabet + Numericだけで構成される要素のみ抽出
–> {"Piyomaru12345"}

set fRes2 to filterByMultipleCharKind(aList, {"A", "9"}) of me –Alphabet or Numericだけで構成される要素のみ抽出
–> {"Naganoya", "123456789"}

set gRes1 to filterByMultipleCharKindStrictly(aList, {"ひ", "9"}) of me –Hiragana + Numericだけで構成される要素のみ抽出
–> {"ぴよまる1234"}

–文字種別を判定して指定文字種のみから構成されるものを抽出（厳密に文字種別を遵守）
on filterByMultipleCharKindStrictly(aList as list, targCharKindList as list)
　　set dList to {}
　　set paramList to sort1DStringList(targCharKindList, true) of me
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　set tmpPat to retAtrPatternFromStr(j) of me
　　　　if tmpPat is equal to paramList then
　　　　　　set the end of dList to j
　　　　end if
　　end repeat
　　
　　return dList
end filterByMultipleCharKindStrictly

–文字種別を判定して指定文字種のみから構成されるものを抽出
on filterByMultipleCharKind(aList as list, targCharKindList as list)
　　set dList to {}
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　set tmpPat to retAtrPatternFromStr(j) of me
　　　　if tmpPat is in targCharKindList then
　　　　　　set the end of dList to j
　　　　end if
　　end repeat
　　
　　return dList
end filterByMultipleCharKind

–Objective-Cライクなパラメータ記述
on makeUniqueListOf:theList
　　set theSet to NSOrderedSet’s orderedSetWithArray:theList
　　return (theSet’s array()) as list
end makeUniqueListOf:

–Pure AS風のパラメータ記述
on makeUniqueListFrom(theList)
　　set aList to my makeUniqueListOf:theList
　　return aList
end makeUniqueListFrom

–1D Listを文字列長でソート v2
on sort1DListByStringLength(aList as list, sortOrder as boolean)
　　set aArray to NSArray’s arrayWithArray:aList
　　set desc1 to NSSortDescriptor’s sortDescriptorWithKey:"length" ascending:sortOrder
　　set desc2 to NSSortDescriptor’s sortDescriptorWithKey:"self" ascending:true selector:"localizedCaseInsensitiveCompare:"
　　set bArray to aArray’s sortedArrayUsingDescriptors:{desc1, desc2}
　　return bArray as list of string or string
end sort1DListByStringLength

–1D List（文字）をsort / ascOrderがtrueだと昇順ソート、falseだと降順ソート
on sort1DStringList(theList as list, aBool as boolean)
　　set aDdesc to NSSortDescriptor’s sortDescriptorWithKey:"self" ascending:aBool selector:"localizedCaseInsensitiveCompare:"
　　set theArray to NSArray’s arrayWithArray:theList
　　return (theArray’s sortedArrayUsingDescriptors:{aDdesc}) as list
end sort1DStringList

–文字種別の判定
on retAtrPatternFromStr(aText as string)
　　set b1List to {"9", "A", "$", "漢", "ひ", "カ"} –数字、アルファベット、記号、全角漢字、全角ひらがな、全角カタカナ
　　
　　set outList to {}
　　set cList to characters of (aText)
　　
　　repeat with i in cList
　　　　set j to contents of i
　　　　
　　　　set chk1 to ((my chkNumeric:j) as integer) * 1
　　　　set chk2 to ((my chkAlphabet:j) as integer) * 2
　　　　set chk3 to ((my chkSymbol:j) as integer) * 3
　　　　set chk4 to ((my chkKanji:j) as integer) * 4
　　　　set chk5 to ((my chkHiragana:j) as integer) * 5
　　　　set chk6 to ((my chkKatakana:j) as integer) * 6
　　　　
　　　　set itemVal to (chk1 + chk2 + chk3 + chk4 + chk5 + chk6)
　　　　
　　　　–if itemVal > 0 then
　　　　set aVal to (contents of item itemVal of b1List)
　　　　
　　　　if aVal is not in outList then
　　　　　　set the end of outList to aVal
　　　　end if
　　　　–end if
　　end repeat
　　
　　set out2List to sort1DStringList(outList, true) of me
　　
　　return out2List
end retAtrPatternFromStr

–全角→半角変換
on zenToHan(aStr)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformFullwidthToHalfwidth) |reverse|:false) as string
end zenToHan

–数字か
on chkNumeric:checkString
　　set digitCharSet to NSCharacterSet’s characterSetWithCharactersInString:"0123456789"
　　set ret to my chkCompareString:checkString baseString:digitCharSet
　　return ret as boolean
end chkNumeric:

–記号か
on chkSymbol:checkString
　　set muCharSet to NSCharacterSet’s alloc()’s init()
　　muCharSet’s addCharactersInString:"$＼"!~&=#[]._-+`|{}?%^*/’@-/:;(),"
　　set ret to my chkCompareString:checkString baseString:muCharSet
　　return ret as boolean
end chkSymbol:

–漢字か
on chkKanji:aChar
　　return detectCharKind(aChar, "[一-龠]") of me
end chkKanji:

–ひらがなか
on chkHiragana:aChar
　　return detectCharKind(aChar, "[ぁ-ん]") of me
end chkHiragana:

–カタカナか
on chkKatakana:aChar
　　return detectCharKind(aChar, "[ァ-ヶ]") of me
end chkKatakana:

–半角スペースか
on chkSpace:checkString
　　set muCharSet to NSCharacterSet’s alloc()’s init()
　　muCharSet’s addCharactersInString:" " –半角スペース（20h）
　　set ret to my chkCompareString:checkString baseString:muCharSet
　　return ret as boolean
end chkSpace:

— アルファベットか
on chkAlphabet:checkString
　　set aStr to NSString’s stringWithString:checkString
　　set allCharSet to NSMutableCharacterSet’s alloc()’s init()
　　allCharSet’s addCharactersInRange:({location:97, |length|:26}) –97 = id of "a"
　　allCharSet’s addCharactersInRange:({location:65, |length|:26}) –65 = id of "A"
　　set aBool to my chkCompareString:aStr baseString:allCharSet
　　return aBool as boolean
end chkAlphabet:

on chkCompareString:checkString baseString:baseString
　　set aScanner to NSScanner’s localizedScannerWithString:checkString
　　aScanner’s setCharactersToBeSkipped:(missing value)
　　aScanner’s scanCharactersFromSet:baseString intoString:(missing value)
　　return (aScanner’s isAtEnd()) as boolean
end chkCompareString:baseString:

on detectCharKind(aChar, aPattern)
　　set aChar to NSString’s stringWithString:aChar
　　set searchStr to NSString’s stringWithString:aPattern
　　set matchRes to aChar’s rangeOfString:searchStr options:(NSRegularExpressionSearch)
　　if matchRes’s location() = (current application’s NSNotFound) or (matchRes’s location() as number) > 9.99999999E+8 then
　　　　return false
　　else
　　　　return true
　　end if
end detectCharKind

★Click Here to Open This Script　

Keynoteで指定の表をX LabelとY Labelの交差するセルにデータを設定する v2

Posted on 12月 22, 2018 by Takaaki Naganoya

オープン中のKeynote書類のうち、指定タイトルのスライド中の表の値を取得したり設定するAppleScriptです。

シート名（タイトル）、表Yラベル、表Xラベル

の３つのパラメータをもとに、Keynote書類中の指定スライドの表の中のセルにアクセスして、値を取得/設定します。

処理対象のKeynote書類はKeynoteでオープンしている必要があり、各スライド中の表は１つのみ存在していることを処理の前提条件としています。

一応、再利用性を高めるためにScriptオブジェクト化しています。これがベストな方法なわけではありませんが、こんなもんでしょう。

AppleScript名：Keynoteで指定の表をX LabelとY Labelの交差するセルに設定する v2

— Created 2018-12-20 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set targCellNameX to "Col2"
set targCellNameY to "Row4"
set storeVal to "9999"

set keynoteSlide to "Page 2 Title"

set keynoteSlideObj to getTitleStringFromFrontKeynoteDocumentFilterByString(keynoteSlide) of getKeynoteSlideKit
–set aRes to getValueOnKeynoteTableByXYLabels(targCellNameY, targCellNameX, keynoteSlideObj) of getKeynoteSlideKit
setValueOnKeynoteTableByXYLabels(targCellNameY, targCellNameX, storeVal, keynoteSlideObj) of getKeynoteSlideKit

script getKeynoteSlideKit
　　–Keynote　タイトル指定してslideを取得する
　　on getTitleStringFromFrontKeynoteDocumentFilterByString(targString)
　　　　set repTargList to {string id 10, string id 11, string id 13} –LF,CR,VTab一括置換
　　　　
　　　　tell application "Keynote"
　　　　　　if (count every document) = 0 then return
　　　　　　
　　　　　　tell front document
　　　　　　　　set tList to object text of default title item of every slide
　　　　　　end tell
　　　　end tell
　　　　
　　　　–タイトルごとにゴミ取り（改行文字の削除）
　　　　set outList to {}
　　　　set sCount to 1
　　　　set hitF to false
　　　　repeat

AppleScriptの穴

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

カテゴリー: Text

指定のAppleScriptテキストを構文確認して変数・プロパティ、サブルーチン名部分のみを取得して置換

アラートダイアログ上にTextViewを表示

Handle diff v2

AppleScript書類を構文要素ごとに分解（Script Libraries対応版）

アラートダイアログ上にTextField x 2を表示 v2

Google Sheets URLから正規表現でIDを抽出 v2

指定単語の花文字テキストを取得する（Retina対応）英文字用 v2

Xcodeで最前面のAS sourceを構文確認

HTMLをplain textに変換（文字コード自動認識ライブラリ展開）

オープン中のScriptをすべて書き換える

ZipZapで指定アーカイブをメモリ上で展開して指定ファイルのみ取り出す

MacJournalで選択中のエントリの文中からdata detectorで日付を取得して作成日付に反映