AppleScript名:QuickTIme Playerの最前面のムービーの現在表示中のコマをデスクトップにJPEG画像で保存 |
— Created 2018-01-20 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "AppKit" –http://piyocast.com/as/archives/5123 property NSUUID : a reference to current application’s NSUUID set the clipboard to "" –Clear Clipboard (=Pasteboard) tell application "QuickTime Player" repeat 100 times if aRes = false then return –クリップボードの内容をNSImageに –保存先とファイル名を求める set aRes to saveNSImageAtPathAsJPG(aNSIMage, outPath, 1.0) of me — クリップボードの内容をNSImageとして取り出して返す –NSImageを指定パスにJPEG形式で保存、qulityNumは0.0〜1.0。1.0は無圧縮 –http://ashplanning.blogspot.jp/2006/12/blog-post.html |
カテゴリー: 未分類
Numbersでセルのカラム幅を自動調整 v2
AppleScript名:Numbersでセルのカラム幅を自動調整 v2 |
— Created 2018-1-11 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" –http://piyocast.com/as/archives/5116 tell application "Numbers" |
デスクトップ上のRetina解像度のスクリーンショット画像でICNS以外のものを検索
AppleScript名:デスクトップ上のRetina解像度のスクリーンショット画像でICNS以外のものを検索 |
— Created 2017-09-23 by Takaaki Naganoya — Modified 2017-12-01 by Takaaki Naganoya — 2017 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use mdLib : script "Metadata Lib" version "1.0.0" –https://www.macosxautomation.com/applescript/apps/Script_Libs.html#Metadata_Lib set theFolder to path to desktop |
指定日時以降に作成されたファイルをSpotlight検索 v3
AppleScript名:指定日時以降に作成されたファイルをSpotlight検索 v3 |
— Created 2017-09-21 by Takaaki Naganoya — Modified 2017-09-22 by Shane Stanley — 2017 Piyomaru Software use AppleScript version "2.5" use scripting additions use framework "Foundation" use mdLib : script "Metadata Lib" version "1.0.0" –http://piyocast.com/as/archives/4841 property NSTimeZone : a reference to current application’s NSTimeZone set aDate to getDateInternationalYMDhms(2017, 10, 22, 0, 0, 0) of me set thePath to POSIX path of (path to desktop) set theFiles to mdLib’s searchFolders:{thePath} searchString:("kMDItemFSCreationDate >= %@") searchArgs:{aDate} on getDateInternationalYMDhms(aYear, aMonth, aDay, anHour, aMinute, aSecond) |
iTunesでAirPlayデバイスを指定
AppleScript名:iTunesでAirPlayデバイスを指定 |
tell application "iTunes" set aList to properties of every AirPlay device –> {{class:AirPlay device, id:27, index:1, name:"コンピュータ", persistent ID:"0000000000000000", active:false, available:true, kind:computer, protected:false, selected:true, supports audio:true, supports video:true, sound volume:100}, {class:AirPlay device, id:58366, index:2, name:"Apple TV", persistent ID:"00005855CA413D01", active:false, available:true, kind:Apple TV, network address:"58:55:ca:41:3d:01", protected:false, selected:false, supports audio:true, supports video:true, sound volume:100}} set current AirPlay devices to AirPlay device "コンピュータ" end tell |
iTunesライブラリの曲のアーティスト名を集計
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) set allTracks to library’s allMediaItems() set anEnu to allTracks’s objectEnumerator() repeat set aRes to countItemsByItsAppearance(newArray) of me –出現回数で集計 on changeThis:findString toThat:repString inString:someText |
iTunesライブラリのファイル種別集計
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" –http://piyocast.com/as/archives/4301 set library to current application’s ITLibrary’s libraryWithAPIVersion:"1.0" |error|:(missing value) set playLists to library’s allPlaylists() –出現回数で集計 |
iTunesライブラリのジャンル集計
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" –http://piyocast.com/as/archives/4301 set library to current application’s ITLibrary’s libraryWithAPIVersion:"1.0" |error|:(missing value) set playLists to library’s allPlaylists() –出現回数で集計 |
Safariのダウンロードフォルダを求めるv4
本ScriptはSafariのダウンロードフォルダのパスを求めるためのものですが、macOSおよびSafariのアップデートによって動かなくなりました。
現時点では設定値からダウンロードフォルダを知ることはできないようです。セキュリティ上「できては困る」という判断が行われたものでしょうか。
なので、Spotlightの機能を用いて、「Download」フォルダを検索し、見つかったものの一覧からユーザーに選んでもらうとか、デフォルト状態のDownloadフォルダを指定してみて存在しなかったらユーザーに選択してもらうといった方法になると思われます。
AppleScript名:Safariのダウンロードフォルダを求めるv4 |
use AppleScript version "2.4" use scripting additions use framework "Foundation" getSafariDownloadFolder() of me –By Phillip Aker, Mark J Reed |
ダークモード/ライトモードの切り替え
Dark Modeのトグル切り替えを行うAppleScriptです。
System Eventsに問い合わせて、appearance preferencesのDark Modeがtrueならダークモード、Dark Modeがfalseならライトモード(通常モード)です。
# Mac App Store用アプリケーションの中で使うとリジェクトの原因になります
AppleScript名:ダークモードの検出 v2 |
tell application "System Events" tell appearance preferences set dark mode to not dark mode end tell end tell |
Safariの最前面のWindowに新規tabをURLを指定しつつ作成
AppleScript名:Safariの最前面のWindowに新規tabをURLを指定しつつ作成 |
tell application "Safari" tell window 1 make new tab with properties {URL:"http://piyocast.com/as/"} end tell end tell |
最前面のウィンドウのタイトルを取得する2
AppleScript名:最前面のウィンドウのタイトルを取得する2 |
set aTitle to getPageTitleOfFrontmostWindow()
on getPageTitleOfFrontmostWindow() |
Safariの最前面のドキュメントのテキストを取得するv2
AppleScript名:Safariの最前面のドキュメントのテキストを取得するv2 |
–フレームを使っていないことが前提条件 tell application "Safari" set wCount to count every window if wCount = 0 then display dialog "Safariでウィンドウがオープンされていません" buttons {"OK"} default button 1 return end if tell front document set aURL to URL –> http://piyocast.com/as/archives/155 set aTitle to name –> "SafariでURLをローディング – AppleScirpt Hole" –set aCon to text –log aCon end tell set aText to text of front document –本文テキスト end tell |
指定のテキストファイルをオープンする
AppleScript名:指定のテキストファイルをオープンする |
set a to choose file file of type {"public.plain-text"} tell application "TextEdit" open a end tell |
TextEditでmake時にデータを与えつつ新規ドキュメント作成
AppleScript名:TextEditでmake時にデータを与えつつ新規ドキュメント作成 |
set a to "あいうえお"
tell application "TextEdit" |
TextEditで文字数をカウントする
AppleScript名:TextEditで文字数をカウントする |
tell application "TextEdit" tell front document set a to text of it end tell set tLen to length of a display dialog (tLen as string) & "文字です" with title "この文章の文字数は…" buttons {"OK"} default button 1 with icon 1 end tell –18058 |
TextEditの本文取得
AppleScript名:TextEditの本文取得 |
tell application "TextEdit" tell front document set a to text of it end tell end tell |
CotEditor 3の選択範囲を書き換える
AppleScript名:CotEditor 3の選択範囲を書き換える |
tell application "CotEditor" tell document 1 properties of selection –> {range:{0, 4}, class:text selection, line range:{1, 1}, contents:"似ている"} set contents of selection to "ほぼおなじ" end tell end tell |
CotEditorでオープン中の最前面の書類の本文テキストを取得する
AppleScript名:CotEditorでオープン中の最前面の書類の本文テキストを取得する |
set aRes to getCotEditorText() of me
on getCotEditorText() |
表示中のCotEditor書類の「次」のファイルを縦書きでオープン
AppleScript名:表示中のCotEditor書類の「次」のファイルを縦書きでオープン |
— Created 2017-12-15 by Takaaki Naganoya — 2017 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use bPlus : script "BridgePlus" –http://piyocast.com/as/archives/5034 property |NSURL| : a reference to current application’s |NSURL| load framework tell application "CotEditor" set aPath to NSString’s stringWithString:curPath –同じフォルダから同じ拡張子のファイルのファイル名を取得 –昇順ソート –ファイル名検索 set bIndex to (contents of first item of aIndex) + 1 + 1 –0 based to 1 based conversion & next one set newFile to contents of item bIndex of (bArray as list) tell application "CotEditor" makeWinVertical() of me –縦書き表示 –指定フォルダ内の指定文字列を含むファイル名のlistを抽出する –Make CotEditor’s front window to Vertical display mode (Tategaki) |