Archive for the 'NSNumber' Category

2016/07/28 Bookフォルダリネーム

書籍の原稿管理用のAppleScriptです。原稿は章ごとにフォルダ分けしており、

 9999 フォルダ名あるいはファイル名

といったように、仮想ノンブルを前に付けています。この仮想ノンブルで前後関係を制御しており、基本的に数字の大小だけが重要です。

whole.png

最後に1冊分PDFにまとめてビルドするAppleScriptで、書き出し対象のフォルダ以下のMarkdownファイルとPagesのファイルをピックアップし、ファイル名でソート。ソート順は仮想ノンブルによってコントロールされることになります。

Finderの並べ替えを使っているので、シンプルでわかりやすく、使い勝手もよいのですが……ただひとつ難点が。

途中にコンテンツを挿入したい場合にも仮想ノンブルでコントロールしつつ、途中に入るように操作するのですが……場合によってはフォルダおよび書類の仮想ノンブル部分だけリネームする必要が出てきます。

とくに、目下改定作業中の「AppleScript最新リファレンス」のコマンドリファレンス部分は、初版から大幅に改定・補充を行っているため、ひんぱんにリネームが発生して大変です(ーー;;

そこで、こんなScriptを組んでリネーム作業だけ自動化してみました。

Finder上でフォルダを選択して本Scriptを実行すると、選択中のフォルダ名から仮想ノンブルの番号を取得し、

before2.png

内包するフォルダに入っているファイルについても、すべて仮想ノンブル部分を書き換えます。

after2.png

AppleScript名:Bookフォルダリネーム
– Created 2016-07-28 by Takaaki Naganoya
– 2016 Piyomaru Software
use AppleScript version “2.4″
use framework “Foundation”
use scripting additions
# http://piyocast.com/as/archives/4177

set aStep to 10

tell application “Finder”
  set aSel to (selection as alias list)
end tell
if aSel = {} or aSel = “” then return
set aFol to first item of aSel

tell application “Finder”
  –選択中のフォルダの名称を取得
  
set aName to name of aFol
  
  
–選択中のフォルダに入っている書類を取得
  
tell folder (aFol as string)
    set fList to name of every file as alias list
  end tell
end tell

set {startNumStr, folderNameStr} to parseNumAndString(aName) of me
set startNum to startNumStr as integer

set aRes to sort1DListOrder(fList, true) of me –昇順でファイル名をソート

set aFolStr to aFol as string
set aCount to startNumStr
tell application “Finder”
  repeat with i in aRes
    set anAlias to (aFolStr & (i as string)) as alias
    
set tmpName to name of anAlias
    
    
set {curNum, curName} to parseNumAndString(tmpName) of me
    
set newName to (retZeroPaddingText(aCount, length of curNum) of me) & ” “ & curName
    
    
set name of anAlias to newName
    
    
set aCount to aCount + aStep
  end repeat
end tell

–文字列から先頭にあるとおぼしき数値と、スペースで区切られた後続の文字列を分離する
on parseNumAndString(aName)
  set aOffset to offset of ” “ in aName
  
if aOffset = 0 then error “Illigal Format”
  
set aNum to text 1 thru (aOffset - 1) of aName
  
set aText to text (aOffset + 1) thru -1 of aName
  
return {aNum, aText}
end parseNumAndString

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

on retZeroPaddingText(aNum as integer, aDigitNum as integer)
  if aNum > (((10 ^ aDigitNum) as integer) - 1) then return “” –Range Check
  
set aFormatter to current application’s NSNumberFormatter’s alloc()’s init()
  
aFormatter’s setUsesGroupingSeparator:false
  
aFormatter’s setAllowsFloats:false
  
aFormatter’s setMaximumIntegerDigits:aDigitNum
  
aFormatter’s setMinimumIntegerDigits:aDigitNum
  
aFormatter’s setPaddingCharacter:“0″
  
set aStr to aFormatter’s stringFromNumber:(current application’s NSNumber’s numberWithFloat:aNum)
  
return aStr as string
end retZeroPaddingText

★Click Here to Open This Script 

2016/02/10 ASOCでゼロパディング v2

Cocoaの機能を用いて数値に対して指定桁数でゼロパディングを行ってstringで返すAppleScriptの改良版です。

出力指定桁と指定桁から算出される最大値のオーバーチェックを付加しました。

AppleScript名:ASOCでゼロパディング v2
– Created 2016-02-09 by Takaaki Naganoya
– 2016 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”

set aNum to 4
set aRes to retZeroPaddingText(aNum, 5) of me
–>  ”00004″–OK

set aNum to 12345678
set aRes to retZeroPaddingText(aNum, 5) of me
–>  ”"–range over

on retZeroPaddingText(aNum as integer, aDigitNum as integer)
  if aNum > (((10 ^ aDigitNum) as integer) - 1) then return “” –Range Check
  
set aFormatter to current application’s NSNumberFormatter’s alloc()’s init()
  
aFormatter’s setUsesGroupingSeparator:false
  
aFormatter’s setAllowsFloats:false
  
aFormatter’s setMaximumIntegerDigits:aDigitNum
  
aFormatter’s setMinimumIntegerDigits:aDigitNum
  
aFormatter’s setPaddingCharacter:“0″
  
set aStr to aFormatter’s stringFromNumber:(current application’s NSNumber’s numberWithFloat:aNum)
  
return aStr as string
end retZeroPaddingText

★Click Here to Open This Script 

2016/02/09 ASOCでゼロパディング

Cocoaの機能を用いて数値に対して指定桁数でゼロパディングを行ってstringで返すAppleScriptです。

Pure AppleScriptに対して実行速度の面でさほどメリットがあるわけではありません。単なる練習です。

AppleScript名:ASOCでゼロパディング
– Created 2016-02-09 by Takaaki Naganoya
– 2016 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”

set aNum to 40
set aRes to retZeroPaddingText(aNum, 5) of me
–>  ”00040″

on retZeroPaddingText(aNum as integer, aDigitNum as integer)
  set offsetFormatter to current application’s NSNumberFormatter’s alloc()’s init()
  
–offsetFormatter’s setNegativeFormat:”-#####”
  
–offsetFormatter’s setPositiveFormat:”#####”
  
offsetFormatter’s setUsesGroupingSeparator:false
  
offsetFormatter’s setAllowsFloats:false
  
offsetFormatter’s setMaximumIntegerDigits:aDigitNum
  
offsetFormatter’s setMinimumIntegerDigits:aDigitNum
  
offsetFormatter’s setPaddingCharacter:“0″
  
set aStr to offsetFormatter’s stringFromNumber:(current application’s NSNumber’s numberWithFloat:aNum)
  
return aStr as string
end retZeroPaddingText

★Click Here to Open This Script 

2015/11/03 QuartzComposerを任意のパラメータで表示

QuartzComposerのCompositionを任意のパラメータでレンダリングして表示するAppleScriptです。

Appleのサンプルコードに、QuartzComposerでグラフ表示するもの(QuartzComposerChart)があり、ScriptとComposerの組み合わせについては以前から注目していました。

qcchart_resized.png

Xcode上のCocoa AppleScriptアプリケーションでは同様にCompositionを呼び出して表示できることは(未確認ながら)、可能と思っていましたが・・・Script Editor上のAppleScriptから呼び出して表示することは、自分の知り得るかぎり誰も実現していませんでした。

chart_as_resized.png
▲本ScriptからQuartzComposerのCompositionをパラメータ指定しつつ表示したところ。データにはとくに意味はありません

もともとのAppleのサンプルプロジェクト「QuartzComposerChart」の中身を分析してAppleScriptに置き換え、Compositionで作られたグラフのパラメータをいろいろいじくってみました。

comp1.png

params.png

Scriptのバンドル内に収めたQTZファイル(Composition)を参照しているため、QTZファイルを含んだAppleScriptバンドルを以下からダウンロードできるようにしておきました。興味のある方はお試しください(掲載リストから「★Click Here to Open This Script」をクリックしてScript Editorに転送しただけでは、グラフは表示されません)。

–> Download script bundle including Composition

AppleScript名:QuartzComoserでグラフ表示てすと
– Created 2015-11-03 by Takaaki Naganoya
– 2015 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”
use framework “Quartz”
use framework “AppKit”

set chartData to current application’s NSMutableArray’s alloc()’s init()
chartData’s addObject:(current application’s NSMutableDictionary’s dictionaryWithObjectsAndKeys_(“練馬区”, “label”, 3, “value”, missing value))
chartData’s addObject:(current application’s NSMutableDictionary’s dictionaryWithObjectsAndKeys_(“青梅市”, “label”, 1, “value”, missing value))
chartData’s addObject:(current application’s NSMutableDictionary’s dictionaryWithObjectsAndKeys_(“中野区”, “label”, 2, “value”, missing value))

try
  set aPath to path to resource “Chart.qtz”
on error
  return
end try

set qtPath to current application’s NSString’s stringWithString:(POSIX path of aPath)

set aView to current application’s QCView’s alloc()’s init()
set qtRes to (aView’s loadCompositionFromFile:qtPath)

aView’s setValue:chartData forInputKey:“Data”
aView’s setValue:(current application’s NSNumber’s numberWithFloat:(0.5)) forInputKey:“Scale”
aView’s setValue:(current application’s NSNumber’s numberWithFloat:(0.1)) forInputKey:“Spacing”
aView’s startRendering() –レンダリング開始

set maXFrameRate to aView’s maxRenderingFrameRate()

set aWin to (my makeWinWithView(aView, 800, 800, “Composition Test”))

repeat with i from 1 to 10
  (aView’s setValue:(current application’s NSNumber’s numberWithFloat:(i / 10)) forInputKey:“Scale”)
  
delay 0.1
end repeat

repeat with i from 10 to 1 by -1
  (aView’s setValue:(current application’s NSNumber’s numberWithFloat:(i / 10)) forInputKey:“Scale”)
  
delay 0.1
end repeat

my closeWin:aWin
aView’s stopRendering() –レンダリング停止

–make Window for Input
on makeWinWithView(aView, aWinWidth, aWinHeight, aTitle)
  set aScreen to current application’s NSScreen’s mainScreen()
  
set aFrame to {{0, 0}, {aWinWidth, aWinHeight}}
  
set aBacking to current application’s NSTitledWindowMask –NSBorderlessWindowMask
  
set aDefer to current application’s NSBackingStoreBuffered
  
  
– Window
  
set aWin to current application’s NSWindow’s alloc()
  (
aWin’s initWithContentRect:aFrame styleMask:aBacking backing:aDefer defer:false screen:aScreen)
  
aWin’s setBackgroundColor:(current application’s NSColor’s whiteColor())
  
  
aWin’s setTitle:aTitle
  
aWin’s setDelegate:me
  
aWin’s setDisplaysWhenScreenProfileChanges:true
  
aWin’s setHasShadow:true
  
aWin’s setIgnoresMouseEvents:false
  
aWin’s setLevel:(current application’s NSNormalWindowLevel)
  
aWin’s setOpaque:false
  
aWin’s setReleasedWhenClosed:true
  
aWin’s |center|()
  
aWin’s makeKeyAndOrderFront:(me)
  
  
– Set Custom View
  
aWin’s setContentView:aView
  
  
return aWin
  
end makeWinWithView

–close win
on closeWin:aWindow
  delay 5
  
repeat with n from 10 to 1 by -1
    (aWindow’s setAlphaValue:n / 10)
    
delay 0.02
  end repeat
  
aWindow’s |close|()
end closeWin:

★Click Here to Open This Script 

2015/08/12 ASOCで少数点以下の数値の切り上げ、切り下げ v2

Cocoaの機能を用いて、少数点以下の数値の四捨五入を行うAppleScriptです。

NSNumberFormatterRoundHalfUpで四捨五入ができるのを見つけて、実際にためしてみました。

AppleScript名:ASOCで少数点以下の数値の切り上げ、切り下げ v2
– Created 2015-08-12 by Takaaki Naganoya
– 2015 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”

set a to 10.511111
set a1Res to roundingAsTaughtInSchool(a, 1)
–>  10.5

set a2Res to roundingAsTaughtInSchool(a, 2)
–>  10.51

set b to 10.565111
set b1Res to roundingAsTaughtInSchool(b, 1)
–>  10.6

set b2Res to roundingAsTaughtInSchool(b, 2)
–>  10.57

on roundingAsTaughtInSchool(aNum, aDigit as integer)
  set a to aNum as real
  
set aFormatter to current application’s NSNumberFormatter’s alloc()’s init()
  
aFormatter’s setMaximumFractionDigits:aDigit
  
aFormatter’s setRoundingMode:(current application’s NSNumberFormatterRoundHalfUp)
  
set aStr to aFormatter’s stringFromNumber:(current application’s NSNumber’s numberWithFloat:a)
  
return (aStr as text) as real
end roundingAsTaughtInSchool

★Click Here to Open This Script 

2015/08/12 ASOCで少数点以下の数値の切り上げ、切り下げ

Cocoaの機能を用いて、少数点以下の数値の切り上げ、切り下げを行うAppleScriptです。

Pure AppleScriptでround命令ひとつで(正確にいえば、round aVal rounding as taught in schoolといった表現)四捨五入が行えるのに比べるとちょっと面倒な気がします。

AppleScript名:ASOCで少数点以下の数値の切り上げ、切り下げ
– Created 2015-08-12 by Takaaki Naganoya
– 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set a to 10.511111
set a1Res to roundingDown(a, 1)
–>  10.5

set a2Res to roundingDown(a, 2)
–>  10.51

set b to 10.565111
set b1Res to roundingUp(b, 1)
–>  10.6

set b2Res to roundingUp(b, 2)
–>  10.57

on roundingDown(aNum, aDigit as integer)
  set a to aNum as real
  
set aFormatter to current application’s NSNumberFormatter’s alloc()’s init()
  
aFormatter’s setMaximumFractionDigits:aDigit
  
aFormatter’s setRoundingMode:(current application’s NSNumberFormatterRoundDown)
  
set aStr to aFormatter’s stringFromNumber:(current application’s NSNumber’s numberWithFloat:a)
  
return (aStr as text) as real
end roundingDown

on roundingUp(aNum, aDigit as integer)
  set a to aNum as real
  
set aFormatter to current application’s NSNumberFormatter’s alloc()’s init()
  
aFormatter’s setMaximumFractionDigits:aDigit
  
aFormatter’s setRoundingMode:(current application’s NSNumberFormatterRoundUp)
  
set aStr to aFormatter’s stringFromNumber:(current application’s NSNumber’s numberWithFloat:a)
  
return (aStr as text) as real
end roundingUp

★Click Here to Open This Script 

2015/08/05 ASOCで数値を指定桁でゼロパディング

Cocoaの機能を用いて指定の数値を指定桁でゼロパディングするAppleScriptです。

ゼロパディング、ゼロサプレスともに定番中の定番処理で、

AppleScript名:ASでゼロパディング
set aStr to makeFN(99, 4)
–> “0099″

on makeFN(aNum, aDigit)
  set aText to “00000000000″ & (aNum as text)
  
set aLen to length of aText
  
set aRes to text (aLen - aDigit + 1) thru -1 of aText
  
return aRes
end makeFN

★Click Here to Open This Script 

こんな風に(↑)処理しています。Cocoaでやるとこんな感じ(↓)です。AppleScriptの数値表現の桁数が10桁程度なので、10桁を超える(実際には9桁で指数表示に)数値を処理する場合にメリットが出てくるところでしょうか。

AppleScript名:ASOCで数値を指定桁でゼロパディング
– Created 2015-08-05 by Takaaki Naganoya
– 2015 Piyomaru Software
use AppleScript version “2.4″
use scripting additions
use framework “Foundation”

set aTEXT to numToZeroPaddingStr(99, 4, “0″)
–>  ”0099″

set aTEXT to numToZeroPaddingStr(99999999, 20, “0″)
–> “00000000000099999999″

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

★Click Here to Open This Script 

2014/10/29 AppleScriptからASOCのソートルーチンを利用する上での注意事項

OS X 10.10で一般のAppleScriptとASOCを普通にまじえて記述できるようになったため、いろいろと試してみました。

すると、ソートについていろいろと注意すべき点がわかってきたのでまとめてみます。

文字列のソート順序が違う

ためしにさまざまな文字を与えて並び順を調べてみたら、微妙に違うことがわかりました。

テストデータとして、

set aList to {”ん”, “ば”, “は”, “ぱ”, “あ”, “ま”, “ぁ”, “ア”, “か”, “ァ”}

のようなデータを用意し、昇順ソートを指定した際に、

AS: {”あ”, “ァ”, “ぁ”, “ア”, “か”, “は”, “ば”, “ぱ”, “ま”, “ん”}
ASOC:{”あ”, “ぁ”, “ア”, “ァ”, “か”, “は”, “ば”, “ぱ”, “ま”, “ん”}

と、文字の並び順が微妙に異なります。ASOC側でもうちょっとソートのパラメータを指定すると結果が変わったりしてきそうですが、とりあえず現状はこんな感じです。

どちらかといえば、ASだけで行うソートの方に不自然さを感じるぐらいですし、いまどき半角カタカナでもないでしょうから無視できそうですが・・・問題は次です。

小数を含む数値リストをソートすると丸め誤差が出る

小数を含む数値のリスト、

set aList to {1, 1, 10, 0.1, 1.1, -1, -100}

をデータとして与えてソートしてみたところ、返ってきた結果は、

–> {-100, -1, 0.10000000149, 1, 1.100000023842, 10}

微妙に値が変わってしまいました

回避策についてはいろいろ調べていますが、(US AppleのAppleScript Users MLに久しぶりに投稿してShane Stanleyに教えてもらいました)小数の値を含む数値リストのやりとりをするのは得策ではなさそうな雰囲気です(いまのところ)。

少なくとも、ASから数値をASOCのハンドラに渡しただけでは変わらないようです。

いろいろ試してみたところ、ハンドラ側でNSNumberに変換して処理を行い、結果を戻すさいに「as number」とか「as real」とかで型変換して返すときに丸め誤差が出てしまう模様です。

数値のパラメータであれば、ASから数値をASOCハンドラに渡して、丸め誤差を出さずに返すことはできたのですが、リストに入れてしまうとお手上げの状態。

まだ、試行錯誤を行ってみる必要があるようです。

AppleScript名:asocで1D Listをソート
use AppleScript version “2.4″
use framework “Foundation”
use scripting additions

–昇順ソート(ASOC)
set aList to {“ん”, “ば”, “は”, “ぱ”, “あ”, “ま”, “ぁ”, “ア”, “か”, “ァ”}
set aRes to sort1DList_ascOrder_(aList, true)
–> {”あ”, “ぁ”, “ア”, “ァ”, “か”, “は”, “ば”, “ぱ”, “ま”, “ん”}

–降順ソート(ASOC)
set bRes to sort1DList_ascOrder_(aList, false)
–> {”ん”, “ま”, “ぱ”, “ば”, “は”, “か”, “あ”, “ぁ”, “ア”, “ァ”}

–昇順ソート(AppleScript)
set cRes to shellSortAscending(aList)
–> {”あ”, “ァ”, “ぁ”, “ア”, “か”, “は”, “ば”, “ぱ”, “ま”, “ん”}

–昇順ソート(AppleScript)
set dRes to shellSortDescending(aList)
–> {”ん”, “ま”, “ぱ”, “ば”, “は”, “か”, “ぁ”, “ア”, “あ”, “ァ”}

set aList to {“1″, “01″, “10″, “000.1″, “1.1″, “-1″, “-100″}
set aRes to sort1DList_ascOrder_(aList, true)
–> {”-1″, “-100″, “000.1″, “01″, “1″, “1.1″, “10″}

set aList to {1, 1, 10, 0.1, 1.1, -1, -100}
set aRes to sort1DNumList_ascOrder_(aList, true)
–> {-100, -1, 0.10000000149, 1, 1.100000023842, 10}

–1D List(数値)をsort / ascOrderがtrueだと昇順ソート、falseだと降順ソート
on sort1DNumList:theList ascOrder:aBool
  tell current application’s NSSet to set theSet to setWithArray_(theList)
  
tell current application’s NSSortDescriptor to set theDescriptor to sortDescriptorWithKey_ascending_(missing value, true)
  
set sortedList to theSet’s sortedArrayUsingDescriptors:{theDescriptor}
  
return (sortedList) as list
end sort1DNumList:ascOrder:

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

–入れ子ではないリストの昇順ソート
on shellSortAscending(aSortList)
  script oBj
    property list : aSortList
  end script
  
set len to count oBj’s list’s items
  
set gap to 1
  
repeat while (gap len)
    set gap to ((gap * 3) + 1)
  end repeat
  
repeat while (gap > 0)
    set gap to (gap div 3)
    
if (gap < len) then
      repeat with i from gap to (len - 1)
        set temp to oBj’s list’s item (i + 1)
        
set j to i
        
repeat while ((j gap) and (oBj’s list’s item (j - gap + 1) > temp))
          set oBj’s list’s item (j + 1) to oBj’s list’s item (j - gap + 1)
          
set j to j - gap
        end repeat
        
set oBj’s list’s item (j + 1) to temp
      end repeat
    end if
  end repeat
  
return oBj’s list
end shellSortAscending

–入れ子ではないリストの降順ソート
on shellSortDescending(aSortList)
  script oBj
    property list : aSortList
  end script
  
set len to count oBj’s list’s items
  
set gap to 1
  
repeat while (gap len)
    set gap to ((gap * 3) + 1)
  end repeat
  
repeat while (gap > 0)
    set gap to (gap div 3)
    
if (gap < len) then
      repeat with i from gap to (len - 1)
        set temp to oBj’s list’s item (i + 1)
        
set j to i
        
repeat while ((j gap) and (oBj’s list’s item (j - gap + 1) < temp))
          set oBj’s list’s item (j + 1) to oBj’s list’s item (j - gap + 1)
          
set j to j - gap
        end repeat
        
set oBj’s list’s item (j + 1) to temp
      end repeat
    end if
  end repeat
  
return oBj’s list
end shellSortDescending

▼新規書類に ▼カーソル位置に ▼ドキュメント末尾に

AppleScript名:asocで少数を含む数値を誤差のない形式でASに返す
–By Shane Stanley

use AppleScript version “2.4″
use framework “Foundation”
use scripting additions

set e to 0.1
set f to numberFloatWith_(e)
–> 0.1

on numberFloatWith:aNum
  set theNum to current application’s NSNumber’s numberWithFloat:aNum
  
return (theNum’s descriptionWithLocale:(current application’s NSLocale’s systemLocale())) as real
end numberFloatWith:

▼新規書類に ▼カーソル位置に ▼ドキュメント末尾に