Menu

Skip to content
AppleScriptの穴
  • Home
  • Products
  • Books
  • Docs
  • Events
  • Forum
  • About This Blog
  • License
  • 仕事依頼

AppleScriptの穴

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

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&amp;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&amp;B/ソウル</string>
  </dict>
  <dict>
    <key>numberOfTimes</key>
    <integer>2</integer>
    <key>theName</key>
    <string>R&amp;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 

Keynote Control 1

Keynote Control 2

More from my site

  • Keynote書類のテキスト色を置換Keynote書類のテキスト色を置換
  • Keynoteの各slideのtitleから目次のテキストを作成してNumbersの表を作成Keynoteの各slideのtitleから目次のテキストを作成してNumbersの表を作成
  • Keynoteのexport optionsにバグKeynoteのexport optionsにバグ
  • Keynoteで選択中の表を取得するKeynoteで選択中の表を取得する
  • RectangleBinPackを用いて2D Bin Packを解くRectangleBinPackを用いて2D Bin Packを解く
  • Keynote上で選択中のオブジェクトのRectangleを合成Keynote上で選択中のオブジェクトのRectangleを合成
(Visited 52 times, 1 visits today)
Posted in Record | Tagged 10.11savvy 10.12savvy 10.13savvy Keynote | Leave a comment

Leave a Reply Cancel reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

電子書籍(PDF)をオンラインストアで販売中!

Google Search

Popular posts

  • macOS 13, Ventura(継続更新)
  • アラートダイアログ上にWebViewで3Dコンテンツを表示(WebGL+three.js)v3
  • UI Browserがgithub上でソース公開され、オープンソースに
  • macOS 13 TTS Voice環境に変更
  • Xcode 14.2でAppleScript App Templateを復活させる
  • 2022年に書いた価値あるAppleScript
  • ChatGPTで文章のベクトル化(Embedding)
  • 新発売:AppleScriptからSiriを呼び出そう!
  • iWork 12.2がリリースされた
  • 従来と異なるmacOS 13の性格?
  • 新発売:CotEditor Scripting Book with AppleScript
  • macOS 13対応アップデート:AppleScript実践的テクニック集(1)GUI Scripting
  • AS関連データの取り扱いを容易にする(はずの)privateDataTypeLib
  • macOS 13でNSNotFoundバグふたたび
  • macOS 12.5.1、11.6.8でFinderのselectionでスクリーンショット画像をopenできない問題
  • ChatGPTでchatに対する応答文を取得
  • 新発売:iWork Scripting Book with AppleScript
  • Finderの隠し命令openVirtualLocationが発見される
  • macOS 13.1アップデートでスクリプトエディタの挙動がようやくまともに
  • あのコン過去ログビューワー(暫定版)

Tags

10.11savvy (1101) 10.12savvy (1242) 10.13savvy (1390) 10.14savvy (586) 10.15savvy (434) 11.0savvy (277) 12.0savvy (185) 13.0savvy (55) CotEditor (60) Finder (47) iTunes (19) Keynote (98) NSAlert (60) NSArray (51) NSBezierPath (18) NSBitmapImageRep (20) NSBundle (20) NSButton (34) NSColor (51) NSDictionary (27) NSFileManager (23) NSFont (18) NSImage (41) NSJSONSerialization (21) NSMutableArray (62) NSMutableDictionary (21) NSPredicate (36) NSRunningApplication (56) NSScreen (30) NSScrollView (22) NSString (117) NSURL (97) NSURLRequest (23) NSUTF8StringEncoding (30) NSView (33) NSWorkspace (20) Numbers (56) Pages (37) Safari (41) Script Editor (20) WKUserContentController (21) WKUserScript (20) WKUserScriptInjectionTimeAtDocumentEnd (18) WKWebView (23) WKWebViewConfiguration (22)

カテゴリー

  • 2D Bin Packing
  • 3D
  • AirDrop
  • AirPlay
  • Animation
  • AppleScript Application on Xcode
  • beta
  • Bluetooth
  • Books
  • boolean
  • bounds
  • Bug
  • Calendar
  • call by reference
  • Clipboard
  • Code Sign
  • Color
  • Custom Class
  • dialog
  • drive
  • exif
  • file
  • File path
  • filter
  • folder
  • Font
  • Font
  • GAME
  • geolocation
  • GUI
  • GUI Scripting
  • Hex
  • History
  • How To
  • iCloud
  • Icon
  • Image
  • Input Method
  • Internet
  • iOS App
  • JavaScript
  • JSON
  • JXA
  • Keychain
  • Keychain
  • Language
  • Library
  • list
  • Locale
  • Machine Learning
  • Map
  • Markdown
  • Menu
  • Metadata
  • MIDI
  • MIME
  • Natural Language Processing
  • Network
  • news
  • Noification
  • Notarization
  • Number
  • Object control
  • OCR
  • OSA
  • PDF
  • Peripheral
  • PRODUCTS
  • QR Code
  • Raw AppleEvent Code
  • Record
  • rectangle
  • recursive call
  • regexp
  • Release
  • Remote Control
  • Require Control-Command-R to run
  • REST API
  • Review
  • RTF
  • Sandbox
  • Screen Saver
  • Script Libraries
  • sdef
  • search
  • Security
  • selection
  • shell script
  • Shortcuts Workflow
  • Sort
  • Sound
  • Spellchecker
  • Spotlight
  • SVG
  • System
  • Tag
  • Telephony
  • Text
  • Text to Speech
  • timezone
  • Tools
  • Update
  • URL
  • UTI
  • Web Contents Control
  • WiFi
  • XML
  • XML-RPC
  • イベント(Event)
  • 未分類

アーカイブ

  • 2023年9月
  • 2023年8月
  • 2023年7月
  • 2023年6月
  • 2023年5月
  • 2023年4月
  • 2023年3月
  • 2023年2月
  • 2023年1月
  • 2022年12月
  • 2022年11月
  • 2022年10月
  • 2022年9月
  • 2022年8月
  • 2022年7月
  • 2022年6月
  • 2022年5月
  • 2022年4月
  • 2022年3月
  • 2022年2月
  • 2022年1月
  • 2021年12月
  • 2021年11月
  • 2021年10月
  • 2021年9月
  • 2021年8月
  • 2021年7月
  • 2021年6月
  • 2021年5月
  • 2021年4月
  • 2021年3月
  • 2021年2月
  • 2021年1月
  • 2020年12月
  • 2020年11月
  • 2020年10月
  • 2020年9月
  • 2020年8月
  • 2020年7月
  • 2020年6月
  • 2020年5月
  • 2020年4月
  • 2020年3月
  • 2020年2月
  • 2020年1月
  • 2019年12月
  • 2019年11月
  • 2019年10月
  • 2019年9月
  • 2019年8月
  • 2019年7月
  • 2019年6月
  • 2019年5月
  • 2019年4月
  • 2019年3月
  • 2019年2月
  • 2019年1月
  • 2018年12月
  • 2018年11月
  • 2018年10月
  • 2018年9月
  • 2018年8月
  • 2018年7月
  • 2018年6月
  • 2018年5月
  • 2018年4月
  • 2018年3月
  • 2018年2月

https://piyomarusoft.booth.pm/items/301502

メタ情報

  • ログイン
  • 投稿フィード
  • コメントフィード
  • WordPress.org

Forum Posts

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

メタ情報

  • ログイン
  • 投稿フィード
  • コメントフィード
  • WordPress.org
Proudly powered by WordPress
Theme: Flint by Star Verte LLC