Menu

Skip to content
AppleScript Hole
  • Home
  • Products
  • Events
  • Forum
  • About This Blog
  • License
  • 仕事依頼

AppleScript Hole

Useful & Practical AppleScript & AppleScriptObjC archive

カテゴリー: Record

AS構文色分け情報の重複チェック

Posted on 4月 23 by Takaaki Naganoya

plistから読み取ったAppleScriptの構文色分け書式データをもとに、各構文要素の指定色に重複がないかどうかチェックするAppleScriptです。

もう少しシンプルに書けそうな気もするのですが、、、

AppleScript名：AS構文色分け情報の重複チェック
— Created 2018-04-22 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aList to {{redValue:145, greenValue:40, blueValue:144, fontName:"Osaka", fontSize:13.0}, {redValue:61, greenValue:12, blueValue:62, fontName:"Osaka", fontSize:13.0}, {redValue:14, greenValue:62, blueValue:251, fontName:"Osaka", fontSize:13.0}, {redValue:120, greenValue:52, blueValue:203, fontName:"Osaka", fontSize:13.0}, {redValue:255, greenValue:0, blueValue:0, fontName:"Osaka", fontSize:13.0}, {redValue:0, greenValue:0, blueValue:0, fontName:"Osaka", fontSize:13.0}, {redValue:145, greenValue:82, blueValue:17, fontName:"Osaka", fontSize:13.0}, {redValue:0, greenValue:0, blueValue:0, fontName:"Osaka", fontSize:13.0}, {redValue:39, greenValue:201, blueValue:201, fontName:"Osaka", fontSize:13.0}, {redValue:15, greenValue:62, blueValue:251, fontName:"Osaka", fontSize:13.0}, {redValue:31, greenValue:182, blueValue:252, fontName:"Osaka", fontSize:13.0}, {redValue:129, greenValue:58, blueValue:217, fontName:"Osaka", fontSize:13.0}, {redValue:93, greenValue:54, blueValue:146, fontName:"Osaka", fontSize:13.0}, {redValue:185, greenValue:12, blueValue:128, fontName:"Osaka", fontSize:13.0}, {redValue:25, greenValue:184, blueValue:126, fontName:"Osaka", fontSize:13.0}, {redValue:156, greenValue:145, blueValue:5, fontName:"Osaka", fontSize:13.0}, {redValue:79, greenValue:0, blueValue:136, fontName:"Osaka", fontSize:13.0}, {redValue:18, greenValue:138, blueValue:139, fontName:"Osaka", fontSize:13.0}}

set cRes to chkASLexicalFormatColorConfliction(aList) of me
–> false–重複があった

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

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

★Click Here to Open This Script　
Please follow and like us:
Posted in file list OSA Record | Tagged 10.11savvy 10.12savvy 10.13savvy | 1 Comment

URLとrecordからパラメータつきURLを生成する v3

Posted on 3月 19 by Takaaki Naganoya

指定のURLに対して、recordで指定したパラメータつきURLを生成するAppleScriptです。

REST APIを呼び出すときに使っているため、登場頻度がきわめて高いサブルーチンです。Pure AppleScriptの機能の範囲内で書くこともできますが、Cocoaの機能を用いたほうが圧倒的に手軽に書ける好例といえます。

AppleScript名：URLとrecordからパラメータつきURLを生成する v3
— Created 2016-04-19 by Takaaki Naganoya
— Modified 2016-11-12 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property NSURLQueryItem : a reference to current application’s NSURLQueryItem
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSURLComponents : a reference to current application’s NSURLComponents

set aBaseURL to "https://slack.com/api/auth.test"
set aRec to {token:"aaaa", channel:"ぴよまるソフトウェア"}
set aRes to retURLwithParams(aBaseURL, aRec) of me
–>　　"https://slack.com/api/auth.test?token=aaaa&channel=%E3%81%B4%E3%82%88%E3%81%BE%E3%82%8B%E3%82%BD%E3%83%95%E3%83%88%E3%82%A6%E3%82%A7%E3%82%A2"

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

★Click Here to Open This Script　
Please follow and like us:
Posted in Record URL | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

NSPoint（座標）を作成する

Posted on 2月 27 by Takaaki Naganoya
AppleScript名：NSPoint（座標）を作成する
— Created 2017-06-22 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aPoint to current application’s NSMakePoint(100, 100)
–>　　{​​​​​x:100.0, ​​​​​y:100.0​​​}

★Click Here to Open This Script　
Please follow and like us:
Posted in Record | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

iTunesライブラリのファイル種別集計

Posted on 2月 25 by Takaaki Naganoya

iTunesライブラリ中のTrackのファイル種別を集計するAppleScriptです。

8,442 Tracksのライブラリのファイル種別集計が、筆者の開発環境（MacBook Pro Retina 2012 Core i7 2.66GHz）で0.01〜0.04秒ぐらいです。

AppleScript名：iTunesライブラリのファイル種別集計
— Created 2016-11-02 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "iTunesLibrary"

set library to current application’s ITLibrary’s libraryWithAPIVersion:"1.0" |error|:(missing value)
if library is equal to missing value then return

set playLists to library’s allPlaylists()
set gArray to library’s allMediaItems()’s |kind|
set aRes to countItemsByItsAppearance(gArray) of me
–> {{theName:"AAC オーディオファイル", numberOfTimes:3273}, {theName:"MPEG オーディオファイル", numberOfTimes:1768}, {theName:"購入した AAC オーディオファイル", numberOfTimes:1299}, {theName:"保護された AAC オーディオファイル", numberOfTimes:1102}, {theName:missing value, numberOfTimes:331}, {theName:"保護された MPEG-4 オーディオストリーム", numberOfTimes:183}, {theName:"MPEG オーディオストリーム", numberOfTimes:71}, {theName:"Apple ロスレス・オーディオファイル", numberOfTimes:36}, {theName:"QuickTime ムービーファイル", numberOfTimes:35}, {theName:"保護されたブック", numberOfTimes:28}, {theName:"AIFF オーディオファイル", numberOfTimes:21}, {theName:"MPEG-4 ビデオファイル", numberOfTimes:17}, {theName:"着信音", numberOfTimes:17}, {theName:"保護された MPEG-4 ビデオファイル", numberOfTimes:14}, {theName:"PDF 書類", numberOfTimes:11}, {theName:"ブック", numberOfTimes:8}, {theName:"購入したブック", numberOfTimes:6}, {theName:"iPhone／iPod touch／iPad App", numberOfTimes:5}, {theName:"購入した MPEG-4 ビデオファイル", numberOfTimes:5}, {theName:"インターネットオーディオストリーム", numberOfTimes:3}, {theName:"WAV オーディオファイル", numberOfTimes:2}, {theName:"iTunes Extras", numberOfTimes:2}, {theName:"iPhone／iPod touch App", numberOfTimes:1}, {theName:"QuickTime ムービー URL", numberOfTimes:1}, {theName:"Purchased AAC audio file", numberOfTimes:1}}

–出現回数で集計
on countItemsByItsAppearance(aList)
　　set aSet to current application’s NSCountedSet’s alloc()’s initWithArray:aList
　　set bArray to current application’s 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:(current application’s NSDictionary’s dictionaryWithObjects:{aValue, (aSet’s countForObject:aValue)} forKeys:{"theName", "numberOfTimes"})
　　end repeat
　　
　　–出現回数（numberOfTimes）で降順ソート
　　set theDesc to current application’s NSSortDescriptor’s sortDescriptorWithKey:"numberOfTimes" ascending:false
　　bArray’s sortUsingDescriptors:{theDesc}
　　
　　return bArray as list
end countItemsByItsAppearance

★Click Here to Open This Script　

iTunes Control

Please follow and like us:
Posted in list Record | Tagged 10.11savvy 10.12savvy 10.13savvy iTunes | Leave a comment

iTunesライブラリのジャンル集計

Posted on 2月 25 by Takaaki Naganoya

iTunesライブラリ中のTrackのジャンルを集計するAppleScriptです。

8,442 Tracksのライブラリのジャンル集計が、筆者の開発環境（MacBook Pro Retina 2012 Core i7 2.66GHz）で0.03秒ぐらいです。

AppleScript名：iTunesライブラリのジャンル集計
— Created 2016-11-02 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "iTunesLibrary"

set library to current application’s ITLibrary’s libraryWithAPIVersion:"1.0" |error|:(missing value)
if library is equal to missing value then return

set playLists to library’s allPlaylists()
set gArray to library’s allMediaItems()’s genre
set aRes to countItemsByItsAppearance(gArray) of me
–> {{theName:"サウンドトラック", numberOfTimes:1722}, {theName:"ロック", numberOfTimes:956}, {theName:"Podcast", numberOfTimes:721}, {theName:"クラシック", numberOfTimes:540}, {theName:"ポップ", numberOfTimes:529}, {theName:"J-Pop", numberOfTimes:382}, {theName:"アニメ", numberOfTimes:332}, {theName:missing value, numberOfTimes:287}, {theName:"Pop", numberOfTimes:279}, {theName:"社会／文化", numberOfTimes:279}, {theName:"World", numberOfTimes:218}, {theName:"ジャズ", numberOfTimes:188}, {theName:"Soundtrack", numberOfTimes:188}, {theName:"エレクトロニック", numberOfTimes:170}, {theName:"Classical", numberOfTimes:166}, {theName:"iTunes U", numberOfTimes:155}, {theName:"Rock", numberOfTimes:148}, {theName:"R&B", numberOfTimes:125}, {theName:"ニューエイジ", numberOfTimes:104}, {theName:"Unclassifiable", numberOfTimes:81}, {theName:"歌謡曲", numberOfTimes:58}, {theName:"オルタナティブ", numberOfTimes:58}, {theName:"Children’s", numberOfTimes:57}, {theName:"Holiday", numberOfTimes:38}, {theName:"Data", numberOfTimes:32}, {theName:"イージーリスニング", numberOfTimes:31}, {theName:"ワールド", numberOfTimes:30}, {theName:"ヴォーカル", numberOfTimes:29}, {theName:"ヒップホップ/ ラップ", numberOfTimes:24}, {theName:"Anime", numberOfTimes:23}, {theName:"フォーク", numberOfTimes:19}, {theName:"soundtrack", numberOfTimes:19}, {theName:"ブルース", numberOfTimes:15}, {theName:"ディズニー", numberOfTimes:15}, {theName:"シンガーソングライター", numberOfTimes:15}, {theName:"Easy Listening", numberOfTimes:14}, {theName:"ラテン", numberOfTimes:14}, {theName:"個人ジャーナル", numberOfTimes:14}, {theName:"Electronica/Dance", numberOfTimes:14}, {theName:"J-POP", numberOfTimes:9}, {theName:"New Age", numberOfTimes:9}, {theName:"アクション／アドベンチャー", numberOfTimes:9}, {theName:"ダンス", numberOfTimes:9}, {theName:"マンガ", numberOfTimes:7}, {theName:"演歌", numberOfTimes:7}, {theName:"プログラミング", numberOfTimes:7}, {theName:"Video", numberOfTimes:5}, {theName:"ホリデー", numberOfTimes:5}, {theName:"青年", numberOfTimes:5}, {theName:"キッズ／ファミリー", numberOfTimes:5}, {theName:"カントリー", numberOfTimes:4}, {theName:"R&B/ソウル", numberOfTimes:4}, {theName:"科学／医学", numberOfTimes:4}, {theName:"ビジネス", numberOfTimes:3}, {theName:"Latin", numberOfTimes:3}, {theName:"ヒップホップ／ラップ", numberOfTimes:3}, {theName:"チルドレン・ミュージック", numberOfTimes:3}, {theName:"#NIPPONSEI @ IRC.MIRCX.COM", numberOfTimes:2}, {theName:"コメディ", numberOfTimes:2}, {theName:"Technology", numberOfTimes:2}, {theName:"R&B／ソウル", numberOfTimes:2}, {theName:"ファンタジー", numberOfTimes:2}, {theName:"ユーティリティ", numberOfTimes:2}, {theName:"Vocal", numberOfTimes:2}, {theName:"ドラマ", numberOfTimes:2}, {theName:"社会科学", numberOfTimes:1}, {theName:"グラフィックノベル", numberOfTimes:1}, {theName:"コンピュータ／テクノロジー", numberOfTimes:1}, {theName:"伝記／自叙伝", numberOfTimes:1}, {theName:"女性", numberOfTimes:1}, {theName:"科学／自然", numberOfTimes:1}, {theName:"その他", numberOfTimes:1}, {theName:"児童書フィクション", numberOfTimes:1}, {theName:"業界／職業", numberOfTimes:1}, {theName:"レゲエ", numberOfTimes:1}, {theName:"Lifestyle & Home", numberOfTimes:1}, {theName:"マネジメント／リーダーシップ", numberOfTimes:1}, {theName:"スポークンワード", numberOfTimes:1}, {theName:"Dance", numberOfTimes:1}, {theName:"インストゥルメンタル", numberOfTimes:1}, {theName:"ライトノベル", numberOfTimes:1}, {theName:"SF／ファンタジー", numberOfTimes:1}, {theName:"ソーシャルネットワーキング", numberOfTimes:1}, {theName:"コンピュータ", numberOfTimes:1}, {theName:"146", numberOfTimes:1}, {theName:"健康／フィットネス", numberOfTimes:1}, {theName:"148", numberOfTimes:1}, {theName:"Electronic", numberOfTimes:1}, {theName:"仕事効率化", numberOfTimes:1}, {theName:"ライフスタイル", numberOfTimes:1}, {theName:"フィクション／文学", numberOfTimes:1}, {theName:"NHK FM(東京)", numberOfTimes:1}, {theName:"Seattle Pacific University – Latin", numberOfTimes:1}, {theName:"インスピレーショナル", numberOfTimes:1}, {theName:"日本／アジア", numberOfTimes:1}, {theName:"ブック", numberOfTimes:1}, {theName:"Kayokyoku", numberOfTimes:1}, {theName:"Folk", numberOfTimes:1}, {theName:"Romance", numberOfTimes:1}}

–出現回数で集計
on countItemsByItsAppearance(aList)
　　set aSet to current application’s NSCountedSet’s alloc()’s initWithArray:aList
　　set bArray to current application’s 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:(current application’s NSDictionary’s dictionaryWithObjects:{aValue, (aSet’s countForObject:aValue)} forKeys:{"theName", "numberOfTimes"})
　　end repeat
　　
　　–出現回数（numberOfTimes）で降順ソート
　　set theDesc to current application’s NSSortDescriptor’s sortDescriptorWithKey:"numberOfTimes" ascending:false
　　bArray’s sortUsingDescriptors:{theDesc}
　　
　　return bArray as list
end countItemsByItsAppearance

★Click Here to Open This Script　

iTunes Control

Please follow and like us:
Posted in list Record | Tagged 10.11savvy 10.12savvy 10.13savvy iTunes | Leave a comment

iTunesライブラリの曲のアーティスト名を集計

Posted on 2月 25 by Takaaki Naganoya

iTunesライブラリ中の曲のアーティスト名を集計して、曲数が多い順に集計するAppleScriptです。

アーティスト名のFirst NameとLast Nameの間にスペースが存在している場合としていない場合が（iTunes Music Storeからダウンロード購入した曲でも）混在していたので、こうしたデータのゆらぎに対処しています。

6,827曲のライブラリの集計が、筆者の開発環境（MacBook Pro Retina 2012 Core i7 2.66GHz）で2.7秒ぐらいです。

AppleScript名：iTunesライブラリの曲のアーティスト名を集計
— Created 2017-01-07 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "iTunesLibrary"

set library to current application’s ITLibrary’s libraryWithAPIVersion:"1.0" |error|:(missing value)
if library is equal to missing value then return

set allTracks to library’s allMediaItems()
set allCount to allTracks’s |count|()

set anEnu to allTracks’s objectEnumerator()
set newArray to current application’s NSMutableArray’s alloc()’s init()

repeat
　　set aPL to anEnu’s nextObject()
　　if aPL = missing value then exit repeat
　　try
　　　　set aKind to (aPL’s mediaKind) as integer
　　　　
　　　　if (aKind as integer) is equal to 2 then –Music, Song
　　　　　　set plName to aPL’s artist’s |name| as string
　　　　　　set pl2Name to (my changeThis:" " toThat:"" inString:plName) –日本語アーティスト名で姓と名の間にスペースが入っているものがある（表記ゆらぎ）ので対策
　　　　　　newArray’s addObject:(pl2Name)
　　　　end if
　　on error
　　　　set aLoc to (aPL’s location’s |path|()) as string
　　　　–log aLoc
　　end try
end repeat

set aRes to countItemsByItsAppearance(newArray) of me
–>　　{​​​​​{​​​​​​​theName:"浜田省吾", ​​​​​​​numberOfTimes:442​​​​​}, ​​​​​{​​​​​​​theName:"B’z", ​​​​​​​numberOfTimes:379​​​​​}, ​​​​​{​​​​​​​theName:"渡辺岳夫・松山祐士", ​​​​​​​numberOfTimes:199​​​​​}, ​​​​​{​​​​​​​theName:"VariousArtists", ​​​​​​​numberOfTimes:192​​​​​}, ​​​​​{​​​​​​​theName:"菅野よう子", ​​​​​​​numberOfTimes:108​​​​​}, ​​​​​{​​​​​​​theName:"布袋寅泰", ​​​​​​​numberOfTimes:100​​​​​}, ​​​​​{​​​​​​​theName:"三枝成彰", ​​​​​​​numberOfTimes:95​​​​​}, ​​​​​{​​​​​​​theName:"宇多田ヒカル", ​​​​​​​numberOfTimes:94​​​​​}, ​​​​​{​​​​​​​theName:"宮川泰", ​​​​​​​numberOfTimes:81​​​​​}, ​​​​​{​​​​​​​theName:"MichaelJackson", ​​​​​​​numberOfTimes:78​​​​​}, ​​​​​{​​​​​​​theName:"稲葉浩志", ​​​​​​​numberOfTimes:73​​​​​}, ​​​​​…

–出現回数で集計
on countItemsByItsAppearance(aList)
　　set aSet to current application’s NSCountedSet’s alloc()’s initWithArray:aList
　　set bArray to current application’s 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:(current application’s NSDictionary’s dictionaryWithObjects:{aValue, (aSet’s countForObject:aValue)} forKeys:{"theName", "numberOfTimes"})
　　end repeat
　　
　　–出現回数（numberOfTimes）で降順ソート
　　set theDesc to current application’s NSSortDescriptor’s sortDescriptorWithKey:"numberOfTimes" ascending:false
　　bArray’s sortUsingDescriptors:{theDesc}
　　
　　return bArray as list
end countItemsByItsAppearance

on changeThis:findString toThat:repString inString:someText
　　set theString to current application’s NSString’s stringWithString:someText
　　set theString to theString’s stringByReplacingOccurrencesOfString:findString withString:repString options:(current application’s NSRegularExpressionSearch) range:{location:0, |length|:length of someText}
　　return theString as text
end changeThis:toThat:inString:

★Click Here to Open This Script　

iTunes Control

Please follow and like us:
Posted in list Record | Tagged 10.11savvy 10.12savvy 10.13savvy iTunes | Leave a comment

iTunes Library上のsongでライブラリへの追加年で集計してKeynote書類上にグラフ作成

Posted on 2月 25 by Takaaki Naganoya

iTunes Library中のsong（楽曲）のライブラリへの追加年を集計して、結果をKeynote上に縦棒グラフを作成するAppleScriptです。

開発環境で6,827曲のライブラリを集計してグラフ作成してトータルで３秒ぐらいです（MacBook Pro Retina 2012 Core i7 2.66GHz）。

AppleScript名：iTunes Library上のsongでライブラリへの追加年で集計してKeynote書類上にグラフ作成
— Created 2017-09-06 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "iTunesLibrary"

property NSArray : a reference to current application’s NSArray
property ITLibrary : a reference to current application’s ITLibrary
property NSString : a reference to current application’s NSString
property NSDictionary : a reference to current application’s NSDictionary
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

set yRec to retSongAddedYear() of me
–>　　{​​​​​{​​​​​​​theName:2005, ​​​​​​​numberOfTimes:1907​​​​​}….}

–楽曲のiTunesライブラリへの追加「年」のみ抽出
set yList to ((NSArray’s arrayWithArray:yRec)’s valueForKeyPath:"theName") as list
–>　　{​​​​​2005, ​​​​​2006, ​​​​​2007, ​​​​​2008, ​​​​​2009, ​​​​​2010, ​​​​​2011, ​​​​​2012, ​​​​​2013, ​​​​​2014, ​​​​​2015, ​​​​​2016, ​​​​​2017​​​}

–楽曲のiTunesライブラリへの追加「年」ごとのカウントを抽出
set vList to ((NSArray’s arrayWithArray:yRec)’s valueForKeyPath:"numberOfTimes") as list
–>　　{​​​​​1907, ​​​​​1125, ​​​​​853, ​​​​​319, ​​​​​638, ​​​​​353, ​​​​​351, ​​​​​241, ​​​​​605, ​​​​​344, ​​​​​71, ​​​​​76, ​​​​​28​​​}

tell application "Keynote"
　　set adoc to (make new document with properties {document theme:theme "ホワイト", height:768, width:1024}) –Caution: theme name is **localized** ("White")
　　tell front document
　　　　set base slide of current slide to master slide "空白" –Caution: master slide name is **localized** ("Blank")
　　　　tell current slide
　　　　　　add chart row names {"ライブラリ追加年"} column names yList data {vList} type vertical_bar_2d group by chart row –row name is "iTunes Library Added Year"
　　　　end tell
　　end tell
　　activate
end tell

on retSongAddedYear()
　　set library to ITLibrary’s libraryWithAPIVersion:"1.0" |error|:(missing value)
　　if library is equal to missing value then return {}
　　
　　set allTracks to library’s allMediaItems()
　　set allCount to allTracks’s |count|()
　　
　　set anEnu to allTracks’s objectEnumerator()
　　set newArray to NSMutableArray’s alloc()’s init()
　　
　　repeat
　　　　set aPL to anEnu’s nextObject()
　　　　if aPL = missing value then exit repeat
　　　　try
　　　　　　set aKind to (aPL’s mediaKind) as integer
　　　　　　if (aKind as integer) is equal to 2 then –Music, Song
　　　　　　　　set pMonth to ((aPL’s addedDate() as date)’s year) as integer
　　　　　　　　newArray’s addObject:(pMonth)
　　　　　　end if
　　　　on error
　　　　　　set aLoc to (aPL’s location’s |path|()) as string
　　　　end try
　　end repeat
　　
　　return countItemsByItsAppearance(newArray) of me
end retSongAddedYear

–出現回数で集計
on countItemsByItsAppearance(aList)
　　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
　　
　　–出現回数（numberOfTimes）で降順ソート
　　set theDesc to NSSortDescriptor’s sortDescriptorWithKey:"theName" ascending:true
　　bArray’s sortUsingDescriptors:{theDesc}
　　
　　return bArray as list
end countItemsByItsAppearance

★Click Here to Open This Script　

Keynote Control 1

Keynote Control 2

iTunes Control

Please follow and like us:
Posted in list Record | Tagged 10.11savvy 10.12savvy 10.13savvy iTunes Keynote | Leave a comment

NSCountedSetでNSDictionaryの登場頻度集計 v2

Posted on 2月 22 by Takaaki Naganoya
AppleScript名：NSCountedSetでNSDictionaryの登場頻度集計 v2
— Created 2015-09-14 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aRecList to {{aName:"Piyomaru", aFavorite:"Sleeping"}, {aName:"Piyoko", aFavorite:"TV"}, {aName:"Piyomaru", aFavorite:"Sleeping"}}
set aCountedList to countEachRecord(aRecList)
–>　　 {​​​​​{​​​​​​​aCount:1, ​​​​​​​aData:{​​​​​​​​​aName:"Piyoko", ​​​​​​​​​aFavorite:"TV"​​​​​​​}​​​​​}, ​​​​​{​​​​​​​aCount:2, ​​​​​​​aData:{​​​​​​​​​aName:"Piyomaru", ​​​​​​​​​aFavorite:"Sleeping"​​​​​​​}​​​​​}​​​}

on countEachRecord(aRecList)
　　set theCountedSet to current application’s NSCountedSet’s |set|()
　　repeat with i in aRecList
　　　　set j to contents of i
　　　　(theCountedSet’s addObject:j)
　　end repeat
　　
　　set theEnumerator to theCountedSet’s objectEnumerator()
　　set anArray to current application’s NSMutableArray’s alloc()’s init()
　　
　　repeat
　　　　set aDict to current application’s NSMutableDictionary’s alloc()’s init()
　　　　
　　　　set aValue to theEnumerator’s nextObject()
　　　　if aValue is missing value then exit repeat
　　　　
　　　　set aCount to theCountedSet’s countForObject:aValue
　　　　
　　　　aDict’s setObject:aCount forKey:"aCount"
　　　　aDict’s setObject:aValue forKey:"aData"
　　　　anArray’s addObject:aDict
　　end repeat
　　
　　return anArray as list of string or string
end countEachRecord

★Click Here to Open This Script　
Please follow and like us:
Posted in Record | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

NSDictionaryのObjectEnumlator, KeyEnumlatorで値列挙

Posted on 2月 22 by Takaaki Naganoya
AppleScript名：NSDictionaryのObjectEnumlator, KeyEnumlatorで値列挙
— Created 2017-07-30 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aRec to {aaa:1, bbb:2, ccc:3}
set aDict to current application’s NSMutableDictionary’s dictionaryWithDictionary:aRec

set dEnum to aDict’s objectEnumerator()
repeat
　　set aVal to dEnum’s nextObject()
　　if aVal = missing value then exit repeat
　　log aVal
　　(*
15:40:47.098 (* (NSNumber) 1 *)
15:40:47.099 (* (NSNumber) 2 *)
15:40:47.099 (* (NSNumber) 3 *)
*)
end repeat

set kEnum to aDict’s keyEnumerator()
repeat
　　set aVal to kEnum’s nextObject()
　　if aVal = missing value then exit repeat
　　log aVal
　　(*
15:50:52.276 (* (NSString) "aaa" *)
15:50:52.276 (* (NSString) "bbb" *)
15:50:52.276 (* (NSString) "ccc" *)
*)
end repeat

★Click Here to Open This Script　
Please follow and like us:
Posted in Record | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

レコードのうち、最大の値を持つKeyを返す

Posted on 2月 22 by Takaaki Naganoya
AppleScript名：レコードのうち、最大の値を持つKeyを返す
— Created 2016-12-14 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aDict to current application’s NSDictionary’s dictionaryWithDictionary:{sadness:0.01133416, anger:1.03975857E-4, happiness:2.90919736E-4, fear:2.28432211E-4, neutral:0.9830475, contempt:2.4698046E-4, disgust:1.02946949E-4, surprise:0.00464509334}
set aMacKey to retMaxValueKey(aDict) of me
–>　　"neutral"

on retMaxValueKey(aDict)
　　set aValList to aDict’s allValues()
　　set maxVal to (sort1DNumList(aValList, false) of me)’s firstObject()
　　set keyList to (aDict’s allKeys()) as list
　　
　　repeat with i in keyList
　　　　set j to contents of i
　　　　set aTmp to (aDict’s valueForKey:j)
　　　　set aRes to compareNumerically(maxVal, aTmp) of me
　　　　if aRes = true then return j
　　end repeat
　　
　　return false
end retMaxValueKey

–Numerical Strings Compare
on compareNumerically(aText as text, bText as text)
　　set aStr to current application’s NSString’s stringWithString:aText
　　return (aStr’s compare:bText options:(current application’s NSNumericSearch)) = current application’s NSOrderedSame
end compareNumerically

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

★Click Here to Open This Script　
Please follow and like us:
Posted in Record | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

レコードの値をクリア v2

Posted on 2月 22 by Takaaki Naganoya
AppleScript名：レコードの値をクリア v2
— Created 2016-06-06 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.5"
use scripting additions
use framework "Foundation"

set initVal to ""
set aaaaaaaRec to {aaa:"111", bbb:2.1234, ccc:-1}
set bRec to clearRecordValues(aaaaaaaRec) of me
–>　　{​​​​​aaa:"", ​​​​​bbb:0, ​​​​​ccc:0​​​}

on clearRecordValues(paramRec)
　　set aDic to current application’s NSMutableDictionary’s dictionaryWithDictionary:paramRec
　　set keyList to (aDic’s allKeys() as list)
　　set valList to (aDic’s allValues() as list)
　　
　　repeat with i from 1 to (length of keyList)
　　　　set aKey to contents of item i of keyList
　　　　set tmpVal to contents of item i of valList
　　　　set aClass to class of tmpVal
　　　　
　　　　–もともと入っていたデータの型を見て、クリア時の初期値を判定
　　　　if aClass is in {number, integer, real} then
　　　　　　set initVal to 0
　　　　else if aClass is in {string, text, Unicode text} then
　　　　　　set initVal to ""
　　　　else
　　　　　　set initVal to missing value
　　　　end if
　　　　
　　　　(aDic’s setValue:initVal forKey:aKey)
　　end repeat
　　return aDic as record
end clearRecordValues

★Click Here to Open This Script　
Please follow and like us:
Posted in Record | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

YAMLのじっけん５

Posted on 2月 22 by Takaaki Naganoya

–> YAML.framework

AppleScript名：YAMLのじっけん５
— Created 2017-02-16 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "YAML" –https://github.com/mirek/YAML.framework

–YAMLの文字列からオブジェクトを生成する(1)
set aYAMLstr to "
— # お好みの映画、ブロック形式
– Casablanca
– Spellbound
– Notorious
— # 買い物リスト、インライン形式、またはフロー形式
[milk, bread, eggs]
"
set aRes to retObjectFromYAMLString(aYAMLstr) of me
log result
–>　　{​​​​​{​​​​​​​"Casablanca", ​​​​​​​"Spellbound", ​​​​​​​"Notorious"​​​​​}, ​​​​​{​​​​​​​"milk", ​​​​​​​"bread", ​​​​​​​"eggs"​​​​​}​​​}

–YAMLの文字列からオブジェクトを生成する(2)
set aYAMLstr to "
 – {name: John Smith, age: 33}
– name: Mary Smith
 age: 27
"
set aRes to retObjectFromYAMLString(aYAMLstr) of me
log result
–>　　{​​​​​{​​​​​​​{​​​​​​​​​name:"John Smith", ​​​​​​​​​age:"33"​​​​​​​}, ​​​​​​​{​​​​​​​​​name:"Mary Smith", ​​​​​​​​​age:"27"​​​​​​​}​​​​​}​​​}

–YAMLの文字列からオブジェクトを生成する(3)
set aYAMLstr to "
 men: [John Smith, Bill Jones]
women:
 – Mary Smith
– Susan Williams"
set aRes to retObjectFromYAMLString(aYAMLstr) of me
log result
–>　　{​​​​​{​​​​​​​men:{​​​​​​​​​"John Smith", ​​​​​​​​​"Bill Jones"​​​​​​​}, ​​​​​​​women:{​​​​​​​​​"Mary Smith", ​​​​​​​​​"Susan Williams"​​​​​​​}​​​​​}​​​}

on retObjectFromYAMLString(aYAMLstr as string)
　　set aStr to current application’s NSString’s stringWithString:aYAMLstr
　　set aData to aStr’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aData to current application’s YAMLSerialization’s objectsWithYAMLString:aStr options:(4096) |error|:(missing value)
　　return aData as list of string or string
end retObjectFromYAMLString

on retYAMLStringFromObject(anObject)
　　set aString to (current application’s YAMLSerialization’s createYAMLStringWithObject:anObject options:(1) |error|:(missing value)) as list of string or string
　　return aString
end retYAMLStringFromObject

★Click Here to Open This Script　
Please follow and like us:
Posted in Network Record Text | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

YAMLのじっけん４

Posted on 2月 22 by Takaaki Naganoya

–> YAML.framework

AppleScript名：YAMLのじっけん４
— Created 2017-02-16 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "YAML" –https://github.com/mirek/YAML.framework

–YAMLの文字列からオブジェクトを生成する
set aYAMLstr to "
– name: Smith
 email: smith@mail.com
– name: Shelton
 email: shelton@mail.com
– name: Kelly
 email: kelly@mail.com
"
set aRes to (retObjectFromYAMLString(aYAMLstr) of me) as list of string or string
log result
–>　　{​​​​​{​​​​​​​{​​​​​​​​​name:"Smith", ​​​​​​​​​email:"smith@mail.com"​​​​​​​}, ​​​​​​​{​​​​​​​​​name:"Shelton", ​​​​​​​​​email:"shelton@mail.com"​​​​​​​}, ​​​​​​​{​​​​​​​​​name:"Kelly", ​​​​​​​​​email:"kelly@mail.com"​​​​​​​}​​​​​}​​​}

set bYAMLstr to "
names: [Smith, Shelton, Kelly]
emails: [smith@mail.com, shelton@mail.com, kelly@mail.com]
"
set bRes to retObjectFromYAMLString(bYAMLstr) of me
log result
–>　　{​​​​​{​​​​​​​names:{​​​​​​​​​"Smith", ​​​​​​​​​"Shelton", ​​​​​​​​​"Kelly"​​​​​​​}, ​​​​​​​emails:{​​​​​​​​​"smith@mail.com", ​​​​​​​​​"shelton@mail.com", ​​​​​​​​​"kelly@mail.com"​​​​​​​}​​​​​}​​​}

–オブジェクト（list）からYAMLの文字列を生成する
set bStr to retYAMLStringFromObject(bRes)
log result
(*　　
"—
– names:
 – Smith
– Shelton
– Kelly
emails:
– smith@mail.com
– shelton@mail.com
– kelly@mail.com
…
"
*)

on retObjectFromYAMLString(aYAMLstr as string)
　　set aStr to current application’s NSString’s stringWithString:aYAMLstr
　　set aData to aStr’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aData to current application’s YAMLSerialization’s objectsWithYAMLString:aStr options:(4096) |error|:(missing value)
　　return aData as list of string or string
end retObjectFromYAMLString

on retYAMLStringFromObject(anObject)
　　set aString to (current application’s YAMLSerialization’s createYAMLStringWithObject:anObject options:(1) |error|:(missing value)) as list of string or string
　　return aString
end retYAMLStringFromObject

★Click Here to Open This Script　
Please follow and like us:
Posted in Network Record Text | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

YAMLのじっけん

Posted on 2月 22 by Takaaki Naganoya

–> YAML.framework

AppleScript名：YAMLのじっけん
— Created 2017-02-16 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "YAML" –https://github.com/mirek/YAML.framework

–YAMLの文字列からオブジェクトを生成する
set aYAMLstr to "
items:
 – name: Foo
– name: Bar
"

set aStr to current application’s NSString’s stringWithString:aYAMLstr
set aData to aStr’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)

set aData to (current application’s YAMLSerialization’s objectsWithYAMLString:aStr options:(4096) |error|:(missing value)) as list of string or string
log result
–>　　{​​​​​{​​​​​​​items:{​​​​​​​​​{​​​​​​​​​​​name:"Foo"​​​​​​​​​}, ​​​​​​​​​{​​​​​​​​​​​name:"Bar"​​​​​​​​​}​​​​​​​}​​​​​}​​​}

–オブジェクトからYAMLの文字列を取得する
set aString to (current application’s YAMLSerialization’s createYAMLStringWithObject:aData options:(1) |error|:(missing value)) as string
(* –>
"—
– items:
 – name: Foo
– name: Bar
…"
*)

★Click Here to Open This Script　
Please follow and like us:
Posted in Network Record Text | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

JSONデータからのしぼりこみ

Posted on 2月 22 by Takaaki Naganoya
AppleScript名：JSONデータからのしぼりこみ
— Created 2016-11-16 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

set theJSON to "{＼"timeblocksDefs＼": {
 ＼"normal＼": {
 ＼"morning＼": ＼"06-09＼",
＼"day＼": ＼"09-18＼",
＼"primetime＼": ＼"18-22＼",
＼"nighttime＼": ＼"22-06＼"
 },
＼"lateprime＼": {
 ＼"morning＼": ＼"06-09＼",
＼"day＼": ＼"09-19＼",
＼"primetime＼": ＼"19-23＼",
＼"nighttime＼": ＼"23-06＼"
 }
}}
"

set theDict to my convertJSONToDictionary:theJSON
set theResult to (theDict’s valueForKeyPath:"timeblocksDefs.lateprime")

— convert to AS equivalent
set theResult to item 1 of ((current application’s NSArray’s arrayWithObject:theResult) as list)

on convertJSONToDictionary:jsonString
　　set aString to current application’s NSString’s stringWithString:jsonString
　　set theData to aString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set {theDict, theError} to current application’s NSJSONSerialization’s JSONObjectWithData:theData options:0 |error|:(reference)
　　if theDict is missing value then error (theError’s localizedDescription() as text) number -10000
　　return theDict
end convertJSONToDictionary:

★Click Here to Open This Script　
Please follow and like us:
Posted in Network Record Text | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

指定URLのJSONをダウンロードしてRecordに変換 v2.1

Posted on 2月 22 by Takaaki Naganoya
AppleScript名：指定URLのJSONをダウンロードしてRecordに変換 v2.1
— Created 2016-02-06 by Takaaki Naganoya
— Modified 2016-02-08 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

–東京電力電力供給状況API JSON URL（指定された日時の電力使用状況を返す）
set a to downloadAndParseJSON("http://tepco-usage-api.appspot.com/2016/2/6/19.json") of me
–>　　{​​​​​forecast_peak_period:18, ​​​​​forecast_peak_usage:3670, ​​​​​capacity_updated:"2012-02-05 08:30:00", ​​​​​usage:3720, ​​​​​forecast_peak_updated:"2012-02-05 08:30:00", ​​​​​day:6, ​​​​​usage_updated:"2016-02-06 11:05:05", ​​​​​capacity:4484, ​​​​​saving:false, ​​​​​year:2016, ​​​​​month:2, ​​​​​capacity_peak_period:18, ​​​​​forecast:0, ​​​​​hour:19, ​​​​​entryfor:"2016-02-06 10:00:00"​​​}

–東京電力電力供給状況API JSON URL（指定された日の毎時の電力使用状況を、配列として返す）
set b to downloadAndParseJSON("http://tepco-usage-api.appspot.com/2016/2/6.json") of me
–>　　{​​​​​{​​​​​​​forecast_peak_period:18, ​​​​​​​forecast_peak_usage:3670, ​​​​​​​capacity_updated:"2012-02-05 08:30:00", ​​​​​​​usage:3081, ​​​​​​​forecast_peak_updated:"2012-02-05 08:30:00", ​​​​​​​day:6, ​​​​​​​usage_updated:"2016-02-05 16:05:06", ​​​​​​​capacity:4484, ​​​​​​​saving:false, ​​​​​​​year:2016, ​​​​​​​month:2, ​​​​​​​capacity_peak_period:18, ​​​​​​​forecast:0, ​​​​​​​hour:0, ​​​​​​​entryfor:"2016-02-05 15:00:00"​​​​​}….​​…{​​​​​​​forecast_peak_period:18, ​​​​​​​forecast_peak_usage:3670, ​​​​​​​capacity_updated:"2012-02-05 08:30:00", ​​​​​​​usage:3645, ​​​​​​​forecast_peak_updated:"2012-02-05 08:30:00", ​​​​​​​day:6, ​​​​​​​usage_updated:"2016-02-06 12:05:07", ​​​​​​​capacity:4484, ​​​​​​​saving:false, ​​​​​​​year:2016, ​​​​​​​month:2, ​​​​​​​capacity_peak_period:18, ​​​​​​​forecast:0, ​​​​​​​hour:20, ​​​​​​​entryfor:"2016-02-06 11:00:00"​​​​​}​​​}

–東京電力電力供給状況API JSON URL（指定された月の毎日毎時の電力使用状況を、配列として返す）
set c to downloadAndParseJSON("http://tepco-usage-api.appspot.com/2016/2.json") of me
–>　　{​​​​​{​​​​​​​forecast_peak_period:18, ​​​​​​​forecast_peak_usage:4260, ​​​​​​​capacity_updated:"2012-01-31 23:30:00", ​​​​​​​usage:2901, ​​​​​​​forecast_peak_updated:"2012-01-31 23:30:00", ​​​​​​​day:1, ​​​​​​​usage_updated:"2016-01-31 16:05:04", ​​​​​​​capacity:4641, ​​​​​​​saving:false, ​​​​​​​year:2016, ​​​​​​​month:2, ​​​​​​​capacity_peak_period:18, ​​​​​​​forecast:0, ​​​​​​​hour:0, ​​​​​​​entryfor:"2016-01-31 15:00:00"​​​​​}……{​​​​​​​forecast_peak_period:18, ​​​​​​​forecast_peak_usage:3670, ​​​​​​​capacity_updated:"2012-02-05 08:30:00", ​​​​​​​usage:3645, ​​​​​​​forecast_peak_updated:"2012-02-05 08:30:00", ​​​​​​​day:6, ​​​​​​​usage_updated:"2016-02-06 12:05:07", ​​​​​​​capacity:4484, ​​​​​​​saving:false, ​​​​​​​year:2016, ​​​​​​​month:2, ​​​​​​​capacity_peak_period:18, ​​​​​​​forecast:0, ​​​​​​​hour:20, ​​​​​​​entryfor:"2016-02-06 11:00:00"​​​​​}​​​}

on downloadAndParseJSON(aURL)
　　set aRes to downloadDataFromWeb(aURL, 30) of me
　　if aRes = false then return false –download error
　　
　　set jsonString to current application’s NSString’s stringWithString:aRes
　　set jsonData to jsonString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aJsonDict to current application’s NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value)
　　
　　set bRes to aJsonDict as list of string or string
　　return bRes
end downloadAndParseJSON

on downloadDataFromWeb(aURL, timeOutSec)
　　set aURL to current application’s |NSURL|’s alloc()’s initWithString:aURL
　　set aReq to current application’s NSURLRequest’s alloc()’s initWithURL:aURL cachePolicy:(current application’s NSURLRequestReloadIgnoringLocalCacheData) timeoutInterval:timeOutSec
　　set urlRes to (current application’s NSURLConnection’s sendSynchronousRequest:aReq returningResponse:(missing value) |error|:(missing value))
　　
　　if urlRes = missing value then
　　　　return false –Download Error
　　else
　　　　set aVal to (current application’s NSString’s alloc()’s initWithData:urlRes encoding:(current application’s NSUTF8StringEncoding))
　　　　return aVal
　　end if
end downloadDataFromWeb

★Click Here to Open This Script　
Please follow and like us:
Posted in Network Record | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

NSRangeの拡張、隣接検出

Posted on 2月 21 by Takaaki Naganoya

NSRangeの隣接検出を行うAppleScriptです。

NSRangeやNSRectの重なり検出機能はとても強力で、Pure AppleScriptの時代では考えられなかったほどの処理の柔軟性を得られています。

強力ではあるものの、機能が素朴であることもまた事実であります。AとBの２つのNSRangeが重なっていることしか検出できないのはつくづく残念です。

不満な点の筆頭に挙げられるのが、「隣接検出」機能がないことです。

たとえば、NSAttributedStringに対して書式を取得する処理を行うと、３点リーダー文字（「…」）や感嘆符（「！」）の箇所で、書式情報が変わっていないのに分割して取得されてしまいます。バグではないものの、あまり好ましくない挙動です。

こうした箇所は、Rangeとしては「隣接」しているわけで、同一書式のデータが「隣接」している場合には、続きのデータとしてまとめられた方がいいに決まっています。

そこで冒頭のNSRangeの隣接検出という話になるわけですが……NSRangeが１次元座標上の始点と終点の２つの情報で構成されているために、これらの情報を「拡張」します。

　set aRange to current application’s NSMakeRange(10, 80)

というNSRangeを作ると、

–> {location:10, |length|:80}

始点（10）と、始点からの長さが80で、終点が90になります。

これを「拡張」すると、

–> {location:9, |length|:82}

となります。NSRangeが「隣接」は検出できなくても、重なり合いは検出できるため、「拡張」すれば、隣接時には「重なっている」と判定できることになります。

あとは、リストに入れたNSRangeのうち重なり合っているものをループで検出するルーチンを書けば、大量のNSRange同士の隣接を処理できることでしょう。

AppleScript名：NSRangeの拡張、隣接検出
— Created 2018-1-12 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aRange to current application’s NSMakeRange(10, 80) –original range
–> {location:10, |length|:80}

set bRange to extendRange(aRange) of me –Extended range
–> {location:9, |length|:81}

set cRange to current application’s NSMakeRange(90, 30) –compare target range
–> {location:90, |length|:30}

set aRes to current application’s NSIntersectionRange(aRange, cRange)
–> {location:0, |length|:0}–Not adjacent

set bRes to current application’s NSIntersectionRange(bRange, cRange)
–> {location:90, |length|:1}–Adjacent

–NSRangeの開始点とサイズを拡張
on extendRange(aRange)
　　set aLoc to location of aRange
　　set aLen to |length| of aRange
　　
　　if aLoc > 0 then
　　　　set aLoc to aLoc – 1
　　end if
　　
　　set aLen to aLen + 2
　　set bRange to current application’s NSMakeRange(aLoc, aLen)
　　return bRange
end extendRange

★Click Here to Open This Script　
Please follow and like us:
Posted in Record | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

MaxRangeを取得する

Posted on 2月 21 by Takaaki Naganoya
AppleScript名：MaxRangeを取得する
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aRange to current application’s NSMakeRange(10, 80) –original range
set aMaxX to current application’s NSMaxRange(aRange)
–> 90
–set aMinX to current application’s NSMinRange(aRange)–最小はない

★Click Here to Open This Script　
Please follow and like us:
Posted in Record | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

NSRangeの基礎的な処理

Posted on 2月 21 by Takaaki Naganoya
AppleScript名：NSRangeの基礎的な処理
— Created 2017-12-12 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aRange to current application’s NSMakeRange(0, 100)
–>　　{​​​​​location:0, ​​​​​length:100​​​}

set maxRange to current application’s NSMaxRange(aRange) –最大値
–>　　100

set rangeStr to (current application’s NSStringFromRange(aRange)) as string
–>　　"{0, 100}"

set bRange to current application’s NSRangeFromString(rangeStr)
–>　　{​​​​​location:0, ​​​​​length:100​​​}

set cRange to current application’s NSMakeRange(50, 80)
set cRes to current application’s NSEqualRanges(aRange, cRange)
–> false

set dRes to current application’s NSEqualRanges(aRange, bRange)
–> true

set eRes to current application’s NSIntersectionRange(aRange, cRange)
–>　　{​​​​​location:50, ​​​​​length:50​​​}

set fRes to current application’s NSLocationInRange(50, aRange)
–> true

set gRes to current application’s NSLocationInRange(120, aRange)
–>　　false

set hRes to current application’s NSUnionRange(aRange, cRange)
–>　　{​​​​​location:0, ​​​​​length:130​​​}

★Click Here to Open This Script　
Please follow and like us:
Posted in Record | Tagged 10.11savvy 10.12savvy 10.13savvy | Leave a comment

RTFを読み込んで書式をDictionary化 v3.0

Posted on 2月 11 by Takaaki Naganoya

指定のRTF書類の内容を読み取って、書式情報をNSDictionaryに変換するAppleScriptです。

　　stringVal：文字列データ
　　colorStr：RGBの色データを文字列化したもの
　　colorVal：RGBの色データの数値list
　　colorDomainName：おおまかな色名称
　　fontName：フォント名
　　fontSize：フォントサイズ

書式情報で抽出しやすくしてあります。

AppleScript名：RTFを読み込んで書式をDictionary化 v3.0
— 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"

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

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 NSAttributedString’s alloc()’s initWithData:aData options:(missing value) documentAttributes:(missing value) |error|:(missing value)

set attrRes to getAttributeRunsFromAttrString(theStyledText) of me
(*
–>　　{​​​​​{​​​​​​​stringVal:"■■■■■■■", ​​​​​​​colorStr:"0 0 0", ​​​​​​​colorVal:{​​​​​​​​​0, ​​​​​​​​​0, ​​​​​​​​​0​​​​​​​}, ​​​​​​​colorDomainName:"black", ​​​​​​​fontName:"ヒラギノ角ゴ ProN W6", ​​​​​​​fontSize:12.0​​​​​}, ​​​​​{​​​​​​​stringVal:"Xxxxxxx", ​​​​​​​colorStr:"217 11 0", ​​​​​​​colorVal:{​​​​​​​​​217, ​​​​​​​​​11, ​​​​​​​​​0​​​​​​​}, ​​​​​​​colorDomainName:"red", ​​​​​​​fontName:"ヒラギノ角ゴ ProN W6", ​​​​​​​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
　　　　
　　　　–Color domain name
　　　　set cdnStr to retColorDomainNameFromNSColor(aColor) of me
　　　　
　　　　–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, colorDomainName:cdnStr, fontName:aDFontName as string, fontSize:aDFontSize}
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　　　
　　end repeat
　　
　　return (styleList of aSpd)
　　
end getAttributeRunsFromAttrString

on retColorDomainNameFromNSColor(aCol)
　　set hueVal to aCol’s hueComponent()
　　set satVal to aCol’s saturationComponent()
　　set brightVal to aCol’s brightnessComponent()
　　
　　if satVal ≤ 0.01 then set satVal to 0.0
　　
　　set colName to ""
　　
　　if satVal = 0.0 then
　　　　if brightVal ≤ 0.2 then
　　　　　　set colName to "black"
　　　　else if (brightVal > 0.95) then
　　　　　　set colName to "white"
　　　　else
　　　　　　set colName to "gray"
　　　　end if
　　else
　　　　if hueVal ≤ (15.0 / 360) or hueVal ≥ (330 / 360) then
　　　　　　set colName to "red"
　　　　else if hueVal ≤ (45.0 / 360) then
　　　　　　set colName to "orange"
　　　　else if hueVal < (70.0 / 360) then
　　　　　　set colName to "yellow"
　　　　else if hueVal < (150.0 / 360) then
　　　　　　set colName to "green"
　　　　else if hueVal < (190.0 / 360) then
　　　　　　set colName to "cyan"
　　　　else if (hueVal < 250.0 / 360.0) then
　　　　　　set colName to "blue"
　　　　else if (hueVal < 290.0 / 360.0) then
　　　　　　set colName to "purple"
　　　　else
　　　　　　set colName to "magenta"
　　　　end if
　　end if
　　
　　return colName
end retColorDomainNameFromNSColor

★Click Here to Open This Script　
Please follow and like us:
Posted in Color list Record RTF | Tagged 10.11savvy 10.12savvy 10.13savvy | 1 Comment

Post navigation

  • Older posts

電子書籍をBOOTH.pmほかで販売中！！

アーカイブ

  • 2018年5月
  • 2018年4月
  • 2018年3月
  • 2018年2月

カテゴリー

  • AirDrop
  • AirPlay
  • Bluetooth
  • boolean
  • Calendar
  • Clipboard
  • Color
  • dialog
  • drive
  • file
  • File path
  • filter
  • folder
  • geolocation
  • GUI
  • Icon
  • Image
  • Internet
  • Keychain
  • list
  • Markdown
  • Menu
  • Network
  • Number
  • OSA
  • PDF
  • QR Code
  • Record
  • regexp
  • Require Control-Command-R to run
  • REST API
  • RTF
  • Screen Saver
  • shell script
  • Sort
  • Sound
  • Spotlight
  • System
  • Text
  • Time Zone
  • URL
  • UTI
  • WiFi
  • XML-RPC
  • 未分類

メタ情報

  • 登録
  • ログイン
  • 投稿の RSS
  • コメントの RSS
  • WordPress.org

Tags

10.11savvy (886) 10.12savvy (894) 10.13savvy (889) AirServer (2) App Store (1) Calendar (3) Contacts (1) CotEditor (27) Dictionary (9) Dock (7) Evernote (2) Finder (14) Font (4) HelpViewer (2) iBooks (1) Input Method (4) iTunes (12) JeditΩ (3) Keynote (13) Language (1) Locale (3) Mac Blu-ray Player (1) MacDown (3) Mail (6) Maps (3) mi (2) Numbers (8) Pages (2) Preview.app (1) Printer (1) QuickTime Player (8) Reminders (1) Safari (13) Script Debugger (1) Script Editor (7) Sorting (5) Spell check (3) Spellchecker (3) System Events (5) Terminal (4) TextEdit (12) Text To Speech (7) Timezone (5) Twitter (1) Xcode (2)

Forum Posts

  • 人気のトピック
  • 返信がないトピック





Proudly powered by WordPress
Theme: Flint by Star Verte LLC

Enjoy this blog? Please spread the word :)

  • RSS
  • Follow by Email
  • Facebook
  • Google+
    http://piyocast.com/as/archives/category/record">
  • Twitter