Listのrecordをエンコーディングしてplist文字列にする

Posted on 2月 7, 2018 by Takaaki Naganoya

AppleScript名：Listのrecordをエンコーディングしてplist文字列にする

— Created 2016-10-30 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
–http://piyocast.com/as/archives/4295

set aList to {{theName:"サウンドトラック", numberOfTimes:1721}, {theName:"ロック", numberOfTimes:942}}

–2D Arrayをplistの文字列にエンコードする
set anArray to current application’s NSArray’s arrayWithObject:aList
set pListData to current application’s NSPropertyListSerialization’s dataFromPropertyList:anArray |format|:(current application’s NSPropertyListXMLFormat_v1_0) errorDescription:(missing value)
set bStr to (current application’s NSString’s alloc()’s initWithData:pListData encoding:(current application’s NSUTF8StringEncoding)) as string

(*
–>　　"＜?xml version=＼"1.0＼" encoding=＼"UTF-8＼"?＞
＜!DOCTYPE plist PUBLIC ＼"-//Apple//DTD PLIST 1.0//EN＼" ＼"http://www.apple.com/DTDs/PropertyList-1.0.dtd＼"＞
＜plist version=＼"1.0＼"＞
＜array＞
　　＜array＞
　　　　＜dict＞
　　　　　　＜key＞numberOfTimes＜/key＞
　　　　　　＜integer＞1721＜/integer＞
　　　　　　＜key＞theName＜/key＞
　　　　　　＜string＞サウンドトラック＜/string＞
　　　　＜/dict＞
　　　　＜dict＞
　　　　　　＜key＞numberOfTimes＜/key＞
　　　　　　＜integer＞942＜/integer＞
　　　　　　＜key＞theName＜/key＞
　　　　　　＜string＞ロック＜/string＞
　　　　＜/dict＞
　　＜/array＞
＜/array＞
＜/plist＞
"
*)

★Click Here to Open This Script　

serializeされたlistのrecordからKeynoteで新規ドキュメントを作成してグラフを作成

Posted on 2月 7, 2018 by Takaaki Naganoya

AppleScript名：serializeされたlistのrecordからKeynoteで新規ドキュメントを作成してグラフを作成

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

set selData to retSerializedData() of me
set aList to (deserializeToPlistString(selData) of me) as list
set aLen to length of aList
if aLen > 10 then
　　set bList to items 1 thru 10 of aList
else
　　copy aList to bList
end if

makeKeynoteGraph(bList, "自分のiTunesライブラリ中のジャンル内訳") of me

on makeKeynoteGraph(bList, aTitle)
　　set labelList to {}
　　set dataList to {}
　　
　　repeat with i from 1 to (length of bList)
　　　　set the end of labelList to contents of theName of (item i of bList)
　　　　set the end of dataList to contents of numberOfTimes of (item i of bList)
　　end repeat
　　
　　set targWidth to 500
　　set targHeight to 500
　　
　　tell application "Keynote"
　　　　activate
　　　　set thisDocument to make new document with properties {height:764, width:1024, document theme:theme "ホワイト"}
　　　　
　　　　tell thisDocument
　　　　　　
　　　　　　set aHeight to height
　　　　　　set aWidth to width
　　　　　　
　　　　　　tell slide 1
　　　　　　　　set base slide to master slide "タイトル（上）" of thisDocument
　　　　　　　　set object text of default title item to aTitle
　　　　　　　　
　　　　　　　　tell default title item
　　　　　　　　　　set height to 80
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　(add chart row names {"ROW A"} column names labelList data {dataList} type pie_2d group by chart column)
　　　　　　　　
　　　　　　　　tell chart 1
　　　　　　　　　　
　　　　　　　　　　set width to targWidth
　　　　　　　　　　set height to targHeight
　　　　　　　　　　
　　　　　　　　　　set position to {(aWidth / 2) – (targWidth / 2), (aHeight / 2) – (targHeight / 2) + 20}
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　end tell
end makeKeynoteGraph

on retSerializedData()
　　return "<?xml version=＼"1.0＼" encoding=＼"UTF-8＼"?>
<!DOCTYPE plist PUBLIC ＼"-//Apple//DTD PLIST 1.0//EN＼" ＼"http://www.apple.com/DTDs/PropertyList-1.0.dtd＼">
<plist version=＼"1.0＼">
<array>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1721</integer>
　　　　<key>theName</key>
　　　　<string>サウンドトラック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>942</integer>
　　　　<key>theName</key>
　　　　<string>ロック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>539</integer>
　　　　<key>theName</key>
　　　　<string>クラシック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>492</integer>
　　　　<key>theName</key>
　　　　<string>ポップ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>352</integer>
　　　　<key>theName</key>
　　　　<string>J-Pop</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>330</integer>
　　　　<key>theName</key>
　　　　<string>アニメ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>279</integer>
　　　　<key>theName</key>
　　　　<string>Pop</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>218</integer>
　　　　<key>theName</key>
　　　　<string>World</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>188</integer>
　　　　<key>theName</key>
　　　　<string>Soundtrack</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>187</integer>
　　　　<key>theName</key>
　　　　<string>ジャズ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>166</integer>
　　　　<key>theName</key>
　　　　<string>エレクトロニック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>165</integer>
　　　　<key>theName</key>
　　　　<string>Classical</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>148</integer>
　　　　<key>theName</key>
　　　　<string>Rock</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>125</integer>
　　　　<key>theName</key>
　　　　<string>R&B</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>104</integer>
　　　　<key>theName</key>
　　　　<string>ニューエイジ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>81</integer>
　　　　<key>theName</key>
　　　　<string>Unclassifiable</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>57</integer>
　　　　<key>theName</key>
　　　　<string>Children’s</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>47</integer>
　　　　<key>theName</key>
　　　　<string>歌謡曲</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>38</integer>
　　　　<key>theName</key>
　　　　<string>Holiday</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>34</integer>
　　　　<key>theName</key>
　　　　<string>オルタナティブ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>32</integer>
　　　　<key>theName</key>
　　　　<string>Data</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>31</integer>
　　　　<key>theName</key>
　　　　<string>イージーリスニング</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>28</integer>
　　　　<key>theName</key>
　　　　<string>ヴォーカル</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>28</integer>
　　　　<key>theName</key>
　　　　<string>ワールド</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>19</integer>
　　　　<key>theName</key>
　　　　<string>soundtrack</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>15</integer>
　　　　<key>theName</key>
　　　　<string>ディズニー</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>15</integer>
　　　　<key>theName</key>
　　　　<string>シンガーソングライター</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>15</integer>
　　　　<key>theName</key>
　　　　<string>ブルース</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>14</integer>
　　　　<key>theName</key>
　　　　<string>Easy Listening</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>14</integer>
　　　　<key>theName</key>
　　　　<string>ラテン</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>14</integer>
　　　　<key>theName</key>
　　　　<string>Electronica/Dance</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>13</integer>
　　　　<key>theName</key>
　　　　<string>Anime</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>10</integer>
　　　　<key>theName</key>
　　　　<string>フォーク</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>9</integer>
　　　　<key>theName</key>
　　　　<string>J-POP</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>9</integer>
　　　　<key>theName</key>
　　　　<string>New Age</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>5</integer>
　　　　<key>theName</key>
　　　　<string>ダンス</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>5</integer>
　　　　<key>theName</key>
　　　　<string>ホリデー</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>4</integer>
　　　　<key>theName</key>
　　　　<string>カントリー</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>4</integer>
　　　　<key>theName</key>
　　　　<string>演歌</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>3</integer>
　　　　<key>theName</key>
　　　　<string>Latin</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>3</integer>
　　　　<key>theName</key>
　　　　<string>ヒップホップ／ラップ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>2</integer>
　　　　<key>theName</key>
　　　　<string>Vocal</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>2</integer>
　　　　<key>theName</key>
　　　　<string>R&B/ソウル</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>2</integer>
　　　　<key>theName</key>
　　　　<string>R&B／ソウル</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>2</integer>
　　　　<key>theName</key>
　　　　<string>#NIPPONSEI @ IRC.MIRCX.COM</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>148</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Electronic</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Folk</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>NHK FM(東京)</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>その他</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>チルドレン・ミュージック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Seattle Pacific University – Latin</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Kayokyoku</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>ヒップホップ/ ラップ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Dance</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>インストゥルメンタル</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>146</string>
　　</dict>
</array>
</plist>
"
　　
end retSerializedData

–list or record –> XML-format plist string
on serializeToPlistString(aList as {list, record})
　　set pListData to current application’s NSPropertyListSerialization’s dataWithPropertyList:aList |format|:(current application’s NSPropertyListXMLFormat_v1_0) options:0 |error|:(missing value)
　　set bStr to (current application’s NSString’s alloc()’s initWithData:pListData encoding:(current application’s NSUTF8StringEncoding)) as string
　　return bStr
end serializeToPlistString

–XML-format plist string–> list or record
on deserializeToPlistString(aStr as string)
　　set deStr to current application’s NSString’s stringWithString:aStr
　　set theData to deStr’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aList to current application’s NSPropertyListSerialization’s propertyListWithData:theData options:(current application’s NSPropertyListMutableContainersAndLeaves) |format|:(missing value) |error|:(missing value)
　　return aList
end deserializeToPlistString

★Click Here to Open This Script　

system_profilerの結果のstringのplistをdictionaryにのコピー2

Posted on 2月 7, 2018 by Takaaki Naganoya

AppleScript名：system_profilerの結果のstringのplistをdictionaryにのコピー2

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

set aTargKey to "machine_name"
set aTargGenre to "SPHardwareDataType"

set macRes to getSystemProfileInAGenre(aTargGenre, aTargKey) of me
–>　　"MacBook Pro"

on getSystemProfileInAGenre(aTargGenre, aTargKey)
　　set sRes to do shell script ("/usr/sbin/system_profiler -xml " & aTargGenre)
　　set aSource to (my readPlistFromStr:sRes) as list
　　set aaList to contents of first item of aSource
　　
　　set aList to _items of aaList
　　repeat with i in aList
　　　　set aDict to (current application’s NSMutableDictionary’s dictionaryWithDictionary:(contents of i))
　　　　set aKeyList to (aDict’s allKeys()) as list
　　　　if aTargKey is in aKeyList then
　　　　　　set aRes to (aDict’s valueForKeyPath:aTargKey)
　　　　　　if aRes is not equal to missing value then
　　　　　　　　return aRes as string
　　　　　　end if
　　　　end if
　　end repeat
　　
　　return false
end getSystemProfileInAGenre

–stringのplistを読み込んでRecordに
on readPlistFromStr:theString
　　set aSource to current application’s NSString’s stringWithString:theString
　　set pListData to aSource’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aPlist to current application’s NSPropertyListSerialization’s propertyListFromData:pListData mutabilityOption:(current application’s NSPropertyListImmutable) |format|:(current application’s NSPropertyListFormat) errorDescription:(missing value)
　　return aPlist
end readPlistFromStr:

★Click Here to Open This Script　

XPathQuery4ObjCのじっけん２

Posted on 2月 7, 2018 by Takaaki Naganoya

XMLに対して、オープンソースの「XPathQuery4ObjC」を用いてXPathを指定してXML内の要素にアクセスするAppleScriptです。

XMLに対してXpathを指定してアクセスする道具はいろいろあります。

Syetem Eventsを使ってXMLにアクセスする方法、XMLLib OSAX、オープンソースのObjective-CのプログラムをCocoa Framework化したもの、etc。

ただ、macOS 10.14でOSAXが事実上使えなくなったことを考えると、OSAXによるAppleScriptの予約語拡張は得策ではありません。System Eventsも１つの解決策ではありますが、XPathが使えないのでほとんど使いません。

こうしたObjective-Cで記述されたプログラムをAppleScriptから呼び出すのが、現状でもっとも効率のよい解決策です。各プログラムはだいたいにおいて挙動が異なり、XMLの構造も一様ではありません。複数のプログラムをためして、対象のXMLを思い通りに処理できるか、総当たりで確認しています。

–> XPathQueryKit.framework

AppleScript名：XPathQuery4ObjCのじっけん２

— Created 2017-01-05 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "XPathQueryKit"
–https://github.com/cybergarage/XPathQuery4ObjC
–http://piyocast.com/as/archives/4376

set rssURL to current application’s |NSURL|’s URLWithString:"http://piyocast.com/as/feed"
set xpathQuery to current application’s CGXPathQuery’s alloc()’s initWithContentsOfURL:rssURL

if ((xpathQuery’s parse()) as boolean) = true then
　　set entriesList to xpathQuery’s objectsForXPath:"/rss/channel/item"
　　
　　repeat with itemObject in entriesList
　　　　set aChild to itemObject’s children()
　　　　log aChild
　　　　
　　　　set aTitle to (itemObject’s valueForXPath:"title")
　　　　log aTitle as string
　　　　
　　　　set aLink to (itemObject’s valueForXPath:"link")
　　　　log aLink as string
　　　　
　　　　set aComments to (itemObject’s valueForXPath:"comments")
　　　　log aComments as string
　　　　
　　　　set aPubdate to (itemObject’s valueForXPath:"pubDate")
　　　　log aPubdate as string
　　　　
　　　　set aCreator to (itemObject’s valueForXPath:"dc:creator")
　　　　log aCreator as string
　　　　
　　　　set aCategory to (itemObject’s valuesForXPath:"category")
　　　　log aCategory as list
　　　　
　　　　set aGUID to (itemObject’s valuesForXPath:"guid")
　　　　log aGUID as string
　　　　
　　　　set aDesc to (itemObject’s valueForXPath:"description")
　　　　log aDesc as string
　　　　
　　　　set aCommentURL to (itemObject’s valueForXPath:"wfw:commentRss")
　　　　log aCommentURL as string
　　end repeat
　　
end if

★Click Here to Open This Script　

recordをXMLに v2

Posted on 2月 7, 2018 by Takaaki Naganoya

AppleScript名：recordをXMLに v2

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

set theRecord to {firstName:"Saga", lastName:"Norén", city:"Malmö"}
makeXMLDocWithRecord(theRecord)
–>
(*
"<?xml version=＼"1.0＼" encoding=＼"UTF-8＼" standalone=＼"yes＼"?>＼n<character>＼n <firstName>Saga</firstName>＼n <city>Malmö</city>＼n <lastName>Norén</lastName>＼n</character>"
*)

set theRecord to {firstName:"Saga", lastName:"Norén", city:"Malmö", partner:{firstName:"Martin", lastName:"Rohde", city:"København"}}
makeXMLDocWithRecord(theRecord)
–>
(*
"<?xml version=＼"1.0＼" encoding=＼"UTF-8＼" standalone=＼"yes＼"?>＼n<character>＼n <firstName>Saga</firstName>＼n <lastName>Norén</lastName>＼n <city>Malmö</city>＼n <partner>＼n <firstName>Martin</firstName>＼n <city>København</city>＼n <lastName>Rohde</lastName>＼n </partner>＼n</character>"
*)

–Record –> XML (text)
on makeXMLDocWithRecord(theRecord)
　　— make root element
　　set rootElement to current application’s NSXMLNode’s elementWithName:"character"
　　
　　— make XML document
　　set theXMLDocument to current application’s NSXMLDocument’s alloc()’s initWithRootElement:rootElement
　　theXMLDocument’s setDocumentContentKind:(current application’s NSXMLDocumentXMLKind)
　　theXMLDocument’s setStandalone:true
　　theXMLDocument’s setCharacterEncoding:"UTF-8"
　　
　　— make dictionary from record
　　set anNSDictionary to current application’s NSDictionary’s dictionaryWithDictionary:theRecord
　　
　　— add children to root element
　　its addChildTo:rootElement withDictionary:anNSDictionary
　　
　　— return as string with whatever formatting options you want
　　return (theXMLDocument’s XMLStringWithOptions:(current application’s NSXMLNodePrettyPrint)) as text
end makeXMLDocWithRecord

on addChildTo:parentElement withDictionary:theDict
　　set theKeys to theDict’s allKeys() as list
　　repeat with i from 1 to count of theKeys
　　　　set theKey to item i of theKeys
　　　　set theValue to (theDict’s objectForKey:theKey)
　　　　set newElement to (current application’s NSXMLNode’s elementWithName:theKey)
　　　　(parentElement’s addChild:newElement)
　　　　if (theValue’s isKindOfClass:(current application’s NSDictionary)) as boolean then
　　　　　　(its addChildTo:newElement withDictionary:theValue)
　　　　else
　　　　　　(newElement’s setObjectValue:theValue)
　　　　end if
　　end repeat
end addChildTo:withDictionary:

★Click Here to Open This Script　

XmlToDictKitでXMLをDictionaryに（remote file）

Posted on 2月 7, 2018 by Takaaki Naganoya

–> XmlToDictKit.framework

AppleScript名：XmlToDictKitでXMLをDictionaryに（remote file）

— Created 2016-11-05 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "XmlToDictKit" –https://github.com/nicklockwood/XMLDictionary

set aURL to current application’s |NSURL|’s alloc()’s initWithString:"http://www.ibiblio.org/xml/examples/shakespeare/all_well.xml"
set xmlString to current application’s NSString’s alloc()’s initWithContentsOfURL:aURL encoding:(current application’s NSUTF8StringEncoding) |error|:(missing value)
if xmlString = missing value then return false
set xmlDoc to (current application’s NSDictionary’s dictionaryWithXMLString:xmlString) as record

★Click Here to Open This Script　

XmlToDictKitでXMLをDictionaryに（local file）

Posted on 2月 7, 2018 by Takaaki Naganoya

–> XmlToDictKit.framework

AppleScript名：XmlToDictKitでXMLをDictionaryに（local file）

— Created 2016-11-05 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "XmlToDictKit" –https://github.com/nicklockwood/XMLDictionary

set aFile to POSIX path of (choose file)
set aURL to current application’s |NSURL|’s fileURLWithPath:aFile
set xmlString to current application’s NSString’s alloc()’s initWithContentsOfURL:aURL encoding:(current application’s NSUTF8StringEncoding) |error|:(missing value)
if xmlString = missing value then return false
set xmlDoc to (current application’s NSDictionary’s dictionaryWithXMLString:xmlString) as record

★Click Here to Open This Script　

XMLをrecordにv2

Posted on 2月 7, 2018 by Takaaki Naganoya

XMLを解釈してAppleScriptのレコード型のデータに変換するAppleScriptです。

ひとことにXMLといっても、割と書き方にばらつきがあり、１つのルーチンやライブラリで解決できるというものでもない、ということを日々痛感しています。

さまざまな処理方法をおこなうXML解釈プログラムを用意しておいて、かたっぱしから試して適合するものを使っているというところです。本ルーチンで処理できる（解釈しやすい結果を出せる）XMLもあれば、そうでないものもあることでしょう。

また、解釈したXMLのタグについてもそのままではAppleScriptで取り扱えない（スペースを含むとか、特殊文字を含むとか）ものもあり、

　　XML → NSDictionary → Record

と、AppleScriptのRecordまで変換してしまうと逆に取り扱いにくい場合もあるため、

　　XML → NSDictionary

と、とどめておいて適宜NSDictionaryからデータを取り出すような処理を行うこともあります。

AppleScript名：XMLをrecordにv2

–2015 Shane Stanley & Alex Zavatone
— Modified 2016-11-06 by Takaaki Naganoya
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property dictStack : missing value — stack to hold array of dictionaries
property textInProgress : "" — string to collect text as it is found
property anError : missing value — if we get an error, store it here

set xmlRes to my makeRecordWithXML:(returnData() of me)
–> {|character|:{firstName:{|contents|:"Saga"}, lastName:{|contents|:"Norén"}, city:{|contents|:"Malmö"}, partner:{firstName:{|contents|:"Martin"}, lastName:{|contents|:"Rohde"}, city:{|contents|:"København"}, attributes:{approach:"dogged"}}}}

on makeRecordWithXML:xmlString
　　— set up properties
　　set my dictStack to current application’s NSMutableArray’s array() — empty mutable array
　　set anEmpty to current application’s NSMutableDictionary’s |dictionary|()
　　(my dictStack)’s addObject:anEmpty — add empty mutable dictionary
　　set my textInProgress to current application’s NSMutableString’s |string|() — empty mutable string
　　
　　— convert XML from string to data
　　set anNSString to current application’s NSString’s stringWithString:xmlString
　　set theData to anNSString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　
　　— initialize an XML parser with the data
　　set theNSXMLParser to current application’s NSXMLParser’s alloc()’s initWithData:theData
　　
　　— set this script to be the parser’s delegate
　　theNSXMLParser’s setDelegate:me
　　
　　— tell it to parse the XML
　　set theResult to theNSXMLParser’s parse()
　　if theResult then — went OK, get first item on stack
　　　　return ((my dictStack)’s firstObject()) –as record
　　else — error, so return error
　　　　error (my anError’s localizedDescription() as text)
　　end if
end makeRecordWithXML:

— this is an XML parser delegate method. Called when new element found
on parser:anNSXMLParser didStartElement:elementName namespaceURI:aString qualifiedName:qName attributes:aRecord
　　— store reference to last item on the stack
　　set parentDict to my dictStack’s lastObject()
　　
　　— make new child
　　set childDict to current application’s NSMutableDictionary’s |dictionary|()
　　
　　— if there are attributes, add them as a record with key "attributes"
　　if aRecord’s |count|() > 0 then
　　　　childDict’s setValue:aRecord forKey:"attributes"
　　end if
　　
　　— see if there’s already an item for this key
　　set existingValue to parentDict’s objectForKey:elementName
　　
　　if existingValue is not missing value then
　　　　— there is, so if it’s an array, store it…
　　　　if (existingValue’s isKindOfClass:(current application’s NSMutableArray)) as boolean then
　　　　　　set theArray to existingValue
　　　　else
　　　　　　— otherwise create an array and add it
　　　　　　set theArray to current application’s NSMutableArray’s arrayWithObject:existingValue
　　　　　　parentDict’s setObject:theArray forKey:elementName
　　　　end if
　　　　
　　　　— then add the new dictionary to the array
　　　　theArray’s addObject:childDict
　　else
　　　　— add new dictionary directly to the parent
　　　　parentDict’s setObject:childDict forKey:elementName
　　end if
　　
　　— also add the new dictionary to the end of the stack
　　(my dictStack)’s addObject:childDict
end parser:didStartElement:namespaceURI:qualifiedName:attributes:

— this is an XML parser delegate method. Called at the end of an element
on parser:anNSXMLParser didEndElement:elementName namespaceURI:aString qualifiedName:qName
　　— if any text has been stored, add it as a record with key "contents"
　　if my textInProgress’s |length|() > 0 then
　　　　set dictInProgress to my dictStack’s lastObject()
　　　　dictInProgress’s setObject:textInProgress forKey:"contents"
　　　　
　　　　— reset textInProgress property for next element
　　　　set my textInProgress to current application’s NSMutableString’s |string|()
　　end if
　　
　　— remove last item from the stack
　　my dictStack’s removeLastObject()
end parser:didEndElement:namespaceURI:qualifiedName:

— this is an XML parser delegate method. Called when string is found. May be called repeatedly
on parser:anNSXMLParser foundCharacters:aString
　　— only append string if it’s not solely made of space characters (which should be, but aren’t, caught by another delegate method)
　　if (aString’s stringByTrimmingCharactersInSet:(current application’s NSCharacterSet’s whitespaceAndNewlineCharacterSet()))’s |length|() > 0 then
　　　　(my textInProgress)’s appendString:aString
　　end if
end parser:foundCharacters:

— this is an XML parser delegate method. Called when there’s an error
on parser:anNSXMLParser parseErrorOccurred:anNSError
　　set my anError to anNSError
end parser:parseErrorOccurred:

on returnData()
　　return "<?xml version=＼"1.0＼" encoding=＼"UTF-8＼"?>
<rss version=＼"2.0＼" xmlns:dcterms=＼"http://purl.org/dc/terms/＼" xmlns:dcndl=＼"http://ndl.go.jp/dcndl/terms/＼" xmlns:xsi=＼"http://www.w3.org/2001/XMLSchema-instance＼" xmlns:dcmitype=＼"http://purl.org/dc/dcmitype/＼" xmlns:dc=＼"http://purl.org/dc/elements/1.1/＼" xmlns:openSearch=＼"http://a9.com/-/spec/opensearchrss/1.0/＼" xmlns:rdfs=＼"http://www.w3.org/2000/01/rdf-schema#＼" xmlns:rdf=＼"http://www.w3.org/1999/02/22-rdf-syntax-ns#＼">
<channel>
<title>Mac使いへの道 – 国立国会図書館サーチ OpenSearch</title>
<link>http://iss.ndl.go.jp/api/opensearch?title=Mac%E4%BD%BF%E3%81%84%E3%81%B8%E3%81%AE%E9%81%93</link>
<description>Search results for title=Mac使いへの道 </description>
<language>ja</language>
<openSearch:totalResults>1</openSearch:totalResults>
<openSearch:startIndex>1</openSearch:startIndex>
<openSearch:itemsPerPage></openSearch:itemsPerPage>
<item>
<title>Mac使いへの道</title>
<link>http://iss.ndl.go.jp/books/R100000002-I000003026578-00</link>
<description>
<![CDATA[<p>ソフトバンクパブリッシング,4797316489</p>
<ul><li>タイトル： Mac使いへの道</li>
<li>タイトル（読み）： Macツカイエノミチ</li>
<li>責任表示：長野谷隆昌著,</li>
<li>NDC(9)： 548.29</li>
</ul>]]>
</description>
<author>長野谷隆昌著,</author>
<category>本</category>
<guid isPermaLink=＼"true＼">http://iss.ndl.go.jp/books/R100000002-I000003026578-00</guid>
<pubDate>Thu, 08 May 2003 09:00:00 +0900</pubDate>
<dc:title>Mac使いへの道</dc:title>
<dcndl:titleTranscription>Macツカイエノミチ</dcndl:titleTranscription>
<dc:creator>長野谷隆昌著</dc:creator>
<dc:publisher>ソフトバンクパブリッシング</dc:publisher>
<dcterms:issued xsi:type=＼"dcterms:W3CDTF＼">2001</dcterms:issued>
<dc:identifier xsi:type=＼"dcndl:ISBN＼">4797316489</dc:identifier>
<dc:identifier xsi:type=＼"dcndl:JPNO＼">20206272</dc:identifier>
<dc:subject>コンピュータ</dc:subject>
<dc:subject xsi:type=＼"dcndl:NDLC＼">M154</dc:subject>
<dc:subject xsi:type=＼"dcndl:NDC9＼">548.29</dc:subject>
<dcterms:description>文献あり</dcterms:description>
<rdfs:seeAlso rdf:resource=＼"http://id.ndl.go.jp/bib/000003026578＼"/>
</item>
</channel>
</rss>"
end returnData

★Click Here to Open This Script　

PKXMLKitでRSSをrecordに

Posted on 2月 7, 2018 by Takaaki Naganoya

–> PKXMLKit.framework

AppleScript名：PKXMLKitでRSSをrecordに

— Created 2017-12-18 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "PKXMLKit" –https://github.com/pawankv89/PKXMLParser

set aURL to "http://piyocast.com/as/feed/"
set aXMLURL to current application’s |NSURL|’s URLWithString:aURL
set xmlString to current application’s NSString’s alloc()’s initWithContentsOfURL:aXMLURL encoding:(current application’s NSUTF8StringEncoding) |error|:(missing value)
set xmlDoc to current application’s NSDictionary’s dictionaryWithXMLString:xmlString
set titleList to (xmlDoc’s valueForKeyPath:"channel.item.title") as list
–>　　{"アドウェア「OSX.Pirrit」のAppleScriptコードを読んでみた", "表示中のCotEditor書類の「次」のファイルを縦書きでオープン", "ハンドラ間接呼び出し", …}

★Click Here to Open This Script　

recordをJSON文字列に

Posted on 2月 7, 2018 by Takaaki Naganoya

recordをJSON文字列に変換するAppleScriptです。

AppleScript名：recordをJSON文字列に.scpt

— Created 2015-07-20 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aRec to {abc:"test", bcd:"test2", cde:"test3"}
set aJson to convRecToJson(aRec) of me as string
–>　　 "{"abc":"test","bcd":"test2","cde":"test3"}"

on convRecToJson(aRec)
　　set aDict to current application’s NSDictionary’s dictionaryWithDictionary:aRec
　　set jsonData to current application’s NSJSONSerialization’s dataWithJSONObject:aDict options:(0 as integer) |error|:(missing value) –0 is NSJSONWritingPrettyPrinted
　　set resString to current application’s NSString’s alloc()’s initWithData:jsonData encoding:(current application’s NSUTF8StringEncoding)
　　return resString
end convRecToJson

★Click Here to Open This Script　

ASOCでjson文字列をrecordに

Posted on 2月 7, 2018 by Takaaki Naganoya

AppleScript名：ASOCでjson文字列をrecordに

— Created 2015-07-20 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set jsonText to "{＼"abc＼":＼"test＼",＼"bcd＼":＼"test2＼",＼"cde＼":＼"test3＼"}"

set jsonString to current application’s NSString’s stringWithString:jsonText
–>　　(NSString) "{"abc":"test","bcd":"test2","cde":"test3"}"

set jsonData to jsonString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
–>　　(NSData) <7b226162 63223a22 74657374 222c2262 6364223a 22746573 7432222c 22636465 223a2274 65737433 227d>

set aJsonDict to current application’s NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value)
–>　　(NSDictionary) {abc:"test", bcd:"test2", cde:"test3"}

set aRec to aJsonDict as record
–>　　{abc:"test", bcd:"test2", cde:"test3"}

★Click Here to Open This Script　

NSDictionaryを値とキーの列挙で作成する 2

Posted on 2月 7, 2018 by Takaaki Naganoya

AppleScript名：NSDictionaryを値とキーの列挙で作成する 2

— Created 2017-03-03 01:16:41 +0900 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set bundleList to {"com.apple.filemerge", "com.barebones.bbedit", "com.barebones.textwrangler"}
set dummyList to {"fdummy", "bbedummy", "twdummy"}

set aDict to current application’s NSMutableDictionary’s dictionaryWithObjects:dummyList forKeys:bundleList
–>　　(NSDictionary) {com.apple.filemerge:"fdummy", com.barebones.textwrangler:"twdummy", com.barebones.bbedit:"bbedummy"}

set aRes to aDict’s valueForKey:"com.barebones.bbedit"
–>　　(NSString) "bbedummy"

★Click Here to Open This Script　

NSDictionaryを値とキーの列挙で作成する

Posted on 2月 7, 2018 by Takaaki Naganoya

AppleScript名：NSDictionaryを値とキーの列挙で作成する

— Created 2016-03-02 23:34:42 +0900 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set eDic1 to current application’s NSDictionary’s dictionaryWithObjectsAndKeys_(42, "number", "Hello World", "string", missing value)
–>　　(NSDictionary) {number:42, string:"Hello World"}

★Click Here to Open This Script　

asoc_レコードをリストから生成

Posted on 2月 7, 2018 by Takaaki Naganoya

AppleScript名：asoc_レコードをリストから生成

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

set labelList to {"Address", "Names"}
set valueList to {"ここらへん", "ぴよまるさん"}

set theResult to current application’s NSDictionary’s dictionaryWithObjects:(valueList) forKeys:(labelList)
set aRec to theResult as record

–> {Address:"ここらへん", Names:"ぴよまるさん"}

★Click Here to Open This Script　

ASOCでNSPredicateによる正規表現を併用した抽出

Posted on 2月 7, 2018 by Takaaki Naganoya

AppleScript名：ASOCでNSPredicateによる正規表現を併用した抽出

— Created 2015-09-28 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use BridgePlus : script "BridgePlus" —https://www.macosxautomation.com/applescript/apps/BridgePlus.html

set sampleList to {{textData:"Piyomaru", uID:1}, {textData:"Xx Piyomaru x", uID:2}, {textData:"xxxxx 11111111 98 x xxxxxxxx.", uID:3}, {textData:"98x Xxxxxx (xx xxxxxxxxxx)", uID:4}, {textData:"<< 98158113 >>", uID:5}, {textData:"#98158084 Xxxxx Xxxxx xxxx", uID:6}, {textData:"#98158084 Xxxxx Xxxxx xxxx", uID:7}, {textData:"Office # 98158107", uID:8}, {textData:"ID#98158087", uID:9}, {textData:"98158089", uID:10}, {textData:"00158098", uID:11}}

–全文一致で抽出
set aRes to my filterRecListByLabel1(sampleList, "textData == ’Piyomaru’")
–>　　{{textData:"Piyomaru", uID:1}}

–部分一致で抽出
set bRes to my filterRecListByLabel1(sampleList, "textData contains ’Piyomaru’")
–>　　{{textData:"Piyomaru", uID:1}, {textData:"Xx Piyomaru x", uID:2}}

–正規表現で抽出（８桁の数字）
set cRes to my filterRecListByLabel1(sampleList, "textData MATCHES ’＼＼＼＼d{8}’")
–>　　{{textData:"98158089", uID:10}, {textData:"00158089", uID:11}}

set dRes to my filterRecListByLabel1(sampleList, "textData MATCHES ’98＼＼＼＼d{6}’")
–>　　{{textData:"98158089", uID:10}}

set eRes to my filterRecListByLabel1(sampleList, "textData LIKE ’*98??????*’")
–>　　{{textData:"xxxxx 11111111 98 x xxxxxxxx.", uID:3}, {textData:"98x Xxxxxx (xx xxxxxxxxxx)", uID:4}, {textData:"<< 98158113 >>", uID:5}, {textData:"#98158084 Xxxxx Xxxxx xxxx", uID:6}, {textData:"#98158084 Xxxxx Xxxxx xxxx", uID:7}, {textData:"Office # 98158107", uID:8}, {textData:"ID#98158087", uID:9}, {textData:"98158089", uID:10}}

set fRes to my filterRecListByLabel1(sampleList, "textData LIKE ’*＼"98＼"[0-9][0-9][0-9][0-9][0-9][0-9]*’") –Oops!!
–>　　{}

set gRes to my filterRecListByLabel1(sampleList, "textData LIKE ’*[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]*’") –Oops!!
–>　　{}

set hRes to my filterRecListByLabel1(sampleList, "textData MATCHES ’.*[98]＼＼＼＼d{6}.*’") –OK!!

–>　　{{textData:"<< 98158113 >>", uID:5}, {textData:"#98158084 Xxxxx Xxxxx xxxx", uID:6}, {textData:"#98158084 Xxxxx Xxxxx xxxx", uID:7}, {textData:"Office # 98158107", uID:8}, {textData:"ID#98158087", uID:9}, {textData:"98158089", uID:10}}

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel1(aRecList as list, aPredicate as string)
　　set aArray to current application’s NSArray’s arrayWithArray:aRecList
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat:aPredicate
　　set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate
　　set bList to ASify from filteredArray as list
　　return bList
end filterRecListByLabel1

★Click Here to Open This Script　

レコードとレコードの連結

Posted on 2月 7, 2018 by Takaaki Naganoya

AppleScript名：レコードとレコードの連結

–Case: same label (fullName) and same value ("abc")
set aRec to {fullName:"abc", anAge:46}
set bRec to {fullName:"abc", aInfo:10}

set cRec to aRec & bRec
–> {fullName:"abc", anAge:46, aInfo:10}

–Case: same label (fullName) and different value ("abc", "def")
set dRec to {fullName:"abc", anAge:46}
set eRec to {fullName:"def", aInfo:10}

set fRec to dRec & eRec
–> {fullName:"abc", anAge:46, aInfo:10}

set gRec to eRec & dRec
–> {fullName:"def", aInfo:10, anAge:46}

★Click Here to Open This Script　

指定ラベルと指定属性値でレコードに追加

Posted on 2月 7, 2018 by Takaaki Naganoya

AppleScript名：指定ラベルと指定属性値でレコードに追加

— Created 2017-03-16 11:51:08 +0900 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aRec to {f1:"1", f2:"2", f3:"3"}
set bRec to addValueForKey(aRec, "100", "f10") of me
–>　　{f1:"1", f3:"3", f10:"100", f2:"2"}

on addValueForKey(aRec, aVal, aKey)
　　set aDict to current application’s NSMutableDictionary’s dictionaryWithDictionary:aRec
　　aDict’s addObject:aVal forKey:aKey
　　return aDict as record
end addValueForKey

★Click Here to Open This Script　

ASOCでDict読み込みして、指定のMSの搭乗回数を取得する v2

Posted on 2月 7, 2018 by Takaaki Naganoya

AppleScript名：ASOCでDict読み込みして、指定のMSの搭乗回数を取得する v2

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

set aName to "efsf.plist"
set aFolName to "戦場の絆"
set aRec to retDictFromPlist(aFolName, aName) of me
set msL to msList of aRec

set eList to filterRecListByLabel(msL, "msName CONTAINS ’近ザクII(F2) 獲得済’") of me
set aTimes to sortieTimes of first item of eList

on retDictFromPlist(aFolName, aPlistName)
　　
　　set myAppSupDir to ((path to application support from user domain) as string) & aFolName & ":"
　　tell application "System Events" –Finderでなくこちらを使ってみた
　　　　tell folder myAppSupDir
　　　　　　set aExit to exists of file aPlistName
　　　　end tell
　　end tell
　　
　　if aExit = false then
　　　　return {}
　　else
　　　　set aPath to (POSIX path of myAppSupDir) & aPlistName
　　　　set thePath to current application’s NSString’s stringWithString:aPath
　　　　set thePath to thePath’s stringByExpandingTildeInPath()
　　　　set theDict to current application’s NSDictionary’s dictionaryWithContentsOfFile:thePath
　　　　return theDict as record
　　end if
　　
end retDictFromPlist

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

★Click Here to Open This Script　