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

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

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/01/19
—
–　　Copyright © 2019 MyCompanyName, All Rights Reserved
—

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 with i in tList
　　　　　　set j1 to contents of i
　　　　　　set jTmp to (paragraphs of j1) as string –しつこい改行文字（？）を除去するための処理
　　　　　　
　　　　　　set j2 to replaceTextMultiple(jTmp, repTargList, "") of me as string
　　　　　　if j2 is equal to targString then
　　　　　　　　set hitF to true
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　
　　　　　　set sCount to sCount + 1
　　　　end repeat
　　　　
　　　　if hitF = false then return false
　　　　
　　　　tell application "Keynote"
　　　　　　tell front document
　　　　　　　　return item sCount of (every slide)
　　　　　　end tell
　　　　end tell
　　　　
　　end getTitleStringFromFrontKeynoteDocumentFilterByString
　　
　　
　　–リストを指定デリミタで区切ったテキストに変換
　　on listToStringUsingTextItemDelimiter(sourceList as list, textItemDelimiter as string)
　　　　set anArray to current application’s NSArray’s arrayWithArray:sourceList
　　　　set aString to anArray’s componentsJoinedByString:textItemDelimiter
　　　　return (aString as string)
　　end listToStringUsingTextItemDelimiter
　　
　　
　　–任意のデータから特定の文字列を複数パターン一括置換
　　on replaceTextMultiple(origData as string, origTexts as list, repText as string)
　　　　set curDelim to AppleScript’s text item delimiters
　　　　set AppleScript’s text item delimiters to origTexts
　　　　set origData to text items of origData
　　　　set AppleScript’s text item delimiters to {repText}
　　　　set origData to origData as text
　　　　set AppleScript’s text item delimiters to curDelim
　　　　return origData
　　end replaceTextMultiple
　　
　　–行ラベルと列ラベルを個別に指定し、交点のセルに指定の値を入れる
　　on setValueOnKeynoteTableByXYLabels(targCellNameY, targCellNameX, storeVal, keynoteSlideObj)
　　　　tell application "Keynote"
　　　　　　tell keynoteSlideObj
　　　　　　　　tell table 1
　　　　　　　　　　
　　　　　　　　　　tell row 1
　　　　　　　　　　　　set cList to value of every cell
　　　　　　　　　　　　set xRes to getOffsetFromList(targCellNameX, cList) of me
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　tell column 1
　　　　　　　　　　　　set dList to value of every cell
　　　　　　　　　　　　set yRes to getOffsetFromList(targCellNameY, dList) of me
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　tell row yRes
　　　　　　　　　　　　tell cell xRes
　　　　　　　　　　　　　　set its value to storeVal
　　　　　　　　　　　　end tell
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end setValueOnKeynoteTableByXYLabels
　　
　　
　　–行ラベルと列ラベルを個別に指定し、交点のセルに指定の値を入れる
　　on getValueOnKeynoteTableByXYLabels(targCellNameY, targCellNameX, keynoteSlideObj)
　　　　tell application "Keynote"
　　　　　　tell keynoteSlideObj
　　　　　　　　tell table 1
　　　　　　　　　　
　　　　　　　　　　tell row 1
　　　　　　　　　　　　set cList to value of every cell
　　　　　　　　　　　　set xRes to getOffsetFromList(targCellNameX, cList) of me
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　tell column 1
　　　　　　　　　　　　set dList to value of every cell
　　　　　　　　　　　　set yRes to getOffsetFromList(targCellNameY, dList) of me
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　tell row yRes
　　　　　　　　　　　　tell cell xRes
　　　　　　　　　　　　　　set tmpFormat to format
　　　　　　　　　　　　　　set its format to text
　　　　　　　　　　　　　　set aRes to its value
　　　　　　　　　　　　　　set its format to tmpFormat
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　if aRes = missing value then
　　　　　　　　　　　　　　　　return ""
　　　　　　　　　　　　　　else
　　　　　　　　　　　　　　　　return aRes
　　　　　　　　　　　　　　end if
　　　　　　　　　　　　end tell
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end getValueOnKeynoteTableByXYLabels
　　
　　
　　on getOffsetFromList(aTarg, aList)
　　　　using terms from scripting additions
　　　　　　set aRes to offset of aTarg in aList
　　　　end using terms from
　　　　return aRes
　　end getOffsetFromList
　　
　　
　　
　　—-Offset command overwrapper
　　on offset of bArg in anArg
　　　　set aClass to class of anArg
　　　　set bClass to class of bArg
　　　　
　　　　if {aClass, bClass} = {text, text} then –case 1
　　　　　　return getOffset(anArg, bArg) of me
　　　　else if {aClass, bClass} = {list, list} then –case 2 (The target case)
　　　　　　return execOffsetList(bArg, anArg) of me
　　　　else if {aClass, bClass} = {text, list} then –case 3 (Illegular case)
　　　　　　return execOffsetList(bArg, {anArg}) of me
　　　　else if {aClass, bClass} = {list, text} then –case 4 (Illegular case)
　　　　　　return execOffsetList({bArg}, anArg) of me
　　　　end if
　　end offset
　　
　　
　　–1D List同士のoffset演算を行うルーチンの本体
　　on execOffsetList(aList as list, bList as list)
　　　　set resList to {}
　　　　repeat with i in aList
　　　　　　set j to contents of i
　　　　　　set aCount to 1
　　　　　　
　　　　　　repeat with ii in bList
　　　　　　　　set jj to contents of ii
　　　　　　　　if jj = j then
　　　　　　　　　　set the end of resList to aCount
　　　　　　　　　　exit repeat
　　　　　　　　end if
　　　　　　　　set aCount to aCount + 1
　　　　　　end repeat
　　　　end repeat
　　　　
　　　　–見つかったItem No.が連続値かどうかチェック
　　　　set sRes to chkSequential(resList) of me
　　　　if sRes = true then
　　　　　　return contents of first item of resList
　　　　else
　　　　　　return false
　　　　end if
　　end execOffsetList
　　
　　
　　–与えられた1D Listが連続値かどうかをチェックする
　　on chkSequential(aList)
　　　　if length of aList = 1 then return true
　　　　if aList = {} then return false
　　　　
　　　　set aFirst to first item of aList
　　　　set aList to rest of aList
　　　　
　　　　repeat with i in aList
　　　　　　set j to contents of i
　　　　　　if j is not equal to (aFirst + 1) then
　　　　　　　　return false
　　　　　　end if
　　　　　　copy j to aFirst
　　　　end repeat
　　　　
　　　　return true
　　end chkSequential
　　
　　
　　–テキスト同士のoffset ofを（2.5x fasterで）実行する
　　on getOffset(str, searchStr)
　　　　set d to divideBy(str, searchStr)
　　　　if (count d) is less than 2 then return 0
　　　　return (length of item 1 of d) + 1
　　end getOffset
　　
　　on divideBy(str, separator)
　　　　set delSave to AppleScript’s text item delimiters
　　　　set the AppleScript’s text item delimiters to separator
　　　　set strItems to every text item of str
　　　　set the AppleScript’s text item delimiters to delSave
　　　　return strItems
　　end divideBy
　　
end script

★Click Here to Open This Script　

タイトルを指定して該当するKeynoteのスライドにアクセス

Posted on 12月 22, 2018 by Takaaki Naganoya

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

Keynoteには、ページにScript Labelを付ける機能が用意されておらず、一意にスライドを指定する方法がありません。先頭から●ページ目、というアクセスはできますが、それだけのことです。

そこで、各スライドのタイトルを指定して、該当するタイトルを持つスライドを取得するAppleScriptを作成して使用しています。ただし、タイトルについては途中に強制改行が入っていたりするケースもあるので、改行を削除した状態に変換してから指定文字列とのマッチングを行っています。

ただし、表紙のタイトルに長い題名を入力した場合など、ユーザーが意図して入れたものではない改行が途中で入ることもあるため、そのあたりでいろいろゴニョゴニョと改行削除のための悪あがきをしています。

さらに、スライド上の表（table）の指定文字のヘッダーのセルのデータを取り出したり、設定したりするScriptを作成し、最終的にはこれらを配列変数のようにパラメータを指定するだけでストレージ的にアクセスできるようにルーチンを整備しました。

AppleScript名：タイトルを指定して該当するスライドにアクセス.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2018/12/21
—
–　　Copyright © 2018 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.5" — El Capitan (10.11) or later
use framework "Foundation"
use scripting additions

set keynoteSlideObj to getSlideFromFrontKeynoteDocumentByTitleString("用途別のフレームワークを知ろう") of me
–> slide 4 of document id "EFC0FE62-C92E-471E-82C7-DE7298AB083C"

if keynoteSlideObj = false then return

tell application "Keynote"
　　tell keynoteSlideObj
　　　　properties
　　end tell
end tell

–Keynote　タイトル指定してslideを取得する
on getSlideFromFrontKeynoteDocumentByTitleString(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 false
　　　　
　　　　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 with i in tList
　　　　set j1 to contents of i
　　　　set jTmp to (paragraphs of j1) as string –しつこい改行文字（？）を除去するための処理
　　　　
　　　　set j2 to replaceTextMultiple(jTmp, repTargList, "") of me as string
　　　　if j2 is equal to targString then
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　end if
　　　　
　　　　set sCount to sCount + 1
　　end repeat
　　
　　if hitF = false then return false
　　
　　tell application "Keynote"
　　　　tell front document
　　　　　　return item sCount of (every slide)
　　　　end tell
　　end tell
　　
end getSlideFromFrontKeynoteDocumentByTitleString

–リストを指定デリミタで区切ったテキストに変換
on listToStringUsingTextItemDelimiter(sourceList as list, textItemDelimiter as string)
　　set anArray to current application’s NSArray’s arrayWithArray:sourceList
　　set aString to anArray’s componentsJoinedByString:textItemDelimiter
　　return (aString as string)
end listToStringUsingTextItemDelimiter

–任意のデータから特定の文字列を複数パターン一括置換
on replaceTextMultiple(origData as string, origTexts as list, repText as string)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to origTexts
　　set origData to text items of origData
　　set AppleScript’s text item delimiters to {repText}
　　set origData to origData as text
　　set AppleScript’s text item delimiters to curDelim
　　return origData
end replaceTextMultiple

★Click Here to Open This Script　

1D Listのうち指定文字種で構成される要素のみ抽出

Posted on 12月 20, 2018 by Takaaki Naganoya

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

文字種類でデータ抽出する、という用途はけっこう多いので、単体で使えるようにしておきました。プログラムを見ていただくとわかるとおり、

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

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

以前のバージョンではありもののルーチンを組み合わせただけなので、全体的に無駄があって処理速度についてはあまり感心できないレベルだったので、若干の高速化を図りました（繰り返し処理部分で無駄な演算を省略）。

ただし、「ひらがな＋カタカナは許容する」というふうに、複数の文字種を許可する例が多いので、これではまだ実用レベルには達していないと思います。

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

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

property NSString : a reference to current application’s NSString
property 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 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 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", "ながのや", "ナガノヤ", "長野谷"} –Alphabet, Hiragana, Katakana, Kanji

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

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

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

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

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

–Objective-Cライクなパラメータ記述
on makeUniqueListOf:theList
　　set theSet to current application’s 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 current application’s NSArray’s arrayWithArray:aList
　　set desc1 to current application’s NSSortDescriptor’s sortDescriptorWithKey:"length" ascending:sortOrder
　　set desc2 to current application’s 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

–文字種別の判定
on retAtrPatternFromStr(aText as string)
　　set b1List to {"9", "A", "$", "漢", "ひ", "カ"} –数字、アルファベット、記号、全角漢字、全角ひらがな、全角カタカナ
　　
　　–set cStr to zenToHan(aText) of me
　　
　　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
　　
　　return outList
end retAtrPatternFromStr

–漢字か
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:

★Click Here to Open This Script　

easyJParse v4

Posted on 12月 14, 2018 by Takaaki Naganoya

簡易的な日本語テキストのParse（辞書なし）を行うAppleScriptです。

詳細な説明はこちら。

本バージョンでは、かっこ（ “「”, “」”, “『”, “』”, “【”, “】”, “《”, “》”, “〈”, “〉”, “（”, “））で区切られた文字列を区分けしないで１かたまりで出力させたものです。

コマンド解釈用に作成した本Script、パラメーターとして区分けしてほしくない情報（フィールド情報やデータベース名など）をかたまりのまま出力する必要があって、そのように処理させてみました。

かっこがクロスしたりネスティング（入れ子）していることは検出していますが、そのまま連結せずに出力しています。

このプログラムを作ったことにより、固有名詞への対応のメドが立ちました。

前処理で何かの記号で固有名詞を囲えばいいんじゃないか、などと思っています。何を固有名詞とするか、ということになりますが、とりあえず住所録（Contacts.app）から人名（Last Name）や会社名をすべて出力させるのがよいだろうか、といったところです。

AppleScript名：easyJParse v4

— Created 2018-09-26 by Takaaki Naganoya
— Modified 2018-12-14 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.5" — El Capitan (10.11) or later
use framework "Foundation"
use scripting additions
use bPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

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

load framework

set aTargName to "Finderで選択中のAI書類上の「製品名」レイヤーから抜き出したコードをもとにスペック情報をGoogle Spreadsheet「製品コード表」から展開して保存。"
set aList to parseJ(aTargName, true) of me
–> {"Finder", "で", "選択", "中", "の", "AI", "書類", "上", "の", "「", "製品名", "」", "レイヤー", "から", "抜き出し", "た", "コード", "を", "もと", "に", "スペック", "情報", "を", "Google", " ", "Spreadsheet", "「", "製品コード表", "」", "から", "展開", "し", "て", "保存", "。"}

set aTargName to "私の名前は「長野谷」です。"
set aList to parseJ(aTargName, true) of me
–> {"私", "の", "名前", "は", "「", "長野谷", "」", "です", "。"}

–カッコのネスティングとクロス（エラー）については、処理せずにそのまま出力
on parseJ(aTargStr as string, pickupPhraseByBracketPair as boolean)
　　copy aTargStr to tStr
　　
　　set cList to characters of tStr
　　set wList to words of tStr
　　
　　set cLen to length of cList
　　
　　set w2List to {}
　　set w3List to {}
　　set aCount to 0
　　
　　set lastPos to 0
　　
　　repeat with i in wList
　　　　set j to contents of i
　　　　
　　　　using terms from scripting additions
　　　　　　set anOffset to offset of j in tStr
　　　　end using terms from
　　　　
　　　　if anOffset is not equal to 1 then
　　　　　　set aChar to character (lastPos + 1) of aTargStr
　　　　　　
　　　　　　set the end of w3List to {wordList:aChar, characterList:{aChar}, startPos:(lastPos + 1), endPos:(lastPos + 1)}
　　　　end if
　　　　
　　　　set aLen to length of j
　　　　
　　　　set w2List to w2List & (characters of j)
　　　　set startPointer to (anOffset + aCount)
　　　　set endPointer to (anOffset + aCount + aLen – 1)
　　　　
　　　　set the end of w3List to {wordList:j, characterList:(characters of j), startPos:startPointer, endPos:endPointer}
　　　　
　　　　set trimStart to (anOffset + aLen)
　　　　
　　　　if trimStart > (length of tStr) then
　　　　　　set trimStart to 1
　　　　end if
　　　　
　　　　set tStr to text trimStart thru -1 of tStr
　　　　
　　　　set aCount to aCount + anOffset + aLen – 1
　　　　copy endPointer to lastPos
　　end repeat
　　
　　–句読点など。文末の処理
　　if endPointer is not equal to cLen then
　　　　set the end of w3List to {wordList:tStr, characterList:(characters of tStr), startPos:(lastPos + aCount), endPos:aLen}
　　end if
　　
　　set bArray to sortRecListByLabel((w3List), "startPos", true) of me
　　set cArray to (bArray’s valueForKeyPath:"wordList") as list
　　
　　–カッコでくくった範囲を１つの塊として連結する
　　set bracketList to {"「", "」", "『", "』", "【", "】", "《", "》", "〈", "〉", "（", "）"}
　　set bList to jointItemsBetweenBrackets(cArray, bracketList) of me
　　
　　return bList
end parseJ

–リストに入れたレコードを、指定の属性ラベルの値でソート
on sortRecListByLabel(aRecList as list, aLabelStr as string, ascendF as boolean)
　　set aArray to NSArray’s arrayWithArray:aRecList
　　set sortDesc to NSSortDescriptor’s alloc()’s initWithKey:aLabelStr ascending:ascendF
　　set sortDescArray to NSArray’s arrayWithObjects:sortDesc
　　set sortedArray to aArray’s sortedArrayUsingDescriptors:sortDescArray
　　return sortedArray
end sortRecListByLabel

on offset of bArg in anArg
　　set aClass to class of anArg
　　set bClass to class of bArg
　　
　　if {aClass, bClass} = {text, text} then –case 1
　　　　return getOffset(anArg, bArg) of me
　　else if {aClass, bClass} = {list, list} then –case 2 (The target case)
　　　　return execOffsetList(bArg, anArg) of me
　　else if {aClass, bClass} = {text, list} then –case 3 (Illegular case)
　　　　return execOffsetList(bArg, {anArg}) of me
　　else if {aClass, bClass} = {list, text} then –case 4 (Illegular case)
　　　　return execOffsetList({bArg}, anArg) of me
　　end if
end offset

–1D List同士のoffset演算を行うルーチンの本体
on execOffsetList(aList as list, bList as list)
　　set resList to {}
　　repeat with i in aList
　　　　set j to contents of i
　　　　set aCount to 1
　　　　
　　　　repeat with ii in bList
　　　　　　set jj to contents of ii
　　　　　　if jj = j then
　　　　　　　　set the end of resList to aCount
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　set aCount to aCount + 1
　　　　end repeat
　　end repeat
　　
　　–見つかったItem No.が連続値かどうかチェック
　　set sRes to chkSequential(resList) of me
　　if sRes = true then
　　　　return contents of first item of resList
　　else
　　　　return false
　　end if
end execOffsetList

–与えられた1D Listが連続値かどうかをチェックする
on chkSequential(aList)
　　if length of aList = 1 then return true
　　if aList = {} then return false
　　
　　set aFirst to first item of aList
　　set aList to rest of aList
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is not equal to (aFirst + 1) then
　　　　　　return false
　　　　end if
　　　　copy j to aFirst
　　end repeat
　　
　　return true
end chkSequential

–テキスト同士のoffset ofを（2.5x fasterで）実行する
on getOffset(str, searchStr)
　　set d to divideBy(str, searchStr)
　　if (count d) is less than 2 then return 0
　　return (length of item 1 of d) + 1
end getOffset

on divideBy(str, separator)
　　set delSave to AppleScript’s text item delimiters
　　set the AppleScript’s text item delimiters to separator
　　set strItems to every text item of str
　　set the AppleScript’s text item delimiters to delSave
　　return strItems
end divideBy

–カッコでくくった範囲を１つの塊として連結する
on jointItemsBetweenBrackets(aList as list, bracketList as list)
　　load framework
　　
　　–リスト内のブラケット位置の検出
　　set aRes to (current application’s SMSForder’s indexesOfItems:bracketList inArray:aList inverting:false) as list
　　–> {9, 12, 15, 18, 22, 25, 27, 29}–0 based
　　
　　if aRes = {} then return aList
　　
　　–位置情報リストを開始位置, 終了位置のペアの2D Listに変換する
　　set cList to (current application’s SMSForder’s subarraysFrom:(aRes) groupedBy:2 |error|:(missing value)) as list
　　–> {{9, 12}, {15, 18}, {22, 25}, {27, 29}}–0 based
　　
　　–カッコの位置がクロスしていないかチェック（入れ子状態はエラーになる）
　　set dRes to checkCrossRange(cList) of me
　　if dRes = false then return aList
　　
　　set ccList to reverse of cList –順次、ブラケットに囲まれた要素を連結していくので、アイテム数が随時変化する。アイテム番号が狂わないよう後方から処理する必要がある。そのために、リストの要素を逆順に組み替える
　　–> {{27, 29}, {22, 25}, {15, 18}, {9, 12}}–0 based
　　
　　—
　　copy aList to aaList
　　
　　repeat with i in ccList
　　　　copy i to {s2Dat, e2Dat}
　　　　
　　　　set s2Dat to s2Dat + 1 –Array index conversion from 0 to 1 based
　　　　set e2Dat to e2Dat + 1 –Array index conversion from 0 to 1 based
　　　　
　　　　set tmp1 to items 1 thru s2Dat of aaList
　　　　set tmp2 to (items (s2Dat + 1) thru (e2Dat – 1) of aaList) as string
　　　　set tmp3 to items e2Dat thru -1 of aaList
　　　　
　　　　set aaList to tmp1 & tmp2 & tmp3
　　end repeat
　　
　　return aaList
end jointItemsBetweenBrackets

–{始点, 終点}のペアの2D Listが違いにクロスしていないかチェック
on checkCrossRange(aList as list)
　　set rList to {}
　　repeat with i in aList
　　　　copy i to {sRange, eRange}
　　　　set tmpRange to current application’s NSMakeRange(sRange, eRange – sRange + 1)
　　　　set the end of rList to tmpRange
　　end repeat
　　
　　repeat with ii in rList
　　　　set jj to contents of ii
　　　　repeat with i in rList
　　　　　　set j to contents of i
　　　　　　
　　　　　　if jj is not equal to j then
　　　　　　　　set aRes to current application’s NSIntersectionRange(jj, j)
　　　　　　　　
　　　　　　　　if aRes is not equal to {location:0, |length|:0} then
　　　　　　　　　　return false
　　　　　　　　end if
　　　　　　end if
　　　　　　
　　　　end repeat
　　end repeat
　　
　　return true
end checkCrossRange

★Click Here to Open This Script　

offset of list in list v3

Posted on 12月 14, 2018 by Takaaki Naganoya

1D List（Array）中における指定項目の出現位置（offset）を求めるAppleScriptです。標準命令「offset of ① in ②」を拡張して、本来はテキスト同士の処理であったものを、リスト同士で処理するようにしています。

サポートしているのは４つのパターンです。

（１）offset of string1 in string2

標準パターンですが、例によって標準命令よりも2.5倍速に高速化してあります。

（２）offset of list1 in list2

想定ターゲットのパターンです。1D Listと1D Listのoffsetを計算します。

（３）offset of list1 in string2

（２）を指定しようとして間違ったケースです。

（４）offset of string1 in list2

ASOC（use framework “Foundation”宣言時）では、そのままではoffset命令がだましにくくなるので（パラメータが文字列ではないとしてエラーになる）、using terms from scripting additionsで囲う必要がありました。

パラメータにヌルリストを指定した場合に、エラーになる件を修正（chkSequential）してあります。

AppleScript名：offset of list in list v3

— Created 2018-09-18 by Takaaki Naganoya
— Modified 2018-12-14 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use framework "Foundation"
use scripting additions

–case 1
using terms from scripting additions –ここ、AppleScriptObjC（use framework "Foundation"宣言時）では必要になる
　　set bRes to offset of "a" in "bcdefa"
end using terms from
–> 6

–case 2 (The target case)
set aTargList to {"Finder", "で", "選択", "中", "の", "AI", "書類", "上", "の", "「", "製品", "名", "」", "レイヤー", "から", "抜き出し", "た", "コード", "を", "もと", "に", "スペック", "情報", "を", "Google", " ", "Spreadsheet", "から", "展開", "し", "て", "保存", "。"}
set bList to {"の", "メニュー", "で"}
using terms from scripting additions
　　set aRes to offset of bList in aTargList
end using terms from
–> 2

–case 3 (Illegular case)
set aTargList to {"Finder", "で", "選択", "中", "の", "AI", "書類", "上", "の", "「", "製品", "名", "」", "レイヤー", "から", "抜き出し", "た", "コード", "を", "もと", "に", "スペック", "情報", "を", "Google", " ", "Spreadsheet", "から", "展開", "し", "て", "保存", "。"}
set bList to "で"
using terms from scripting additions
　　set aRes to offset of bList in aTargList
end using terms from
–> 4

–case 4 (Illegular case)
set aTargList to "で"
set bList to {"で"}
using terms from scripting additions
　　set aRes to offset of bList in aTargList
end using terms from
—> 1

–case 3a (Illegular case)
set aTargList to {}
set bList to "で"
using terms from scripting additions
　　set aRes to offset of bList in aTargList
end using terms from
–> false

–case 2a (The target case)
set aTargList to {"Finder", "で", "選択", "中", "の", "AI", "書類", "上", "の", "「", "製品", "名", "」", "レイヤー", "から", "抜き出し", "た", "コード", "を", "もと", "に", "スペック", "情報", "を", "Google", " ", "Spreadsheet", "から", "展開", "し", "て", "保存", "。"}
set bList to {}
using terms from scripting additions
　　set aRes to offset of bList in aTargList
end using terms from
–> false

★Click Here to Open This Script　

(POST) Google Translate APIで翻訳

Posted on 12月 10, 2018 by Takaaki Naganoya

Google Translate API（REST API）を呼び出して、指定のテキストを別の言語に翻訳するAppleScriptです。

Google Cloud Consoleにお持ちのGoogleアカウントでログインし、プロジェクトを作成して、プロジェクト用のAPIを個別に許可（この場合にはGoogle Translate API）し、API Keyを発行してScript中に記述して呼び出します（retAPIKeyハンドラ中にハードコーディングするのが嫌であれば、Keychainに登録して呼び出すことも可能です）。

処理内容自体は、REST API呼び出しのいつものやつなんでとくに解説はしません。コピペで作れるぐらい退屈で簡単です（本Scriptも呼び出せることを確認するだけして放置していました）。

ただ、本Scriptは同期処理用のNSURLConnectionを使って呼び出しているバージョンで、このNSURLConnectionが将来的に廃止される見込みなので、curlコマンドで呼び出すか、NSURLSessionを使って呼び出すように書き換えるか、といったところです。

単体だとただ翻訳できるだけで、あまり面白味はありません。本ScriptはMicrosoft Azure Computer Vision APIで画像認識を行なったときに、その画像認識テキストが英文で返ってきており、その内容を日本語に自動翻訳するときに使用してみました。翻訳精度は悪くないと思うのですが、画像のシーン認識テキストの英文がいまひとつだったので、「英文で出力してくれた方がまだわかりやすい」というところで、個人的にはあまり活躍していません。

Translate APIを売り物の本の翻訳に使うことが許可されていないなど、利用許諾が割と厳しいので使いどころが多そうに見えつつもそうでもない、といったところでしょうか。

AppleScript名：(POST) Google Translate APIで翻訳

— Created 2016-03-03 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property NSString : a reference to current application’s NSString
property NSURLQueryItem : a reference to current application’s NSURLQueryItem
property NSURLConnection : a reference to current application’s NSURLConnection
property NSJSONSerialization : a reference to current application’s NSJSONSerialization
property NSURLComponents : a reference to current application’s NSURLComponents
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSMutableURLRequest : a reference to current application’s NSMutableURLRequest
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding

set aSentense to "a birthday cake with lit candles"
set bSentense to retTranslatedString("en", "ja", aSentense) of me
–> "キャンドルライト付きの誕生日ケーキ"–Japanese

set cSentense to retTranslatedString("en", "de", aSentense) of me
–> "eine Geburtstagstorte mit brennenden Kerzen"–Deutsch

on retTranslatedString(fromLang, toLang, aSentense)
　　set myAPIKey to retAPIKey() of me
　　set aRec to {|key|:myAPIKey, source:fromLang, |format|:"text", target:toLang, q:aSentense}
　　set aURL to "https://www.googleapis.com/language/translate/v2"
　　set bURL to retURLwithParams(aURL, aRec) of me
　　set aRes to callRestPOSTAPIAndParseResults(bURL) of me
　　
　　set aRESCode to responseCode of aRes
　　if aRESCode is not equal to 200 then return ""
　　set aRESHeader to responseHeader of aRes
　　set aRESTres to (translatedText of (first item of translations of |data| of json of aRes)) as string
　　return aRESTres
end retTranslatedString

–POST methodのREST APIを呼ぶ
on callRestPOSTAPIAndParseResults(aURL)
　　set aRequest to NSMutableURLRequest’s requestWithURL:(current application’s |NSURL|’s URLWithString:aURL)
　　aRequest’s setHTTPMethod:"POST"
　　aRequest’s setValue:"application/x-www-form-urlencoded" forHTTPHeaderField:"Content-Type"
　　
　　set aRes to NSURLConnection’s sendSynchronousRequest:aRequest returningResponse:(reference) |error|:(missing value)
　　set resList to aRes as list
　　
　　set bRes to contents of (first item of resList)
　　set resStr to NSString’s alloc()’s initWithData:bRes encoding:(NSUTF8StringEncoding)
　　
　　set jsonString to NSString’s stringWithString:resStr
　　set jsonData to jsonString’s dataUsingEncoding:(NSUTF8StringEncoding)
　　set aJsonDict to NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value)
　　
　　–Get Response Code & Header
　　set dRes to contents of second item of resList
　　if dRes is not equal to missing value then
　　　　set resCode to (dRes’s statusCode()) as number
　　　　set resHeaders to (dRes’s allHeaderFields()) as record
　　else
　　　　set resCode to 0
　　　　set resHeaders to {}
　　end if
　　
　　return {json:aJsonDict, responseCode:resCode, responseHeader:resHeaders}
end callRestPOSTAPIAndParseResults

on retURLwithParams(aBaseURL, aRec)
　　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 qList to {}
　　repeat with i from 1 to aLen
　　　　set aName to contents of item i of aKeyList
　　　　set aVal to contents of item i of aValList
　　　　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

on retAPIKey()
　　return "XXxxXxXXXxXxX-XxXXxXXXxxxxXXXXxXxXXxXXX"
end retAPIKey

★Click Here to Open This Script　

Keynoteでオープン中の最前面の現在のページのテキストアイテムを取得してテキスト化

Posted on 12月 6, 2018 by Takaaki Naganoya

Keynoteでオープン中の最前面の書類の、現在表示中のスライド（ページ）上に存在する文字情報を取得して、macOS標準装備のテキストエディタ「テキストエディット」の新規書類上に取得した文字情報をすべて転送するAppleScriptです。

Keynote書類上に配置できるオブジェクトには、

このようなものがあります。

これらのうち文字情報が直接入力可能なtext itemおよびshapeを包括したiWork itemというオブジェクト、およびtableオブジェクトから文字情報を取得し、いろいろごみ取り（改行文字削除）を行なったりしたものをmacOS標準装備のテキストエディタに出力するものです。

Keynoteで作業中に編集中の書類内から文字情報を再利用したい場合のために作成したものです。

▲このようなKeynoteのスライド（ページ）上の文字情報を

▲一括で取得してテキストエディタの新規書類上に転送

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

AppleScript名：Keynoteでオープン中の最前面の現在のページのテキストアイテムを取得してテキスト化

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

set repTargList to {string id 10, string id 11, string id 13} –LF,CR,VTab一括置換

set t1List to {}
set t2List to {}

tell application "Keynote"
　　if (count every document) = 0 then return
　　
　　tell front document
　　　　tell current slide
　　　　　　if (count every iWork item) > 0 then
　　　　　　　　set t1List to object text of every iWork item –text item, shapeなどを包括したオブジェクト
　　　　　　end if
　　　　　　
　　　　　　if (count every table) > 0 then
　　　　　　　　set t2List to value of every cell of every table
　　　　　　end if
　　　　　　
　　　　end tell
　　end tell
end tell

set tList to t1List & t2List
set tList to FlattenList(tList) of me –force lists to 1D list

–タイトルごとにゴミ取り（改行文字の削除）
set outList to {}
repeat with i in tList
　　set j1 to contents of i
　　
　　if (j1 is not equal to missing value) and (j1 is not equal to "") then
　　　　set jTmp to (paragraphs of j1) as string –しつこい改行文字（？）を除去するための処理
　　　　
　　　　set j2 to replaceTextMultiple(jTmp, repTargList, "") of me as string
　　　　if j2 is not equal to "" then
　　　　　　set the end of outList to j2
　　　　end if
　　end if
end repeat

–リストを改行で区切ったテキストに変換
set aStr to listToStringUsingTextItemDelimiter(outList, return) of me

–得られたテキストをTextEditの新規書類上に出力
tell application "TextEdit"
　　activate
　　make new document
　　set text of front document to aStr
end tell

–多次元配列の強制１次元配列化 By Paul Berkowitz
on FlattenList(aList as list)
　　set oldDelims to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to {"????"}
　　set aString to aList as text
　　set aList to text items of aString
　　set AppleScript’s text item delimiters to oldDelims
　　return aList
end FlattenList

★Click Here to Open This Script　

Keynoteでオープン中の最前面の書類のすべてのページのタイトルを取得してテキスト化 v2

Posted on 12月 6, 2018 by Takaaki Naganoya

オープン中の最前面のKeynoteの書類の各スライド（ページ）のタイトルを取得して、改行文字を削除し、テキストエディット上の新規書類にタイトル一覧文字を入れるAppleScriptです。

Keynote書類は、きちんと各スライドのマスタースライドでタイトル入りのものを使用し、各スライドでタイトル用のテキストアイテムにタイトルを入れてあれば、AppleScriptからタイトルを取得できます。

もしも、スライド（ページ）上にタイトルが存在しない場合には、座標がどこどこ以上で文字サイズがXXXポイント以上のテキストアイテムのうち、もっとも上の方に存在しているものをタイトルとみなして取得する、といった処理も可能なので、そういう対策を行なってもよいでしょう。

ここでは、単にタイトル内容の再利用や内容確認などのためOS標準装備のテキストエディタに出力していますが、Keynote書類上に目次を作成するといった処理も普通に行なっています（仕様書の目次をつける場合など）。

Keynote書類に対する処理は、割と自分的に業務の効率化に寄与しています。毎月作成する説明用資料を、さまざまな書類のデータから数値を集めてKeynote書類を自動作成するといったAppleScriptも実際に存在しています。

▲このようなKeynote書類を……

▲本Scriptで処理するとテキストエディット上にタイトル一覧が展開される

AppleScript名：Keynoteでオープン中の最前面の書類のすべてのページのタイトルを取得してテキスト化 v2

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

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 {}
repeat with i in tList
　　set j1 to contents of i
　　set jTmp to (paragraphs of j1) as string –しつこい改行文字（？）を除去するための処理
　　
　　set j2 to replaceTextMultiple(jTmp, repTargList, "") of me as string
　　if j2 is not equal to "" then
　　　　set the end of outList to j2
　　end if
end repeat

–リストを改行で区切ったテキストに変換
set aStr to listToStringUsingTextItemDelimiter(outList, return) of me

–得られたテキストをTextEditの新規書類上に出力
tell application "TextEdit"
　　activate
　　make new document
　　set text of front document to aStr
end tell

★Click Here to Open This Script　

Mail.appで選択中のメールボックス（フォルダ）のパスを文字列で返す

Posted on 11月 25, 2018 by Takaaki Naganoya

Mail.app上で選択中のメールボックス（フォルダ）のパスをフルパスの文字列で求めるAppleScriptです。

Mail.app上ではメールボックス（フォルダ）を複数階層作成できます。ファイルシステム上のフォルダではないので、ファイル処理でメールのメールボックス（フォルダ）間の移動を行うことはできませんが、パスを指定してmoveコマンドでメールを移動させられます。

Mail.app上のパスは、

level1/level2

のように記述します。

のように選択している場合には、

"ML/Xojo, REALbasic"

と返ってきます。

tell application "Mail"
　　tell mailbox "ML/Xojo, REALbasic"
　　　　set aList to every message
　　end tell
end tell

★Click Here to Open This Script　

のように指定すれば、指定フォルダ以下のメール（message）が返ってきます（サブフォルダ内のメールは対象外）。ファイルパスと異なり、空白文字が入ってくることに備えてquoted ofでパスをクォート処理しておく必要はありません。

フルパスを求めるのに、再帰処理を行なっています。

AppleScript名：Mail.appで選択中のメールボックス（フォルダ）のパスを文字列で返す

property aFullPath : ""

set aFullPath to ""

–選択中のメールボックス（フォルダ）を取得
set aMB to getSelectedOneMailBox() of me

–メールボックス（フォルダ）のオブジェクトのMail.app上のパスを取得して文字列化する
set pathStr to extraxctTextFullPathOfMBObject(aMB) of me
return aFullPath
–> "ML/Xojo, REALbasic"

–Message Viewerで現在表示中のメールボックスの情報を１つのみ返す
on getSelectedOneMailBox()
　　tell application "Mail"
　　　　tell message viewer 1
　　　　　　set mbList to selected mailboxes
　　　　end tell
　　end tell
　　if length of mbList is equal to 0 then
　　　　return ""
　　end if
　　
　　set aMailBox to contents of (item 1 of mbList)
　　return aMailBox
end getSelectedOneMailBox

–Mail.appのメールボックスオブジェクトを渡すと、テキストのフルパスに変換
on extraxctTextFullPathOfMBObject(aPath)
　　tell application "Mail"
　　　　try
　　　　　　set parentPath to container of aPath
　　　　on error
　　　　　　return
　　　　end try
　　　　
　　　　set meName to name of aPath
　　　　if aFullPath = "" then –１回目のみスラッシュを入れないで処理
　　　　　　set aFullPath to meName
　　　　else
　　　　　　–通常処理はこちら
　　　　　　set aFullPath to meName & "/" & aFullPath
　　　　end if
　　　　
　　　　extraxctTextFullPathOfMBObject(parentPath) of me –再帰呼び出し
　　end tell
end extraxctTextFullPathOfMBObject

★Click Here to Open This Script　

指定URLをロードしてtitleを取得 v2

Posted on 11月 20, 2018 by Takaaki Naganoya

指定URLのWebページのtitleを取得するAppleScriptです。

この手の処理を記述するには、お手軽にshell scriptでーとか、Cocoaの機能を利用してチクチク記述するとか、SafariにURLをロードしてtitleを読み込むとか、いろいろやり方があって悩むところです。

技術的な難易度が低そう（に見える）やり方を考え、ダウンロード部分はお手軽にcurlコマンドで、取得したHTMLの解析はオープンソースのFramework「HTMLReader」を併用することで高度な処理（URLエンコーディング文字列のデコード）を実現してみました。

–> HTMLReader.framework（To ~/Library/Frameworks/）

AppleScript名：指定URLをロードしてtitleを取得 v2

use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "HTMLReader" –https://github.com/nolanw/HTMLReader

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

set aURL to "http://piyocast.com/as/"
set aTItle to getPageTItleFromURL(aURL) of me
–> "AppleScriptの穴 – Useful & Practical AppleScript archive"

on getPageTItleFromURL(aURL)
　　set aRes to (do shell script "curl -s " & aURL)
　　set aData to NSString’s stringWithString:aRes
　　if aData = missing value then return false
　　
　　set aHTML to HTMLDocument’s documentWithString:aData
　　
　　set aTitleRes to ((aHTML’s nodesMatchingSelector:"title")’s textContent’s firstObject()) as string
　　return aTitleRes
end getPageTItleFromURL

★Click Here to Open This Script　

MecabCocoaで形態素解析

Posted on 11月 14, 2018 by Takaaki Naganoya

オープンソースのMecabラッパー「MecabCocoa.framework」を呼び出して、日本語の文字列を形態素解析するAppleScriptです。

単語（形態素）に分割する形態素解析については、動作しているものの、

　partOfSpeechType：品詞
　originalForm：原形

といったあたりの、重要な情報がまともに返ってこないので、単語分割やよみがなの機能しか動作していないように見えるのですが、、、、

AppleScript名：MecabCocoaで形態素解析.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2018/11/13
—
–　　Copyright © 2018 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "MecabCocoa" –https://github.com/shinjukunian/MecabCocoa
use scripting additions

set aStr to "私の名前は長野谷です。"
set tokenArray to (current application’s MecabTokenizer’s alloc()’s parseToNodeWithString:aStr withDictionary:2)
set tList to (tokenArray’s surface) as list
–> {"私", "の", "名前", "は", "長野", "谷", "です", "。"}

set fList to (tokenArray’s features) as list
–> {{"watakushi"}, missing value, {"namae"}, missing value, {"nagano"}, {"tani"}, missing value, missing value}

set psList to (tokenArray’s partOfSpeechType) as list
–> {100, 100, 100, 100, 100, 100, 100, 100} –おかしい？

★Click Here to Open This Script　

NLLanguageRecognizerで自然言語の推定 v4

Posted on 11月 13, 2018 by Takaaki Naganoya

macOS 10.14であらたに搭載されたNaturalLanguage.frameworkにアクセスして、自然言語テキストが「何語」かを推定し、指定数の言語ごとにその推測した確率を求めるAppleScriptです。

NLLanguageRecognizerで、言語推定時に「言語Aと言語Bのみ考慮してね」と指定し、それぞれに数値による重み付け（0.0〜1.0）を指定できます。

ただ、重み付けを指定してもダメな時はダメなようで……日本語の文章に多めにアルファベットが入っている場合にはまったく日本語と判定されません。

AppleScript名：NLLanguageRecognizerで自然言語の推定 v4

— Created 2018-11-13 by Takaaki Naganoya
use AppleScript version "2.7" — Mojave (10.14) or later
use framework "Foundation"
use framework "NaturalLanguage"
use scripting additions

property NLLanguageEnglish : a reference to current application’s NLLanguageEnglish
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NLLanguageJapanese : a reference to current application’s NLLanguageJapanese
property NLLanguageRecognizer : a reference to current application’s NLLanguageRecognizer

set aNL to NLLanguageRecognizer’s alloc()’s init()

–言語ごとに可能性の重み付けを行って、言語推定

–言語推定の可能性ヒントデータを指定。日本語が99.9％、英語は0.1％の可能性として指定
set hintDict to NSMutableDictionary’s dictionaryWithObjects:{1.0E-3, 0.999} forKeys:{NLLanguageEnglish, NLLanguageJapanese}
–> (*(NSDictionary) {en:0.01, ja:0.99}*) –recordで作ってScriptingBridge経由でNSDictionaryに自動変換させてもよかったが、recordでは属性ラベルにハイフンなどは使えないのでこれでいいのだ
set hintRes3 to (aNL’s setLanguageHints:hintDict)

aNL’s processString:"AppleScriptで日本語を処理するよ。"
set langRes4 to (aNL’s languageHypothesesWithMaximum:2) as record
–> {en:1.0}– アルファベットの文字量が多いので、英語と判断されたよ！　（＞_＜）

aNL’s processString:"AppleScriptで日本語を処理するぴよ。"
set langRes5 to (aNL’s languageHypothesesWithMaximum:2) as record
–> {ja:1.0}– 「よ」を「ぴよ」に書き換えたら日本語の文字の量が増えて日本語と判定されたよ！　（＾ー＾）

★Click Here to Open This Script　

NLLanguageRecognizerで自然言語の推定 v3

Posted on 11月 13, 2018 by Takaaki Naganoya

NLLanguageRecognizerも、「最もそれらしいラベル（言語）値」を返すだけでなく、推測候補言語とその確率（0.0〜1.0、1.0が最もそれらしい）をDictionary形式で（AppleScriptでいうところのrecord）出力するメソッドがあります。試しに呼んでみました。

AppleScript名：NLLanguageRecognizerで自然言語の推定 v3

— Created 2018-11-13 by Takaaki Naganoya
use AppleScript version "2.7" — Mojave (10.14) or later
use framework "Foundation"
use framework "NaturalLanguage"
use scripting additions

property NLLanguageRecognizer : a reference to current application’s NLLanguageRecognizer

set aNL to NLLanguageRecognizer’s alloc()’s init()

–言語推定時の各言語の可能性の数値をリストアップ
aNL’s processString:"AppleScriptで日本語を処理。"
set langRes1 to (aNL’s languageHypothesesWithMaximum:10) as record
–> {|is|:0.017804400995, ro:0.02502822876, fr:0.015569564886, de:0.041996311396, |it|:0.017095085233, nl:0.630239665508, sv:0.041430238634, en:0.11029753834, nb:0.025065546855, hu:0.051682028919}
–アルファベットの比率が高まると、日本語として認識される可能性が極端に下がる

aNL’s processString:"「「「「了解です！」」」」" –なろう系小説の複数人物の同時発話表現
set langRes2 to (aNL’s languageHypothesesWithMaximum:5) as record
–> {|zh-hans|:0.251541793346, ja:0.748288214207, |zh-hant|:1.62590833497234E-4}

★Click Here to Open This Script　

NLLanguageRecognizerで自然言語の推定 v2

Posted on 11月 13, 2018 by Takaaki Naganoya

macOS 10.14であらたに搭載されたNaturalLanguage.frameworkにアクセスして、自然言語テキストが「何語」かを推定するAppleScriptです。

以前にNSLinguisticTaggerで言語推定を試してみましたが、ネット上のラノベ文書（セリフが多く、人名がカタカナばっかり）を与えてみたら日本語を日本語として判定せず、「使えない機能」だと感じました。

ポンコツで与える文字列の長さや記号文字の登場頻度に極端に演算結果が左右されていたNSLinguisticTaggerとは異なり、このNLLanguageRecognizerは割と使えるようです。「日本語だよ。」という程度の文章で日本語と判定してくれたので、なかなか使えそうな気配がします。

ただし、実際に試してみたところ文中にアルファベットの単語が多く含まれると日本語として判定してくれなくなるという「弱点」があるので、そのあたりは注意を要します。

AppleScript名：NLLanguageRecognizerで自然言語の推定 v2.scptd

— Created 2018-11-13 by Takaaki Naganoya
use AppleScript version "2.7" — Mojave (10.14) or later
use scripting additions
use framework "Foundation"
use framework "NaturalLanguage" –new framework

set str01 to "Ilmatyynyalukseni on täynnä ankeriaita."
set str02 to "Luftputebåten min er full av ål"
set str03 to "私の名前は長野谷です。"
set str04 to "أنشأ فوكوزاوا يوكيتشي (١٨٣٥–١٩٠١) في اكتوبر عام ١٨٥٨ مدرسة للدراسات الهولندية (تحولت بعد ذلك لمدرسة للغة الانكليزية) في ايدو (طوكيو حاليا). يعد فوكوزاوا يوكيتشي من أحد مؤسسي نهضة اليابان الحديثة، فونهتم بمدرستنا بنوع التعليم الذي ينمي القدرات الإبداعية والفنية التي يتطلب توافرها في طلاب الجامعة بحيث لا ينشغل الطلاب باختبار قبول الجامعات ونحترم استقلالية وتفرد كل طالب وذلك في جو دافئ في بيئة طبيعية مليئة بأشجار"
set str05 to "게이오 기주쿠는 어디에나 있는 학교의 하나로 만족하지 않습니다. 게이오 기주쿠는 기주쿠(義塾, 의숙)에서 배우는 학생과 교원이 일본의 ’기품의 원천’ 및 ’지덕의 모범’이 되는 것을 목표로 하는 학숙(學塾)입니다. "
set str06 to "庆应义塾不是仅仅满足于成为常常见到的一般性学校。"
set str07 to "Je suis japonaise."
set str08 to "Buon pomeriggio."
set str09 to "Хороших выходных!"
set str10 to "Möchten Sie Tee oder Kaffee?"

set a1Res to guessLanguageCodeOf(str01) of me –>　　"fi"
set a2Res to guessLanguageCodeOf(str02) of me –>　　"sv"
set a3Res to guessLanguageCodeOf(str03) of me –>　　"ja"
set a4Res to guessLanguageCodeOf(str04) of me –>　　"ar"
set a5Res to guessLanguageCodeOf(str05) of me –>　　"ko"
set a6Res to guessLanguageCodeOf(str06) of me –>　　"zh-Hans"
set a7Res to guessLanguageCodeOf(str07) of me –>　　"fr"
set a8Res to guessLanguageCodeOf(str08) of me –>　　"it"
set a9Res to guessLanguageCodeOf(str09) of me –>　　"ru"
set a10Res to guessLanguageCodeOf(str10) of me –> "de"

return {a1Res, a2Res, a3Res, a4Res, a5Res, a6Res, a7Res, a8Res, a9Res, a10Res}
–> {"fi", "nb", "ja", "ar", "ko", "zh-Hans", "fr", "it", "ru", "de"}

on guessLanguageCodeOf(theString as string)
　　set aNL to current application’s NLLanguageRecognizer’s alloc()’s init()
　　aNL’s processString:theString
　　set langRes to (aNL’s dominantLanguage()) as string
　　return langRes
end guessLanguageCodeOf

★Click Here to Open This Script　

Bayes推定による文章仕分け（Classifier）

Posted on 11月 12, 2018 by Takaaki Naganoya

ベイズ推定を計算するオープンソースのプログラム「Bayes」をCocoaフレームワーク化した「BayesKit」を呼び出してベイズ推定の計算を行うAppleScriptです。

–> Download BayesKit.framework (To ~/Library/Frameworks)

macOS 10.14以外はスクリプトエディタ/Script Debugger上で実行可能で、10.14のみScript Debugger上での実行を必要とします（この仕様、いい加減かったるいので戻してほしい）。

スパムメール選別用途御用達のベイズ推定の演算を行なってみました。プログラムに添付されていたサンプルは英語の文章を処理するようにできていましたが、予想どおり日本語の文章をそのまま与えると単語切り分けが行えずに計算がうまく行きません。

そこで、掲載サンプルScriptのように単語ごとに手動で半角スペースを入れてみました。

本来であれば、形態素解析辞書を使って単語ごとに切り分け、さらに単語の活用形をどうにかする必要があるはずですが、そこまで神経質にならずに簡易日本語パーサーで単語に分解し、助詞などを削除しデータとして与えることでそこそこの実用性は確保できるのではないかと思われます（これだと固有名詞がバラバラになる可能性は否定できませんが）。

NSLinguisticTagger＋macOS 10.14で日本語文章の形態素解析＋品詞解析は行えることを期待したいですが、未確認です。ただ、できた場合でも固有名詞への配慮がどの程度あるかは不明です。

AppleScript名：Bayes推定による文章仕分け（Classifier）.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2018/11/12
—
–　　Copyright © 2018 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.5" — El Capitan(10.11) or later
use framework "Foundation"
use framework "BayesKit" –https://github.com/kevincobain2000/Bayes
use scripting additions

property Bayes : a reference to current application’s Bayes
property FeaturesVector : a reference to current application’s FeaturesVector
property NSMutableArray : a reference to current application’s NSMutableArray

–set positiveStr to "word word good good"
–set negativeStr to "thiss word bad bad"
set positiveStr to "良い　良い良い良い　。"
set negativeStr to "悪悪悪悪悪　。"

set classifierObj to Bayes’s alloc()’s init()
set featuresVec to FeaturesVector’s alloc()’s init()

set featuresArray to NSMutableArray’s arrayWithArray:{"tokens"}

featuresVec’s appendFeatures:positiveStr forFeatures:featuresArray
classifierObj’s train:(featuresVec’s features) forlabel:"positive"

featuresVec’s appendFeatures:negativeStr forFeatures:featuresArray
classifierObj’s train:(featuresVec’s features) forlabel:"negative"

–set toGuess to "word"
set toGuess to "良い　。"

featuresVec’s appendFeatures:toGuess forFeatures:featuresArray
classifierObj’s guessNaiveBayes:(featuresVec’s features)

set vRes to (classifierObj’s probabilities) as record
–> {positive:0.6400000453, negative:0.32000002265}–English Sample Words　OK
–> {positive:1.0, negative:0.0}–Japanese Sample Words OK

★Click Here to Open This Script　

テキストをMarkdown形式として解釈してHTMLを出力

Posted on 11月 3, 2018 by Takaaki Naganoya

オープンソースのフレームワーク「MMMarkdown」を利用してMarkdownのテキストをHTMLに変換して出力するAppleScriptです。

ただし、解釈できるMarkdownタグは限定的で、表などは解釈できません。

–> Download MMMarkdown.framework (To ~/Library/Frameworks/)

AppleScript名：テキストをMarkdown形式と解釈してHTMLを出力

— Created 2016-05-12 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "MMMarkdown" –https://github.com/mdiep/MMMarkdown

set markdown to "# Example
What a library!"
set htmlString to (current application’s MMMarkdown’s HTMLStringWithMarkdown:markdown |error|:(missing value)) as string
–>
(*
"<h1>Example</h1>
<p>What a library!</p>
"
*)

★Click Here to Open This Script　