Archive for the 'AppleScriptObjC' Category

2017/12/12 クリップボードに入ったproperty宣言部分を見た目の描画サイズ(幅)と文字コードでソート

クリップボードに入ったAppleScriptのproperty宣言部分を画面上の見た目と文字コードでソートしてクリップボードに入れるAppleScriptです。

以前に、同様の文字列長でソートするAppleScriptを作成したことがありましたが、

after2.png

文字列長できちんとソートしたものの、プロポーショナルフォントで表示されるため、

 「文字列長どおりにソートしても見た目がよくなるわけではない」

というたいへんに残念な結果に。

そこで、NSAttributedStringの描画サイズを取得するメソッドを利用して、画面上の見た目(画面上の描画サイズ)を取得し、描画サイズ(幅)と文字コード順でソートするようにしてみました。

sortbylooks.png

スクリプトエディタでCocoaオブジェクトへのproperty参照宣言部分をコピーし、本Scriptを呼び出し、ふたたびエディタ中に内容をペースとすると、画面上の描画サイズにもとづいて並べ替えたproperty宣言文が展開されます。

画面上の描画サイズを計算する際には、NSAttributedStringを組み立てる必要があるわけですが、この際の指定フォントについては最初にクリップボードに入っていた内容をNSAttributedStringとして取得し、その中で使われていた中で最も登場頻度の高いものを取得して自動で指定しています(やりすぎ)。

AppleScript名:クリップボードに入ったproperty宣言部分を見た目の描画サイズ(幅)と文字コードでソート
– Created 2017-12-08 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.5″
use scripting additions
use framework “Foundation”
use framework “AppKit”
–http://piyocast.com/as/archives/5021

property NSFont : a reference to current application’s NSFont
property NSData : a reference to current application’s NSData
property NSColor : a reference to current application’s NSColor
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSDictionary : a reference to current application’s NSDictionary
property NSPasteboard : a reference to current application’s NSPasteboard
property NSCountedSet : a reference to current application’s NSCountedSet
property NSMutableArray : a reference to current application’s NSMutableArray
property NSSortDescriptor : a reference to current application’s NSSortDescriptor
property NSAttributedString : a reference to current application’s NSAttributedString
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSFontAttributeName : a reference to current application’s NSFontAttributeName
property NSKernAttributeName : a reference to current application’s NSKernAttributeName
property NSMutableParagraphStyle : a reference to current application’s NSMutableParagraphStyle
property NSLigatureAttributeName : a reference to current application’s NSLigatureAttributeName
property NSMutableAttributedString : a reference to current application’s NSMutableAttributedString
property NSUnderlineStyleAttributeName : a reference to current application’s NSUnderlineStyleAttributeName
property NSParagraphStyleAttributeName : a reference to current application’s NSParagraphStyleAttributeName
property NSForegroundColorAttributeName : a reference to current application’s NSForegroundColorAttributeName

–クリップボードの内容を文字列として取得
set aStr to (the clipboard) as string
if aStr = “” then
  display dialog “No Data in Clipboard” buttons {“OK”} default button 1
  
return
end if

–クリップボードの内容をStyled Stringで取得して最頻出フォントを取得
set clipboardAttrStr to getClipboardASStyledText() of me
if clipboardAttrStr = missing value then
  display dialog “Can not get clipboard as Styled String” buttons {“OK”} default button 1
  
return
end if
set attrList to getAttributeRunsFromAttrString(clipboardAttrStr) of me
set anArray to (NSArray’s arrayWithArray:attrList)’s valueForKeyPath:“fontName”
set aFontList to (countItemsByItsAppearance(anArray) of me)
set aFontName to theName of first item of aFontList

–クリップボードから取得した文字データについて処理
set aList to paragraphs of aStr –行ごとにparseしてlist化
set bList to {}
repeat with i in aList
  set j to contents of i
  
if j ≠ {} then
    set jList to words of j
    
if jList ≠ {} then
      if contents of first item of jList = “property” then
        set curLabel to contents of second item of jList
        
        
–行をAttributed Stringとして組み立てて、画面描画時の仕上がりサイズを取得
        
set anAssrStr to makeRTFfromParameters(j, aFontName, 16, -2, 16) of me
        
set aSize to anAssrStr’s |size|() –画面描画時のサイズを取得
        
        
if class of aSize = record then
          set attrStrWidth to width of aSize
          
set attrStrHeight to height of aSize
        else if class of aSize = list then –macOS 10.13.xのバグ回避
          copy aSize to {attrStrWidth, attrStrHeight}
        end if
        
        
set the end of bList to {aLabel:curLabel, aCon:j, aWidth:attrStrWidth}
      end if
    end if
  end if
end repeat

if bList = {} then
  display dialog “Error” buttons {“OK”} default button 1
  
return
end if

–複数キーでソート(書式つきテキストの仕上がりサイズ幅、文字コード順でソート)
set aArray to NSArray’s arrayWithArray:bList
set desc1 to NSSortDescriptor’s sortDescriptorWithKey:“aWidth” ascending:true
set desc2 to NSSortDescriptor’s sortDescriptorWithKey:“aLabel” ascending:true selector:“localizedCaseInsensitiveCompare:”
set bArray to aArray’s sortedArrayUsingDescriptors:{desc1, desc2}

–ソートしたlist of recordからaCon(元のproperty宣言行そのもの)を一括で取り出す
set dArray to (NSMutableArray’s arrayWithArray:bArray)’s valueForKeyPath:“aCon”

–listをデリミタつきのテキストに
set dStr to retStrFromArrayWithDelimiter(dArray, return) of me

set the clipboard to (dStr & return)

–1D Listを文字列長でソート v2
on sort1DListByIndicatedStringLength(aList as list, aSortKey as string, sortOrder as boolean)
  set aArray to NSArray’s arrayWithArray:aList
  
set descLabel1 to NSString’s stringWithString:(aSortKey & “.length”)
  
set descLabel2 to NSString’s stringWithString:aSortKey
  
set desc1 to NSSortDescriptor’s sortDescriptorWithKey:descLabel1 ascending:sortOrder
  
set desc2 to NSSortDescriptor’s sortDescriptorWithKey:descLabel2 ascending:true selector:“localizedCaseInsensitiveCompare:”
  
set bArray to aArray’s sortedArrayUsingDescriptors:{desc1, desc2}
  
return bArray as list
end sort1DListByIndicatedStringLength

–リストを指定デリミタをはさんでテキスト化
on retStrFromArrayWithDelimiter(aList as list, aDelim as string)
  set anArray to NSArray’s arrayWithArray:aList
  
set aRes to anArray’s componentsJoinedByString:aDelim
  
return aRes as text
end retStrFromArrayWithDelimiter

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

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

–指定のNSAttributedStringから書式情報をlist of recordで取得
on getAttributeRunsFromAttrString(theStyledText)
  script aSpd
    property styleList : {}
  end script
  
  
set (styleList of aSpd) to {} —for output
  
  
set thePureString to theStyledText’s |string|() –pure string from theStyledText
  
  
set theLength to theStyledText’s |length|()
  
set startIndex to 0
  
  
repeat until (startIndex = theLength)
    set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength - startIndex}
    
    
set aText to (thePureString’s substringWithRange:theRange) as string
    
    
set aColor to (theAtts’s valueForKeyPath:“NSColor”)
    
if aColor is not equal to missing value then
      set aSpace to aColor’s colorSpace()
      
      
set aRed to (aColor’s redComponent()) * 255
      
set aGreen to (aColor’s greenComponent()) * 255
      
set aBlue to (aColor’s blueComponent()) * 255
      
      
set colList to {aRed as integer, aGreen as integer, aBlue as integer}
      
set colStrForFind to (aRed as integer as string) & ” “ & (aGreen as integer as string) & ” “ & (aBlue as integer as string)
    else
      set colList to {0, 0, 0}
      
set colStrForFind to “0 0 0″
    end if
    
    
set aFont to (theAtts’s valueForKeyPath:“NSFont”)
    
if aFont is not equal to missing value then
      set aDFontName to aFont’s displayName()
      
set aDFontSize to aFont’s pointSize()
    end if
    
    
set the end of (styleList of aSpd) to {stringVal:aText, colorStr:colStrForFind, colorVal:colList, fontName:aDFontName as string, fontSize:aDFontSize}
    
set startIndex to current application’s NSMaxRange(theRange)
  end repeat
  
  
return (styleList of aSpd)
end getAttributeRunsFromAttrString

–1D Listをアイテムの出現頻度順でソートして返す
on countItemsByItsAppearance(aList as list)
  set aSet to NSCountedSet’s alloc()’s initWithArray:aList
  
set bArray to NSMutableArray’s array()
  
set theEnumerator to aSet’s objectEnumerator()
  
  
repeat
    set aValue to theEnumerator’s nextObject()
    
if aValue is missing value then exit repeat
    
bArray’s addObject:(NSDictionary’s dictionaryWithObjects:{aValue, (aSet’s countForObject:aValue)} forKeys:{“theName”, “numberOfTimes”})
  end repeat
  
  
set theDesc to NSSortDescriptor’s sortDescriptorWithKey:“numberOfTimes” ascending:false
  
bArray’s sortUsingDescriptors:{theDesc}
  
  
return bArray as list
end countItemsByItsAppearance

★Click Here to Open This Script 

2017/12/12 RTFの読み込み v2.2

指定のRTF(Ritch Text Format)ファイルを読み込んでNSAttributedStringに変換し、文字色、フォント名、フォントサイズ、文字列でrecordを作成して返すAppleScriptです。

任意のGUIアプリケーションの書式付きテキストから、指定の書式で該当箇所をピックアップするのはAppleScriptでは定番中の定番処理。テキストエディット.appのattribute runs(書式の一括取り出し)が有名です。もちろん、各種ワープロやDTPソフトウェアでも「出来てあたりまえ」の処理といえます(Pages、Numbers、Keynoteあたりはちょっと無理かも)。

Cocoa+Objective-Cの機能で同様の処理をいろいろ探してみましたが、NSAttributedStringからの書式による抽出はなかなか見つけられませんでした(不可能ではないものの、そういう処理にあまり関心がなさそうな雰囲気)。

そこで、MLで相談しつつNSAttributedStringからの文字書式(フォント名、ポイント数、文字色)による抽出が行えるように書いてみました。

ひたすらループ処理なので、処理データ量が増えるとそれなりに時間がかかります。ただし、いったん書式情報を抽出すれば、フィルタリング処理なども高速に行えます。

AppleScript名:RTFの読み込み v2.2
– Created 2017-12-10 by Takaaki Naganoya
– Modified 2017-12-11 by Shane Stanley
– Modified 2017-12-11 by Nigel Garvey
– Modified 2017-12-12 by Takaaki Naganoya
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “AppKit”
–http://piyocast.com/as/archives/5020

property NSData : a reference to current application’s NSData
property NSString : a reference to current application’s NSString
property NSMutableAttributedString : a reference to current application’s NSMutableAttributedString

set fRes to choose file of type {“public.rtf”}

set aFilePath to NSString’s stringWithString:(POSIX path of fRes)
set aData to NSData’s dataWithContentsOfFile:aFilePath options:0 |error|:(missing value)
set theStyledText to NSMutableAttributedString’s alloc()’s initWithData:aData options:(missing value) documentAttributes:(missing value) |error|:(missing value)

set attrRes to getAttributeRunsFromAttrString(theStyledText) of me
(*
{{stringVal:”abcdefg”, colorStr:”0 0 0″, colorVal:{0, 0, 0}, fontName:”Helvetica”, fontSize:12.0}, {stringVal:”12234534353534″, colorStr:”255 0 0″, colorVal:{255, 0, 0}, fontName:”Helvetica”, fontSize:12.0}, {stringVal:”dewhuiwheiuweriuwherwe”, colorStr:”0 0 0″, colorVal:{0, 0, 0}, fontName:”Helvetica”, fontSize:12.0}, {stringVal:”asda192837137129831″, colorStr:”255 0 0″, colorVal:{255, 0, 0}, fontName:”Helvetica”, fontSize:12.0}}
*)

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

★Click Here to Open This Script 

2017/12/10 クリップボードに入ったproperty宣言部分を文字列長と文字コードでソート

クリップボードに入ったAppleScriptのproperty宣言部分を文字列長と文字コードでソートしてクリップボードに入れるAppleScriptです。

最近、AppleScript中でCocoaの機能を呼び出す処理を書く際に、プログラムリストが(横に)長くなることを避けるため、冒頭部分にpropertyで各Cocoa Objectへの参照を宣言するようにしていますが、、、、

正直、ここの宣言部分が乱雑なので、清書するために書いたものです。スクリプトメニューに入れて利用することを前提としています。

prop_before.png

property宣言部分をコピーして本Scriptを実行。property宣言部分の文字数が少ない順&文字コード順にソートを行います。

prop_after.png

結果をペースト。より、宣言部分が多いと(見た目の)効果が大きいです。

after2.png

対象がスクリプトエディタだけであれば、スクリプトエディタ自体をAppleScriptからコントロールして、冒頭のproperty宣言部分を抽出してproperty宣言文の構文要素をピックアップし、クリップボードを経由しないで書き換えることも可能です。

ただし、スクリプトエディタ以外の記述ソフト(Script Debugger、ASObjC Explorer 4、Xcode)を利用しているケースが多いことを考慮してクリップボード経由でデータのやり取りを行わせてみました。

AppleScript書類に対してのアクセスについては、正直Script Debuggerよりもスクリプトエディタの方が上(リッチテキスト形式でもアクセスできるので、構文色分けを利用して各種構文要素にアクセス可能)。スクリプト内容を解析して書き換えを行うような用途については、「Piyomaru Script Assistant」(電子書籍購入者の方への購入特典)をご利用いただいている方にはそのパワーをご理解いただけると思います。

同ツールはAppleScriptでAppleScriptを解析して、AppleScript自体を書き換えるというコンテクストメニューからのAppleScript呼び出しを超強化したものです。

AppleScript名:クリップボードに入ったproperty宣言部分を文字列長と文字コードでソート
– Created 2017-12-08 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
–http://piyocast.com/as/archives/5014

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

set aStr to (the clipboard)
if aStr = “” then
  display dialog “No Data in Clipboard”
  
return
end if

set aList to paragraphs of aStr
set bList to {}
repeat with i in aList
  set j to contents of i
  
if j ≠ {} then
    set jList to words of j
    
if jList ≠ {} then
      if contents of first item of jList = “property” then
        set curLabel to contents of second item of jList
        
set the end of bList to {aLabel:curLabel, aCon:j}
      end if
    end if
  end if
end repeat

if bList = {} then
  display dialog “Error”
  
return
end if

–昇順ソート
set cList to sort1DListByIndicatedStringLength(bList, “aLabel”, true) of me

–ソートしたlist of recordからaCon(元のproperty宣言行そのもの)を一括で取り出す
set dArray to (NSMutableArray’s arrayWithArray:cList)’s valueForKeyPath:“aCon”

–listをテキストに
set dStr to retStrFromArrayWithDelimiter(dArray, return) of me

set the clipboard to dStr

–1D Listを文字列長でソート v2
on sort1DListByIndicatedStringLength(aList as list, aSortKey as string, sortOrder as boolean)
  set aArray to NSArray’s arrayWithArray:aList
  
set descLabel1 to NSString’s stringWithString:(aSortKey & “.length”)
  
set descLabel2 to NSString’s stringWithString:aSortKey
  
set desc1 to NSSortDescriptor’s sortDescriptorWithKey:descLabel1 ascending:sortOrder
  
set desc2 to NSSortDescriptor’s sortDescriptorWithKey:descLabel2 ascending:true selector:“localizedCaseInsensitiveCompare:”
  
set bArray to aArray’s sortedArrayUsingDescriptors:{desc1, desc2}
  
return bArray as list
end sort1DListByIndicatedStringLength

–リストを指定デリミタをはさんでテキスト化
on retStrFromArrayWithDelimiter(aList, aDelim)
  set anArray to NSArray’s arrayWithArray:aList
  
set aRes to anArray’s componentsJoinedByString:aDelim
  
return aRes as text
end retStrFromArrayWithDelimiter

★Click Here to Open This Script 

2017/12/08 指定文字の花文字を取得してRTFで書き出す

指定文字の花文字を取得して、収録グリフ数が10,000以上のフォントから30をデスクトップにRTFで書き出すAppleScriptです。

注意:ただし、本ScriptはRetina Display未対応です

hanamoji1.png

前のバージョンからの改良点は、

 〇慊衒源が指定フォント中にグリフを持っているかどうかチェックしてから処理
 ▲ぅ鵐好函璽襪気譴討い襯侫ント数が少ない場合への対処

といったところです。

花文字作成部分の処理内容は、

 ”漸荵慊衒源を収録しているフォントの一覧を取得
 ↓,納萋世靴織侫ントのうち、グリフ数が10,000以上のものをピックアップ
 スタイル付きテキストを作成。仕上がり(描画)サイズを取得
 せ転紊りサイズでRaw画像を作成
 ズ鄒したRaw画像を塗りつぶす(White)
 ε匹蠅弔屬靴Raw画像にスタイル付きテキストを描画
 Raw画像の各座標から色情報をピックアップ、指定スレッショルド値以上であればドットが存在していると判定
 ┘疋奪箸存在している場合には描画文字列を、存在していない場合にはスペースを配列に追加
 作成した2次元配列をテキストに変換。フォント名をテキストに含める指定を行なっている場合にはフォントのPostScript名を文字列に出力

というところです。

これまでは(macOS 10.10より前)AppleScriptで画像処理を行おうとすると、Photoshopあたりで処理するのが定番でしたが、Cocoaの機能を利用することで、カラープロファイル処理が厳密に求められるような内容でなければPhotoshopなしでけっこうな処理が行えるようになってきました。

テキスト処理において(文字コード自動判別が可能になったため)テキストエディタが要らなくなってきたように、データベース処理で(小規模データであれば)FileMaker Proが要らなくなってきて、同様に画像処理でもPhotoshopなしで処理できるものが増えてきた今日このごろです。

AppleScript名:指定文字の花文字を取得してRTFで書き出す
– Created 2017-11-19 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “AppKit”
–http://piyocast.com/as/archives/5012

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

set aString to “あ”
set hanaMax to 30
set hanaSize to 36
set targFontName to “Osaka-Mono” –”Courier New”–結果を出力するRTFのフォント名(PostScript名)

set fRes to getEveryFontPSNameANdGlyphsNum() of me
set theArray to NSArray’s arrayWithArray:fRes
set thePred to NSPredicate’s predicateWithFormat:“fontNum > 10000″
set bArray to (theArray’s filteredArrayUsingPredicate:thePred) as list

if hanaMax > (length of bArray) then
  set hanaMax to (length of bArray)
end if

set aCount to 1

repeat hanaMax * 2 times
  set aFontName to contents of item aCount of bArray
  
  
–花文字文字列を作成
  
set fRes to getHanamojiStr(hanaSize, fontName of aFontName, aString, 0.7, true) of me
  
if fResfalse then
    –StyledStringで結果出力(RTFとしてファイル保存)
    
set aStyledStr to makeRTFfromParameters(fRes, targFontName, 11, 0.0, 0.0) of me
    
set aRange to current application’s NSMakeRange(0, aStyledStr’s |length|())
    
set aVal1 to NSFont’s fontWithName:targFontName |size|:11
    
    
aStyledStr’s beginEditing()
    (
aStyledStr’s addAttribute:(NSFontAttributeName) value:aVal1 range:aRange)
    
aStyledStr’s endEditing()
    
    
set targFol to POSIX path of (path to desktop)
    
set aUUID to NSUUID’s UUID()’s UUIDString() as text
    
set bRes to my saveStyledTextAsRTF(aUUID, targFol, aStyledStr) –RTFで書き出す
    
    
set aCount to aCount + 1
    
if aCount > hanaMax then exit repeat
  end if
end repeat

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

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

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

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

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

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

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

–ユーザー環境にインストールされているすべてのフォントのPostScript名とグリフ数を返す
on getEveryFontPSNameANdGlyphsNum()
  set aFontList to NSFontManager’s sharedFontManager()’s availableFonts()
  
set thePred to NSPredicate’s predicateWithFormat:“NOT SELF BEGINSWITH ’.’”
  
set aFontList to (aFontList’s filteredArrayUsingPredicate:thePred) as list
  
  
set aList to {}
  
repeat with i in aFontList
    set aName to contents of i
    
set aNum to countNumberOfGlyphsInFont(aName) of me
    
set the end of aList to {fontName:aName, fontNum:aNum}
  end repeat
  
  
return aList
end getEveryFontPSNameANdGlyphsNum

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

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

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

–スタイル付きテキストを指定フォルダ(POSIX path)にRTFで書き出し
on saveStyledTextAsRTF(aFileName as string, targFol as string, aStyledString)
  set bstyledLength to aStyledString’s |string|()’s |length|()
  
set bDict to NSDictionary’s dictionaryWithObject:“NSRTFTextDocumentType” forKey:(current application’s NSDocumentTypeDocumentAttribute)
  
set bRTF to aStyledString’s RTFFromRange:(current application’s NSMakeRange(0, bstyledLength)) documentAttributes:bDict
  
  
set theName to NSString’s stringWithString:aFileName
  
set theName to theName’s stringByReplacingOccurrencesOfString:“/” withString:“_”
  
set theName to theName’s stringByReplacingOccurrencesOfString:“:” withString:“_”
  
set thePath to NSString’s stringWithString:targFol
  
set thePath to (thePath’s stringByAppendingPathComponent:theName)’s stringByAppendingPathExtension:“rtf”
  
  
return (bRTF’s writeToFile:thePath atomically:true) as boolean
end saveStyledTextAsRTF

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

★Click Here to Open This Script 

2017/12/06 指定フォルダ以下のテキストファイルのファイル名のうち連番部分を抽出して、欠落や重複を検出する

指定フォルダ以下の指定形式のファイルのファイル名をSpotlightですべて取得し、重複や連番部分の欠落を抽出するAppleScriptです。

しょっちゅう同じようなScriptを作っているような気もしますが、それだけ個人的な必要度が高いものかもしれません。

連番部分を含む命名規則を持つファイル群、

  1AXXXXXX-101.txt
  1AXXXXXX-72.txt
  1AXXXXXX-9.txt

から(ファイル名はサンプル)、ファイル名の共通部分をスキャンして、ファイルごとに変更になる部分を抽出しています。一応、ねんのために拡張子を外したデータを処理しています。

ファイル名の共通部分をデータ同士から抽出する、というのが本Scriptの新機軸です。

データすべてから変更部分を取得するのではなく、データの文字数の最大、最小を取得し、それぞれの文字列に該当するデータを10件ずつピックアップし、その間で変更部分の検出を行なっています。

こうした「固定部分の自動検出」というのは、仕様がきちんと存在していない仕事において必要になってくると思われます。すべてのファイル名データから命名ルールを自動検出したり、例外に該当するものを除外したり、ということも考えられそうです。

なお、実行には、Shane StanleyのAppleScriptライブラリ「Metadata Lib」および「BridgePlus」のインストールを必要とします。

AppleScript名:指定フォルダ以下のテキストファイルのファイル名のうち連番部分を抽出して、欠落や重複を検出する
– Created 2017-12-05 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use mdLib : script “Metadata Lib” version “1.0.0″
use bPlus : script “BridgePlus”
–http://piyocast.com/as/archives/5011

property NSCountedSet : a reference to current application’s NSCountedSet
property NSMutableArray : a reference to current application’s NSMutableArray
property SMSForder : a reference to current application’s SMSForder
property NSMutableSet : a reference to current application’s NSMutableSet
property NSIndexSet : a reference to current application’s NSIndexSet

set origFol to (POSIX path of (choose folder))
set txtFiles to mdLib’s searchFolders:{origFol} searchString:“kMDItemContentType == %@” searchArgs:{“public.plain-text”}

–ファイル名部分から拡張子を削除して収集
set anArray to ((current application’s NSMutableArray’s arrayWithArray:txtFiles)’s valueForKeyPath:“lastPathComponent.stringByDeletingPathExtension”)

–ファイル名文字列リストから、共通部分(変更のない部分)を抽出
set intStr to retInterSectionStr(anArray) of me

set cList to {}
repeat with i in (anArray as list)
  set aRes to repChar(i as string, intStr, “”) of me
  
set aNumF to chkNumeric(aRes) of me
  
if aNumF = true then
    set the end of cList to aRes as integer
  else
    log i
  end if
end repeat

set aRes to calcGaps(cList) of me
set bRes to returnDuplicatesOnly(cList) of me

return {gaps:aRes, dups:bRes}
–>  {gaps:{195, 284, 285}, dups:{}}

–与えられた文字列リストのうち、文字列共通部分を抽出
on retInterSectionStr(anArray)
  set aMin to (anArray’s valueForKeyPath:“@min.length”) as integer
  
set aMax to (anArray’s valueForKeyPath:“@max.length”) as integer
  
  
set bList to {}
  
repeat with i from aMin to aMax
    set aCount to 0
    
    
repeat with ii in (anArray as list)
      set aLen to length of ii
      
if aLen = i then
        set the end of bList to contents of ii
        
if aCount = 10 then
          exit repeat
        else
          set aCount to aCount + 1
        end if
      end if
    end repeat
    
  end repeat
  
  
set aStr to contents of first item of bList
  
set bList to rest of bList
  
  
repeat with i in bList
    set bStr to contents of i
    
set intStr to calcIntersection(aStr, bStr) of me
    
if intStr = false then
      exit repeat
    else
      copy intStr to aStr
    end if
  end repeat
  
  
return aStr
end retInterSectionStr

–2つの文字列から共通部分を(先頭から)抽出
on calcIntersection(aStr, bStr)
  set aList to characters of aStr
  
set bList to characters of bStr
  
  
set aLen to length of aList
  
set bLen to length of bList
  
  
if aLen bLen then
    set aMax to bLen
  else
    set aMax to aLen
  end if
  
  
set hitF to false
  
repeat with i from 1 to aMax
    set aChar to contents of item i of aList
    
set bChar to contents of item i of bList
    
if aChar is not equal to bChar then
      set hitF to true
      
exit repeat
    end if
  end repeat
  
  
if hitF = false then return false
  
  
return (text 1 thru (i - 1) of aStr)
end calcIntersection

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

–文字列が数字のみから構成されているかを調べて返す
on chkNumeric(checkString as string)
  set digitCharSet to current application’s NSCharacterSet’s characterSetWithCharactersInString:“0123456789″
  
set ret to my chkCompareString:checkString baseString:digitCharSet
  
return ret as boolean
end chkNumeric

on chkCompareString:checkString baseString:baseString
  set aScanner to current application’s 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:

–連番リストからGap検出
on calcGaps(aList as list)
  set nArray to (NSMutableArray’s arrayWithArray:aList)
  
set maxRes to (nArray’s valueForKeyPath:“@max.self”)’s intValue()
  
set minRes to (nArray’s valueForKeyPath:“@min.self”)’s intValue()
  
  
–最小値から最大値までの連番リスト作成
  
set theIndexSet to NSIndexSet’s indexSetWithIndexesInRange:{minRes, maxRes}
  
set theList to (SMSForder’s arrayWithIndexSet:theIndexSet) as list
  
  
–補集合
  
set aSet to NSMutableSet’s setWithArray:theList
  
set bSet to NSMutableSet’s setWithArray:nArray
  
aSet’s minusSet:bSet
  
  
return aSet’s allObjects() as list
end calcGaps

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

★Click Here to Open This Script 

2017/11/29 指定のテキストからHTMLタグを除去(比較)

Shane Stanleyから「HTMLのタグ外す程度ならFrameworkまでビルドしなくてもいいんじゃね?」的な指摘&サンプルコード(NSXMLParser)があって、手元のさまざまなHTMLタグ外しルーチンを整理して検討してみました。

HTMLからのタグ外し(detag)については、いろいろやり方があって、それこそHTMLReaderみたいな「HTMLそのものを解釈する」フル装備のフレームワークもあれば、単にテキストとして処理するやり方までさまざまです。

昨日の件についていえば、「たまたま文字列中にHTMLタグのような文字列が入った場合に除去したい」というぐらいの用途でした。

また一方で、HTMLファイル全体を与えたときにどのような挙動になるのか、という評価軸もあります。

さらに、日本語文字列が入っていた場合にどうなるのか、文字化けせずに処理されるのかという話もあります。日本語圏で大丈夫ということは、だいたい同じぐらいの難易度の中国語、韓国語圏でも大丈夫であることが期待されます。アラビア語については未検証なのでわかりません。

そして、処理速度。0.00x秒ぐらいの処理時間でどちらが速いといっても、もはや時間が短すぎてよくわからないレベルに達しています。100回ループで回して時間計測すると、もはや誤差ぐらいの差でしかありません。

detag.png

評価結果を見てみると、

NSAttributedString:日本語が化けるし、<BR>タグが改行として解釈されるので、簡単ではあるものの使い勝手はいまひとつ

removeTagKit:高速で処理も安定している一方で、その程度でフレームワークを作ってインストールさせるのはどうか的な話があるのと、HTMLファイルを単体で与えたときに処理できませんでした

NSXMLParser:速くていいんだけど、<BR>とか<P>とかの単体で存在しているタグが混入しているとエラーが出たりした

NSScanner:HTMLを単なる文字列として処理するやり方がいちばん安定していた

といった、割と「身も蓋もない」話になってしまいました。

HTMLファイルを読み取ってテキスト抽出するのであれば、HTMLReader.frameworkを併用して文字コードを自動判別させてみるとよいでしょう。

AppleScript名:指定のテキストからHTMLタグを除去(NSXMLParser)
– Created 2017-11-29 by Shane Stanley
use AppleScript version "2.4"
use framework "Foundation"
use scripting additions
–http://piyocast.com/as/archives/5004

property textArray : missing value
property anError : missing value

set theString to "<a>repeat</a>〜end repeat"
my stripHTMLTagsIn:theString
–>  "repeat〜end repeat"

on stripHTMLTagsIn:theString
  set my textArray to current application’s NSMutableArray’s array()
  
set theString to current application’s NSString’s stringWithFormat_("<root>%@</root>", theString)
  
set theString to theString’s stringByReplacingOccurrencesOfString:"&" withString:"&amp;"
  
set theData to theString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
  
set theParser to current application’s NSXMLParser’s alloc()’s initWithData:theData
  
theParser’s setDelegate:me
  
set theResult to theParser’s parse()
  
if not theResult then error (anError’s |description|() as text)
  
return (textArray’s componentsJoinedByString:"") as list of string or string –as anything
end stripHTMLTagsIn:

on parser:theParser foundCharacters:aString
  textArray’s addObject:aString
end parser:foundCharacters:

on parser:anNSXMLParser parseErrorOccurred:anNSError
  set my anError to anNSError
end parser:parseErrorOccurred:

★Click Here to Open This Script 

AppleScript名:指定のテキストからHTMLタグを除去(NSScanner)
– Created 2016-12-12 by Shane Stanley
– Modified 2016-12-14 by edama2
– Modified 2017-11-28 by Takaaki Naganoya
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
–http://piyocast.com/as/archives/5004

–set aStr to read (choose file)
set aStr to "<a>repeat</a>〜end repeat<BR>"
set aRes to (trimStrFromTo(aStr, "<", ">") of me)
–>  "repeat〜end repeat"

on trimStrFromTo(aParamStr, fromStr, toStr)
  set theScanner to current application’s NSScanner’s scannerWithString:aParamStr
  
set anArray to current application’s NSMutableArray’s array()
  
  
repeat until (theScanner’s isAtEnd as boolean)
    set {theResult, theKey} to theScanner’s scanUpToString:fromStr intoString:(reference)
    
    
theScanner’s scanString:fromStr intoString:(missing value)
    
set {theResult, theValue} to theScanner’s scanUpToString:toStr intoString:(reference)
    
if theValue is missing value then set theValue to ""
    
    
theScanner’s scanString:toStr intoString:(missing value)
    
    
anArray’s addObject:theValue
  end repeat
  
  
if anArray’s |count|() = 0 then return aParamStr
  
  
copy aParamStr to curStr
  
repeat with i in (anArray as list)
    set curStr to repChar(curStr, fromStr & i & toStr, "") of me
  end repeat
  
  
return curStr
end trimStrFromTo

on repChar(aStr, targStr, repStr)
  set aString to current application’s NSString’s stringWithString:aStr
  
set bString to aString’s stringByReplacingOccurrencesOfString:targStr withString:repStr
  
set cString to bString as string
  
return cString
end repChar

★Click Here to Open This Script 

2017/11/28 2Dリストから、指定カラムのデータを削除する v3

2D List(配列変数)から、指定カラムのデータを削除するAppleScriptです。

Pure AppleScriptの機能の範囲でも、Cocoaの機能の範囲でも、結局は行ごとにループを回さないといけないようなので、もうちょっとクールな(ループなしで削除するような)解決策もありそうですが、どんなものでしょう。

AppleScript名:2Dリストから、指定カラムのデータを削除する v3
– Created 2017-11-25 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
–http://piyocast.com/as/archives/5000

set aList to {{1, 2, 3}, {2, 3, 4}, {3, 4, 5}}
set removeIndex to 3 –1 based index
set bList to removeColumnFrom2DArray(aList, removeIndex) of me
–>  {{1, 2}, {2, 3}, {3, 4}}

on removeColumnFrom2DArray(aList as list, removeIndex as integer)
  set newArray to {}
  
set realIndex to removeIndex - 1 –index conversion from 1-based to 0-based
  
repeat with i in aList
    set anArray to (current application’s NSMutableArray’s arrayWithArray:i)
    (
anArray’s removeObjectAtIndex:realIndex)
    
set the end of newArray to anArray as list of string or string –as anything
  end repeat
  
return newArray
end removeColumnFrom2DArray

★Click Here to Open This Script 

2017/11/22 Finder上で選択中の画像を横方向に連結

Finder上で選択中の画像ファイルを横方向に連結してデスクトップにPNG形式で書き出すAppleScriptです。

Finder上で選択中の画像ファイルに対して、

finder_selection.png

それらが画像ファイルかどうかを確認し、画像ファイルであれば横方向に(10pointの隙間を作って)連結してデスクトップ上にPNG形式で書き出します。

c524ba57-f107-4605-92c9-dfb95720cf31_resized.png

こんなふうに(↑)。

Retina解像度対策(x2)は行なっていないので、解像度の異なる画像同士を連結しようとすると問題が(解像度の不一致による極端なサイズの違い)出る可能性があります。

なお、指定パスからのUTIツリーの取得にオープンソースのフレームワーク「MagicKit」を使用しています。本Scriptの実行にはGithub上のプロジェクトをダウンロードして各自でXcode上でFrameworkをビルドし、MagicKit.frameworkを~/Library/Frameworksフォルダ以下にインストールする必要があります。

AppleScript名:Finder上で選択中の画像を横方向に連結
– Created 2017-11-21 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “QuartzCore”
use framework “AppKit”
use framework “MagicKit” –https://github.com/aidansteele/magickit
–http://piyocast.com/as/archives/4995

property NSMutableArray : a reference to current application’s NSMutableArray
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSUUID : a reference to current application’s NSUUID
property NSPNGFileType : a reference to current application’s NSPNGFileType
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep
property NSImage : a reference to current application’s NSImage
property |NSURL| : a reference to current application’s |NSURL|
property GEMagicKit : a reference to current application’s GEMagicKit

property xGap : 10 –連結時の画像間のアキ(横方向)

tell application “Finder”
  set aSel to selection as alias list
  
if aSel = {} or aSel = “” then return
end tell

–選択した画像をArrayに入れる
set imgList to NSMutableArray’s new()
repeat with i in aSel
  set aPath to POSIX path of i
  
  
–指定ファイルのUTIを取得して、画像(public.image)があれば処理を行う
  
set aRes to (GEMagicKit’s magicForFileAtPath:aPath)
  
set utiList to (aRes’s uniformTypeHierarchy()) as list
  
if “public.image” is in utiList then
    set aNSImage to (NSImage’s alloc()’s initWithContentsOfFile:aPath)
    (
imgList’s addObject:aNSImage)
  end if
end repeat

–KVCで画像の各種情報をまとめて取得
set sizeList to (imgList’s valueForKeyPath:“size”) as list –NSSize to list of record conversion
set maxHeight to ((NSArray’s arrayWithArray:sizeList)’s valueForKeyPath:“@max.height”) as real
set totalWidth to ((NSArray’s arrayWithArray:sizeList)’s valueForKeyPath:“@sum.width”) as real
set totalCount to ((NSArray’s arrayWithArray:sizeList)’s valueForKeyPath:“@count”) as integer

–出力画像作成
set tSize to current application’s NSMakeSize((totalWidth + (xGap * totalCount)), maxHeight)
set newImage to NSImage’s alloc()’s initWithSize:tSize

–順次画像を新規画像に上書き
set xOrig to 0
repeat with i in (imgList as list)
  set j to contents of i
  
set curSize to j’s |size|()
  
set aRect to {xOrig, (maxHeight - (curSize’s height())), (curSize’s width()), (curSize’s height())}
  
set newImage to composeImage(newImage, j, aRect) of me
  
set xOrig to (curSize’s width()) + xGap
end repeat

–デスクトップにPNG形式でNSImageをファイル保存
set aDesktopPath to current application’s NSHomeDirectory()’s stringByAppendingString:“/Desktop/”
set savePath to aDesktopPath’s stringByAppendingString:((NSUUID’s UUID()’s UUIDString())’s stringByAppendingString:“.png”)
set fRes to saveNSImageAtPathAsPNG(newImage, savePath) of me

–2つのNSImageを重ね合わせ合成してNSImageで返す
on composeImage(backImage, composeImage, aTargerRect)
  set newImage to NSImage’s alloc()’s initWithSize:(backImage’s |size|())
  
  
copy aTargerRect to {x1, y1, x2, y2}
  
set bRect to current application’s NSMakeRect(x1, y1, x2, y2)
  
  
newImage’s lockFocus()
  
  
set newImageRect to current application’s CGRectZero
  
set newImageRect’s |size| to (newImage’s |size|)
  
  
backImage’s drawInRect:newImageRect
  
composeImage’s drawInRect:bRect
  
  
newImage’s unlockFocus()
  
return newImage
end composeImage

–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 

2017/11/22 NSColorのカラースペース変換

Cocoaの機能を用いてカラースペース変換を行なってみたAppleScriptです。

あまり本気で使うつもりはない機能ですが、ものは試しということで動作確認してみました。

c524ba57-f107-4605-92c9-dfb95720cf31_resized.png

選択色をRGBから指定のカラースペース中の色に変換し、それをふたたびRGBに戻して色表示を行います。

AppleScript名:選択色をカラースペース(RGB→グレースケール→RGB)変換して比較
– Created 2017-11-21 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “AppKit”
–http://piyocast.com/as/archives/4993

set {rCol, gCol, bCol} to choose color

set rCol to rCol / 65535
set gCol to gCol / 65535
set bCol to bCol / 65535
log {rCol, gCol, bCol}

set aCol to current application’s NSColor’s colorWithCalibratedRed:rCol green:gCol blue:bCol alpha:1

set bCol to aCol’s colorUsingColorSpaceName:“NSDeviceWhiteColorSpace”
if bCol = missing value then error “Color Space Conversion Error (1)”

set cCol to bCol’s colorUsingColorSpaceName:“NSDeviceRGBColorSpace”
if cCol = missing value then error “Color Space Conversion Error (2)”

set r2Col to (cCol’s redComponent())
set g2Col to (cCol’s greenComponent())
set b2Col to (cCol’s blueComponent())
log {r2Col, g2Col, b2Col}

choose color default color {r2Col * 65535, g2Col * 65535, b2Col * 65535}

★Click Here to Open This Script 

AppleScript名:選択色をカラースペース(RGB→CMYK→RGB)変換して比較
– Created 2017-11-21 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “AppKit”
–http://piyocast.com/as/archives/4993

set {rCol, gCol, bCol} to choose color

set rCol to rCol / 65535
set gCol to gCol / 65535
set bCol to bCol / 65535
log {rCol, gCol, bCol}

set aCol to current application’s NSColor’s colorWithCalibratedRed:rCol green:gCol blue:bCol alpha:1

set bCol to aCol’s colorUsingColorSpaceName:“NSDeviceCMYKColorSpace”
if bCol = missing value then error “Color Space Conversion Error (1)”

set cCol to bCol’s colorUsingColorSpaceName:“NSDeviceRGBColorSpace”
if cCol = missing value then error “Color Space Conversion Error (2)”

set r2Col to (cCol’s redComponent())
set g2Col to (cCol’s greenComponent())
set b2Col to (cCol’s blueComponent())
log {r2Col, g2Col, b2Col}

choose color default color {r2Col * 65535, g2Col * 65535, b2Col * 65535}

★Click Here to Open This Script 

2017/11/20 主要なタイムゾーンのカレンダーの開始曜日を取得して集計

macOS内に定義されているタイムゾーン(knownTimeZoneNames)のカレンダーの開始曜日を取得して、firstWeekdayを集計するAppleScriptです。

取得するScriptに集計部分を追加しただけのものです。

AppleScript名:主要なタイムゾーンのカレンダーの開始曜日を取得して集計
– Created 2017-11-15 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
–http://piyocast.com/as/archives/4990

property NSDate : a reference to current application’s NSDate
property NSCalendar : a reference to current application’s NSCalendar
property NSOrderedSet : a reference to current application’s NSOrderedSet
property NSLocale : a reference to current application’s NSLocale
property NSCountedSet : a reference to current application’s NSCountedSet
property NSMutableArray : a reference to current application’s NSMutableArray
property NSTimeZone : a reference to current application’s NSTimeZone

set currentCalendar to NSCalendar’s currentCalendar()
set tzList to (NSTimeZone’s knownTimeZoneNames()) as list

set fList to {}
repeat with i in tzList
  set j to contents of i
  (
currentCalendar’s setLocale:(NSLocale’s localeWithLocaleIdentifier:j))
  
  
set aTZ to (NSTimeZone’s timeZoneWithName:j)
  
set theComponents to (currentCalendar’s componentsInTimeZone:aTZ fromDate:(NSDate’s |date|()))
  
set tmpCalend to theComponents’s calendar()
  
  
set aFirstDay to (tmpCalend’s firstWeekday) as integer –firstWeekday: 1=Sunday, 2=Monday
  
set the end of fList to aFirstDay
end repeat

set aRes to calcFrequency(fList) of me
–> {{theKey:1, theCount:371}, {theKey:2, theCount:66}}

–1D Listのデータを各要素ごとに出現頻度集計
on calcFrequency(fList)
  set f2List to makeUniqueListFrom(fList) of me
  
  
set theCountedSet to NSCountedSet’s alloc()’s initWithArray:fList
  
set newArray to NSMutableArray’s new()
  
repeat with i in f2List
    (newArray’s addObject:{theKey:i, theCount:(theCountedSet’s countForObject:i)})
  end repeat
  
return newArray as list
end calcFrequency

–リスト内容のユニーク化
on makeUniqueListFrom(theList)
  set theSet to NSOrderedSet’s orderedSetWithArray:theList
  
return (theSet’s array()) as list
end makeUniqueListFrom

★Click Here to Open This Script 

2017/11/20 主要なタイムゾーンのカレンダーの開始曜日を取得

macOS内に定義されているタイムゾーン(knownTimeZoneNames)のカレンダーの開始曜日を取得するAppleScriptです。

macOS内に定義されているタイムゾーンは437あり、当然のことながら時差は±12h(24のタイムゾーン)しかないので、それぞれのタイムゾーンの「時差」は重複しています。

どちらかといえば、各国が採用しているカレンダーの仕様(どの曜日からはじまるか)を調べるために書いてみたものです。各国の首都が所在しているタイムゾーンを求め、そこのカレンダーの仕様を調べられるとよかったのですが、OS内部のAPIだけでは実現できなかったので、かわりに「knownTimeZoneNames」を呼び出してみた次第です。

週の開始日を示すfirstWeekdayは1:Sunday, 2:Monday….となっており、多くのT imezoneがSundayであることが見てとれます。

自分が位置しているタイムゾーン「Asia/Tokyo」は2(=Monday)とありました。

ただし、実際にシステム環境設定で「言語と地域」をオープンしてみると、

system_resized.png

日曜日(Sunday)。個人的にも日曜日はじまりで違和感がありません。はて?

ちなみに、1週間の開始曜日は海外のクライアントと仕事をするうえで、(日本の日常会話における)天気の話なみに重要な項目です。「常識」が常識ではないことの確認を行うことは重要です。

AppleScript名:主要なタイムゾーンのカレンダーの開始曜日を取得
– Created 2017-11-14 by Takaaki Naganoya
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
–http://piyocast.com/as/archives/4988

set currentCalendar to current application’s NSCalendar’s currentCalendar()
set knownTimeZoneNameList to current application’s NSTimeZone’s knownTimeZoneNames() as list

set fList to {}
repeat with i in knownTimeZoneNameList
  set j to contents of i
  (
currentCalendar’s setLocale:(current application’s NSLocale’s localeWithLocaleIdentifier:j))
  
  
set aTZ to (current application’s NSTimeZone’s timeZoneWithName:j)
  
set theComponents to (currentCalendar’s componentsInTimeZone:aTZ fromDate:(current application’s NSDate’s |date|()))
  
set tmpCalend to theComponents’s calendar()
  
set aFirstDay to (tmpCalend’s firstWeekday) as integer
  
set the end of fList to aFirstDay
end repeat

return fList –firstWeekday: 1=Sunday, 2=Monday

★Click Here to Open This Script 

2017/11/18 指定文字の花文字を取得 v1.2

OS内にインストールされているフォントのうち収録グリフ数が8,000以上のフォントから50個をリストアップして、各フォントで花文字を作成してCotEditor上に花文字で新規ドキュメントを作成するAppleScriptです。

注意:ただし、本ScriptはRetina Display未対応です

flowerchar3_resized.png

フォント50個に限定しているのは、大量にCotEditorでドキュメントを作成するとCotEditorのパフォーマンスが大幅に低下するためです(メモリの都合? 常識的な挙動なので問題ではありません。ドキュメントの開きすぎで)。

なお、OS内にインストールされているフォントの数が極端に少ない環境(条件に合致するフォントが50個ないとか)ではエラーになる可能性があります。

flowerchar2_resized.png

CotEditor上に50個の未保存のドキュメントができてしまうので、一括で破棄するAppleScriptを掲載しておきます。

2017-11-18-22_12_04.gif

tell application “CotEditor”
  tell every document
    close without saving
  end tell
end tell

★Click Here to Open This Script 

AppleScript名:指定文字の花文字を取得 v1.2
– Created 2017-11-18 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “AppKit”
–http://piyocast.com/as/archives/4984

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

set aString to “ぴ”

set fRes to getEveryFontPSNameANdGlyphsNum() of me
set theArray to current application’s NSArray’s arrayWithArray:fRes
set thePred to current application’s NSPredicate’s predicateWithFormat:“fontNum > 8000″
set bArray to (theArray’s filteredArrayUsingPredicate:thePred) as list
set cArray to items 1 thru 50 of bArray

repeat with i in cArray
  set aFontName to contents of i
  
set fRes to getHanamojiStr(18, fontName of aFontName, aString, 0.7, true) of me
  
makeNewCotEditorDoc(fRes) of me
end repeat

–花文字文字列を計算して返す
on getHanamojiStr(aFontSize, aFontName, aString, aThread, incFontName)
  if length of aString is not equal to 1 then return false
  
  
set aThreadShould to 768 * aThread
  
  
set fillColor to NSColor’s whiteColor –塗り色
  
set bString to aString & ” “
  
set anAssrStr to makeRTFfromParameters(bString, aFontName, aFontSize, -2, (aFontSize * 1.2)) of me
  
set aSize to anAssrStr’s |size|()
  
  
if class of aSize = record then
    set attrStrWidth to width of aSize
    
set attrStrHeight to height of aSize
  else if class of aSize = list then –macOS 10.13.xのバグ回避
    copy aSize to {attrStrWidth, attrStrHeight}
  end if
  
  
set {xPos, yPos} to {0, 0}
  
  
–下地の画像を作成
  
set tmpImg1 to makeImageWithFilledColor(attrStrWidth, attrStrHeight, fillColor) of me
  
  
–下地の画像の上にAttributed Stringを描画
  
set tmpImg2 to drawAttributedStringsOnImage(tmpImg1, anAssrStr, xPos, yPos) of me
  
  
–NSImageからRaw画像を作成
  
set aRawimg to NSBitmapImageRep’s imageRepWithData:(tmpImg2’s TIFFRepresentation())
  
  
–画像から順次指定座標の色データを拾って花文字listに反映
  
set strList to {}
  
repeat with y from 1 to attrStrHeight - 1
    
    
set strListX to {}
    
repeat with x from 0 to attrStrWidth - 1
      set tmpCol to getColorFromRawImage(aRawimg, x, y) of me
      
      
if tmpCol is not equal to false then
        if tmpCol is not equal to {255, 255, 255} then
          copy tmpCol to {tmpR, tmpG, tmpB}
          
if (tmpR + tmpG + tmpB) < aThreadShould then
            set the end of strListX to aString
          else
            set the end of strListX to “ ”
          end if
        else
          set the end of strListX to “ ”
        end if
      end if
      
    end repeat
    
set the end of strList to strListX
  end repeat
  
  
–2D List→Text
  
set aRes to list2dToStringByUsingDelimiters(strList, “ ”, return) of me
  
  
if incFontName = true then
    set fName to getDisplayedNameOfFont(aFontName) of me
    
set aRes to “■” & fName & return & return & aRes
  end if
  
  
return aRes
end getHanamojiStr

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

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

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

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

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

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

on getEveryFontPSNameANdGlyphsNum()
  set aFontList to NSFontManager’s sharedFontManager()’s availableFonts()
  
set thePred to NSPredicate’s predicateWithFormat:“NOT SELF BEGINSWITH ’.’”
  
set aFontList to (aFontList’s filteredArrayUsingPredicate:thePred) as list
  
  
set aList to {}
  
repeat with i in aFontList
    set aName to contents of i
    
set aNum to countNumberOfGlyphsInFont(aName) of me
    
set the end of aList to {fontName:aName, fontNum:aNum}
  end repeat
  
  
return aList
end getEveryFontPSNameANdGlyphsNum

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

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

on makeNewCotEditorDoc(aCon)
  tell application “CotEditor”
    set newDoc to make new document
    
tell newDoc
      set contents to aCon
    end tell
  end tell
end makeNewCotEditorDoc

★Click Here to Open This Script 

2017/11/17 指定文字の花文字を取得 v1

指定文字の花文字を取得するAppleScriptです。

注意:ただし、本ScriptはRetina Display未対応です

hanamoji1.png

指定文字のStyledStringを作成して画像に描画し、各座標の色データを取得して判定しています。こんな処理がAppleScriptだけで記述できるようになったことは、素直に驚きです。

ブランクのNSImageにスタイル付きテキストで描画し、Raw画像の各座標からカラーデータを抽出して2D Listに反映させ、最終テキストに変換して0.1秒(MacBook Pro Retina 2012 Core i7 2.66GHz)ぐらいです。色ピックアップ部分がオーバーヘッドになっていると思います。

AppleScript名:指定文字の花文字を取得 v1.1.1
– Created 2017-11-16 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “AppKit”
–http://piyocast.com/as/archives/4843

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

set aString to “長”
set fRes to getHanamojiStr(24, “HiraginoSans-W0″, aString) of me

–花文字文字列を計算して返す
on getHanamojiStr(aFontSize, aFontName, aString)
  if length of aString is not equal to 1 then return false
  
  
set fillColor to NSColor’s whiteColor –塗り色
  
set bString to aString & ” “
  
set anAssrStr to makeRTFfromParameters(bString, aFontName, aFontSize, -2, (aFontSize * 1.2)) of me
  
set aSize to anAssrStr’s |size|()
  
  
if class of aSize = record then
    set attrStrWidth to width of aSize
    
set attrStrHeight to height of aSize
  else if class of aSize = list then –macOS 10.13.xのバグ回避
    copy aSize to {attrStrWidth, attrStrHeight}
  end if
  
  
set {xPos, yPos} to {0, 0}
  
  
–下地の画像を作成
  
set tmpImg1 to makeImageWithFilledColor(attrStrWidth, attrStrHeight, fillColor) of me
  
  
–下地の画像の上にAttributed Stringを描画
  
set tmpImg2 to drawAttributedStringsOnImage(tmpImg1, anAssrStr, xPos, yPos) of me
  
  
–NSImageからRaw画像を作成
  
set aRawimg to NSBitmapImageRep’s imageRepWithData:(tmpImg2’s TIFFRepresentation())
  
  
–画像から順次指定座標の色データを拾って花文字listに反映
  
set strList to {}
  
repeat with y from 2 to attrStrHeight - 2
    set strListX to {}
    
repeat with x from 0 to attrStrWidth - 1
      set tmpCol to getColorFromRawImage(aRawimg, x, y) of me
      
      
if tmpCol is not equal to false then
        if tmpCol is not equal to {255, 255, 255} then
          copy tmpCol to {tmpR, tmpG, tmpB}
          
if (tmpR + tmpG + tmpB) < 500 then
            set the end of strListX to aString
          else
            set the end of strListX to “ ”
          end if
        else
          set the end of strListX to “ ”
        end if
      end if
      
    end repeat
    
set the end of strList to strListX
  end repeat
  
  
–2D List→Text
  
set aRes to list2dToStringByUsingDelimiters(strList, “ ”, return) of me
  
return aRes
end getHanamojiStr

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

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

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

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

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

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

★Click Here to Open This Script 

2017/11/16 指定UTIでUTIを入れたリストをフィルタリング

指定のUTI(Uniform Type Identifier)で、UTIを入れたリストをフィルタリングするAppleScriptです。

UTIはデータのタイプを一意に識別する文字列で、「ざっくりとしたデータ区分」から「詳細なデータ区分」まで階層的に表現できます。AppleScriptではchoose fileコマンドに「of type」のオプションがあり、ここにUTIを記述する・・・という程度のつながり。JPEG画像のみ、PDFのみファイル一覧ダイアログに表示、といった「詳細なデータ型の抽出」機能が用いられてきました。

ただ、UTI自体はもうちょっと便利な概念なので、AppleScriptでもCocoaの機能やSpotlightの機能を日常的に利用するようになってきた今日においては、より活用すべき仕組みです。

たとえば、 “public.mp3″とUTIを指定したらMP3データしか対象になりませんが、より上位の概念を示す”public.audiovisual-content”と指定すれば、さまざまな形式のオーディオ、ビデオのデータファイルが対象になります。

こうしたUTIの概念ツリーを使って「このカテゴリに含まれるデータ型はどれ?」といった演算が手軽にできるようになっているため、調べてまとめておきました(探すのには苦労しましたけれど)。

本Scriptでは、 峪慊蠅靴UTi」に含まれるものを◆UTIのリスト」から抽出します。爬虫類に含まれるものをトカゲ、ヘビ、カエルのリストに対して抽出すると、トカゲとヘビが返ってくるような感じです。

ちなみに、ファイル拡張子からUTIを求める機能はShane StanleyのAppleScript Libraries「Bridge Plus」が提供しています。

AppleScript名:指定UTIでUTIを入れたリストをフィルタリング
– Created 2017-11-03 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
–http://piyocast.com/as/archives/4978

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

set aList to {“public.jpeg”, “com.compuserve.gif”, “public.svg-image”, “public.plain-text”, “com.apple.iwork.keynote.key”, “com.apple.iwork.pages.pages”, “com.apple.iwork.numbers.numbers”, “com.microsoft.word.doc”, “com.microsoft.excel.xls”, “com.microsoft.powerpoint.ppt”, “com.apple.mail.email”, “com.apple.applescript.script”, “com.apple.applescript.text”, “public.html”, “com.apple.property-list”, “public.zip-archive”, “public.au-audio”, “com.apple.m4a-audio”, “com.apple.m4v-video”}

set aRes to filterUTIList(aList, “public.text”)
–>  {”public.plain-text”, “com.apple.applescript.script”, “com.apple.applescript.text”, “public.html”}

set bRes to filterUTIList(aList, “public.image”)
–>  {”public.jpeg”, “com.compuserve.gif”, “public.svg-image”}

set cRes to filterUTIList(aList, “public.audiovisual-content”)
–>  {”public.au-audio”, “com.apple.m4a-audio”, “com.apple.m4v-video”}

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 

2017/11/14 相対パスから絶対パスを計算して求める v2

相対パスから絶対パスを計算して求める( 峇霆爐箸覆訐簑丱僖后廚鮓気豊◆嵳燭┐蕕譴秦蠡丱僖后廚鬮「絶対パス」に変換する)AppleScriptです。

Markdown書類にリンクした画像のリンク切れチェックを行う必要があり、あまり考えずに作ってみました。

Markdown書類中にリンクした画像は相対パスでリンク先を記述しています。リンクについては指定画像を画像専用フォルダにコピーして相対パスを求め、リンクタグをクリップボードに入れるAppleScriptを書いて(リンクを)記述しています。

このとき、Markdown書類群のフォルダ階層構造を維持していればリンク切れは起こりませんが、一応チェックしておきたいのが人情。

そこで、チェック用のScriptを書いておくことに。だいたいはありあわせのサブルーチンを組み合わせることでSpotlight経由のMarkdown書類の検索や正規表現によるMarkdown中の画像リンク箇所の抽出など、たいした手間もかけずに記述できます。

ただ、Markdown書類のパス(絶対パス)をもとに、書類中に書かれている相対パスから実際にリンク画像が存在している絶対パスを求めるサブルーチンが存在していませんでした(OS側に用意されていてもよさそうなものですが)。

そこで、本ルーチンを書いて使ってみました。とくに問題もなく使えています。

AppleScript名:相対パスから絶対パスを計算して求める v2
– Created 2017-11-11 by Takaaki Naganoya
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
–http://piyocast.com/as/archives/4976

set absolutePath to “/Users/me/Documents/–Book 1「AppleScript最新リファレンス バージョン2」/5000 iOSデバイスとの連携/5100 iOSデバイスからMacに画面を出力するAirServer.md”
set relativePath to “../9999_images/img-1.jpeg”

set relativePath to calcAbsolutePath(absolutePath, relativePath) of me
–>  ”/Users/me/Documents/–Book 1「AppleScript最新リファレンス バージョン2」/9999_images/img-1.jpeg”

on calcAbsolutePath(aAbsolutePOSIXfile, bRelativePOSIXfile)
  set aStr to current application’s NSString’s stringWithString:aAbsolutePOSIXfile
  
set bStr to current application’s NSString’s stringWithString:bRelativePOSIXfile
  
  
set aList to aStr’s pathComponents() as list
  
set bList to bStr’s pathComponents() as list
  
  
set aLen to length of aList
  
  
set aCount to 1
  
repeat with i in bList
    set j to contents of i
    
if j is not equal to “..” then
      exit repeat
    end if
    
set aCount to aCount + 1
  end repeat
  
  
set tmp1List to items 1 thru (aLen - aCount) of aList
  
set tmp2List to items aCount thru -1 of bList
  
  
set allRes to current application’s NSString’s pathWithComponents:(tmp1List & tmp2List)
  
  
return allRes as text
end calcAbsolutePath

★Click Here to Open This Script 

2017/11/11 1Dリスト中の最も近い値を返す

1次元配列(1D List)に入っている数値のうち、パラメータの数値が最も近いものを返すAppleScriptです。

1D Listに入っている数値の刻み幅が一定でない場合(人間には見た目がすっきりしていても刻み幅が一定でないなど)に、最も近い値のものを自動でピックアップすることを目的としています。

AppleScript名:1Dリスト中の最も近い値を返す
– Created 2017-11-11 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.5″
use scripting additions
use framework “Foundation”
–http://piyocast.com/as/archives/4971
property NSArray : a reference to current application’s NSArray

set aList to {50, 30, 20, 15, 10, 5, 0}

set targNum to retNearestNumInList(7, aList) of me
–>  5

set targNum to retNearestNumInList(100, aList) of me
–> 50

on retNearestNumInList(aNum, aList as list)
  set anNSArray to NSArray’s arrayWithArray:aList
  
set bList to (anNSArray’s sortedArrayUsingSelector:“compare:”) as list
  
set aPreNum to 0
  
  
repeat with i in bList
    set j to contents of i
    
if j aNum then
      exit repeat
    end if
    
set aPreNum to j
  end repeat
  
  
return aPreNum
end retNearestNumInList

★Click Here to Open This Script 

2017/11/10 選択した画像を画像フォルダにコピーして、Markdown書式で画像パスタグをクリップボードに転送 v2

指定の画像を、書いている書籍の画像フォルダにコピーして、作成中のMarkdown書類からの相対パスを求めてMarkdown形式の画像リンクタグをクリップボードに転送するAppleScriptです。

md1.png

書籍の執筆作業は、「–」ではじまる名前の書籍ルートフォルダ以下に章ごとのフォルダを作成し、その中にMarkdown書類やPages書類を入れています。

画像については各原稿と同じフォルダ内ではなく、画像専用フォルダに配置(一般的なWebサイトの管理と同じ)。各Markdown書類には画像専用フォルダへの相対パスで画像リンクタグを入れています。

![md1.png](../9999_images/md1.png)

md2.png

本AppleScriptは、この書籍中の書籍中の画像専用フォルダに指定画像をコピーし、クリップボードに対して画像の相対パスを入れます。

書籍ルートフォルダ以下の画像専用フォルダを検索するためにSpotlight検索用の「MetaData Lib」を使用しています。

ファイルコピー時には画像専用フォルダ内のすべてのファイル名をチェックし、ファイル名の重複が発生していた場合にはファイル名末尾に連番をつけ、重複を回避しています。

前提としているMarkdownエディタは「MacDown」で、最前面の書類のパスを取得する部分でMacDownの機能を用いています。ただ、その程度の機能しか利用していないので、他のMarkdownエディタ用に転用するのも難しくないと思います(MarkdownエディタでAppleScriptに対応しているものが少数派なんですが)。

以前はMarkdown書類中にリンクする画像はDropboxにREST API経由でアップロードしてURLを用いていました。アップロード自体はそれなりですが、Markdown書類のオープン時や編集中、PDF出力時などは遅くて辟易しました。画像がローカルにあったほうが速度的なメリットが大きいと判断し、変更しました。

AppleScript名:選択した画像を画像フォルダにコピーして、Markdown書式で画像パスタグをクリップボードに転送 v2
– Created 2017-11-09 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use mdLib : script “Metadata Lib” version “1.0.0″
–http://piyocast.com/as/archives/4968

property NSOrderedSame : a reference to current application’s NSOrderedSame
property NSFileManager : a reference to current application’s NSFileManager
property NSString : a reference to current application’s NSString

set imgPath to choose file of type {“public.image”}
set imgPOSIX to NSString’s stringWithString:(POSIX path of imgPath)
set imgFileName to (imgPOSIX’s lastPathComponent()) as string

–Get Front Document Path
tell application “MacDown”
  set dList to every document
  
if length of dList = 0 then
    display dialog “No Documents…” buttons {“OK”} default button 1
    
return
  end if
  
  
tell front document
    set aProp to properties
  end tell
  
  
set aPOSIXpath to POSIX path of ((file of aProp) as alias)
end tell

–Calculate Parent Book Folder Path
set aStr to NSString’s stringWithString:aPOSIXpath
set bStr to aStr’s stringByDeletingLastPathComponent()
set aList to bStr’s pathComponents() as list
–> {”/”, “Users”, “me”, “Documents”, “ぴよまるソフトウェア”, “書籍執筆関連、技術書典など”, “書籍原稿”, “–Book 1「AppleScript最新リファレンス」”, “5000 iOSデバイスとの連携”}

set bList to reverse of aList
–> {”5000 iOSデバイスとの連携”, “–Book 1「AppleScript最新リファレンス」”, “書籍原稿”, “書籍執筆関連、技術書典など”, “ぴよまるソフトウェア”, “Documents”, “me”, “Users”, “/”}

–Find Book Folder Root which name begins with “–”
set aCount to 1
set hitF to false
repeat with i in bList
  set j to contents of i
  
if j begins with “–” then –”–”ではじまる親フォルダを書籍のルートフォルダとみなす
    set hitF to true
    
exit repeat
  end if
  
set aCount to aCount + 1
end repeat

if hitF = false then
  display dialog “Folder structure error” buttons {“OK”} default button 1 with icon 1
  
return
end if

set cList to items 1 thru ((length of aList) - aCount + 1) of aList
set cStr to (NSString’s pathWithComponents:cList) as string

–Find Image folder in Book root folder
set theFolders to mdLib’s searchFolders:{cStr} searchString:“kMDItemContentType == [c]%@ && kMDItemFSName contains [c]%@” searchArgs:{“public.folder”, “_images”}

set theTargFol to contents of first item of theFolders
–> “/Users/me/Documents/ぴよまるソフトウェア/書籍執筆関連、技術書典など/書籍原稿/–Book 1「AppleScript最新リファレンス」/9999_images”

set newPath to ((NSString’s stringWithString:theTargFol)’s stringByAppendingPathComponent:imgFileName) as string
set newPath2 to chkExistPOSIXpathAndIncrementChildNumber(newPath) of me

–ファイルコピー
set aRes to my copyFileAt:imgPOSIX toFilePath:newPath2

–Markdown書類とコピーした画像ファイルの相対パスを計算する
set relativePath to calcRelativePath(aPOSIXpath, newPath2) of me

set allText to “![” & imgFileName & “](” & relativePath & “)”
–> “![img-2.php.jpeg](../9999_images/img-2.php.jpeg)”

set the clipboard to allText

–POSIX path stringを与えると、ファイル名の重複を検出して、ファイル名の名称回避を行って、ファイル名のみを返す
on chkExistPOSIXpathAndIncrementChildNumber(a)
  set aStr to NSString’s stringWithString:a
  
set bStr to aStr’s lastPathComponent()
  
set cStr to (bStr’s pathExtension()) as string
  
set dStr to (bStr’s stringByDeletingPathExtension()) as string
  
set eStr to (aStr’s stringByDeletingLastPathComponent()) as string
  
  
set aManager to NSFileManager’s defaultManager()
  
set aRes to (aManager’s fileExistsAtPath:aStr) as boolean
  
if aRes = false then return a
  
  
set hitF to false
  
repeat with i from 1 to 65535
    set tmpPath to (eStr & “/” & dStr & “_” & (i as string) & “.” & cStr)
    
set tmpStr to (NSString’s stringWithString:tmpPath)
    
set aRes to (aManager’s fileExistsAtPath:tmpStr) as boolean
    
set bRes to ((tmpStr’s caseInsensitiveCompare:eStr) is not equal to (NSOrderedSame)) as boolean
    
    
if {aRes, bRes} = {false, true} then
      set hitF to true
      
exit repeat
    end if
  end repeat
  
  
if hitF = false then return false
  
  
–ファイルパス(フルパス)からファイル名部分を取得
  
set returnFileName to tmpStr’s lastPathComponent()
  
return (returnFileName as string)
  
end chkExistPOSIXpathAndIncrementChildNumber

–ファイルコピー
on copyFileAt:origPOSIXPath toFilePath:newPOSIXPath
  set POSIXPath1 to NSString’s stringWithString:origPOSIXPath
  
set POSIXPath2 to NSString’s stringWithString:newPOSIXPath
  
set fileManager to NSFileManager’s defaultManager()
  
set theResult to fileManager’s copyItemAtPath:POSIXPath1 toPath:POSIXPath2 |error|:(missing value)
  
return (theResult as integer = 1)
end copyFileAt:toFilePath:

–2つのPOSIX pathの相対パスを計算する
on calcRelativePath(aPOSIXfile, bPOSIXfile)
  set aStr to NSString’s stringWithString:aPOSIXfile
  
set bStr to NSString’s stringWithString:bPOSIXfile
  
  
set aList to aStr’s pathComponents() as list
  
set bList to bStr’s pathComponents() as list
  
  
set aLen to length of aList
  
set bLen to length of bList
  
  
if aLen bLen then
    copy aLen to aMax
  else
    copy bLen to aMax
  end if
  
  
repeat with i from 1 to aMax
    set aTmp to contents of item i of aList
    
set bTmp to contents of item i of bList
    
    
if aTmp is not equal to bTmp then
      exit repeat
    end if
  end repeat
  
  
set bbList to items i thru -1 of bList
  
set aaItem to (length of aList) - i
  
  
set tmpStr to {}
  
repeat with ii from 1 to aaItem
    set the end of tmpStr to “..”
  end repeat
  
  
set allRes to NSString’s pathWithComponents:(tmpStr & bbList)
  
return allRes as text
end calcRelativePath

★Click Here to Open This Script 

2017/11/09 指定フォルダ内のOSAXのSDEFファイルを指定フォルダに書き出す

指定フォルダ内のOSAX(Scripting Additions)のAppleScript用語辞書(sdef)のファイルを指定フォルダに書き出すAppleScriptです。

大昔のClassic Mac OS時代の(68kのバイナリが入っている)OSAXのAppleScript用語辞書の内容を最新のmacOS環境でファイルとして書き出せる、というなかなかに「お前以外に誰が使うんだ?」という内容ですが、割とトンでもない破壊力のあるものです。

sdef1.png

Classic Mac OS時代のScripting Additionsを資料としてとってありますが、これらのAppleScript用語辞書はaeteリソース内に書かれていました(この画面↓はClassic Mac OSエミュレータの「SheepShaver」で起動した漢字Talk 8.6上のスクリプトエディタ。ResEditを探したものの仮想マシン内にみつかりませんでした)。

classic_osax_resized.png

これらの用語辞書は現行のmacOSのスクリプトエディタでもオープンして内容を確認できます。

sdef4_resized.png

さらに、用語辞書のウィンドウ上部のプロキシーアイコンをCommand-クリックすると、テンポラリディレクトリ内に用語辞書(sdef)が書き出されていることを確認できます。

sdef5_resized.png

ということは、この用語辞書(sdef)のパスを求めると、コピーして保管しておくことが可能だということがわかります。

実行してOSAXの入っているフォルダ、書き出しフォルダを指定すると、

sdef2.png

sdefを書き出してくれます。

sdef3_resized.png

ResEdit(死語)でオープンしなくても、sdefなら単なるテキストなので、内容を参照することもかんたんです。

1回実行したら2度目はなさそうな内容なので、ほとんど書き捨てな内容です。途中、スクリプト用語辞書を参照できないOSAXもあったりで、オープン時にエラーダイアログが表示されたりしますが、そこは自分でOKボタンをクリックして回避する必要があります。

AppleScript名:指定フォルダ内のOSAXのSDEFファイルを指定フォルダに書き出す
– Created 2017-11-09 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
–http://piyocast.com/as/archives/4961

set a to choose folder with prompt “Original Classic OSAX folder”
set aExportFol to choose folder with prompt “SDEF export folder”

tell application “Finder”
  set aList to (every file of a) as alias list
end tell

repeat with i in aList
  set aRes to saveOSAXsdef(contents of i, aExportFol) of me
  
if aRes = false then
    log i
  end if
end repeat

on saveOSAXsdef(a, aExportFol)
  set aInfo to info for a
  
set aKind to kind of aInfo
  
  
if aKind is in {“スクリプティング機能追加”, “Scripting addition”} then –Scripting Addirions (*Localized*)
    try
      tell application “Script Editor”
        try
          set aDoc to open a
        on error
          return
        end try
        
        
tell front document
          set aPath to path
        end tell
      end tell
    on error
      return false
    end try
    
    
set aExpPOS to (POSIX path of aExportFol)
    
    
–ファイルをコピー
    
set aRes to my copyFileAt:aPath toFolder:aExpPOS
  else
    return false
  end if
  
  
tell application “Script Editor”
    close every document without saving
  end tell
  
return true
end saveOSAXsdef

on copyFileAt:POSIXPath toFolder:folderPath
  set POSIXPath to current application’s NSString’s stringWithString:POSIXPath
  
set folderPOSIXPath to current application’s NSString’s stringWithString:folderPath
  
– build path for new file
  
set theName to POSIXPath’s lastPathComponent()
  
set newPath to folderPOSIXPath’s stringByAppendingPathComponent:theName
  
set fileManager to current application’s 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 

2017/11/07 1D Listから重複項目のみ抽出 v2

1D List(1次元配列)中における重複項目のみをリストアップするAppleScriptです。

Pure AppleScriptでもよく書く内容ですが(書き捨てレベル)、Cocoaの機能を利用するとこんな感じでしょうか。Predicates文で表記できそうな気もするのですが、、、、

AppleScript名:1D Listから重複項目のみ抽出 v2
– Created 2017-11-07 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
–http://piyocast.com/as/archives/4955

property NSCountedSet : a reference to current application’s NSCountedSet

set aList to {1, 2, 3, 4, 1, 2, 3, 4, 5, 1, 2, 3, 1, 2, 3, 8, 10, -2}
set aRes to returnDuplicatesOnly(aList) of me
–>  {1, 2, 3, 4}

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

★Click Here to Open This Script 

2017/11/05 オープン中のScriptをScptdで保存し直してオープン

Script Editorでオープン中のAppleScript書類をScript Bundle形式で保存して、オープンし直すAppleScriptです。

Script Menuから実行することを目的としたAppleScriptです。

bundlescript_resized.png

 (1)Script Editorの最前面のAppleScript書類の種類を判定
 (2)書類がscptであれば、同じフォルダにscptdとして保存
 (3)元のAppleScript書類をクローズ
 (4)Script Bundle書類をオープン

という動作を行います。(2)のさいにファイル名が衝突しないように、ファイル名末尾に連番をつけて回避しています。

作成中のScriptのバンドル内にファイルを入れたいがscpt形式で作成してしまっていた場合に、その場でバンドル形式に変更するためのツールです。

AppleScript名:オープン中のScriptをScptdで保存し直してオープン
– Created 2017-11-05 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
–http://piyocast.com/as/archives/4952

property NSFileManager : a reference to current application’s NSFileManager
property NSString : a reference to current application’s NSString
property NSOrderedSame : a reference to current application’s NSOrderedSame

tell application “Script Editor”
  set dCount to count every document
end tell

if dCount = 0 then
  display dialog “No Document”
  
return
end if

tell application “Script Editor”
  tell front document
    set docPath to path
  end tell
end tell

set newDocPath to determineFileNameWithExternalNumber(docPath, “scpt”, “scptd”) of me
if newDocPath = false then
  display dialog “Script is already script bundle”
  
return
end if

tell application “Script Editor”
  tell front document
    save in (POSIX file newDocPath) as “script bundle”
    
close
  end tell
  
  
open (POSIX file newDocPath) as alias
end tell

–オリジナルのファイルから拡張子を付け替えつつファイル名衝突回避(連番追加)
on determineFileNameWithExternalNumber(docPathPOSIX, oldExt, newExt)
  set curExt to getFileNameExtensionFromFullPath(docPathPOSIX) of me
  
set aManager to NSFileManager’s defaultManager()
  
  
if curExt = oldExt then
    set pathString to NSString’s stringWithString:docPathPOSIX
    
set newPath1 to pathString’s stringByDeletingPathExtension()
    
set newPath2 to newPath1’s stringByAppendingPathExtension:newExt
    
    
set aRes to (aManager’s fileExistsAtPath:newPath2) as boolean
    
set eStr to (pathString’s stringByDeletingLastPathComponent()) as string
    
set bRes to ((newPath2’s caseInsensitiveCompare:eStr) is not equal to (NSOrderedSame)) as boolean
    
    
if {aRes, bRes} = {false, true} then return (newPath2 as string)
    
    
set hitF to false
    
repeat with i from 1 to 65535
      set addingStr to “_” & (i as string) & “.” & newExt
      
set tmpPath to (newPath1’s stringByAppendingString:addingStr)
      
      
set aRes to (aManager’s fileExistsAtPath:tmpPath) as boolean
      
set bRes to ((tmpPath’s caseInsensitiveCompare:eStr) is not equal to (NSOrderedSame)) as boolean
      
if {aRes, bRes} = {false, true} then
        set hitF to true
        
exit repeat
      end if
    end repeat
    
    
if hitF = false then error “File name error”
    
return tmpPath as string
    
  else if curExt = newExt then
    return false
  end if
end determineFileNameWithExternalNumber

–ファイルパスから拡張子を取得する
on getFileNameExtensionFromFullPath(aPOSIXpath)
  set pathString to NSString’s stringWithString:aPOSIXpath
  
return (pathString’s pathExtension()) as string
end getFileNameExtensionFromFullPath

★Click Here to Open This Script 

2017/11/05 1D Listから指定要素のみを削除 v3

1次元配列(1D List)から指定要素を削除するAppleScriptのShane Stanleyによる改修版です。

自分の書いた前バージョンよりも「ちょっと効率的」(Shane談)に短くまとめられています。

とりあえず「こんなんあったらいいよね」「そんなに難しくないよね」というところから書いたものですが、自分でも書きながら非効率な部分がいろいろあるのは(変数内容の型チェック部分)自覚していました(汗)。

string/text/Unicode textはMac OS X 10.5以降では同じものとして扱われているので別々に判定する必要はないし、サブルーチンの宣言文部分ですでに型の強制は行っているので、二重にチェックする必要はありません。

最も注目すべきはPredicate文の書き方です。数値と文字列で場合分けしなくて済むというのは盲点でした(まだ、ちょっとPredicate文に慣れてないかも)。

AppleScript名:指定要素のみを削除(predicateでfilter) v3
– Created 2017-11-03 by Takaaki Naganoya
– Modified 2017-11-05 by Shane Stanley
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “AppKit”
–http://piyocast.com/as/archives/4951

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

set aList to {“Apple”, “Lemon”, “Aple”, “Lum”, “Apple”}
set aTarg to “Apple” –string
set rList to removeElementsFrom1DArray(aList, aTarg) of me
–>  {”Lemon”, “Aple”, “Lum”}

set bList to {1, 2, 3, 1, 5}
set bTarg to 1 –number
set rList to removeElementsFrom1DArray(bList, bTarg) of me
–>  {2, 3, 5}

set cList to {1, 2, 3, 1, 5}
set cTarg to {1, 2, 3} –list of number
set rList to removeElementsFrom1DArray(cList, cTarg) of me
–>  {5}

set dList to {“Apple”, “Lemon”, “Aple”, “Lum”, “Apple”}
set dTarg to {“Apple”, “Lemon”} –list of string
set rList to removeElementsFrom1DArray(dList, dTarg) of me
–>  {”Aple”, “Lum”}

on removeElementsFrom1DArray(aList as list, aTarg as {number, string, list})
  set anArray to NSArray’s arrayWithArray:aList
  
  
set aClass to class of aTarg
  
if aClass = list then
    set thePred to NSPredicate’s predicateWithFormat_(“NOT SELF IN %@”, aTarg)
  else
    set thePred to NSPredicate’s predicateWithFormat_(“SELF != %@”, aTarg)
  end if
  
  
set bList to (anArray’s filteredArrayUsingPredicate:thePred) as list
  
  
return bList
end removeElementsFrom1DArray

★Click Here to Open This Script 

2017/11/04 1D Listから指定要素のみを削除 v2

1次元配列(1D List)から指定要素を削除するAppleScriptです。

パラメータ(削除対象)は、数値、文字、数値のlist、文字のlistで指定できます。

ただし、各種アプリケーションのオブジェクトを入れて処理することはできないので、注意が必要です。

AppleScript名:指定要素のみを削除(predicateでfilter) v2
– Created 2017-11-03 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “AppKit”
–http://piyocast.com/as/archives/4950

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

set aList to {“Apple”, “Lemon”, “Aple”, “Lum”, “Apple”}
set aTarg to “Apple” –string
set rList to removeElementsFrom1DArray(aList, aTarg) of me
–>  {”Lemon”, “Aple”, “Lum”}

set bList to {1, 2, 3, 1, 5}
set bTarg to 1 –number
set rList to removeElementsFrom1DArray(bList, bTarg) of me
–>  {2, 3, 5}

set cList to {1, 2, 3, 1, 5}
set cTarg to {1, 2, 3} –list of number
set rList to removeElementsFrom1DArray(cList, cTarg) of me
–>  {5}

set dList to {“Apple”, “Lemon”, “Aple”, “Lum”, “Apple”}
set dTarg to {“Apple”, “Lemon”} –list of string
set rList to removeElementsFrom1DArray(dList, dTarg) of me
–>  {”Aple”, “Lum”}

on removeElementsFrom1DArray(aList as list, aTarg as {number, string, list})
  set anArray to NSArray’s arrayWithArray:aList
  
  
set aClass to class of aTarg
  
if aClass is in {string, text, Unicode text} then
    set aTarg to quoted form of aTarg
    
set thePred to NSPredicate’s predicateWithFormat:(“NOT SELF == “ & (aTarg as string))
  else if aClass is in {integer, number, real} then
    set thePred to NSPredicate’s predicateWithFormat:(“NOT SELF == “ & (aTarg as string))
  else if aClass = list then
    set thePred to NSPredicate’s predicateWithFormat_(“NOT SELF IN %@”, aTarg)
  else
    error “Illegal Parameter”
  end if
  
  
set bList to (anArray’s filteredArrayUsingPredicate:thePred) as list
  
  
return bList
end removeElementsFrom1DArray

★Click Here to Open This Script 

2017/11/03 1D Listから正規表現で抽出

1次元配列(1D List)から正規表現で抽出するAppleScriptです。

Pure AppleScriptだと、list(配列)からデータを抽出する場合には、

 (1)listの要素をループで条件判断して抽出
 (2)データの抽出機能を持つアプリケーションにインポートして抽出(FileMaker ProとかDatabase Eventsとか)

というやり方を用いる必要がありました。だいたいは(1)が使われてきたように(個人的に)感じます。GUIアプリケーションからデータを取得するような場合には、フィルタ参照であらかじめ選択データのしぼりこみを行っておくなどの「通信量、処理データ量を減らす」ための機能を活用するのも常套手段です。

AppleScriptがGUIアプリケーションとの間でやりとりを行うさいに用いられるAppleEventはプロセス間通信の一種であり、割と処理時間のかかる内容であるため、AppleScriptにおいてもGUIアプリケーションとの間のやりとりを減らす(=通信頻度、通信データ量を減らす)ことは処理速度の向上に寄与します。

しかし、macOS 10.10からCocoaの機能をAppleScriptのどのランタイム環境でも使えるようになったので、GUIアプリケーションに依存せずCocoaの機能を用いて、大量の要素を持つlistを(いったんNSArray/NSMutableArrayを経由して)高速に条件抽出できるようになりました。

単純な条件文で抽出できるほか、正規表現でも抽出できます。本サンプルはAppleのPredicate Programming Guide掲載サンプル(Objective-C)をAppleScriptに翻訳したものです。

AppleScript名:1D Listから条件抽出(正規表現1)
– Created 2017-11-03 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
–http://piyocast.com/as/archives/4949

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

set aList to {“TATACCATGGGCCATCATCATCATCATCATCATCATCATCATCACAG”, “CGGGATCCCTATCAAGGCACCTCTTCG”, “CATGCCATGGATACCAACGAGTCCGAAC”, “CAT”, “CATCATCATGTCT”, “DOG”}

set anArray to NSArray’s arrayWithArray:aList

set aPred to NSPredicate’s predicateWithFormat:“SELF MATCHES ’.*(CAT){3,}(?!CA).*’”
set bRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
–>  {”CATCATCATGTCT”}

★Click Here to Open This Script 

AppleScript名:1D Listから条件抽出(正規表現2)
– Created 2017-11-03 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
–http://piyocast.com/as/archives/4949

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

set aList to {“123456789X”, “9876x”, “987654321x”, “1234567890″, “12345X”, “1234567890X”, “999999999X”, “1111111111″, “222222222X”}

set anArray to NSArray’s arrayWithArray:aList

set aPred to NSPredicate’s predicateWithFormat:“SELF MATCHES ’\\\\d{10}|\\\\d{9}[Xx]’”
set bRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
–>  {”123456789X”, “987654321x”, “1234567890″, “999999999X”, “1111111111″, “222222222X”}

★Click Here to Open This Script 

2017/11/02 インストールされているフォントをdisplay nameからキーワード検索 v3

macにインストールされているフォントのdisplay nameからキーワード検索するAppleScriptのShane Stanleyによる高速版です。

  「さすがにFontBook検索より遅いのはダメでしょ」

というツッコミがShane Stanleyからあり、このコードがメールで届いたのでありました。

 FontBook.app:0.6 sec.
 AppleScriptObjc:0.2 sec.

と、このぐらいだと納得できる感じでしょう。

私にはこの、

 NSFontManager’s sharedFontManager()’s availableFonts()

というメソッドを見つけ切れなかったので(一番上に書いてあるのに ーー;)ああいう書き方をしましたが、NSFontManagerからavailableFontFamilies()を経由しないでavailableFonts()で一気に個別のフォント名を取得できれば、条件抽出も割と高速にできるわけです。

AppleScript名:インストールされているフォントをdisplay nameからキーワード検索 v3
– Created 2017-11-01 by Takaaki Naganoya
– Modified 2017-11-02 by Shane Stanley
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"
–http://piyocast.com/as/archives/4948

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

set fRes to getEveryFontContainsAQueryStr("Helvetica") of me
–>  {"Helvetica", "Helvetica-Bold", "Helvetica-BoldOblique", "Helvetica-Light", "Helvetica-LightOblique", "Helvetica-Oblique", "HelveticaNeue", "HelveticaNeue-Bold", "HelveticaNeue-BoldItalic", "HelveticaNeue-CondensedBlack", "HelveticaNeue-CondensedBold", "HelveticaNeue-Italic", "HelveticaNeue-Light", "HelveticaNeue-LightItalic", "HelveticaNeue-Medium", "HelveticaNeue-MediumItalic", "HelveticaNeue-Thin", "HelveticaNeue-ThinItalic", "HelveticaNeue-UltraLight", "HelveticaNeue-UltraLightItalic"}

set fRes to getEveryFontContainsAQueryStr("ことり") of me
–>  {"TheLittleBirdFONT", "kotorimojiFONT-TT"}

on getEveryFontContainsAQueryStr(queryName as string)
  set hitFontList to {}
  
set aFontList to NSFontManager’s sharedFontManager()’s availableFonts()
  
– filter out hidden fonts
  
set thePred to NSPredicate’s predicateWithFormat:"NOT SELF BEGINSWITH ’.’"
  
set aFontList to aFontList’s filteredArrayUsingPredicate:thePred
  
  
repeat with fontName in aFontList
    set aFont to (NSFont’s fontWithName:fontName |size|:16)
    
set aDispFontName to (aFont’s displayName()) as string
    
    
if aDispFontName contains queryName then
      set end of hitFontList to (fontName as text)
    end if
  end repeat
  
  
return hitFontList
end getEveryFontContainsAQueryStr

★Click Here to Open This Script 

2017/11/02 インストールされているフォントをdisplay nameからキーワード検索 v2

macにインストールされているフォントのdisplay nameからキーワード検索するAppleScriptの修正版です。

最初に作成したものを(2年後に)FontBook.appを呼び出すAppleScriptと処理結果を比較したところ、ASOC版の方が間違っていたので修正してみました(たまたま実戦で使っていなかったので、それほど真剣に検証していなかったもよう)。

修正した結果、

 FontBook.app:0.6 sec.
 AppleScriptObjc:0.9 sec.

FontBook版よりも処理時間がかかっています。起動時にこうした「処理に時間がかかる計算」を行っておき、結果をキャッシュしておくことで「見た目の処理時間」を減らすことも可能でしょう。

AppleScript名:インストールされているフォントをdisplay nameからキーワード検索 v2
– Created 2015-08-27 by Takaaki Naganoya
– Modified 2017-11-01 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “AppKit”
–http://piyocast.com/as/archives/4947

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

set fRes to getEveryFontContainsAQueryStr(“Helvetica”) of me
–>  {”Helvetica”, “Helvetica-Oblique”, “Helvetica-Light”, “Helvetica-LightOblique”, “Helvetica-Bold”, “Helvetica-BoldOblique”, “HelveticaNeue”, “HelveticaNeue-Italic”, “HelveticaNeue-UltraLight”, “HelveticaNeue-UltraLightItalic”, “HelveticaNeue-Thin”, “HelveticaNeue-ThinItalic”, “HelveticaNeue-Light”, “HelveticaNeue-LightItalic”, “HelveticaNeue-Medium”, “HelveticaNeue-MediumItalic”, “HelveticaNeue-Bold”, “HelveticaNeue-BoldItalic”, “HelveticaNeue-CondensedBold”, “HelveticaNeue-CondensedBlack”}

set fRes to getEveryFontContainsAQueryStr(“ことり”) of me
–>  {”kotorimojiFONT-TT”, “TheLittleBirdFONT”}

on getEveryFontContainsAQueryStr(queryName as string)
  set aFontFamilyList to (NSFontManager’s sharedFontManager()’s availableFontFamilies()) as list
  
set hitFontList to {}
  
  
repeat with i in aFontFamilyList
    set aFontList to (current application’s NSFontManager’s sharedFontManager()’s availableMembersOfFontFamily:(i as string)) as list
    
set tmpList to {}
    
repeat with ii in aFontList
      copy ii to {tmpFontName, tmpFontStyle, tmpA, tmpB}
      
      
set aFont to (NSFont’s fontWithName:tmpFontName |size|:16)
      
set aDispFontName to (aFont’s displayName()) as string
      
      
if aDispFontName contains queryName then
        set hitFontList to hitFontList & tmpFontName
      end if
    end repeat
  end repeat
  
  
return hitFontList
end getEveryFontContainsAQueryStr

★Click Here to Open This Script 

2017/11/01 インストールされているフォントをdisplay nameからキーワード検索

macにインストールされているフォントのdisplay nameからキーワード検索するAppleScriptです。

FontBook.appで処理するのとくらべて、ほんの少し速いぐらいです(起動時間を考慮しなければ)。

 FontBook.app:0.6 sec.
 AppleScriptObjc:0.4 sec.

10回実行して平均処理時間が20%程度高速でした。

→ ASOC版はFontではなくFont Familyを検索していました。FontBookの処理の方が正しい内容です。修正版はこちら。

AppleScript名:インストールされているフォントをdisplay nameからキーワード検索
– Created 2015-08-27 by Takaaki Naganoya
– 2015 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “AppKit”
–http://piyocast.com/as/archives/4946

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

set fRes to getEveryFontContainsAQueryStr(“Helvetica”) of me
–>  {{”Helvetica”, “Helvetica”, “Helvetica”}, {”Helvetica Neue”, “Helvetica Neue”, “HelveticaNeue”}}

set fRes to getEveryFontContainsAQueryStr(“ことり”) of me
–>  {{”kotorimojiFONT TT”, “ことり文字ふぉんと等幅”, “kotorimojiFONT-TT”}, {”TheLittleBirdFONT”, “ことり文字ふぉんと”, “TheLittleBirdFONT”}}

on getEveryFontContainsAQueryStr(queryName)
  set aFontList to (NSFontManager’s sharedFontManager()’s availableFontFamilies()) as list
  
  
set hitList to {}
  
  
repeat with i in aFontList
    set aFont to (NSFont’s fontWithName:(i as string) |size|:16)
    
set aDispFontName to (aFont’s displayName()) as string
    
set aFontName to (aFont’s fontName()) as string
    
    
if aDispFontName contains queryName then
      set the end of hitList to {i as string, aDispFontName, aFontName}
    end if
  end repeat
  
  
return hitList
end getEveryFontContainsAQueryStr

★Click Here to Open This Script 

AppleScript名:インストールされているフォントをdisplay nameからキーワード検索(FontBook)
tell application “Font Book”
  set ffList1 to (name of every typeface whose displayed name contains “Helvetica”)
  
–> {”Helvetica Light”, “Helvetica”, “Helvetica Oblique”, “Helvetica Light Oblique”, “Helvetica Bold”, “Helvetica Bold Oblique”, “Helvetica Neue UltraLight”, “Helvetica Neue Thin”, “Helvetica Neue Medium”, “Helvetica Neue Light”, “Helvetica Neue”, “Helvetica Neue Italic”, “Helvetica Neue UltraLight Italic”, “Helvetica Neue Thin Italic”, “Helvetica Neue Medium Italic”, “Helvetica Neue Light Italic”, “Helvetica Neue Bold”, “Helvetica Neue Bold Italic”, “Helvetica Neue Condensed Black”, “Helvetica Neue Condensed Bold”}
  
  
set ffList2 to (name of every typeface whose displayed name contains “ことり”)
  
–> {”kotorimojiFONT-TT”, “TheLittleBirdFONT”}
end tell

★Click Here to Open This Script 

2017/10/31 Keynote書類内の画像サイズを縮小

指定フォルダ内に入っているKeynote書類を順次オープンして、書類内の画像サイズを縮小(最適化)するAppleScriptです。

GUI Scriptingを用いているため、システム環境設定.app>セキュリティとプライバシー>プライバシー>アクセシビリティでScript Editorに対してGUI Scripting(アプリケーションにコンピュータの制御を許可)をオンにしておく必要があります。

Keynoteに搭載されている機能のうち、AppleScript用語辞書を通じてAppleScript側に機能が解放されていることが望ましい機能の筆頭に、「ファイル」メニューに存在している「ファイルサイズを減らす」コマンドがあります。

Keynote書類にペーストされた画像素材を適正サイズに縮小することで、大幅に書類のファイルサイズを小さくすることができ、Keynote書類の数が増えてくるとSSDの容量節約にかなり効果的です。

keynote1_resized.png

ただ、AppleScript用語辞書に記載されていないので、非正規のルート(GUI Scripting)でメニューなどを操作して呼び出すことになります。

GUI Scriptingは強制的なメニュー(GUI部品)操作なので、コマンド実行の結果を受け取ることもできませんし、その結果として何かアプリケーション側がメッセージを返してきたとしても、受信できません。

keynote2_resized.png

そして、アプリケーションがSheetで結果を返すと、通常だとそこでアプリケーションの実行が止まるので、強引にシート上のボタンをクリックして(リターンキーを押して)表示を解除しています。

実行直後、メニュー項目を走査するので少々待たされます。オブジェクトへの参照をテキスト化してInfo.plist内部にでも登録しておくとよいでしょう。

AppleScript名:Keynote書類内の画像サイズを縮小
– Created 2017-10-01 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
–http://piyocast.com/as/archives/4945

property menuItemRef1 : missing value

–Select target folder which contains Keynote documents
set aFol to choose folder with prompt “Keynote書類の入っているフォルダを選択してください”

tell application “Finder”
  tell folder (aFol as string)
    –File Kind is localized. UTI is better
    
set kList to (every file whose kind is equal to “Keynoteプレゼンテーション”) as alias list
  end tell
end tell

if menuItemRef1 = missing value then
  –Application Name, Root File Menu Item, target menu item (Localized)
  
set menuItemRef1 to returnMenuItemRef(“Keynote”, “ファイル”, “ファイルサイズを減らす”) of me
  
–We can get these texts from .strings file
end if

repeat with i in kList
  set j to contents of i
  
  
tell application “Keynote”
    open j
  end tell
  
  
–「ファイル」>「ファイルサイズを減らす」コマンドが使えるかどうか確認
  
set aRes to checkReduceFileSizeCommandEnabled() of me
  
  
if aRes = true then
    –ファイルサイズを減らす
    
clickReduceFileSizeMenuViaGUIScripting() of me
    
    
–「この書類のファイルサイズは減らせません」シートが表示されているかどうかチェック
    
set aRes to chkSheetDialogAndDismissIt() of me
    
    
delay 1
    
    
–保存&クローズ
    
tell application “Keynote”
      close every document with saving
    end tell
  end if
end repeat

–「この書類のファイルサイズは減らせません」シートが表示されているかどうかチェック
on chkSheetDialogAndDismissIt()
  activate application “Keynote”
  
tell application “System Events”
    tell process “Keynote”
      tell window 1
        set sEXT to exists of sheet 1
      end tell
    end tell
  end tell
  
  
activate application “Keynote”
  
tell application “System Events”
    tell process “Keynote”
      if sEXT = true then
        –「この書類のファイルサイズは減らせません」シートが表示されていた場合
        
tell button 1 of sheet 1 of window 1
          keystroke return –なぜかクリックできない。ふしぎ
        end tell
      end if
    end tell
  end tell
  
  
return (not sEXT)
end chkSheetDialogAndDismissIt

–メニューから「ファイル」>「ファイルサイズを減らす」を実行
on clickReduceFileSizeMenuViaGUIScripting()
  activate application “Keynote”
  
tell application “System Events”
    tell process “Keynote”
      click menuItemRef1
    end tell
  end tell
end clickReduceFileSizeMenuViaGUIScripting

–「ファイル」>「ファイルサイズを減らす」が実行可能か確認
on checkReduceFileSizeCommandEnabled()
  activate application “Keynote”
  
tell application “System Events”
    tell process “Keynote”
      return (enabled of menuItemRef1)
    end tell
  end tell
end checkReduceFileSizeCommandEnabled

on returnMenuItemRef(appName, menubarMenuItem, lastMenuItemName)
  tell application “System Events”
    tell process appName
      set menuList to name of every menu of menu bar 1
      
set aMenuInd to offsetInList(menubarMenuItem, menuList) of me
    end tell
    
    
set aList to entire contents of (menu bar item aMenuInd of menu bar 1 of process appName)
    
    
repeat with i in aList
      set j to contents of i
      
try
        set aNameVal to value of attribute “AXTitle” of j
        
if (aNameVal = lastMenuItemName) then
          return j
        end if
      end try
    end repeat
  end tell
  
  
return false
end returnMenuItemRef

on offsetInList(aStr, aList)
  set anArray to current application’s NSArray’s arrayWithArray:aList
  
set aInd to (anArray’s indexOfObject:aStr)
  
if aInd = current application’s NSNotFound or (aInd as number) > 9.99999999E+8 then
    error “Invalid Character Error”
  else
    return (aInd as integer) + 1 –0 to 1 based index conversion
  end if
end offsetInList

★Click Here to Open This Script 

2017/10/30 Keynoteでオープン中の書類のページをPDFに書き出してオープン

Keynoteでオープン中の書類の現在表示中のページをPDFに書き出して、オープンするAppleScriptです。

Keynoteで仕様書などのおおきめの(ページ数の多い)書類を(修正や追記をしながら)開いていて、同時に複数のページを見ておく必要があるときに、現在のページのみPDFに書き出して表示させてみたものです。

指定のページのみPDFに書き出す機能はKeynoteに存在していないので、とりあえず書類をまるごとPDFに書き出して、現在表示中のページ以外を削除するようにしてみました。

AppleScript名:Keynoteでオープン中の書類のページをPDFに書き出してオープン
– Created 2017-10-30 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “Quartz”
–http://piyocast.com/as/archives/4942

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

tell application “Keynote”
  tell front document
    tell current slide
      set curPage to slide number
    end tell
    
    
set dtPath to ((path to desktop) as string) & (do shell script “uuidgen”) & “_” & (curPage as string) & “.pdf”
    
    
export to file dtPath as PDF
  end tell
end tell

set targAlias to (dtPath as alias)
set aRes to stripSpecificPageInPDF(targAlias, curPage) of me

tell application “Finder” to open targAlias

–指定PDFから指定ページを残して他を削除
on stripSpecificPageInPDF(inFileAlias, targPageNum)
  set inNSURL to |NSURL|’s fileURLWithPath:(POSIX path of inFileAlias)
  
set theDoc to PDFDocument’s alloc()’s initWithURL:inNSURL
  
  
set pRes to theDoc’s pageCount()
  
  
repeat with i from pRes to 1 by -1
    if i is not equal to targPageNum then
      (theDoc’s removePageAtIndex:(i - 1))
    end if
  end repeat
  
  
set aRes to (theDoc’s writeToURL:inNSURL) as boolean
  
  
return aRes
end stripSpecificPageInPDF

★Click Here to Open This Script 

2017/10/29 指定フォルダ以下の指定形式の書類のファイル名重複チェック

指定フォルダ以下の指定形式の書類をすべてもとめ、拡張子をはずしたファイル名に重複がないかチェックするAppleScriptです。

実行にはShane StanleyのAppleScript Libraries「Metadata Lib」(Spotlight検索)を必要とします。

filenames.png

指定フォルダ以下のすべてのファイルを、1つの出力フォルダに同一形式で書き出したような場合に、

 ・もともとは別フォルダに存在していた
 ・ファイル名は同じだが拡張子が違うために重複がわからなかった

ことが理由で、書き出し時にファイル名の衝突が発生するケースが(よく)あります。

その衝突チェックを事前に行う目的で作ったものです。以前にPure AppleScriptで(Cocoa呼び出しがサポートされていない時代に)作ってみたことがありますが、かなりおおがかりになっていました。

AppleScript名:指定フォルダ以下の指定形式の書類をすべてもとめて拡張子をはずしたファイル名に重複がないかチェック v2
– Created 2017-10-28 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use mdLib : script “Metadata Lib” version “1.0.0″
–http://piyocast.com/as/archives/4940

set docUTIList to {“net.daringfireball.markdown”, “com.apple.iwork.pages.sffpages”}
set origFol to (choose folder)
set dRes to detectDocNameDuplicateWithoutExt(origFol, docUTIList) of me
–> true / false

–origFolはaliasでもPOSIX pathでも可
on detectDocNameDuplicateWithoutExt(origFol, docTypeList as list)
  script spdMD
    property allResList : {}
  end script
  
  
set (allResList of spdMD) to {}
  
  
repeat with i in docTypeList
    set j to contents of i
    
set aResList to (mdLib’s searchFolders:{origFol} searchString:(“kMDItemContentTypeTree CONTAINS %@”) searchArgs:{j})
    
if aResList = missing value or aResList = {} then
      –Hitしなかった
    else
      set (allResList of spdMD) to (allResList of spdMD) & aResList
    end if
  end repeat
  
  
set aLen to length of contents of (allResList of spdMD)
  
if aLen = 0 then error “No match”
  
  
set anArray to current application’s NSArray’s arrayWithArray:(allResList of spdMD)
  
set aRes to anArray’s valueForKeyPath:“lastPathComponent.stringByDeletingPathExtension”
  
set b1Res to uniquify1DList(aRes as list, true) of me
  
set b1Len to length of b1Res
  
  
if aLen = b1Len then
    return true – No Duplicates
  else
    return false –Some duplicates
  end if
end detectDocNameDuplicateWithoutExt

–1D/2D Listをユニーク化
on uniquify1DList(theList as list, aBool as boolean)
  set aArray to current application’s NSArray’s arrayWithArray:theList
  
set bArray to aArray’s valueForKeyPath:“@distinctUnionOfObjects.self”
  
return bArray as list
end uniquify1DList

★Click Here to Open This Script 

2017/10/26 NumbersのRangeのnameの範囲から幅と高さを求める

Numbersのselection range(のname)の範囲(”A1:B12″とか)の幅と高さを求めるAppleScriptです。

本ScriptはNumbersの機能を使わないで書いてありますが、Numbersを利用できる環境および用途の場合にはNumbersを用いたほうが手軽でよいと思います。

AppleScript名:NumbersのRangeのnameの範囲から幅と高さを求める
– Created 2017-10-25 by Takaaki Naganoya
– 2017 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
–http://piyocast.com/as/archives/4924

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

set aData to “A2:B29″
set {aWidth, aHeight} to calcWidthAndHeightOfNumbersRange(aData) of me
–> {2, 28}

on calcWidthAndHeightOfNumbersRange(aData)
  set aList to parseByDelim(aData, “:”) of me
  
if length of aList is not equal to 2 then error “Invalid Parameter Error”
  
set calcList to {}
  
  
repeat with i in aList
    set j to contents of i
    
set aRes to returnAlphabetOnly(j) of me
    
set bRes to returnNumberOnly(j) of me
    
set a2Res to numbersAddrToDecimal(aRes) of me
    
set the end of calcList to {a2Res as integer, bRes as integer}
  end repeat
  
  
copy calcList to {{x1, y1}, {x2, y2}}
  
  
set xWidth to (x2 - x1) + 1
  
set yHeight to (y2 - y1) + 1
  
  
return {xWidth, yHeight}
end calcWidthAndHeightOfNumbersRange

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

on returnNumberOnly(aStr)
  set anNSString to NSString’s stringWithString:aStr
  
set anNSString to anNSString’s stringByReplacingOccurrencesOfString:“[^0-9]” withString:“” options:(NSRegularExpressionSearch) range:{0, anNSString’s |length|()}
  
return anNSString as text
end returnNumberOnly

on returnAlphabetOnly(aStr)
  set anNSString to NSString’s stringWithString:aStr
  
set anNSString to anNSString’s stringByReplacingOccurrencesOfString:“[^A-Za-z]” withString:“” options:(NSRegularExpressionSearch) range:{0, anNSString’s |length|()}
  
return anNSString as text
end returnAlphabetOnly

–Numbersの横方向アドレス(A〜Zの26進数)文字列を10進数に変換
on numbersAddrToDecimal(origStr)
  return aNthToDecimal(origStr, {“A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”}) of me
end numbersAddrToDecimal

–n進数文字列を10進数に変換する
on aNthToDecimal(origStr, nTh)
  set resNumber to 0
  
set sList to reverse of (characters of origStr)
  
set aLen to length of nTh
  
set digitCount to 0
  
  
repeat with i in sList
    set j to contents of i
    
set aRes to offsetInList(j, nTh) of me
    
    
if digitCount = 0 then
      set digitNum to 1
    else
      set digitNum to digitCount * aLen
    end if
    
    
set resNumber to resNumber + (aRes * digitNum)
    
set digitCount to digitCount + 1
  end repeat
  
  
return resNumber
end aNthToDecimal

on offsetInList(aChar, aList)
  set anArray to NSArray’s arrayWithArray:aList
  
set aInd to (anArray’s indexOfObject:aChar)
  
if aInd = current application’s NSNotFound or (aInd as number) > 9.99999999E+8 then
    return false
  else
    return (aInd as integer) + 1
  end if
end offsetInList

★Click Here to Open This Script