指定MIME TypeのUTI文字列などを取得する

指定MIME TypeからUTIの文字列などのさまざまな情報を取得するAppleScriptです。

漠然と身の回りにファイル拡張子、UTI、MIME-typeなどの情報が転がっていますが、それぞれの意味を考え直すと、向き不向きというか想定されている利用シーンなどが大幅に異なります。

種類	内容説明
ファイル拡張子	ファイルの形式を一意に特定するもの。ただし、「.jpg」「.jpeg」など若干の表記ゆらぎを許容。詐称できてしまう
UTI	ファイルのmacOS上での形式を一意に特定するもの。OS側が判断するもの。詐称できない。ゆらぎもない。UTI同士は階層構造を形成しており、上位のUTI（public.image）を指定することで下位UTIもまとめて指定できたりする
MIME-type	当該のファイルがインターネット上のファイル交換時にどのように受け取られるかを示す識別子。AppleScriptバンドルは拡張子「.scptd」で、UTIは「com.apple.applescript.script-bundle」だが、MIME-typeを取得すると「inode/directory」となる

と、ずいぶん違います。指定のファイルからMIME-typeを取得するだけであれば、こんな感じでしょうか。ただ、拡張子からMIME-typeを取得したり、MIME-typeからUTIを求めたりと、相互に変換する場合には（変換に意味がある場合には）いろいろと道具が必要です。

AppleScript名：指定ファイルからMIME-typeを取得する.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/04/14
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—

set aFile to POSIX path of (choose file)
set mRes to do shell script "/usr/bin/file -b –mime-type " & quoted form of aFile
–> "text/html"

★Click Here to Open This Script　

UTI.frameworkを用いる場合にはこちら。

UTI.frameworkをビルドして使用しています。macOS 10.11/10.12/10.13では~/Library/Frameworksにインストールしてスクリプトエディタ上で本Scriptを実行すると記述どおりの結果が得られます。

macOS 10.14ではScript Debuggerを使用するか、あるいはSIPを解除してスクリプトエディタ上で実行することが可能です。自分でビルドして自分でCode Signしたコードぐらい、ホームディレクトリ下で勝手に実行させてほしいものです。

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

AppleScript名：指定MIME TypeのUTI文字列などを取得する.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/04/12
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "UTI" –https://github.com/macmade/objc-uti
use scripting additions

set aUTIObj to (current application’s UTI’s UTIWithMIMEType:"image/gif")

set aRes to aUTIObj’s identifier()
–> com.compuserve.gif

set aRes to aUTIObj’s |description|() as string
–> "Graphics Interchange Format（GIF）"

set aRes to aUTIObj’s preferredOSType() as string
–> "GIFf"

set aRes to aUTIObj’s isDynamic() as boolean
–> false

set aRes to aUTIObj’s preferredFilenameExtension() as string
–> "gif"

set aRes to aUTIObj’s preferredMIMEType() as string
–> "image/gif"

set aRes to aUTIObj’s preferredNSPboardType() as string
–> "missing value"

set aRes to aUTIObj’s declaration() as record
–> {UTTypeIdentifier:"com.compuserve.gif", UTTypeDescription:"Graphics Interchange Format (GIF)", UTTypeTagSpecification:{|com.apple.ostype|:{"GIFf"}, |public.mime-type|:{"image/gif"}, |public.filename-extension|:{"gif"}}, UTTypeConformsTo:{"public.image"}}

set aRes to aUTIObj’s declaringBundleURL()’s |path|() as string
–> "/System/Library/CoreServices/CoreTypes.bundle"

set aRes to aUTIObj’s tagSpecifications() as record
–> {|com.apple.ostype|:{"GIFf"}, |public.mime-type|:{"image/gif"}, |public.filename-extension|:{"gif"}}

set aRes to aUTIObj’s conformsTo() as list
–> {"public.image"}

set aRes to aUTIObj’s referenceURL()
–> missing value

set aRes to aUTIObj’s |version|()
–> missing value

★Click Here to Open This Script　

指定フォルダ内のファイルのうち、指定UTIに該当するものをすべて取得してフルパスを返す

Posted on 4月 13 by Takaaki Naganoya

指定フォルダ内のファイルのうち、指定のUTIに該当するものをすべて取得してフルパス（file/POSIX）で返すAppleScriptです。

指定フォルダの直下のみを走査し、サブフォルダ内は走査しません。調べてみるとUTIでファイルを絞り込む機能は存在していないようなので（見落としているだけ？）、すべてファイルを取得してからループでUTIを調べつつ該当するかどうかチェックしています。

書けば書くほど「それってSpotlightでよくね？」という気がしますが、確実に取得したい（Spotlightインデックスが破損していたり、サーバー上のファイルではSpotlightが効かない場合もある）場合に使うとよいでしょうか。

AppleScript名：指定フォルダ内のファイルのうち、指定UTIに該当するものをすべて取得してフルパスを返す

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

property |NSURL| : a reference to current application’s |NSURL|
property NSArray : a reference to current application’s NSArray
property NSPredicate : a reference to current application’s NSPredicate
property NSFileManager : a reference to current application’s NSFileManager
property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey
property NSDirectoryEnumerationSkipsHiddenFiles : a reference to current application’s NSDirectoryEnumerationSkipsHiddenFiles

set aUTI to "com.adobe.pdf"
set libPath to ((path to documents folder) as string)
set posixLibPath to POSIX path of libPath

set f1List to getFilepathListByUTI(posixLibPath, aUTI, "file") of me
–> {file "Cherry:Users:me:Documents:0718kenpo.pdf", file "Cherry:Users:me:Documents:2013-09Rekihaku.pdf", file "Cherry:Users:maro:Documents:airserver.pdf"}

set f2List to getFilepathListByUTI(posixLibPath, aUTI, "POSIX") of me
–> {"/Users/me/Documents/0718kenpo.pdf", "/Users/me/Documents/2013-09Rekihaku.pdf", "/Users/me/Documents/airserver.pdf"}

on getFilepathListByUTI(aFolPOSIX, aUTI as string, aFileType as string)
　　script spdFile
　　　　property urlList : {}
　　end script
　　
　　if aFileType is not in {"file", "POSIX"} then return {}
　　
　　set aFM to NSFileManager’s defaultManager()
　　set aFolExt to (aFM’s fileExistsAtPath:aFolPOSIX isDirectory:true) as boolean
　　if aFolExt = false then return {} –フォルダ自体が存在しなければヌルリストを返す
　　
　　set aURL to |NSURL|’s fileURLWithPath:aFolPOSIX
　　set theOptions to ((current application’s NSDirectoryEnumerationSkipsPackageDescendants) as integer) + ((current application’s NSDirectoryEnumerationSkipsHiddenFiles) as integer)
　　set urlArray to (aFM’s contentsOfDirectoryAtURL:aURL includingPropertiesForKeys:{} options:theOptions |error|:(missing value))
　　if urlArray = missing value then return {}
　　
　　set (urlList of spdFile) to urlArray as list
　　set newList to {}
　　
　　repeat with i in (urlList of spdFile)
　　　　set j to POSIX path of i
　　　　set tmpUTI to my retUTIfromPath(j)
　　　　set utiRes to my filterUTIList({tmpUTI}, aUTI)
　　　　
　　　　if utiRes is not equal to {} then
　　　　　　if aFileType = "POSIX" then
　　　　　　　　set the end of newList to j
　　　　　　else if aFileType = "file" then
　　　　　　　　set the end of newList to POSIX file j
　　　　　　end if
　　　　end if
　　　　
　　end repeat
　　
　　return newList
end getFilepathListByUTI

–指定のPOSIX pathのファイルのUTIを求める
on retUTIfromPath(aPOSIXPath)
　　set aURL to |NSURL|’s fileURLWithPath:aPOSIXPath
　　set {theResult, theValue} to aURL’s getResourceValue:(reference) forKey:NSURLTypeIdentifierKey |error|:(missing value)
　　
　　if theResult = true then
　　　　return theValue as string
　　else
　　　　return theResult
　　end if
end retUTIfromPath

–UTIリストが指定UTIに含まれているかどうか演算を行う
on filterUTIList(aUTIList, aUTIstr)
　　set anArray to NSArray’s arrayWithArray:aUTIList
　　set aPred to NSPredicate’s predicateWithFormat_("SELF UTI-CONFORMS-TO %@", aUTIstr)
　　set bRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
　　return bRes
end filterUTIList

★Click Here to Open This Script　

指定フォルダ内のファイルのうち、指定拡張子リストに入っているものをすべて取得してフルパスを返す

Posted on 4月 12 by Takaaki Naganoya

指定フォルダに入っているファイルのうち、指定拡張子リストに該当するものをフルパスで返すAppleScriptです。

macOS 10.6以降の64ビット化されたFinderは動作が遅いため、大量のファイル情報を取得するなどの用途には不向きです。このため、「（ファイル選択を取得する以外の）ファイル処理にはFinderを使わない」のが現在のAppleScriptのセオリーとなっています。

本Scriptでは、~/Library/Script Libraries/フォルダの存在確認と、その中に格納されている「scpt」「scptd」の拡張子を持つAppleScript書類ファイルのリストアップを高速に行います。

AppleScript名：指定フォルダ内のファイルのうち、指定拡張子リストに入っているものをすべて取得してフルパスを返す

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

property |NSURL| : a reference to current application’s |NSURL|
property NSPredicate : a reference to current application’s NSPredicate
property NSFileManager : a reference to current application’s NSFileManager
property NSDirectoryEnumerationSkipsHiddenFiles : a reference to current application’s NSDirectoryEnumerationSkipsHiddenFiles

set anExpList to {"scpt", "scptd"} — no dot
set libPath to (((path to library folder from user domain) as string) & "Script Libraries:")
set posixLibPath to POSIX path of libPath
set fList to getFilepathListByExt(posixLibPath, anExpList) of me

on getFilepathListByExt(aFol, aExtList as list)
　　set aFM to NSFileManager’s defaultManager()
　　set aFolExt to (aFM’s fileExistsAtPath:aFol isDirectory:true) as boolean
　　if aFolExt = false then return {} –フォルダ自体が存在しなければヌルリストを返す
　　
　　set aURL to |NSURL|’s fileURLWithPath:aFol
　　set theOptions to ((current application’s NSDirectoryEnumerationSkipsPackageDescendants) as integer) + ((current application’s NSDirectoryEnumerationSkipsHiddenFiles) as integer)
　　set urlArray to aFM’s contentsOfDirectoryAtURL:aURL includingPropertiesForKeys:{} options:theOptions |error|:(missing value)
　　set thePred to NSPredicate’s predicateWithFormat_("pathExtension.lowercaseString IN %@", aExtList)
　　set anArray to (urlArray’s filteredArrayUsingPredicate:thePred)
　　return anArray as {missing value, list}
end getFilepathListByExt

★Click Here to Open This Script　

MP3ファイルからMP3タグの情報を取得

Posted on 4月 1 by Takaaki Naganoya

MP3ファイルからMP3タグの情報を取得するAppleScriptです。

とりあえず「取り出せることを確認した」というレベルの実装で、取り出したデータをタグに応じた加工を行うといった処理はほとんど書いてありません。各自よろしくお取り扱いください（投げやり）。

正直、Musicフォルダ以外に転がっている野良MP3ファイルから直接MP3タグ情報を読まなくても、iTunes.appにインポートしておいて、iTunes.appやらiTunesLibrary.framework経由で楽曲ファイルにアクセスしたほうが（データ形式のゆらぎを吸収してもらえるため）安全で楽です。

AppleScript名：MP3ファイルからMP3タグの情報を取得.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/04/01
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
— 参照先：http://d.hatena.ne.jp/terazzo/20120107/1325967445
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use framework "AVFoundation"
use scripting additions

property |NSURL| : a reference to current application’s |NSURL|
property NSImage : a reference to current application’s NSImage
property AVURLAsset : a reference to current application’s AVURLAsset
property AVMetadataFormatID3Metadata : a reference to current application’s AVMetadataFormatID3Metadata
property AVMetadataCommonKeyAlbumName : a reference to current application’s AVMetadataCommonKeyAlbumName

set aPath to POSIX path of (choose file of type {"public.mp3"})
set aMP3Info to getMP3TagsFromFile(aPath) of me

on getMP3TagsFromFile(aPath)
　　set aURL to |NSURL|’s fileURLWithPath:aPath
　　set anAsset to AVURLAsset’s assetWithURL:aURL
　　
　　set aRes to (anAsset’s availableMetadataFormats()’s containsObject:(AVMetadataFormatID3Metadata)) as boolean
　　if aRes = false then return false
　　
　　set origMetadata to (anAsset’s metadataForFormat:(AVMetadataFormatID3Metadata)) as list
　　set outList to {}
　　
　　repeat with i in origMetadata
　　　　set aKey to (i’s |key|()) as list of string or string –as anything
　　　　set bKey to i’s commonKey() as list of string or string –as anything
　　　　
　　　　if aKey = "PIC" or aKey = "APIC" then
　　　　　　set aVal to (i’s value())
　　　　　　set aVal to (NSImage’s alloc()’s initWithData:aVal)
　　　　else
　　　　　　set aVal to (i’s value()) as list of string or string –as anything
　　　　end if
　　　　set the end of outList to {aKey, bKey, aVal}
　　end repeat
　　
　　return outList
end getMP3TagsFromFile

★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　

現在実行中のアプリケーションがloadしているFramework名を取得

Posted on 3月 1 by Takaaki Naganoya

現在（AppleScriptを）実行中のアプリケーションがloadしているFramework名の一覧を取得するAppleScriptです。

パラメータの文字列から間接的にクラスやメソッドを指定して実行できることを理解したので、動的にフレームワークの呼び出しができないかどうか調べていたら（macOS 10.14対策）できあがった調査活動の副産物です。

AppleScriptを実行中のアプリケーション（たぶん開発環境）がloadしているFramework名の一覧を取得します。PrivateなFramework名もてんこもりだと予想していましたが、意外な発見もありました。Script DebuggerでJavaScript OSA.frameworkを呼んでいるのは、将来的にJXAへの対応の予定があるためではないかと思っています（あるいは、ただ単に内部で呼び出しているだけかも）。

それとも、アホなScripterがuse framework宣言を行わずにScriptを書いてしまう（チェックプログラムを書くまでよくやっていた）ことを防ぐために多めにFrameworkを呼び出しているものでしょうか？　

AppleScript名：現在実行中のアプリケーションがloadしているFramework名を取得.scptd

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

set fList to current application’s NSBundle’s allFrameworks() as list
set nList to {}

repeat with i in fList
　　set aName to i’s bundlePath()’s lastPathComponent()
　　set the end of nList to aName as string
end repeat

return length of nList
–Script Editor (124)
–> {"lib", "HIToolbox.framework", "QuickLook.framework", "ApplePushService.framework", "SecurityInterface.framework", "PerformanceAnalysis.framework", "QuartzComposer.framework", "SkyLight.framework", "VideoToolbox.framework", "PhoneNumbers.framework", "IconServices.framework", "CoreMedia.framework", "CloudKit.framework", "DataDetectors.framework", "PrintCore.framework", "Symbolication.framework", "OSAKit.framework", "NetFS.framework", "Apple80211.framework", "CoreLocation.framework", "ProtocolBuffer.framework", "SecurityFoundation.framework", "Sharing.framework", "AVFAudio.framework", "CoreData.framework", "IOBluetooth.framework", "GeoServices.framework", "OSServices.framework", "JavaScriptCore.framework", "OpenScripting.framework", "CoreImage.framework", "Metadata.framework", "OpenCL.framework", "DebugSymbols.framework", "Foundation.framework", "vCard.framework", "CoreFoundation.framework", "LaunchServices.framework", "Heimdal.framework", "ToneLibrary.framework", "OAuth.framework", "Security.framework", "AppSandbox.framework", "PDFKit.framework", "DictionaryServices.framework", "AppleScript.framework", "ImageIO.framework", "AppKit.framework", "WebKitLegacy.framework", "AppContainer.framework", "QTKit.framework", "vecLib.framework", "ToneKit.framework", "Backup.framework", "QuartzFilters.framework", "system", "QuartzCore.framework", "QuickLookThumbnailing.framework", "AddressBook.framework", "WebKit.framework", "CoreUI.framework", "DataDetectorsCore.framework", "Ink.framework", "MetalPerformanceShaders.framework", "CrashReporterSupport.framework", "ImageCapture.framework", "CorePDF.framework", "CoreGraphics.framework", "MobileKeyBag.framework", "MMCS.framework", "XPCService.framework", "Accounts.framework", "DesktopServicesPriv.framework", "Libraries", "CoreDisplay.framework", "ImageKit.framework", "SharedFileList.framework", "WebCore.framework", "CharacterPicker.framework", "CoreBluetooth.framework", "Resources", "EmojiFoundation.framework", "RemoteViewServices.framework", "CoreText.framework", "QuickLookUI.framework", "OpenDirectory.framework", "IOSurface.framework", "GenerationalStorage.framework", "TextureIO.framework", "AVFoundation.framework", "CoreWiFi.framework", "AppleScriptObjC.framework", "CoreWLAN.framework", "LanguageModeling.framework", "IntlPreferences.framework", "Metal.framework", "SafariServices.framework", "HIServices.framework", "RawCamera.bundle", "SecCodeWrapper.framework", "CFNetwork.framework", "ContactsFoundation.framework", "CoreMediaIO.framework", "CloudDocs.framework", "CoreAudio.framework", "FaceCore.framework", "Script Editor.app", "CommonPanels.framework", "CalendarAgentLink.framework", "ViewBridge.framework", "CoreVideo.framework", "UIFoundation.framework", "ContactsPersistence.framework", "ImageCaptureCore.framework", "CoreUtils.framework", "DFRFoundation.framework", "MediaToolbox.framework", "AudioToolbox.framework", "ProtectedCloudStorage.framework"}

–ASObjC Explorer 4 (135)
–>　　{"AppContainer.framework", "CharacterPicker.framework", "CoreText.framework", "CoreDisplay.framework", "ProtectedCloudStorage.framework", "RemoteViewServices.framework", "QuartzComposer.framework", "SafariServices.framework", "DataDetectors.framework", "CoreMedia.framework", "NetFS.framework", "ImageCapture.framework", "BridgeSupport", "AccountsDaemon.framework", "QuickLook.framework", "BridgeSupport", "ContactsPersistence.framework", "LanguageModeling.framework", "IntlPreferences.framework", "PrintCore.framework", "ImageCaptureCore.framework", "SecurityInterface.framework", "BridgeSupport", "ShareKit.framework", "BridgeSupport", "LaunchServices.framework", "CoreVideo.framework", "EmojiFoundation.framework", "Backup.framework", "QuartzCore.framework", "CoreGraphics.framework", "RawCamera.bundle", "OpenDirectory.framework", "CoreBluetooth.framework", "ASObjC Explorer 4.app", "SkyLight.framework", "XPCService.framework", "MetalPerformanceShaders.framework", "GeoServices.framework", "QuickLookUI.framework", "BridgeSupport", "CoreFoundation.framework", "CoreWLAN.framework", "CFNetwork.framework", "Ink.framework", "UIFoundation.framework", "AddressBook.framework", "vecLib.framework", "ImageIO.framework", "WebKitLegacy.framework", "OAuth.framework", "Foundation.framework", "QTKit.framework", "OSServices.framework", "PDFKit.framework", "FaceCore.framework", "ContactsFoundation.framework", "BridgeSupport", "VideoToolbox.framework", "system", "IconServices.framework", "OpenCL.framework", "QuartzFilters.framework", "CalendarAgentLink.framework", "IOSurface.framework", "BridgeSupport", "DesktopServicesPriv.framework", "SecCodeWrapper.framework", "WebKit.framework", "CoreAudio.framework", "AppSandbox.framework", "QuickLookThumbnailing.framework", "OpenScripting.framework", "MMCS.framework", "ToneKit.framework", "XQuery.framework", "MobileKeyBag.framework", "Sparkle.framework", "DFRFoundation.framework", "ApplePushService.framework", "BridgeSupport", "CorePDF.framework", "IOBluetooth.framework", "WebCore.framework", "BridgeSupport", "CoreUI.framework", "CoreUtils.framework", "ProtocolBuffer.framework", "ImageKit.framework", "CloudKit.framework", "ToneLibrary.framework", "DebugSymbols.framework", "JavaScriptCore.framework", "CommonPanels.framework", "ViewBridge.framework", "Symbolication.framework", "SecurityFoundation.framework", "OSAKit.framework", "lib", "Accounts.framework", "Security.framework", "MediaToolbox.framework", "Metadata.framework", "Apple80211.framework", "CrashReporterSupport.framework", "CloudDocs.framework", "CoreImage.framework", "SharedFileList.framework", "AVFoundation.framework", "Social.framework", "PerformanceAnalysis.framework", "AppleScriptObjC.framework", "CoreLocation.framework", "AccountsUI.framework", "PhoneNumbers.framework", "Libraries", "AudioToolbox.framework", "Heimdal.framework", "HIToolbox.framework", "AVFAudio.framework", "DataDetectorsCore.framework", "CoreMediaIO.framework", "DictionaryServices.framework", "AppKit.framework", "vCard.framework", "GenerationalStorage.framework", "CoreWiFi.framework", "Metal.framework", "Resources", "HIServices.framework", "PlugInKit.framework", "Sharing.framework", "CoreData.framework", "TextureIO.framework", "AppleScript.framework"}

–Script Debugger (158)
–> {"QTKit.framework", "CrashReporterSupport.framework", "OSServices.framework", "OpenScripting.framework", "JavaScriptAppleEvents.framework", "CoreLocation.framework", "BridgeSupport", "vCard.framework", "PersonaKit.framework", "HelpData.framework", "CoreImage.framework", "Sparkle.framework", "Sharing.framework", "BridgeSupport", "DebugSymbols.framework", "CoreMedia.framework", "BridgeSupport", "FaceCore.framework", "Backup.framework", "Contacts.framework", "UIFoundation.framework", "DictionaryServices.framework", "ImageCapture.framework", "CalendarAgentLink.framework", "Security.framework", "CommonPanels.framework", "CoreUtils.framework", "VideoToolbox.framework", "SkyLight.framework", "RosieKit2.framework", "DFRFoundation.framework", "SystemAdministration.framework", "PlugInKit.framework", "JavaScriptOSA.framework", "LanguageModeling.framework", "OpenDirectory.framework", "Shortcut.framework", "lib", "NetFS.framework", "QuartzCore.framework", "HIToolbox.framework", "Ink.framework", "SecCodeWrapper.framework", "QuickLook.framework", "JavaScriptCore.framework", "AVFoundation.framework", "ScriptDebuggerKit.framework", "GeoServices.framework", "RemoteViewServices.framework", "BridgeSupport", "IconServices.framework", "SecurityFoundation.framework", "MobileKeyBag.framework", "CoreMediaIO.framework", "CoreFoundation.framework", "ContactsFoundation.framework", "vecLib.framework", "BridgeSupport", "CloudDocs.framework", "LNSAppKit.framework", "ShareKit.framework", "CoreDisplay.framework", "SafariServices.framework", "ApplePushService.framework", "Heimdal.framework", "MetalPerformanceShaders.framework", "AppKit.framework", "Foundation.framework", "ImageKit.framework", "CharacterPicker.framework", "EmojiFoundation.framework", "DiskImages.framework", "BridgeSupport", "Script Debugger.component", "CoreAudio.framework", "DataDetectorsCore.framework", "QuartzComposer.framework", "ViewBridge.framework", "Social.framework", "IOBluetooth.framework", "AppContainer.framework", "ProtocolBuffer.framework", "AVFAudio.framework", "Symbolication.framework", "HIServices.framework", "CoreGraphics.framework", "ContactsPersistence.framework", "SharedFileList.framework", "AppleScriptObjC.framework", "CloudKit.framework", "ImageCaptureCore.framework", "QuartzFilters.framework", "PerformanceAnalysis.framework", "CoreUI.framework", "PhoneNumbers.framework", "ProtectedCloudStorage.framework", "IOSurface.framework", "AppleScript.framework", "Apple80211.framework", "MediaToolbox.framework", "OAuth.framework", "CoreData.framework", "WebKit.framework", "RawCamera.bundle", "CacheDelete.framework", "CorePDF.framework", "ToneLibrary.framework", "AppleLDAP.framework", "AccountsUI.framework", "QuickLookThumbnailing.framework", "CoreVideo.framework", "system", "WebCore.framework", "AppSandbox.framework", "Suggestions.framework", "ImageIO.framework", "Metal.framework", "iCalendar.framework", "CoreBluetooth.framework", "CFNetwork.framework", "CalendarFoundation.framework", "IntlPreferences.framework", "BridgeSupport", "ToneKit.framework", "Metadata.framework", "XPCService.framework", "DataDetectors.framework", "Script Debugger.app", "AccountsDaemon.framework", "BridgeSupport", "AudioToolbox.framework", "WebInspector.framework", "GenerationalStorage.framework", "PreferencePanes.framework", "WebKitLegacy.framework", "OpenCL.framework", "SecurityInterface.framework", "CoreText.framework", "JavaScript.component", "CoreWiFi.framework", "FinderKit.framework", "EFILogin.framework", "CoreDAV.framework", "MMCS.framework", "BridgeSupport", "AddressBook.framework", "LaunchServices.framework", "Libraries", "MobileDevice.framework", "DesktopServicesPriv.framework", "DiscRecording.framework", "Accounts.framework", "TextureIO.framework", "Resources", "PrintCore.framework", "QuickLookUI.framework", "CoreWLAN.framework", "PDFKit.framework"}

★Click Here to Open This Script　

SFPSDWriterでレイヤー分けしたPhotoshopデータを作成

Posted on 2月 27 by Takaaki Naganoya

オープンソースのSFPSDWriterを呼び出して、レイヤー分けしたPhotoshopデータを作成するAppleScriptです。

SFPSDWriterは基本的にCGImageを与えてPSDを作成するプログラムですが、AppleScriptからはCGImageを作れません。

SFPSDWriterのソースコードを読んでみたら、コメントにNSImageからCGImageへの変換方法が書かれていたので、NSImageを受け付けるメソッドを新規追加してAppleScriptから呼べるようにしてみました。

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

PSDを読み書きするObjective-Cのプログラムは割とすぐに見つかるのですが、AppleScriptから呼べない（CGImageをパラメータにするため）ものが多く、どれか１つぐらいは使えてほしいと思っていました。

SFPSDWriterの機能はすべて試せていませんが、名前どおり本ソフトはPSDファイルを書き込む専用であって、読むためのものではありません。これ以外にPSDファイルを読み込んでオブジェクトを取り出せる（ように改造できる）ものを探しておきたいところです。Photoshopを用いないでPSDデータにアクセスできることには価値があります。Mac App Storeに出すソフトウェアだととくにそうです。

Photoshopを操作してほぼ同様の処理を行うものを書いてみましたが、SFPSDWriterを用いて処理したほうがシンプルなことに驚きます。

AppleScript名：SFPSDWriterのじっけん

— Created 2016-03-12 by Takaaki Naganoya
— Modified 2019-02-27 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "SFPSDWriter" –https://github.com/shinyfrog/SFPSDWriter

property |NSURL| : a reference to current application’s |NSURL|
property NSString : a reference to current application’s NSString
property NSImage : a reference to current application’s NSImage
property SFPSDWriter : a reference to current application’s SFPSDWriter
property NSWorkspace : a reference to current application’s NSWorkspace

property SFPSDResolutionUnitPPI : 1
property SFPSDResolutionUnitPPC : 2

set layer1 to NSImage’s alloc()’s initWithContentsOfURL:(|NSURL|’s fileURLWithPath:(POSIX path of (choose file of type {"public.png"})))
set layer2 to NSImage’s alloc()’s initWithContentsOfURL:(|NSURL|’s fileURLWithPath:(POSIX path of (choose file of type {"public.png"})))

set anWriter to SFPSDWriter’s alloc()’s initWithDocumentSize:(current application’s CGSizeMake(1024, 400)) andResolution:72.0 andResolutionUnit:(SFPSDResolutionUnitPPI)

anWriter’s addLayerWithNSImage:layer1 andName:"Layer_01" andOpacity:1.0 andOffset:{x:0.0, y:0.0}
anWriter’s addLayerWithNSImage:layer2 andName:"Layer_02" andOpacity:1.0 andOffset:{x:50.0, y:50.0}

set aPSD to anWriter’s createPSDData()

set pathString to NSString’s stringWithString:"~/Desktop/output.psd"
set newPath to pathString’s stringByExpandingTildeInPath()

aPSD’s writeToFile:newPath atomically:true

–Open with Adobe Photoshop
NSWorkspace’s sharedWorkspace()’s openFile:newPath

★Click Here to Open This Script　

AppleScript名：PhotoshopでSFPSDWriterと同じような処理を行う

— Created 2019-02-27 by Takaaki Naganoya
— 2019 Piyomaru Software
set layer1 to (choose file of type {"public.png"}) as string
set layer2 to (choose file of type {"public.png"}) as string

tell application id "com.adobe.photoshop"
　　activate
　　close every document saving no
　　
　　set aDoc to make new document with properties {height:900, width:900, resolution:72.0, mode:RGB, bits per channel:eight, initial fill:transparent, color profile kind:none, pixel aspect ratio:1.0}
　　tell aDoc
　　　　set origLayer to (first item of (name of every art layer)) as string
　　end tell
　　
　　open file layer1
　　set bDoc to a reference to current document
　　tell bDoc
　　　　select all
　　　　copy
　　　　close without saving
　　end tell
　　
　　tell aDoc
　　　　set artLayerRef to make new art layer with properties {name:"Layer_01"}
　　　　set current layer to artLayerRef
　　　　tell artLayerRef
　　　　　　paste
　　　　end tell
　　end tell
　　
　　open file layer2
　　set cDoc to a reference to current document
　　tell cDoc
　　　　select all
　　　　copy
　　　　close without saving
　　end tell
　　
　　tell aDoc
　　　　set artLayerRef to make new art layer with properties {name:"Layer_02"}
　　　　set current layer to artLayerRef
　　　　tell artLayerRef
　　　　　　paste
　　　　end tell
　　　　
　　　　delete art layer origLayer
　　end tell
end tell

★Click Here to Open This Script　

指定ファイルサイズのJPEGに変換（圧縮率可変）_1K=1024で計算

Posted on 2月 11 by Takaaki Naganoya

Finder上で選択中の画像ファイルを指定ファイルサイズを下回るよう圧縮率を調整してJPEGに変換するAppleScriptです。

指定画像を指定のファイルサイズ（1K=1024で計算）以内になるよう、非圧縮の状態から段階的に圧縮率を高くして仕上がりファイルサイズを下回るかどうか演算を行います。ファイルに書き込まずに仕上がりサイズの計算を行うところが新機軸です。

macOS標準搭載のスクリプトメニューから呼び出して使うことを想定しています。実行すると、ダイアログ表示して指定ファイルサイズをKB単位で数値入力する必要があります。

巨大な画像ファイルを処理してしまった場合への対処として、最初に最高圧縮率で圧縮してみて、指定ファイルサイズ以内になるかどうかを計算します。

最初は圧縮率100％から25％まで1％きざみで仕上がり画像ファイルサイズを計算してみたのですが、数十Mバイトの巨大な画像を処理させたら、途中でマウスカーソルが反応しないほどOSが無反応になったので（暴走状態？）、それを避けるために、このような処理を行なってみました。

JPEGにファイル変換した画像はデスクトップに

UUID_JPEG画質.jpg

の形式で出力されます。JPEG画質は1.0から0.01までの数値です。

AppleScript名：指定ファイルサイズのJPEGに変換（圧縮率可変）_1K=1024で計算

— Created 2014-02-21 Shane Stanley
— Modified 2019-02-11 Takaaki Naganoya
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"

property compressList : {100, 99, 98, 97, 96, 95, 90, 85, 80, 75, 70, 65, 60, 55, 50, 40, 30, 20, 25} –大→小　へと並んでいる必要がある
property kbBase : 1024

tell application "Finder"
　　set inFiles to selection as alias list
end tell

–指定のAlias listのうち画像ファイルのみ抽出
set filRes1 to filterAliasListByUTI(inFiles, "public.image") of me
if filRes1 = {} then return

–ターゲットサイズを指定
set aMessage to "Input Target size in KB ( " & (kbBase as string) & " based )"
set aRes to text returned of (display dialog aMessage default answer "300" buttons {"OK"} default button 1)
if aRes = false or aRes = "" then return
set targLimit to (aRes as number) * kbBase

–選択中のファイルのうちの１つから親フォルダを求め、出力先ファイルパスを組み立てる
set outPathTarg to (contents of first item of filRes1)
set pathString to NSString’s stringWithString:outPathTarg
set newPath to (pathString’s stringByDeletingLastPathComponent()) as string

–Main Loop
repeat with i in filRes1
　　set aNSImage to (NSImage’s alloc()’s initWithContentsOfFile:(i))
　　
　　–巨大すぎる画像のリサイズ時への保険で、最小サイズで投機的に圧縮して結果を確認する
　　set minSize to calcSavedJPEGSizeFromNSIMage(aNSImage, (last item of compressList) / 100) of me
　　
　　if minSize < targLimit then
　　　　–Simulate Suitable JPEG Compression Ratio to target file size
　　　　repeat with ii in compressList
　　　　　　set jj to ii / 100
　　　　　　set fileSize to calcSavedJPEGSizeFromNSIMage(aNSImage, jj) of me
　　　　　　
　　　　　　if fileSize < targLimit then
　　　　　　　　exit repeat
　　　　　　end if
　　　　end repeat
　　else
　　　　set jj to 0.01 –エラー時にはやけくそで1%まで圧縮指定
　　end if
　　
　　set outPOSIXpath to (newPath & "/" & (NSUUID’s UUID()’s UUIDString()) as string) & "_" & (jj as string)
　　set savePath to outPOSIXpath & ".jpg"
　　
　　saveNSImageAtPathAsJPG(aNSImage, savePath, jj) of me
end repeat

–Alias listから指定UTIに含まれるものをPOSIX pathのリストで返す
on filterAliasListByUTI(aList, targUTI)
　　set newList to {}
　　repeat with i in aList
　　　　set j to POSIX path of i
　　　　set tmpUTI to my retUTIfromPath(j)
　　　　set utiRes to my filterUTIList({tmpUTI}, targUTI)
　　　　if utiRes is not equal to {} then
　　　　　　set the end of newList to j
　　　　end if
　　end repeat
　　return newList
end filterAliasListByUTI

–NSImageを指定パスにJPEG形式で保存、qulityNumは0.0〜1.0。1.0は無圧縮
on saveNSImageAtPathAsJPG(anImage, outPath, qulityNum as real)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to NSBitmapImageRep’s imageRepWithData:imageRep
　　set pathString to NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　set myNewImageData to (aRawimg’s representationUsingType:(NSJPEGFileType) |properties|:{NSImageCompressionFactor:qulityNum})
　　
　　set aLength to (myNewImageData’s |length|()) as number
　　
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　return aRes –true/false
end saveNSImageAtPathAsJPG

–NSImageをJPEG形式で保存したときのファイルサイズを計算
on calcSavedJPEGSizeFromNSIMage(anImage, qulityNum as real)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to NSBitmapImageRep’s imageRepWithData:imageRep
　　set myNewImageData to (aRawimg’s representationUsingType:(NSJPEGFileType) |properties|:{NSImageCompressionFactor:qulityNum})
　　set aLength to (myNewImageData’s |length|()) as number
　　return aLength
end calcSavedJPEGSizeFromNSIMage

★Click Here to Open This Script　

Finder上で選択中のAppleScriptの行数をカウントする

Posted on 2月 8 by Takaaki Naganoya

Finder上で選択中のAppleScript書類の行数や種別を取得して表UIで表示するAppleScriptです。

Myriad Tables Libを用いて結果を表UIで表示しています。

当初はAppleScript書類からソースを取得するのに/usr/bin/osadecompileコマンドを使っていたのですが、OSAKit経由で処理したほうが高速な印象があります。

–> Download Executable archive for macOS 10.14 (include Myriad Tables Lib)

macOS 10.14上で動作させるためには、Script Debugger上で本Scriptをオープンするか、本Scriptをバンドル形式で保存し、バンドル内（/Contents/Resources/Script Libraries フォルダ）にMyriad Tables Libを入れ、AppleScriptアプレットとして書き出す必要があります。

また、初回実行時には「セキュリティ」の承認ダイアログが表示されるため、これをOKする必要があります。AppleScriptアプレットはFinder上でアイコンをダブルクリックすると「Finder上で選択中のアイテム」を拾えないため、DockやmacOS標準装備のスクリプトメニューに登録して起動する必要があります。

AppleScript名：Finder上で選択中のAppleScriptの行数をカウントする v2.scpt

— Created 2019-02-04 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "OSAKit"
use script "Myriad Tables Lib" version "1.0.8" –https://www.macosxautomation.com/applescript/apps/Script_Libs.html#MyriadTablesLib

property |NSURL| : a reference to current application’s |NSURL|
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 NSURLIsPackageKey : a reference to current application’s NSURLIsPackageKey
property NSURLIsDirectoryKey : a reference to current application’s NSURLIsDirectoryKey
property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey

–Finder上で選択中のファイルのうちAppleScript書類のみ抽出
tell application "Finder"
　　set inFiles to selection as alias list
　　if inFiles = {} then return
end tell
set filRes1 to filterAliasListByUTIList(inFiles, {"com.apple.applescript.script", "com.apple.applescript.script-bundle"}) of me
if filRes1 = {} then return

–AppleScript書類の種別判定および行数カウント
set outList to {}
repeat with i in filRes1
　　set aName to (NSString’s stringWithString:i)’s lastPathComponent() as string
　　set sInfo to detectScriptIsPureASorASOC(i) of me
　　set sText to scriptSource of getASsourceFor(i) of me
　　set sNum to count every paragraph of sText
　　set sUTI to retUTIfromPath(i) of me
　　if sUTI = "com.apple.applescript.script" then
　　　　set sKind to "Script"
　　else if sUTI = "com.apple.applescript.script-bundle" then
　　　　set sKind to "Script Bundle"
　　else
　　　　set sKind to "Other"
　　end if
　　
　　set the end of outList to {aName, sInfo, sKind, sNum}
end repeat

–結果を表UIで表示する
tell script "Myriad Tables Lib"
　　set aDispBounds to my makeInitialBounds:1200 withHeight:500
　　set theTable to make new table with data outList column headings {"script name", "ASOC", "Script Kind", "lines"} with title "AppleScript Line Count" with prompt "Your Selected Scripts" with row numbering and empty selection allowed –and can add and delete
　　modify table theTable initial position aDispBounds column widths pattern {1, 2, 3, 4} with hidden cancel button
　　modify columns in table theTable user date format {user format full, user format full} entry alignment align left
　　(display table theTable)
end tell

–Alias listから指定UTI Listに含まれるものをPOSIX pathのリストで返す
on filterAliasListByUTIList(aList as list, targUTIList as list)
　　set outList to {}
　　repeat with i in targUTIList
　　　　set j to contents of i
　　　　set aRes to filterAliasListByUTI(aList, j) of me
　　　　if aRes is not equal to {} then
　　　　　　set outList to outList & aRes
　　　　end if
　　end repeat
　　return outList
end filterAliasListByUTIList

–Alias listから指定UTIに含まれるものをPOSIX pathのリストで返す
on filterAliasListByUTI(aList as list, targUTI)
　　set newList to {}
　　repeat with i in aList
　　　　set j to POSIX path of i
　　　　set tmpUTI to my retUTIfromPath(j)
　　　　set utiRes to my filterUTIList({tmpUTI}, targUTI)
　　　　if utiRes is not equal to {} then
　　　　　　set the end of newList to j
　　　　end if
　　end repeat
　　return newList
end filterAliasListByUTI

–指定のPOSIX pathのファイルのUTIを求める
on retUTIfromPath(aPOSIXPath)
　　set aURL to |NSURL|’s fileURLWithPath:aPOSIXPath
　　set {theResult, theValue} to aURL’s getResourceValue:(specifier) forKey:NSURLTypeIdentifierKey |error|:(missing value)
　　
　　if theResult = true then
　　　　return theValue as string
　　else
　　　　return theResult
　　end if
end retUTIfromPath

on makeInitialBounds:(aTWidth as integer) withHeight:(aTHeight as integer)
　　set aDispBounds to current application’s NSScreen’s mainScreen()’s frame()
　　if class of item 1 of aDispBounds = record then
　　　　–macOS 10.10/10.11/10.12
　　　　set aWidth to (width of |size| of aDispBounds)
　　　　set aHeight to (height of |size| of aDispBounds)
　　else
　　　　–macOS 10.13 or later?
　　　　set aWidth to (item 1 of item 2 of aDispBounds)
　　　　set aHeight to (item 2 of item 2 of aDispBounds)
　　end if
　　
　　set xPos to (aWidth div 2) – (aTWidth div 2)
　　set yPos to (aHeight div 2) – (aTHeight div 2)
　　
　　return {xPos, yPos, aTWidth, aTHeight}
end makeInitialBounds:withHeight:

–指定AppleScriptファイルがPure ASかASOCかを判定して返す
on detectScriptIsPureASorASOC(aFile)
　　set sRes to getASsourceFor(aFile) of me
　　set sName to scriptKind of sRes –Name
　　set sText to scriptSource of sRes –Source
　　if sText = "" or sText = missing value then return missing value
　　
　　if sName = "AppleScript" then
　　　　if sText contains "use framework ＼"Foundation＼"" then
　　　　　　return true –ASOC
　　　　else
　　　　　　return false –Pure AppleScript
　　　　end if
　　else
　　　　–JXAなど他のOSA言語の場合
　　　　return sName
　　end if
end detectScriptIsPureASorASOC

–指定AppleScriptファイルのソースコードを取得する（実行専用Scriptからは取得できない）
on getASsourceFor(aPOSIXPath)
　　set aURL to |NSURL|’s fileURLWithPath:(aPOSIXPath)
　　set theScript to current application’s OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
　　set scriptName to theScript’s |language|()’s |name|() as string
　　set theSource to theScript’s source() as text
　　return {scriptKind:scriptName, scriptSource:theSource}
end getASsourceFor

★Click Here to Open This Script　

Script Debuggerに必要な機能を追加する

Posted on 2月 8 by Takaaki Naganoya

毎日仕事で使っているAppleScript統合開発環境（IDE）、Late Night SoftwareのScript Debugger。大変リッチな機能を持っているものの、仕事で使えば使ったで不満が出てくるもので、機能を追加したくなってきました。

Script Debugger自体もScriptableなアプリケーションなので、AppleScriptを記述して機能を追加できます。ScriptからはApple純正のスクリプトエディタとまったく同じことができるわけではありませんが、ある程度まではコントロールが可能です。

Script DebuggerのAppleScript用語辞書はスクリプトの分析機能がスクリプトエディタよりも大幅に高機能であり、比較にもなりません。ただし、スクリプト書類の書式（style runs）を取得できないため、構文色分けを利用した構文要素への分解ができませんでした。変数名のみ置換するとかハンドラ名のリストアップするといった、スクリプトエディタで10年以上前から利用している機能が使えないわけです（このあたりの処理をスクリプトエディタに依存せずに実行できるようになったのは、ほんのつい最近のことです）。マインドマップ上に各ハンドラの呼び出し関係を図示するような処理も10年ぐらい前からやっていますが、それもScript Debugger上では行えませんでした。一長一短です。

Script Debuggerは独自のScript Menuを持っており、~/Library/Application Support/Script Debugger 7/Scripts/フォルダ内に（Script Debuggerをコントロールする）各種AppleScriptを入れておくとScript Debugger内のScript Menuから呼び出して実行できるようになっています。

ここで紹介するのは「includeしているライブラリをすべてオープンする」Scriptと、「includeしているライブラリのScriptをすべてクローズする」Scriptです。

open all Script Library

スクリプトバンドルのAppleScriptで、バンドル内にAppleScriptライブラリを含んでいる場合に、それらをScript Debuggerでオープンします。機能を細分化して記述している場合に、全Scriptをチェックする必要が生じるとこのようにすべてオープンして確認する必要があります。本来、共通部分をライブラリ化しておく必要があるわけですが、突発的にこういう作業が発生したもので。

Close Script Libraries

「open all Script Library」スクリプトでオープンしたライブラリをクローズするAppleScriptです。Script Debugger上でメインのAppleScriptを選んでおくと、そのScript中でincludeしている（use）AppleScript Librariesをクローズします。

Script Debuggerで一番不満なのは動的に生成したWindowやMenuなどのイベントを拾ってくれないことですが、ほかにも、useコマンドで利用しているAppleScript Librariesでバンドル内に含めていないものをチェックしてバンドル内に入れる機能がないことでしょうか（動作確認して客先に送ったあとで焦ることがたびたび）。そのあたりもぼちぼち、、、、メーカーにリクエストを出して実装を待つよりも、自分でScriptを組んだほうが早いので、、、

AppleScript名：open all Script Library

tell application "Script Debugger"
　　tell document 1
　　　　set libList to (used script library files)
　　　　set aWin to script window of it
　　　　–> {script window id 13269 of application "Script Debugger"}
　　end tell
　　
　　set targWin to contents of first item of aWin
　　
　　repeat with i in libList
　　　　set j to contents of i
　　　　set jj to j as alias
　　　　
　　　　try
　　　　　　open jj in window targWin
　　　　end try
　　end repeat
end tell

★Click Here to Open This Script　

AppleScript名：Close Script Libraries

tell application "Script Debugger"
　　tell front document
　　　　set libList to (used script library files)
　　　　if libList = {} then return –No AppleScript Libraries
　　end tell
　　
　　set dList to every document
　　repeat with i in dList
　　　　tell i
　　　　　　set fSpec to file spec
　　　　　　if fSpec is in libList then
　　　　　　　　ignoring application responses
　　　　　　　　　　close with saving
　　　　　　　　end ignoring
　　　　　　end if
　　　　end tell
　　end repeat
end tell

★Click Here to Open This Script　

指定色で塗りつぶし角丸画像を作成

Posted on 2月 5 by Takaaki Naganoya

指定の矩形に対して、指定色で、指定半径の角丸で、指定ファイルパスに角丸ぬりつぶしPNG画像を作成するAppleScriptです。

色選択のポップアップメニュー中に入れるNSImage作成用に作ったものですが、ねんのためにファイル出力させてみました。

AppleScript名：指定色で塗りつぶし角丸画像を作成.scptd

—
–　　Created by: Piyomaru Software
–　　Created on: 2019/01/29
—
–　　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"

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

set tCol to choose color
copy tCol to {rVal, gVal, bVal}

set aRadius to 12
set aNSColor to makeNSColorFromRGBAval(rVal, gVal, bVal, 65535, 65535) of me
set aNSImage to makeRoundedNSImageWithFilledWithColor(100, 100, aNSColor, aRadius) of me

set aPath to NSString’s stringWithString:(POSIX path of (choose file name))
set bPath to aPath’s stringByAppendingPathExtension:"png"
set aRes to saveNSImageAtPathAsPNG(aNSImage, bPath) of me

–指定サイズのNSImageを作成し、指定色で塗ってNSImageで返す、anRadiusの半径の角丸で
on makeRoundedNSImageWithFilledWithColor(aWidth, aHeight, fillColor, anRadius as real)
　　set anImage to NSImage’s alloc()’s initWithSize:(current application’s NSMakeSize(aWidth, aHeight))
　　anImage’s lockFocus()
　　—
　　set theRect to {{x:0, y:0}, {height:aHeight, width:aWidth}}
　　set theNSBezierPath to NSBezierPath’s bezierPathWithRoundedRect:theRect xRadius:anRadius yRadius:anRadius
　　—
　　fillColor’s |set|() –色設定
　　theNSBezierPath’s fill() –ぬりつぶし
　　—
　　anImage’s unlockFocus()
　　
　　return anImage
end makeRoundedNSImageWithFilledWithColor

–aMaxValを最大値とする数値でNSColorを作成して返す
on makeNSColorFromRGBAval(redValue as integer, greenValue as integer, blueValue as integer, alphaValue as integer, aMaxVal as integer)
　　set aRedCocoa to (redValue / aMaxVal) as real
　　set aGreenCocoa to (greenValue / aMaxVal) as real
　　set aBlueCocoa to (blueValue / aMaxVal) as real
　　set aAlphaCocoa to (alphaValue / aMaxVal) as real
　　set aColor to NSColor’s colorWithCalibratedRed:aRedCocoa green:aGreenCocoa blue:aBlueCocoa alpha:aAlphaCocoa
　　return aColor
end makeNSColorFromRGBAval

–NSImageを指定パスにPNG形式で保存
on saveNSImageAtPathAsPNG(anImage, outPath)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to NSBitmapImageRep’s imageRepWithData:imageRep
　　
　　set pathString to NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　
　　set myNewImageData to (aRawimg’s representationUsingType:(NSPNGFileType) |properties|:(missing value))
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　
　　return aRes –成功ならtrue、失敗ならfalseが返る
end saveNSImageAtPathAsPNG

★Click Here to Open This Script　

Finder上で選択中の画像のうち、最小のものに合わせて各画像の右上を基準にサイズ統一

Posted on 1月 26 by Takaaki Naganoya

Finderで選択中の画像のうち、最小のものに合わせて各画像の右上を原点にサイズを統一するAppleScriptです。

Finderで選択中のファイルから画像のみ抽出し、そのうちサイズが最小のものに合わせて他の画像をトリミングし、変更したものをデスクトップフォルダに出力します。

以前に画像の左上を基準に自動トリミングするバージョンのScriptを作成しましたが、あれはメニュー操作の説明用スクリーンショットの大きさを統一するためのもの。右上基準の本バージョンは、Driveのリネームやステータスバーの操作内容を説明するためのスクリーンショットの大きさ統一のために用意したものです。

▲大きさを揃える画像をFinder上で選択

▲処理後の画像。大きさが最小の画像に合わせてそろっている。切り抜き基準は右上

スクリーンショット画像を複数撮った場合に、厳密に同じサイズに固定することは（各種スクリーンショット作成ユーティリティを使わないと）行いづらいところです。

そこで、最小の画像を計算で求めて、それに合わせて自動トリミングするようにしてみました。Cocoaの機能を用いて画像処理しているため、Photoshopは必要ありません。

最小の画像を求めるのに、幅＋高さの値でソートして最小のものを求めています（widthとheightによる2 key sortではなく1 Keyで済ませたかったので）。

AppleScript名：Finder上で選択中の画像のうち、最小のものに合わせて各画像の右上を基準にサイズ統一

— Created 2018-01-26 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "QuartzCore"

property |NSURL| : a reference to current application’s |NSURL|
property NSUUID : a reference to current application’s NSUUID
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 NSScreen : a reference to current application’s NSScreen
property NSZeroRect : a reference to current application’s NSZeroRect
property NSPredicate : a reference to current application’s NSPredicate
property NSPNGFileType : a reference to current application’s NSPNGFileType
property NSMutableArray : a reference to current application’s NSMutableArray
property NSCompositeCopy : a reference to current application’s NSCompositeCopy
property NSGraphicsContext : a reference to current application’s NSGraphicsContext
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep
property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey
property NSCalibratedRGBColorSpace : a reference to current application’s NSCalibratedRGBColorSpace

tell application "Finder"
　　set selList to selection as alias list
end tell

–指定のAlias listのうち画像のみ抽出
set filRes1 to filterAliasListByUTI(selList, "public.image") of me
if filRes1 = {} then
　　tell current application
　　　　–Error Message (No Selection)
　　　　display dialog "Finder上で選択されているファイルはありません。" buttons {"OK"} default button 1 with icon 1 with title "画像リサイズ処理できません"
　　end tell
　　return
end if

–各種情報を入れたArrayを作成
set anArray to NSMutableArray’s new()
repeat with i in selList
　　set imgPath to (POSIX path of i)
　　
　　set aImage to makeNSImageFromFile(i) of me
　　set sizeInfo to |size|() of aImage
　　set sizeInfo to sizeInfo & {aImg:aImage, total:(width of sizeInfo) + (height of sizeInfo), myPath:imgPath}
　　(anArray’s addObject:sizeInfo)
end repeat

–最小のサイズの画像の算出
set aRes to anArray’s valueForKeyPath:("@min.total")
set bRes to first item of (filterRecListByLabel(anArray, "total == " & aRes as string) of me) –最小サイズの画像

–最小サイズ画像のwidthとheight
set minWidth to bRes’s width
set minHeight to bRes’s height

–環境情報の取得
set aPath to POSIX path of (path to desktop)
set retinaF to (NSScreen’s mainScreen()’s backingScaleFactor()) as real
–>　　2.0 (Retina) / 1.0 (Non Retina)

set cRes to filterRecListByLabel(anArray, "total != " & aRes as string) of me –最小サイズ以外の画像

repeat with i in cRes
　　set j to contents of i
　　set anImage to aImg of j
　　set fRes to myPath of j
　　
　　set tmpSize to |size|() of anImage
　　set tmpWidth to (width of tmpSize)
　　set tmpHeight to (height of tmpSize)
　　
　　set cropedImage to (my cropNSImageBy:{(tmpWidth – minWidth), 0, minWidth, minHeight} fromImage:anImage)
　　
　　–Retina環境対策
　　if retinaF > 1.0 then
　　　　set cropedImage to (my resizedImage:cropedImage toScale:(1.0))
　　end if
　　
　　–ファイル書き込み
　　set fRes to retUUIDfilePathFromDir(aPath, "png") of me
　　set sRes to saveNSImageAtPathAsPNG(cropedImage, fRes) of me
end repeat

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel(aRecList as list, aPredicate as string)
　　–ListからNSArrayへの型変換
　　set aArray to NSArray’s arrayWithArray:aRecList
　　
　　–抽出
　　set aPredicate to NSPredicate’s predicateWithFormat:aPredicate
　　set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate
　　
　　–NSArrayからListに型変換して返す
　　set bList to filteredArray as list
　　return bList
end filterRecListByLabel

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

on makeNSImageFromFile(anAlias)
　　set imgPath to (POSIX path of anAlias)
　　set aURL to (|NSURL|’s fileURLWithPath:(imgPath))
　　return (NSImage’s alloc()’s initWithContentsOfURL:aURL)
end makeNSImageFromFile

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

on retUUIDfilePathFromDir(aPath, aEXT)
　　set aUUIDstr to (NSUUID’s UUID()’s UUIDString()) as string
　　set aPath to ((NSString’s stringWithString:aPath)’s stringByAppendingPathComponent:aUUIDstr)’s stringByAppendingPathExtension:aEXT
　　return aPath
end retUUIDfilePathFromDir

–NSImageを指定パスにPNG形式で保存
on saveNSImageAtPathAsPNG(anImage, outPath)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to NSBitmapImageRep’s imageRepWithData:imageRep
　　set pathString to NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　set myNewImageData to (aRawimg’s representationUsingType:(NSPNGFileType) |properties|:(missing value))
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　return aRes –true/false
end saveNSImageAtPathAsPNG

on resizedImage:aSourceImg toScale:imgScale
　　if (aSourceImg’s isValid()) as boolean = false then error "Invalid NSImage"
　　
　　set aSize to aSourceImg’s |size|()
　　–>　　{width:32.0, height:32.0}
　　
　　set aWidth to (aSize’s width) * imgScale
　　set aHeight to (aSize’s height) * imgScale
　　
　　set aRep to NSBitmapImageRep’s alloc()’s initWithBitmapDataPlanes:(missing value) pixelsWide:aWidth pixelsHigh:aHeight bitsPerSample:8 samplesPerPixel:4 hasAlpha:true isPlanar:false colorSpaceName:(NSCalibratedRGBColorSpace) bytesPerRow:0 bitsPerPixel:0
　　
　　set newSize to {width:aWidth, height:aHeight}
　　aRep’s setSize:newSize
　　
　　NSGraphicsContext’s saveGraphicsState()
　　NSGraphicsContext’s setCurrentContext:(NSGraphicsContext’s graphicsContextWithBitmapImageRep:aRep)
　　
　　aSourceImg’s drawInRect:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) fromRect:(NSZeroRect) operation:(NSCompositeCopy) fraction:(1.0)
　　
　　NSGraphicsContext’s restoreGraphicsState()
　　
　　set newImg to NSImage’s alloc()’s initWithSize:newSize
　　newImg’s addRepresentation:aRep
　　
　　return newImg
end resizedImage:toScale:

★Click Here to Open This Script　

Automator Actionを実行

Posted on 1月 24 by Takaaki Naganoya

指定のAutomator Action（拡張子「.workflow」）を実行するAppleScriptです。

PDFKitをさんざんこづき回しても、指定のPDFに任意のすかし（Watermark）を入れるのが自分にはできなかったので、AutomatorのActionにそういうのが標準装備されているから、それを使えばいいんじゃないかと思い出し、Automator Workflowを直接実行するやりかたを調べて実行してみました。

＃　これは、Cocoaの機能を呼び出して実行しているものであって、Automatorアプリケーションを呼び出すとか、/usr/bin/automatorを呼び出すやり方などもあります

まだ、パラメータを指定してはいないので、パラメータを指定できるようにするとなおいいと思います。

AppleScript名：Automator Actionを実行.scptd

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

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

set aURL to |NSURL|’s fileURLWithPath:(POSIX path of (choose file with prompt "Choose Automator Action" of type {"com.apple.automator-workflow"}))

set aWKres to current application’s AMWorkflow’s runWorkflowAtURL:aURL withInput:(missing value) |error|:(reference)

★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　

Mail.appで選択中のフォルダ以下に存在する全メールの添付ファイルの拡張子のバリエーションを集計

Posted on 11月 25, 2018 by Takaaki Naganoya

Mail.appで選択中のフォルダ（メールボックス）以下に存在する全メールの添付ファイルの拡張子のバリエーションを集計するAppleScriptです。

階層フォルダで管理しているメールボックス（フォルダ）のうち、選択しているメールフォルダ以下のすべてのメッセージに添付されているファイルの拡張子を取得して結果を表示します。

何のために作ったとかいうことはなくて、ただ単に調査のために作ったものです。処理するメールの数にもよりますが、CPU負荷も大きく、時間もそれなりに（数分ぐらい？）かかります。

AppleScript名：Mail.appで選択中のフォルダ以下に存在する全メールの添付ファイルの拡張子のバリエーションを集計

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

script spd
　　property fullSubPath : {}
　　property tmpMesList : {}
　　property outList : {}
end script

property aFullPath : ""
property tmpFullPath : ""
property extList : {}

–変数の初期化
set tmpFullPath to ""
set aFullPath to ""
set extList to {}
set (fullSubPath of spd) to {}
set (tmpMesList of spd) to {}
set (outList of spd) to {}

–選択中のメールボックス（フォルダ）のフルパスを文字列で取得（dir1/dir2/dir3）
set targMBObj to getSelectedOneMailBox() of me
extraxctTextFullPathOfMBObject(targMBObj) of me

copy aFullPath to targMB

if targMB = "" then
　　display notification "Mail.app上で選択中のメールボックス（フォルダ）はありません。" –"No Mail.app folder selection" in Japanese
　　return
end if

–指定メールボックス（フォルダ）以下のすべてのメールボックス（フォルダ）を取得する
tell application "Mail"
　　tell mailbox targMB
　　　　set aList to name of every mailbox
　　end tell
end tell

–指定フォルダ以下のMailboxをサブフォルダまで再帰ですべて取得する
repeat with i in aList
　　set j to contents of i
　　set tmpPath to targMB & "/" & j
　　set the end of (fullSubPath of spd) to tmpPath
　　getEverySubMailbox(tmpPath) of me
end repeat

–全サブフォルダからメールを取得し、添付ファイルの確認を行なって、添付ファイルの拡張子を取得して集計
repeat with i in (fullSubPath of spd)
　　set tmpBox to contents of i
　　
　　tell application "Mail"
　　　　tell mailbox tmpBox
　　　　　　set mesList to (every message)
　　　　end tell
　　　　
　　　　–指定フォルダ中のMailでループ
　　　　repeat with ii in mesList
　　　　　　set jj to contents of ii
　　　　　　
　　　　　　try
　　　　　　　　set attS to mail attachment of jj
　　　　　　on error
　　　　　　　　set attS to {}
　　　　　　end try
　　　　　　
　　　　　　if attS is not equal to {} then
　　　　　　　　
　　　　　　　　–Mailの添付ファイルの拡張子を集計する
　　　　　　　　try
　　　　　　　　　　repeat with iii in attS
　　　　　　　　　　　　set jjj to contents of iii
　　　　　　　　　　　　set aName to name of jjj
　　　　　　　　　　　　
　　　　　　　　　　　　set aExt to getPathExtension(aName) of me
　　　　　　　　　　　　
　　　　　　　　　　　　if (aExt is not in extList) and (aExt is not equal to "") then
　　　　　　　　　　　　　　set the end of extList to aExt
　　　　　　　　　　　　end if
　　　　　　　　　　　　
　　　　　　　　　　end repeat
　　　　　　　　end try
　　　　　　end if
　　　　end repeat
　　end tell
end repeat

choose from list extList with prompt "選択中のメールフォルダ「" & targMB & "」中のメールに添付されているファイルの種別です" with title "添付ファイルの拡張子一覧"

–指定のメールボックス（フォルダ）以下にあるすべてのサブフォルダを（propertyに）追記して返す
on getEverySubMailbox(aPath)
　　tell application "Mail"
　　　　tell mailbox aPath
　　　　　　set aaList to name of every mailbox
　　　　　　if aaList is not equal to {} then
　　　　　　　　repeat with i in aaList
　　　　　　　　　　set j to contents of i
　　　　　　　　　　set tmpFullPath to aPath & "/" & j
　　　　　　　　　　copy tmpFullPath to newPath
　　　　　　　　　　set the end of (fullSubPath of spd) to newPath
　　　　　　　　　　getEverySubMailbox(newPath) of me
　　　　　　　　end repeat
　　　　　　end if
　　　　end tell
　　end tell
end getEverySubMailbox

–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

on getPathExtension(aStr as string)
　　set pathString to current application’s NSString’s stringWithString:aStr
　　return (pathString’s pathExtension()) as string
end getPathExtension

★Click Here to Open This Script　

機械学習で学習したMSの画像を連邦・ジオン軍判定してフォルダ分け v2

Posted on 11月 20, 2018 by Takaaki Naganoya

Create MLでガンダムのMS画像（連邦、ジオン区分け）を学習したCore ML Modelをもとに、画像をどちらの軍所属機体かを判定してフォルダ分けするAppleScriptです。

機械学習（深層学習）データをもとに判定を行って対話型処理ではなくバッチ処理的なフローでデータを「なんとなく」推論して区分けを行うサンプルです。非力なIOT機器が機械学習データをもとに推論処理できるぐらいなので、機械学習データを使ってAppleScriptで推論処理できないはずがありません。推論処理時間もさほどかからず、機械学習データを一括処理的なワークフローの中で利用することが可能です。

例によって「戦場の絆」の公式ページから落としてきたMSの画像を連邦軍とジオン軍、および両軍の鹵獲機体の４フォルダに分けてCreate MLで学習させてみました。

実行するとMS画像が入っているフォルダ（各自ご用意ください）と、連邦軍機体（efsf）およびジオン軍機体（zeon）を仕分けるフォルダを聞かれます。あとはプログラム側がなんとなく推論して仕分けを行います。

前回掲載のモデルもそうですが、きちんと学習後にテストデータで評価を行っています。だいたい８割ぐらいのヒット率ではあるものの、特定の画像については間違えることがあらかじめわかっています。

実行にあたっては、macOS 10.14上でCoreML Modelを組み込んだフレームワーク「msDetector.framework」をインストールして、本ScriptをScript Debugger上で動作させてください。

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

Core MLで判定時に詳細なデータを出力させ、その可能性が0.8を上回るものだけを処理するようにしてみました。ただ、全力で間違った判定を行うケースもあるため、単なる「気休め」です。

テストデータでは、連邦軍側が72機体中間違いが９個（正解87.5%）、ジオン軍側が57機体中間違いが３個（正解95%）。鹵獲機体のデータを排除すると、もう少しいい値が出るかもしれません。ただ、学習させたデータとほぼ同じデータ（数が少ない）で再度判定を行っているだけなので、このぐらいの確度が出ないと逆に困ります。

また、確度が高くないものは排除するように処理したので、確度が低い機体の画像バリエーションを増やして学習画像数を足すと正解の確率が上がるのではないか、などと「なんとなく」考えています。

Create MLでは、もっときちんとした表データやタグ付き自然言語テキストデータ（日本語だと形態素への区分けはあらかじめやっておく必要アリ？）の学習が行えるようなので（自然言語テキストの学習例は英語のものしか見かけないけれども）いろいろやっておきたいところです。

今回は「アニメとかゲームに出てくるMSの画像」の判定という、実用性をまったく考えないで行なってみたものですが、自分の身の回りで有用性の高そうな処理といえば……アイコンやプレゼン用資料の作成画像を学習させておおまかなジャンル分けをしておき（メール系のアイコンとか）、未知のアイコン素材をダウンロードしてきたら機械学習データをもとに自動でフォルダ分けするとかでしょうか。

さすがにアイコン画像だとデフォルメされすぎていて、MicrosoftのAzure Computer Vision APIとかでも画像認識してくれなさそうなので。

AppleScript名：機械学習で学習したMSの画像の連邦軍、ジオン軍判定してフォルダ分け v2.scpt

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2018/11/20
—
–　　Copyright © 2018 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.7" — Mojave (10.14) or later & Script Debugger
use framework "Foundation"
use framework "AppKit"
use framework "msDetector"
use scripting additions

property |NSURL| : a reference to current application’s |NSURL|
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 NSFileManager : a reference to current application’s NSFileManager
property NSMutableArray : a reference to current application’s NSMutableArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor
property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey

set aFol to POSIX path of (choose folder with prompt "Choose MS Image folder to go!")
set efsfFol to POSIX path of (choose folder with prompt "EFSF folder")
set zeonFol to POSIX path of (choose folder with prompt "Zeon folder")

–指定フォルダ以下のファイルをすべて取得（再帰ですべて取得）
set aSel to retFullpathsWithinAFolderWithRecursive(aFol) of me

–取得したファイルリストを指定UTIでフィルタリング
set filRes2 to filterPOSIXpathListByUTI(aSel, "public.image") of me

–機械学習モデルを用いて区分けを行い、任意の画像の連邦軍（efsf）、ジオン軍（zeon）へのフォルダ分け（コピー）
set msClassifier to current application’s msClassify’s alloc()’s init()

repeat with i in filRes2
　　set aFile to contents of i
　　set aImage to (current application’s NSImage’s alloc()’s initWithContentsOfFile:aFile)
　　
　　set resDict to (msClassifier’s ImageClassifierWithImageAndRetDict:aImage) –returns NSDictionary
　　
　　–Dictinaryのvalueをソートして、最も値の大きいvalueのkeyを求める
　　set sortedArray to (current application’s NSMutableArray’s arrayWithArray:(resDict’s allValues()))
　　(sortedArray’s sortUsingSelector:"compare:")
　　set aRes to (last item of (sortedArray as list)) –末尾のアイテムが一番値の大きい数値
　　set resKey to first item of ((resDict’s allKeysForObject:aRes) as list) –最大値をもとにKeyを求める
　　
　　–可能性の高いものだけ処理してみる（自信たっぷりに全力で間違えることもけっこうある）
　　if (aRes as real) > 0.8 then
　　　　if resKey begins with "efsf" then
　　　　　　–efsf & efsf_stolen
　　　　　　set aRes to (my copyFileAt:aFile toFolder:efsfFol)
　　　　else
　　　　　　–zeon & zeon_stolen
　　　　　　set aRes to (my copyFileAt:aFile toFolder:zeonFol)
　　　　end if
　　end if
end repeat

–POSIX path listから指定UTIに含まれるものをPOSIX pathのリストで返す
on filterPOSIXpathListByUTI(aList, targUTI)
　　set newList to {}
　　repeat with i in aList
　　　　set j to contents of i
　　　　set tmpUTI to my retUTIfromPath(j)
　　　　set utiRes to my filterUTIList({tmpUTI}, targUTI)
　　　　if utiRes is not equal to {} then
　　　　　　set the end of newList to j
　　　　end if
　　end repeat
　　return newList
end filterPOSIXpathListByUTI

–指定フォルダ以下のすべてのファイルを再帰で取得
on retFullpathsWithinAFolderWithRecursive(aFol)
　　set anArray to NSMutableArray’s array()
　　set aPath to NSString’s stringWithString:aFol
　　set dirEnum to NSFileManager’s defaultManager()’s enumeratorAtPath:aPath
　　
　　repeat
　　　　set aName to (dirEnum’s nextObject())
　　　　if aName = missing value then exit repeat
　　　　set aFullPath to aPath’s stringByAppendingPathComponent:aName
　　　　anArray’s addObject:(aFullPath as string)
　　end repeat
　　
　　return anArray as list
end retFullpathsWithinAFolderWithRecursive

on copyFileAt:POSIXPath toFolder:folderPath
　　set POSIXPath to NSString’s stringWithString:POSIXPath
　　set folderPOSIXPath to NSString’s stringWithString:folderPath
　　set theName to POSIXPath’s lastPathComponent()
　　set newPath to folderPOSIXPath’s stringByAppendingPathComponent:theName
　　set fileManager to NSFileManager’s defaultManager()
　　set theResult to fileManager’s copyItemAtPath:POSIXPath toPath:newPath |error|:(missing value)
　　return (theResult as integer = 1)
end copyFileAt:toFolder:

★Click Here to Open This Script　

squeezeNetで画像のオブジェクト認識を行い、結果をCSV出力してNumbersでオープン

Posted on 11月 12, 2018 by Takaaki Naganoya

Core MLモデル「squeezeNet.mlmodel」を用いて画像のオブジェクト認識を行い、結果をデスクトップにCSV形式でデータ書き出しを行い、NumbersでオープンするAppleScriptです。

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

macOS 10.13上ではスクリプトエディタ、Script Debugger上で、macOS 10.14上ではScript Debugger上で動作します（AppleScript Appletでも動作）。

さまざまなCore MLモデルを用いて画像認識を行わせてはみたものの、最もスコアの高いもののラベルだけを返させても、結果がまったく内容にそぐわないケースが多く見られます。

▲機械学習の評価値が1.0に近いものは確度が高く、0.0に近いものは判断に迷った末に消極的に出した値。経験則でいえば、最高スコアの項目が0.7以上のスコアでないといまひとつのようです（0.7以上でもダメな時はダメなわけで、、、）

画像認識については、結果があまりに的外れで「なんじゃこら？」というケースが多いので、確認のためにCSVデータ出力させてNumbers上で確認させてみることにしてみました。そのためにありあわせのサブルーチンを組み合わせて作ったものです。

スコアが高い順に結果を並べて確認してみると、最も高いスコアの値であっても0.0に近い評価値であることがあり、「何も考えずに最高スコアのラベルだけ取ってくるのはものすごく危険」なことがよくわかります。

▲squeezeNet.mlmodelをNetronでビジュアライズしたところ（一部抜粋）

AppleScript名：SqueezeNetでオブジェクト判定して結果をCSV書き出ししてNumbersでオープン.scpt

–　　Created by: Takaaki Naganoya
–　　Created on: 2018/11/11
–　　Copyright © 2018 Piyomaru Software, All Rights Reserved
use AppleScript version "2.7" — High Sierra (10.13) or later
use framework "Foundation"
use framework "AppKit"
use framework "squeezeNetKit"
use scripting additions

property NSUUID : a reference to current application’s NSUUID
property NSArray : a reference to current application’s NSArray
property NSImage : a reference to current application’s NSImage
property NSMutableArray : a reference to current application’s NSMutableArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor

set aFile to POSIX path of (choose file of type {"public.image"})
set aImage to NSImage’s alloc()’s initWithContentsOfFile:aFile
set resDict to (current application’s imageClassifier’s alloc()’s init()’s ImageClassifierWithImageAndRetDict:aImage)

set kArray to (resDict’s allKeys())
set vArray to (resDict’s allValues())
set aLen to kArray’s |count|()

set anArray to NSMutableArray’s new()

repeat with i from 0 to (aLen – 1)
　　set tmpKey to (kArray’s objectAtIndex:i) as string
　　set tmpVal to (vArray’s objectAtIndex:i) as real
　　(anArray’s addObject:{aKey:tmpKey, aVal:tmpVal})
end repeat

–Sort by value
set bList to sortRecListByLabel(anArray, "aVal", false) of me

–record in list –> 2D list
set cList to convRecInListTo2DList(bList) of me

–デスクトップにCSVファイルを書き出してNumbersでオープン
set aPath to (((path to desktop) as string) & (NSUUID’s UUID()’s UUIDString()) as string) & ".csv"
set fRes to saveAsCSV(cList, aPath) of me
tell application "Numbers"
　　open (aPath as alias)
end tell

–リストに入れたレコードを、指定の属性ラベルの値でソート
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
　　set bList to (sortedArray) as anything
　　return bList
end sortRecListByLabel

on convRecInListTo2DList(aList)
　　set anArray to NSMutableArray’s arrayWithArray:aList
　　set fItem to anArray’s objectAtIndex:0
　　set keyList to fItem’s allKeys() as list
　　set aCount to anArray’s |count|()
　　
　　set allArray to NSMutableArray’s new()
　　
　　repeat with i from 1 to aCount
　　　　set anItem to (anArray’s objectAtIndex:(i – 1))
　　　　set tmpItem to {}
　　　　
　　　　repeat with ii in keyList
　　　　　　set tmpDat to (anItem’s valueForKeyPath:(contents of ii))
　　　　　　if tmpDat is not equal to missing value then
　　　　　　　　set the end of tmpItem to tmpDat
　　　　　　else
　　　　　　　　set the end of tmpItem to ""
　　　　　　end if
　　　　end repeat
　　　　(allArray’s addObject:tmpItem)
　　end repeat
　　
　　set allList to allArray as list
　　set the beginning of allList to keyList
　　return allList
end convRecInListTo2DList

–CSV Kit

–2D List to CSV file
on saveAsCSV(aList, aPath)
　　–set crlfChar to (ASCII character 13) & (ASCII character 10)
　　set crlfChar to (string id 13) & (string id 10)
　　set LF to (string id 10)
　　set wholeText to ""
　　
　　repeat with i in aList
　　　　set newLine to {}
　　　　
　　　　–Sanitize (Double Quote)
　　　　repeat with ii in i
　　　　　　set jj to ii as text
　　　　　　set kk to repChar(jj, string id 34, (string id 34) & (string id 34)) of me –Escape Double Quote
　　　　　　set the end of newLine to kk
　　　　end repeat
　　　　
　　　　–Change Delimiter
　　　　set aLineText to ""
　　　　set curDelim to AppleScript’s text item delimiters
　　　　set AppleScript’s text item delimiters to "＼",＼""
　　　　set aLineList to newLine as text
　　　　set AppleScript’s text item delimiters to curDelim
　　　　
　　　　set aLineText to repChar(aLineList, return, "") of me –delete return
　　　　set aLineText to repChar(aLineText, LF, "") of me –delete lf
　　　　
　　　　set wholeText to wholeText & "＼"" & aLineText & "＼"" & crlfChar –line terminator: CR＋LF
　　end repeat
　　
　　if (aPath as string) does not end with ".csv" then
　　　　set bPath to aPath & ".csv" as Unicode text
　　else
　　　　set bPath to aPath as Unicode text
　　end if
　　
　　write_to_file(wholeText, bPath, false) of me
　　
end saveAsCSV

on write_to_file(this_data, target_file, append_data)
　　tell current application
　　　　try
　　　　　　set the target_file to the target_file as text
　　　　　　set the open_target_file to open for access file target_file with write permission
　　　　　　if append_data is false then set eof of the open_target_file to 0
　　　　　　write this_data to the open_target_file starting at eof
　　　　　　close access the open_target_file
　　　　　　return true
　　　　on error error_message
　　　　　　try
　　　　　　　　close access file target_file
　　　　　　end try
　　　　　　return error_message
　　　　end try
　　end tell
end write_to_file

on repChar(origText as text, targChar as text, repChar as text)
　　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　

iTunes上で選択中のTrackのアートワークを指定画像に設定する

Posted on 11月 10, 2018 by Takaaki Naganoya

iTunes上で選択中のトラックに対して、指定の画像をアートワークとして指定するAppleScriptです。

１つのトラックに対して複数のアートワークが設定できる仕様になっており、そのあたりで迷うかもしれません。

選択中の１つのトラックに対してchoose fileコマンドで指定した画像をアートワークとして設定する……という程度では、ぜんぜん自動化のパワーが発揮されないので、実際にはトラック情報と対応するアートワーク画像ファイル名をNumbers上に書いておくと、それを読み取って指定フォルダ以下の画像をすべて指定トラックのアートワークに指定する、とかいうあたりが落とし所でしょうか。

▲iTunes上でアートワークのついていないトラックを選択中

▲本AppleScriptを実行して、てきとーに画像を選択

▲選択中のトラックにアートワーク画像が指定された

▲iTunes上でCommand-iで選択中のトラックの詳細情報を確認して、アートワーク画像が設定されたことを確認したところ

AppleScript名：選択中のTrackのアートワークを指定画像に設定する

set aFile to choose file of type {"public.image"}

tell application "Image Events"
　　set aRaw to read aFile as image
end tell

tell application "iTunes"
　　set sList to selection
　　
　　repeat with i in sList
　　　　if class of i = file track then
　　　　　　set data of artwork 1 of i to aRaw
　　　　end if
　　end repeat
　　
end tell

★Click Here to Open This Script　

機械学習モデルをもとに画像のシーン判定

Posted on 11月 6, 2018 by Takaaki Naganoya

Appleが配布しているCoreML Model「Places205-GoogLeNet」を用いて、指定画像のシーン判定を行うAppleScriptです。

Appleが公式に配布している６つのCoreML Modelのうち、「Places205-GoogLeNet」を組み込んだFrameworkを作成して、これをAppleScriptから呼び出しています。

sceneDetection.frameworkをインストールしたうえで、macOS 10.13上ではスクリプトエディタ/Script Debuggerから、macOS 10.14ではScript Debuggerから本Scriptを実行します（AppleScriptアプレットでも動作します）。

「Places205-GoogLeNet」は、

Detects the scene of an image from 205 categories such as an airport terminal, bedroom, forest, coast, and more.

と、画像の内容から、画面やシーン、場所について「だいたいこんなところ」と判定してくれるModelのようです。ただ、日本国内の景色を渡してみると、得られる判定結果にはいまひとつ「ちょっと違う」と感じるものであります。

▲左：crosswalk（横断歩道）実際には自動車販売店と道路（Car shop & road）、右：desert/sand（砂漠、砂）実際にはAirport

▲左：river（川）実際には海、右：bridge（橋）　実際には橋ではありません

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

▲GoogLeNetPlaces.mlmodelをNetronでビジュアライズしたところ

AppleScript名：GoogLeNetPlacesでシーン判定.scpt

use AppleScript version "2.7" — High Sierra (10.13) or later
use framework "Foundation"
use framework "AppKit"
use framework "sceneDetection"
use scripting additions

set aFile to POSIX path of (choose file of type {"public.image"})
set aImage to current application’s NSImage’s alloc()’s initWithContentsOfFile:aFile
set msDict to (current application’s sceneDetector’s alloc()’s init()’s GoogLeNetPlacesWithImage:aImage) as string
–> "crosswalk"

★Click Here to Open This Script　

CreateMLで機械学習したモデルを利用して、MS画像の連邦、ジオン軍判定

Posted on 11月 6, 2018 by Takaaki Naganoya

「戦場の絆」のホームページからダウンロードしたMSの画像を学習させた機械学習モデルを使用して、指定のMS画像が地球連邦軍（EFSF）かジオン軍（zeon）かを判定するAppleScriptです。

■©創通・サンライズ

両軍合わせて180機体ほどの画像を学習させただけなので、正直なところ判定間違いが多いですが、増やしていくとけっこう簡単に判定できそうです（数万ファイルぐらい画像を学習させるともっと明確な傾向が出てくるかも？）。

▲学習させたMS画像データ。efsf、efsf_stole（鹵獲機体）、zeon、zeon_stole（鹵獲機体）に分けてみた。CoreMLで任意のMS画像がこれらのどのグループに所属する可能性が最も高いかをフォルダ名で返してくることになる

macOS 10.14上のスクリプトエディタは野良Frameworkを認識してくれないので、macOS 10.14.x＋Script Debugger上で実行する必要があります。あと、AppleScriptアプレットに書き出して実行すると野良Frameworkを認識して実行するので、アプレットに書き出して実行するとScript DebuggerのないmacOS 10.14環境でも動作確認できます。

Xcode上でSwift Playgroundを用いて認識していた時よりも認識精度が下がっているように見えます。結局画像は299×299ピクセルぐらいに縮小されて判定されるので、判定前に画像余白部分をトリミングしておくと認識精度が上がりそうな気もします。

▲作成したmodelをNetronでビジュアライズしたところ

CreateMLで機械学習モデルを作るのがとても簡単であることがわかり、機械学習モデルを呼び出すためのAppleScriptのコードがとてもシンプルなことがわかり、さらに学習モデルを用いた画像分類が短い時間で行えることを確認できました。

現在のところ、１つの機械学習モデル（.mlmodel）を使うためにそのモデルを組み込んだFrameworkを必要としている状態ですが、機械学習モデル自体も外部からパスで指定して柔軟に指定できるようにしたいところです。

これで調子に乗って手書き文字画像データ（Mnist）をCreateMLで機械学習して、手書き文字の画像をスキャナから読み取って手軽に手書き文字認識できるかも？！　と、鼻息荒くテストしてみましたが、期待したような精度では判定されないことを思い知らされたのでした。

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

AppleScript名：機械学習で学習したMSの画像の連邦軍、ジオン軍判定.scpt

use AppleScript version "2.7" — Mojave (10.14) or later
use framework "Foundation"
use framework "AppKit"
use framework "msDetector"
use scripting additions

set aFile to POSIX path of (choose file of type {"public.image"})
set aImage to current application’s NSImage’s alloc()’s initWithContentsOfFile:aFile
set msRes to current application’s msClassify’s alloc()’s init()’s ImageClassifierWithImage:aImage
–> "efsf" / "zeon"

★Click Here to Open This Script　

AppleScriptの穴

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

カテゴリー: file

指定MIME TypeのUTI文字列などを取得する

MP3ファイルからMP3タグの情報を取得

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

SFPSDWriterでレイヤー分けしたPhotoshopデータを作成

Finder上で選択中のAppleScriptの行数をカウントする

Script Debuggerに必要な機能を追加する

open all Script Library

Close Script Libraries

指定色で塗りつぶし角丸画像を作成

Finder上で選択中の画像のうち、最小のものに合わせて各画像の右上を基準にサイズ統一

Automator Actionを実行

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

iTunes上で選択中のTrackのアートワークを指定画像に設定する

機械学習モデルをもとに画像のシーン判定

CreateMLで機械学習したモデルを利用して、MS画像の連邦、ジオン軍判定