WebP、WebM、VP9などのデータフォーマットに対応したSafari v14がmacOS 10.14.x、10.15,x向けに配信されました。macOS標準のソフトウェアアップデート経由でアップデートできます。
AppleScript用語辞書（sdef）を前バージョンの13.1.3と比較してみたところ、とくに差異はみあたりません。
タグ: Safari
Mac App Storeで「Table Dripper」を販売開始
例によってAppleScriptで開発したアプリケーション「Table Dripper」のMac App Storeでの販売を開始しました。macOS 10.14以降に対応しています（動作原理的にmacOS 10.13対応は無理だった、、、）。
Safari/Google Chrome/Microsoft Edgeで表示中のWebサイトのTableデータをCSVに変換してダウンロードしてNumbers.appでオープンするアプリケーションです。
Mac App Storeの審査に10日かかって焦りました（機能のコンパクトさに反比例して審査期間が長い。たぶん、開発期間よりも審査期間の方が長い）。
すでに、他のChromiumベースのWebブラウザ「Brave」と「Vivaldi」への対応が済んでおり、次のアップデートでこれらにも対応します。AppleScript用語辞書（sdef）を持っているWebブラウザであっても、do javascript的なコマンドが実装されていないと、本アプリケーションでは対応できません（FireFox、Opera）。まして、AppleScriptにまったく対応していないWebブラウザでは、対応のしようがありません（Sleipnirなど）。
４つのアプリケーションをコントロールするアプリケーションをMac App Storeに申請したのははじめてです。
そろそろ、Script EditorとScript DebuggerをコントロールするアプリケーションをMac App Storeに申請することに。これも、審査が荒れる（期間が長くなる）ことが見込まれます。
SafariでURLローディング完了検出
Safariで指定URLのページローディングを検出するAppleScriptです。
Safari 13で従来どおり、do javascriptコマンド経由で、
if (do JavaScript "document.readyState" in document 1) is "complete" then
などと処理させてみたら、URLが変更される前に”complete”が返ってきました。どうも、この処理が非同期実行されるのか、表示が反映される前に内部的にはページ遷移が完了しているようです。
現行のSafariにおいては、上記の処理ではページローディング完了検出が行えないことが判明。割と利用する機会が多く、重要な処理であるため、書き換えてみました。
いろいろ実験してみると、documentに新規URLを設定しても、すぐにはURLが変更されないようです。その割にAppleScriptの実行は完了したものとして次の行へと進んでしまいます。普通、こんな挙動を行うアプリケーションはないのですが（OCRで見たことがあったかも？）、ただ、逆にここで処理待ちすると問題が発生するケースもありそうです。
非同期モードと同期モードの両方が存在していて、明示的に選択できるとよいのですが、現状ではそうなっていません。
仕方がないので、旧URLから新URLへの切り替えをループで見張るという処理を書いてみたら、いい感じにローディング検出できました。
| AppleScript名：SafariでURLローディング検出.scpt |
| — – Created by: Takaaki Naganoya – Created on: 2020/08/09 — – Copyright © 2020 Piyomaru Software, All Rights Reserved — use AppleScript version "2.4" — Yosemite (10.10) or later use framework "Foundation" use scripting additions set aURL to "http://piyocast.com/as/" openURLWithSafari(aURL) set aText to getBodyTextFromSafariFrontWindow() of me on openURLWithSafari(aURL as string) if aURL = "" then error "URL is blank" try tell application "Safari" set d to count every window if d = 0 then make new window tell front document set URL to aURL end tell else tell front document set oldURL to URL set URL to aURL end tell end if detectPageLoaded(10, oldURL, aURL) of me end tell on error return false end try end openURLWithSafari on detectPageLoaded(timeout_value, oldURL, newURL) try repeat with i from 1 to (timeout_value * 5) tell application "Safari" tell front document set curURL to URL end tell end tell if curURL = newURL then return delay 0.2 end repeat on error return false end try return false end detectPageLoaded on getBodyTextFromSafariFrontWindow() –フレームを使っていないことが前提条件 tell application "Safari" return text of front document end tell end getBodyTextFromSafariFrontWindow |
アラートダイアログ上にWebViewでGoogle Chartsを表示（Calendar Chart）
アラートダイアログ上にWkWebViewを配置し、Google Chartsを用いてCalendar Chartを表示するAppleScriptです。
自分の開発環境（MacBook Pro Retina 2012, Core i7 2.6GHz）で100日間のアクセス履歴を処理して７秒強ぐらいで描画が終了します。
調子に乗って300日分のアクセス履歴を処理したところ、表示まで１分ほどかかりました。あまり長い期間の描画を行わせるのは（このプログラムの書き方だと）向いていないと感じます。いまのところテストしただけで実用性は考えていませんが、この程度のグラフなら自前でNSImage上にボックスを描画して表示しても大した手間にはならないでしょう。
▲スクリプトエディタ上で実行したところ
▲Script Debugger上で実行したところ
▲スクリプトメニュー上で実行したところ
Safariのアクセス履歴は例によってsqliteのDatabaseにアクセスして取得していますが、AppleScriptのランタイム環境によっては、アクセス権限がないというメッセージが出てアクセスできないことがあります。ASObjC Explorer 4上では実行できませんでしたし、Switch Control上でも実行できません。
＃ 管理者権限つきで実行しても（with administrator privileges）実行できません → Switch Controlでも実行できるようになりました
最初に掲載したバージョンでは、グラフ化したときに表示月が１か月ズレるという問題がありました。
Google Chartsのドキュメントを確認したところ、
Note: JavaScript counts months starting at zero: January is 0, February is 1, and December is 11. If your calendar chart seems off by a month, this is why.
JavaScriptでMonthはJanuaryが0らしく、monthを-1する必要があるとdocumentに書かれていました。うわ、なにその仕様？（ーー；；；
| AppleScript名：アラートダイアログ上にWebViewでGoogle Chartを表示（Calendar Charts）v1a.scptd |
| — – Created by: Takaaki Naganoya – Created on: 2020/05/07 — – Copyright © 2020 Piyomaru Software, All Rights Reserved — use AppleScript version "2.4" — Yosemite (10.10) or later use framework "Foundation" use framework "AppKit" use framework "WebKit" use scripting additions property |NSURL| : a reference to current application’s |NSURL| property NSAlert : a reference to current application’s NSAlert property NSString : a reference to current application’s NSString property NSButton : a reference to current application’s NSButton property WKWebView : a reference to current application’s WKWebView property WKUserScript : a reference to current application’s WKUserScript property NSURLRequest : a reference to current application’s NSURLRequest property NSRunningApplication : a reference to current application’s NSRunningApplication property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding property WKUserContentController : a reference to current application’s WKUserContentController property WKWebViewConfiguration : a reference to current application’s WKWebViewConfiguration property WKUserScriptInjectionTimeAtDocumentEnd : a reference to current application’s WKUserScriptInjectionTimeAtDocumentEnd property returnCode : 0 script spd property aRes : {} property bRes : {} end script –Calculate Safari access frequency for (parameter days) set (aRes of spd) to calcMain(100) of safariHistLib set (bRes of spd) to "" repeat with i in (aRes of spd) set {item1, item2, item3} to parseByDelim(theName of (contents of i), "-") of me set newLine to " [ new Date(" & (item1 as string) & ", " & ((item2 – 1) as string) & ", " & (item3 as string) & "), " & (numberOfTimes of i) & "]," & (string id 10) set (bRes of spd) to (bRes of spd) & newLine end repeat set (bRes of spd) to text 1 thru -3 of (bRes of spd) –Pie Chart Template HTML set myStr to "<!DOCTYPE html> <html lang=＼"UTF-8＼"> <head> <div id=＼"calendarchart＼"></div> <script type=＼"text/javascript＼" src=＼"https://www.gstatic.com/charts/loader.js＼"></script> <script type=＼"text/javascript＼"> // Draw the chart and set the chart values dataTable.addColumn({ type: ’number’, id: ’Web Access’ }); dataTable.addRows([ %@ ]); var chart = new google.visualization.Calendar(document.getElementById(’calendar_basic’)); var options = { title: ＼"Web Activity＼", height: 350, }; chart.draw(dataTable, options); } </script> </head> <body> <div id=＼"calendar_basic＼" style=＼"width: 1000px; height: 350px;＼"></div> </body> </html>" set aString to current application’s NSString’s stringWithFormat_(myStr, (bRes of spd)) as string set paramObj to {myMessage:"Calendar Chart Test", mySubMessage:"This is a simple calendar chart using google charts", htmlStr:aString} –my browseStrWebContents:paramObj–for debug my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true on browseStrWebContents:paramObj set aMainMes to myMessage of paramObj set aSubMes to mySubMessage of paramObj set htmlString to (htmlStr of paramObj) set aWidth to 1000 set aHeight to 300 –WebViewをつくる set aConf to WKWebViewConfiguration’s alloc()’s init() –指定HTML内のJavaScriptをFetch set jsSource to pickUpFromToStr(htmlString, "<script type=＼"text/javascript＼">", "</script>") of me set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true set userContentController to WKUserContentController’s alloc()’s init() userContentController’s addUserScript:(userScript) aConf’s setUserContentController:userContentController set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight – 100)) configuration:aConf aWebView’s setNavigationDelegate:me aWebView’s setUIDelegate:me aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me)) aWebView’s loadHTMLString:htmlString baseURL:(bURL) — set up alert set theAlert to NSAlert’s alloc()’s init() tell theAlert its setMessageText:aMainMes its setInformativeText:aSubMes its addButtonWithTitle:"OK" –its addButtonWithTitle:"Cancel" its setAccessoryView:aWebView set myWindow to its |window| end tell — show alert in modal loop NSRunningApplication’s currentApplication()’s activateWithOptions:0 my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true –Stop Web View Action set bURL to |NSURL|’s URLWithString:"about:blank" set bReq to NSURLRequest’s requestWithURL:bURL aWebView’s loadRequest:bReq if (my returnCode as number) = 1001 then error number -128 end browseStrWebContents: on doModal:aParam set (my returnCode) to (aParam’s runModal()) as number end doModal: on viewDidLoad:aNotification return true end viewDidLoad: on fetchJSSourceString(aURL) set jsURL to |NSURL|’s URLWithString:aURL set jsSourceString to NSString’s stringWithContentsOfURL:jsURL encoding:(NSUTF8StringEncoding) |error|:(missing value) return jsSourceString end fetchJSSourceString on pickUpFromToStr(aStr as string, s1Str as string, s2Str as string) set a1Offset to offset of s1Str in aStr if a1Offset = 0 then return false set bStr to text (a1Offset + (length of s1Str)) thru -1 of aStr set a2Offset to offset of s2Str in bStr if a2Offset = 0 then return false set cStr to text 1 thru (a2Offset – (length of s2Str)) of bStr return cStr as string end pickUpFromToStr –リストを任意のデリミタ付きでテキストに on retArrowText(aList, aDelim) set aText to "" set curDelim to AppleScript’s text item delimiters set AppleScript’s text item delimiters to aDelim set aText to aList as text set AppleScript’s text item delimiters to curDelim return aText end retArrowText on array2DToJSONArray(aList) set anArray to current application’s NSMutableArray’s arrayWithArray:aList set jsonData to current application’s NSJSONSerialization’s dataWithJSONObject:anArray options:(0 as integer) |error|:(missing value) –0 is set resString to current application’s NSString’s alloc()’s initWithData:jsonData encoding:(current application’s NSUTF8StringEncoding) return resString end array2DToJSONArray on parseByDelim(aData, aDelim) set curDelim to AppleScript’s text item delimiters set AppleScript’s text item delimiters to aDelim set dList to text items of aData set AppleScript’s text item delimiters to curDelim return dList end parseByDelim script safariHistLib property parent : AppleScript use scripting additions use framework "Foundation" property |NSURL| : a reference to current application’s |NSURL| script spd property sList : {} property nList : {} property sRes : {} property dRes1 : {} property dRes2 : {} end script on calcMain(daysNum) set (dRes1 of spd) to dumpSafariHistoryFromDaysBefore(daysNum) of me set (dRes2 of spd) to {} repeat with i in (dRes1 of spd) copy (first item of i) as string to dStr set convDstr to first item of (parseByDelim(dStr, {" "}) of me) set the end of (dRes2 of spd) to convDstr end repeat –日付ごとに登場頻度集計 set cRes to countItemsByItsAppearance2((dRes2 of spd)) of me return cRes as list end calcMain –NSArrayに入れたレコードを、指定の属性ラベルの値でソート on sortRecListByLabel(aArray, aLabelStr as string, ascendF as boolean) –ソート set sortDesc to current application’s NSSortDescriptor’s alloc()’s initWithKey:aLabelStr ascending:ascendF set sortDescArray to current application’s NSArray’s arrayWithObjects:sortDesc set sortedArray to aArray’s sortedArrayUsingDescriptors:sortDescArray –NSArrayからListに型変換して返す set bList to (sortedArray) as list return bList end sortRecListByLabel on dumpSafariHistoryFromDaysBefore(daysBefore) –現在日時のn日前を求める using terms from scripting additions set origDate to (current date) – (daysBefore * days) end using terms from set dStr to convDateObjToStrWithFormat(origDate, "yyyy-MM-dd hh:mm:ss") of me set aDBpath to "~/Library/Safari/History.db" set pathString to current application’s NSString’s stringWithString:aDBpath set newPath to pathString’s stringByExpandingTildeInPath() set aText to "/usr/bin/sqlite3 " & newPath & " ’SELECT datetime(history_visits.visit_time+978307200, ＼"unixepoch＼", ＼"localtime＼"), history_visits.title || ＼" @ ＼" || substr(history_items.URL,1,max(length(history_items.URL)*(instr(history_items.URL,＼" & ＼")=0),instr(history_items.URL,＼" & ＼"))) as Info FROM history_visits INNER JOIN history_items ON history_items.id = history_visits.history_item where history_visits.visit_time>(julianday(＼"" & dStr & "＼")*86400-211845068000) ORDER BY visit_time ASC LIMIT 999999;’" using terms from scripting additions set (sRes of spd) to do shell script aText end using terms from set (sList of spd) to (paragraphs of (sRes of spd)) repeat with i in (sList of spd) set j to contents of i –Parse each field set j2 to parseByDelim(j, {"|", "@ "}) of me set the end of (nList of spd) to j2 end repeat return (nList of spd) end dumpSafariHistoryFromDaysBefore on parseByDelim(aData, aDelim) set curDelim to AppleScript’s text item delimiters set AppleScript’s text item delimiters to aDelim set dList to text items of aData set AppleScript’s text item delimiters to curDelim return dList end parseByDelim –出現回数で集計 on countItemsByItsAppearance2(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:"theName" ascending:true bArray’s sortUsingDescriptors:{theDesc} return bArray end countItemsByItsAppearance2 on convDateObjToStrWithFormat(aDateO as date, aFormatStr as string) set aDF to current application’s NSDateFormatter’s alloc()’s init() set aLoc to current application’s NSLocale’s currentLocale() set aLocStr to (aLoc’s localeIdentifier()) as string aDF’s setLocale:(current application’s NSLocale’s alloc()’s initWithLocaleIdentifier:aLocStr) aDF’s setDateFormat:aFormatStr set dRes to (aDF’s stringFromDate:aDateO) as string return dRes end convDateObjToStrWithFormat end script |
アラートダイアログ上にWkWebViewでGoogle Chartsを表示 v2
アラートダイアログ上にWkWebViewを配置し、Google Chartsを用いてPie Chartを表示するAppleScriptです。
自分の開発環境（MacBook Pro Retina 2012, Core i7 2.6GHz）で10日間のアクセス履歴を処理して1.38秒程度でダイアログ表示してグラフ描画に入ります。３秒強ぐらいで描画が終了します。
WkWebViewに対して、文字列で組み立てたHTMLを読み込んでグラフ表示しています。Pie Chart上にマウスカーソルを乗せると反応します。一応表示できているぐらいで、デザイン的には余計な余白ができたままで、いまひとつな感じです。せめて、WkWebViewの背景を透明化できると大味な表示をいくらか緩和できるかと思っているのですが、WkWebViewの透明背景にはNSColorではなく（AppleScriptから作成できない）CGColorでclearColor（透明色）を指定する必要があるようで、、、、
サンプル表示データは、Safariの10日間のアクセス履歴からドメイン単位で計算したヒストグラムを、その場で計算したものを使っています。
本Scriptは、①NSAlertのダイアログ表示の経験 ②WkWebView上へのコンテンツ表示の経験 ③グラフ表示用FrameworkやSVGベースのグラフ作成の経験 を経て、２・３年越しで完成したものです。とくに、WkWebViewについてはサンプル数がそれほど多くなく、用途の方向性がObjective-CやSwiftと若干異なるために、参考にできるサンプルの数が多くない状況。必然的に、いろいろ試しては失敗を重ねてきました。急に出来上がってきたものではありません。
Safariの履歴集計ScriptをScriptオブジェクトの中に放り込んだら、scripting additionsの用語をusing terms from句で囲っておく必要がありました。何回か経験していますが、知らないと対処に困る現象です。
現状（macOS 10.14以降）では、Scripting AdditionはmacOS標準搭載のStandard Additionsしか存在していないし認識も行われないため、エラー内容がいまひとつわかりにくく、不正確であるように思えます。Apple純正のStandard Additionsしか存在していないんだから自分で判断しろやコラ、と言いたくなります。
| AppleScript名：アラートダイアログ上にWebViewでGoogle Chartを表示 v2.scptd |
| — – Created by: Takaaki Naganoya – Created on: 2019/03/02 — – Copyright © 2019 Piyomaru Software, All Rights Reserved — use AppleScript version "2.4" — Yosemite (10.10) or later use framework "Foundation" use framework "AppKit" use framework "WebKit" use scripting additions property |NSURL| : a reference to current application’s |NSURL| property NSAlert : a reference to current application’s NSAlert property NSString : a reference to current application’s NSString property NSButton : a reference to current application’s NSButton property WKWebView : a reference to current application’s WKWebView property WKUserScript : a reference to current application’s WKUserScript property NSURLRequest : a reference to current application’s NSURLRequest property NSRunningApplication : a reference to current application’s NSRunningApplication property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding property WKUserContentController : a reference to current application’s WKUserContentController property WKWebViewConfiguration : a reference to current application’s WKWebViewConfiguration property WKUserScriptInjectionTimeAtDocumentEnd : a reference to current application’s WKUserScriptInjectionTimeAtDocumentEnd property returnCode : 0 –Calc Safari access domain from history set aRes to calcSafariHistoryBest10Domain(10) of safariHistoryLib set aList to {{"Domain", "Access"}} repeat with i in aRes set aDom to theName of i set accessNum to numberOfTimes of i set the end of aList to {aDom, accessNum} end repeat –set aList to {{"Task", "Hours per Day"}, {"Work", 8}, {"Eat", 2}, {"TV", 4}, {"Gym", 2}, {"Sleep", 8}} set aJsonArrayStr to array2DToJSONArray(aList) of me –Pie Chart Template HTML set myStr to "<!DOCTYPE html> <html lang=＼"UTF-8＼"> <body> <div id=＼"piechart＼"></div> <script type=＼"text/javascript＼" src=＼"https://www.gstatic.com/charts/loader.js＼"></script> <script type=＼"text/javascript＼"> // Draw the chart and set the chart values // Optional; add a title and set the width and height of the chart var options = {’title’:’’, ’width’:600, ’height’:400}; // Display the chart inside the <div> element with id=＼"piechart＼" var chart = new google.visualization.PieChart(document.getElementById(’piechart’)); chart.draw(data, options); } </script> </body> –my browseStrWebContents:paramObj–for debug my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true on browseStrWebContents:paramObj set aMainMes to myMessage of paramObj set aSubMes to mySubMessage of paramObj set htmlString to (htmlStr of paramObj) set aWidth to 600 set aHeight to 450 –WebViewをつくる set aConf to WKWebViewConfiguration’s alloc()’s init() –指定HTML内のJavaScriptをFetch set jsSource to pickUpFromToStr(htmlString, "<script type=＼"text/javascript＼">", "</script>") of me set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true set userContentController to WKUserContentController’s alloc()’s init() userContentController’s addUserScript:(userScript) aConf’s setUserContentController:userContentController set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight – 100)) configuration:aConf aWebView’s setNavigationDelegate:me aWebView’s setUIDelegate:me aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me)) aWebView’s loadHTMLString:htmlString baseURL:(bURL) — set up alert set theAlert to NSAlert’s alloc()’s init() tell theAlert its setMessageText:aMainMes its setInformativeText:aSubMes its addButtonWithTitle:"OK" –its addButtonWithTitle:"Cancel" its setAccessoryView:aWebView set myWindow to its |window| end tell — show alert in modal loop NSRunningApplication’s currentApplication()’s activateWithOptions:0 my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true –Stop Web View Action set bURL to |NSURL|’s URLWithString:"about:blank" set bReq to NSURLRequest’s requestWithURL:bURL aWebView’s loadRequest:bReq if (my returnCode as number) = 1001 then error number -128 end browseStrWebContents: on doModal:aParam set (my returnCode) to (aParam’s runModal()) as number end doModal: on viewDidLoad:aNotification return true end viewDidLoad: on fetchJSSourceString(aURL) set jsURL to |NSURL|’s URLWithString:aURL set jsSourceString to NSString’s stringWithContentsOfURL:jsURL encoding:(NSUTF8StringEncoding) |error|:(missing value) return jsSourceString end fetchJSSourceString on pickUpFromToStr(aStr as string, s1Str as string, s2Str as string) set a1Offset to offset of s1Str in aStr if a1Offset = 0 then return false set bStr to text (a1Offset + (length of s1Str)) thru -1 of aStr set a2Offset to offset of s2Str in bStr if a2Offset = 0 then return false set cStr to text 1 thru (a2Offset – (length of s2Str)) of bStr return cStr as string end pickUpFromToStr –リストを任意のデリミタ付きでテキストに on retArrowText(aList, aDelim) set aText to "" set curDelim to AppleScript’s text item delimiters set AppleScript’s text item delimiters to aDelim set aText to aList as text set AppleScript’s text item delimiters to curDelim return aText end retArrowText on array2DToJSONArray(aList) set anArray to current application’s NSMutableArray’s arrayWithArray:aList set jsonData to current application’s NSJSONSerialization’s dataWithJSONObject:anArray options:(0 as integer) |error|:(missing value) –0 is set resString to current application’s NSString’s alloc()’s initWithData:jsonData encoding:(current application’s NSUTF8StringEncoding) return resString end array2DToJSONArray –Safariのn日前からの履歴をドメイン別に集計してソート script safariHistoryLib use scripting additions use framework "Foundation" property parent : AppleScript property |NSURL| : a reference to current application’s |NSURL| script spd property sList : {} property nList : {} property sRes : {} end script on calcSafariHistoryBest10Domain(daysBefore) –現在日時のn日前を求める using terms from scripting additions set origDate to (current date) – (daysBefore * days) end using terms from set dStr to convDateObjToStrWithFormat(origDate, "yyyy-MM-dd hh:mm:ss") of me set aDBpath to "~/Library/Safari/History.db" set pathString to current application’s NSString’s stringWithString:aDBpath set newPath to pathString’s stringByExpandingTildeInPath() set aText to "sqlite3 " & newPath & " ’SELECT datetime(history_visits.visit_time+978307200, ＼"unixepoch＼", ＼"localtime＼"), history_visits.title || ＼" @ ＼" || substr(history_items.URL,1,max(length(history_items.URL)*(instr(history_items.URL,＼" & ＼")=0),instr(history_items.URL,＼" & ＼"))) as Info FROM history_visits INNER JOIN history_items ON history_items.id = history_visits.history_item where history_visits.visit_time>(julianday(＼"" & dStr & "＼")*86400-211845068000) ORDER BY visit_time ASC LIMIT 999999;’" using terms from scripting additions set (sRes of spd) to do shell script aText end using terms from set (sList of spd) to (paragraphs of (sRes of spd)) set (nList of spd) to {} repeat with i in (sList of spd) set j to contents of i –Parse each field set j2 to parseByDelim(j, {"|", "@ "}) of me –Calculate URL’s domain only set j3 to contents of last item of j2 set aURL to (|NSURL|’s URLWithString:j3) if aURL = missing value then set j4 to "" else set j4 to (aURL’s |host|()) as string end if set the end of (nList of spd) to j4 end repeat –登場頻度でURLを集計 set aList to countItemsByItsAppearance((nList of spd)) of me –Best 10の計算のために10位以下をまとめる set best9 to items 1 thru 9 of aList set best10 to items 10 thru -1 of aList set otherTimes to 0 repeat with i in best10 set otherTimes to otherTimes + (numberOfTimes of i) end repeat set the end of best9 to {theName:"Other", numberOfTimes:otherTimes} return best9 end calcSafariHistoryBest10Domain on parseByDelim(aData, aDelim) set curDelim to AppleScript’s text item delimiters set AppleScript’s text item delimiters to aDelim set dList to text items of aData set AppleScript’s text item delimiters to curDelim return dList end parseByDelim –出現回数で集計 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 convDateObjToStrWithFormat(aDateO as date, aFormatStr as string) set aDF to current application’s NSDateFormatter’s alloc()’s init() set aLoc to current application’s NSLocale’s currentLocale() set aLocStr to (aLoc’s localeIdentifier()) as string aDF’s setLocale:(current application’s NSLocale’s alloc()’s initWithLocaleIdentifier:aLocStr) aDF’s setDateFormat:aFormatStr set dRes to (aDF’s stringFromDate:aDateO) as string return dRes end convDateObjToStrWithFormat end script |
指定文字列ではじまるURLをオープン中のTabをクローズ
Safariでオープン中のウィンドウ/Tabのうち、指定URLではじまるもの（この場合にはGoogle翻訳）をオープン中のものだけをクローズする掃除用のAppleScriptです。
TabのIDを取得して、1から処理するとナンバリングがおかしくなるので、後ろから処理しているあたりが「ワザ」とでもいうべきものでしょうか。
| AppleScript名：指定文字列ではじまるURLをオープン中のTabをクローズ |
| — – Created by: Takaaki Naganoya – Created on: 2020/03/01 — – Copyright © 2020 Piyomaru Software, All Rights Reserved — set targURL to "https://translate.google.co.jp" –Google翻訳 closeSafariTabsBeginsWithAURL(targURL) of me on closeSafariTabsBeginsWithAURL(targURL) tell application "Safari" set wCount to (every window whose visible is true) repeat with w in wCount set aWin to contents of w tell aWin set tabCount to count every tab repeat with t from tabCount to 1 by -1 tell tab t set aURL to URL of it if aURL begins with targURL then close end if end tell end repeat end tell end repeat end tell end closeSafariTabsBeginsWithAURL |
eppcで他のMac上のアプリケーション操作
MacScripterのフォーラムでeppcについての質問があったので回答していました。eppcを用いて、ネットワーク上の他のMacを操作する件についての話でした。
eppcは、Remote AppleEventのプロトコル表記であり、自分のマシン上のアプリケーションだと、
application "Finder"
と表記しますが、他のMac上のアプリケーションだと、
application "Finder" of machine "eppc://user:password@machineName.local"
という表記になります。パスワードを書いておかないとダイアログで問い合わせが行われるので、書かなくてもいいです（パスワードが丸裸で書いてあるのは不用心なので、テスト時以外はおすすめしません）。
自分の認識では、ネットワーク上の他のマシンの操作については、
のような認識でした。この認識は間違っているわけではなく、リモートのアプリケーション操作はリモート側のアプレットに行わせるようにして、自分からはリモート側のアプレットのハンドラを呼び出すのがリモートアプリケーション操作の基本的な「作法」です。
GUIアプリケーションを直接操作するのは無理だけど、AppleScriptアプレットを常駐させておいて、アプレットのハンドラを呼び出すことで、各リモートマシン上のアプリケーションを操作できる、と。
で、これが他のメンバーのコメントで（リモートアプリケーションのダイレクト呼び出しは）「macOS 10.15でもできるぞ」という話が出てきて、腰を抜かしました。現状の自分のマシン環境（古いのばっかりですが）で検証してみたところ、たしかに（若干の癖はありますが）、GUIアプリケーションを直接操作できて驚きました（セキュリティ上の制約がいろいろあるので、ローカルでできることすべてがリモートアプリケーションに直接司令できるわけではありません）。
▲テストに用いたMac OS X 10.6.8環境
▲テストに用いたMac OS X 10.7.5環境
▲テストに用いたMac OS X 10.13.6環境
Mac OS X 10.6からmacOS 10.12あたり（厳密には確認できていない）の環境では、明確にリモートAppleEventに制約が加わっていました。
ところが、macOS 10.13あたり（10.12かも。このあたり未確認）から、eppcでGUIアプリケーションの操作ができることが確認できました。
| macOS Version | Direct eppc to GUI Apps |
| 10.0 | （No AppleScript Env） |
| 10.1 | Works???? |
| 10.2 | Works |
| 10.3 | Works |
| 10.4 | Works |
| 10.5 | (???) |
| 10.6 | Not Work |
| 10.7 | Not Work |
| 10.8 | Not Work |
| 10.9 | Not Work |
| 10.1 | Not Work |
| 10.11 | Not Work |
| 10.12 | (??? Maybe not work) |
| 10.13 | Works |
| 10.14 | Works |
| 10.15 | Works |
eppcのポート
eppcがTCP/IPのどこのポート番号を用いているかは、/etc/servicesを見ると書いてあります。
eppc 3031/udp # Remote AppleEvents/PPC Toolbox eppc 3031/tcp # Remote AppleEvents/PPC Toolbox
なので、VPN接続時にこれらのポートが開いていれば、相手側のマシンをAppleScriptで遠隔操作できることになります（実際には、ファイル共有とかいろいろその他の付随するポートを開けておく必要があるわけですが）。
リモート操作の傾向
ただし、ローカルマシン上のアプリケーションを操作するのと比較して、いくつかの挙動の違いも見られます。
（１）アプリケーションの直接的な起動が効かない
各GUIアプリケーションに「activate」とか「launch」コマンドを送っても無視されます。リモートマシン上でいったんアプリケーションが起動した後に「activate」で最前面に持ってくることは可能ですが、起動していない状態でactivateを実行しても、起動は行われません。
| AppleScript名：他のマシン上でSafariを起動 |
| set RemoteMachine to "eppc://me@MacMini2014.local"
using terms from application "Finder" tell application "Finder" of machine RemoteMachine open application file id "com.apple.Safari" end tell end using terms from |
Finder経由でBundle IDを指定して「application fileをオープンする」という指定であれば、たしかにアプリケーションが起動します。
（２）System Eventsの操作に難あり
面白くなっていろいろリモートアプリケーションを操作していてわかってきたのですが、初期状態だとSystem Eventsが起動していない状態です。いえ、ローカルでもSystem Eventsは常時起動してはいないんでしょうけれど、命令を発行すると自動で起動されます。
この自動起動とか明示的に指定して起動といった操作が受け付けられないので、Finder経由で間接的にapplication fileのオープンというかたちでSystem Eventsの起動を行い、処理を依頼します。
このリモートマシン上のSystem Eventsはしばらく処理が行われないと自動で終了するようなので、何かまとまった処理をSystem Eventsに行わせる前には明示的に起動を司令しておくべきなんでしょう。
| AppleScript名：他のマシン上のSystem Eventsを起動する |
| set RemoteMachine to "eppc://me@MacMini2014.local"
using terms from application "Finder" tell application "Finder" of machine RemoteMachine open application file id "com.apple.SystemEvents" end tell end using terms from |
（３）けっこう動く
GUIアプリケーションの代表としてSafariを実際に操作してみたところ、
Safariのバージョン名の取得、できました。
| AppleScript名：他のマシン上で起動しているアプリケーションのバージョンを取得 |
| set RemoteMachine to "eppc://me@MacMini2014.local"
using terms from application "Safari" tell application "Safari" of machine RemoteMachine version end tell end using terms from |
Safariの新規ウィンドウの作成、できました。
| AppleScript名：他のマシン上で起動しているSafariで新規ウィンドウ作成 |
| set RemoteMachine to "eppc://me@MacMini2014.local"
using terms from application "Safari" tell application "Safari" of machine RemoteMachine make new document end tell end using terms from |
SafariのウィンドウのURLの取得、できました。
| AppleScript名：他のマシン上で起動しているSafariの最前面のウィンドウのURLを取得 |
| set RemoteMachine to "eppc://me@MacMini2014.local"
using terms from application "Safari" tell application "Safari" of machine RemoteMachine set aURL to URL of front document end tell end using terms from |
SafariのウィンドウのURLの書き換え、できました。
| AppleScript名：他のマシン上で起動しているSafariのウィンドウのURLを書き換える |
| set RemoteMachine to "eppc://me@MacMini2014.local"
using terms from application "Safari" tell application "Safari" of machine RemoteMachine set URL of document 1 to "http://piyocast.com/as/" end tell end using terms from |
Safariの最前面のウィンドウの内容をメールに転送、できました。
| AppleScript名：他のマシン上で起動しているSafariの最前面の内容をメール |
| set RemoteMachine to "eppc://me@MacMini2014.local"
using terms from application "Safari" tell application "Safari" of machine RemoteMachine make new document set URL of front document to "http://www.apple.com" delay 3 –wait for page loading email contents of front document end tell end using terms from |
Safariのページローディング検出はいろいろ蓄積されているノウハウもありますが、do javascriptコマンドが問題なく動くレベルまで信用できるのかわからなかったので、delayで単純に時間待ちしています。
実際に動かしてみて、自分がビビるぐらいeppcでリモートアプリケーションの操作ができてしまいました。SIPだとかアプリケーション権限だとかでセキュリティ機能でがんじがらめにされている今日このごろですが、eppc経由でリモートマシン上のアプリケーション操作が緩和されている事実にビビりました。
これはおそらくですが、Xcode上のリモートデバッグとか、そういうあたりの機能の実装時に機能がeppcまわりの機能が再実装されたかコメントアウトしていた箇所が復活したかという話に見えます。
Safariで現在見えている表を抽出してCSV書き出しv3
Safariの最前面のウィンドウで表示中のページのうち、現在ウィンドウ内に表示中の表要素をCSV書き出ししてNumbersでオープンするAppleScriptの改良版です。HTMLのtable中にrowspan（複数セルを行方向に連結）とcolspan（複数セルを列方向に連結）の属性値が指定されていた場合に対応します。
–> Download table2CSV_visibleonly_v2 (Code-Signed AppleScript applet with Framework and Library in its bundle)
各DOM ElementsのWebコンテンツ中の表示座標を取得して、絞り込みを行なっています。ただし、各DOM座標はWebブラウザのスクロールにしたがって数値が変わる（相対座標）ため、少々手こずりました。また、本Scriptでは上下スクロールのみ考慮してDOM要素の抽出を行なっており、横に長いページの横方向スクロールは考慮しておりません。
このバージョンではrowspan / colspanへの対処を追加しました。
行単位で（１次元配列ベースで）表を作っていてはとても対処できなかったので、HTMLの表と同じセル数のヌル文字が入った２次元配列を作成し、そこにX座標/Y座標を指定してセルを埋めるように処理内容を変更しました。また、rowspan/colspanの属性を見つけた場合には、結合されていた複数セルを個別の（同じ値を入れた）セルに分解しています。
本バージョンでは、１つのセル（td）でrowspanとcolspanを同時に指定しないことが処理の前提条件となっています。また、一番上の行がヘッダーの場合を想定しており、一番左の列がヘッダーになっているケースには対処しておりません。
| AppleScript名：Safariで現在見えている表を抽出してCSV書き出しv3.scptd |
| — – Created by: Takaaki Naganoya – Created on: 2019/09/22 – Modified on: 2019/10/07 — – Copyright © 2019 Piyomaru Software, All Rights Reserved — use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "HTMLReader" –https://github.com/nolanw/HTMLReader use aLib : script "arrayLib" property NSUUID : a reference to current application’s NSUUID property NSString : a reference to current application’s NSString property HTMLDocument : a reference to current application’s HTMLDocument property NSMutableArray : a reference to current application’s NSMutableArray property NSJSONSerialization : a reference to current application’s NSJSONSerialization set aTag to "table" set indRes to getVisibleElementIndexList(aTag) of me if indRes = false or indRes = {} then display notification "No Visible Table in Web browser" return end if tell application "Safari" tell front document set aSource to source end tell end tell repeat with i in indRes set inList to filterATableAndPaseCells(aSource, i, aTag) of me if inList = false or inList = {} then return set aUUID to current application’s NSUUID’s UUID()’s UUIDString() as text set aNewFile to ((path to desktop) as string) & aUUID & ".csv" saveAsCSV(inList, aNewFile) of me tell application "Numbers" activate open (aNewFile as alias) end tell end repeat on filterATableAndPaseCells(aSource as string, targInd as integer, aTag as string) set aHTML to current application’s HTMLDocument’s documentWithString:(aSource as string) –Table要素をリストアップ set eList to (aHTML’s nodesMatchingSelector:aTag) as list set aObj to contents of item (targInd + 1) of eList –Count columns of Table Header (Count only) set aTableHeader to (aObj’s nodesMatchingSelector:"tr")’s firstObject() set hList to aTableHeader’s nodesMatchingSelector:"th" set hStrList to {} repeat with i1 in hList set hCellStr to i1’s textContent() as string set the end of hStrList to (hCellStr) end repeat set hLen to length of hStrList –count columns –Acquire whole table body contents set aTableBody to (aObj’s nodesMatchingSelector:"tbody")’s firstObject() set bList to (aTableBody’s nodesMatchingSelector:"tr") as list set rCount to (length of bList) –count rows –行単位ループ set yCount to 1 set attrList to make2DBlankArray(hLen, rCount) of aLib repeat with i2 in bList set bb2List to {} set i3 to (i2’s nodesMatchingSelector:"th") as list if i3 = {} then set i3 to (i2’s nodesMatchingSelector:"td") as list end if –カラム単位ループ set xCount to 1 repeat with i4 in i3 set anAttr to i4’s attributes() set colAtr to (anAttr’s valueForKey:"colspan") set rowAttr to (anAttr’s valueForKey:"rowspan") set cellStr to i4’s textContent() as string if colAtr is not equal to missing value then –colspan処理 set colNum to colAtr as integer set attrList to xFill(xCount, yCount, attrList, cellStr, colNum) of aLib else if rowAttr is not equal to missing value then –rowspan処理 set rowNum to rowAttr as integer set attrList to yFill(xCount, yCount, attrList, cellStr, rowNum) of aLib else if cellStr is not equal to "" then –通常処理 repeat with ii from xCount to hLen set aRes to getItemByXY(ii, yCount, attrList, "") of aLib if aRes = "" then set attrList to setItemByXY(ii, yCount, attrList, cellStr) of aLib exit repeat else set xCount to xCount + 1 end if end repeat end if set xCount to xCount + 1 end repeat set yCount to yCount + 1 end repeat return attrList end filterATableAndPaseCells –Safariのウィンドウ上で表示中のDOM Elementsを座標計算して返す on getVisibleElementIndexList(aTag as string) tell application "Safari" set dCount to count every document if dCount = 0 then return false set jRes to do JavaScript "var winWidth = window.innerWidth, winHeight = window.innerHeight, winLeft = window.scrollX, winTop = window.scrollY, winBottom = winTop + winHeight, winRight = winLeft + winWidth, elementsArray = document.body.getElementsByTagName(’" & aTag & "’), elemLen = elementsArray.length, inView = []; var step; for (step = 0 ; step < elemLen ; step++) { var tmpElem = document.body.getElementsByTagName(’" & aTag & "’)[step]; var bVar = tmpElem.getBoundingClientRect(); if (bVar.top > 0 && bVar.top < winHeight) { inView.push(step); } } JSON.stringify(inView);" in front document set jList to parseJSONAsList(jRes) of me return jList end tell end getVisibleElementIndexList on parseJSONAsList(jsRes as string) set jsonString to NSString’s stringWithString:jsRes set jsonData to jsonString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding) set aJsonDict to NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value) return aJsonDict as list end parseJSONAsList –Save 2D List to CSV file on saveAsCSV(aList as list, aPath) set crlfChar to (string id 13) & (string id 10) set LF to (string id 10) set wholeText to "" repeat with i in aList set newLine to {} –Sanitize (Double Quote) repeat with ii in i set jj to ii as text set kk to repChar(jj, string id 34, (string id 34) & (string id 34)) of me –Escape Double Quote set the end of newLine to kk end repeat –Change Delimiter set aLineText to "" set curDelim to AppleScript’s text item delimiters set AppleScript’s text item delimiters to "＼",＼"" set aLineList to newLine as text set AppleScript’s text item delimiters to curDelim set aLineText to repChar(aLineList, return, "") of me –delete return set aLineText to repChar(aLineText, LF, "") of me –delete lf set wholeText to wholeText & "＼"" & aLineText & "＼"" & crlfChar –line terminator: CR＋LF end repeat if (aPath as string) does not end with ".csv" then set bPath to aPath & ".csv" as Unicode text else set bPath to aPath as Unicode text end if writeToFileAsUTF8(wholeText, bPath, false) of me end saveAsCSV on writeToFileAsUTF8(this_data, target_file, append_data) tell current application try set the target_file to the target_file as text set the open_target_file to open for access file target_file with write permission if append_data is false then set eof of the open_target_file to 0 write this_data as «class utf8» to the open_target_file starting at eof close access the open_target_file return true on error error_message try close access file target_file end try return error_message end try end tell end writeToFileAsUTF8 on repChar(origText as text, targChar as text, repChar as text) set curDelim to AppleScript’s text item delimiters set AppleScript’s text item delimiters to targChar set tmpList to text items of origText set AppleScript’s text item delimiters to repChar set retText to tmpList as string set AppleScript’s text item delimiters to curDelim return retText end repChar |
Safariで現在見えている表を抽出してCSV書き出し
Safariの最前面のウィンドウで表示中のページのうち、現在ウィンドウ内に表示中の表要素をCSV書き出ししてNumbersでオープンするAppleScriptです。
このところ下調べを行なっていた「Webブラウザで表示中の要素を処理する」「表示中ではない要素は処理をしない」というScriptです。
これで、「表の一部を選択しておく」とかいった操作は不要になりました。ウィンドウ内に表示されている表をWebコンテンツ内部の表示座標をもとに自動抽出します。表示エリア外に位置しているものは書き出し処理しません。
各DOM ElementsのWebコンテンツ中の表示座標を取得して、絞り込みを行なっています。ただし、各DOM座標はWebブラウザのスクロールにしたがって数値が変わる（相対座標）ため、少々手こずりました。また、本Scriptでは上下スクロールのみ考慮してDOM要素の抽出を行なっており、横に長いページの横方向スクロールは考慮しておりません。
本Scriptは大量一括処理を志向するプログラムではなく、「見えているもの」をそのまま処理してほしいという考えで作ったものでもあり、Webブラウザ（Safari）で表示中のページのソースを取得してそのまま処理しています。つまり、ユーザーが閲覧中のページのデータそのものを処理しています。
これは、ページのソースを取得するコマンドを持っていないGoogle Chromeにはできない処理です（同じURLの内容を別途curlコマンドなどで取得すればOK。Cookie値などの再現が大変でしょうけれども）。
その他、実際に作って使ってみた感想は、装飾用に使われている表データまで取り込んでしまう点に不満があるぐらいでしょうか。これら「ゴミデータ」（再利用する価値のない装飾用の表データ）を区別するために、行数が足りない場合には書き出さないといった「足切り」を行う必要性を感じます。
–> Download VisibleTableExporter(Code-signed executable applet with Framework in its bundle)
| AppleScript名：Safariで現在見えている表を抽出してCSV書き出し.scptd |
| — – Created by: Takaaki Naganoya – Created on: 2019/09/22 — – Copyright © 2019 Piyomaru Software, All Rights Reserved — use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "HTMLReader" –https://github.com/nolanw/HTMLReader property NSUUID : a reference to current application’s NSUUID property NSString : a reference to current application’s NSString property HTMLDocument : a reference to current application’s HTMLDocument property NSMutableArray : a reference to current application’s NSMutableArray property NSJSONSerialization : a reference to current application’s NSJSONSerialization set aTag to "table" set indRes to getVisibleElementIndexList(aTag) of me if indRes = false or indRes = {} then display notification "No Visible Table in Web browser" return end if tell application "Safari" tell front document set aSource to source end tell end tell repeat with i in indRes set inList to filterATableAndPaseCells(aSource, i, aTag) of me if inList = false or inList = {} then return set aUUID to current application’s NSUUID’s UUID()’s UUIDString() as text set aNewFile to ((path to desktop) as string) & aUUID & ".csv" saveAsCSV(inList, aNewFile) of me tell application "Numbers" open (aNewFile as alias) end tell end repeat tell application "Numbers" to activate on filterATableAndPaseCells(aSource as string, targInd as integer, aTag as string) set aHTML to current application’s HTMLDocument’s documentWithString:(aSource as string) –Table要素をリストアップ set eList to (aHTML’s nodesMatchingSelector:aTag) as list set aObj to contents of item (targInd + 1) of eList –Count columns of Table Header set aTableHeader to (aObj’s nodesMatchingSelector:"tr")’s firstObject() set hList to aTableHeader’s nodesMatchingSelector:"th" set hStrList to {} repeat with i1 in hList set the end of hStrList to i1’s textContent() as string end repeat set hLen to length of hStrList –count columns –Acquire whole table body contents set aTableBody to (aObj’s nodesMatchingSelector:"tbody")’s firstObject() set bList to aTableBody’s nodesMatchingSelector:"td" set bbList to {} repeat with i2 in bList set the end of bbList to i2’s textContent() as string end repeat set tbList to makeList1DTo2D(bbList, hLen) of me return {hStrList} & tbList end filterATableAndPaseCells –1D Listを2D化 on makeList1DTo2D(orig1DList as list, aMax) set tbList to {} set tmpList to {} set aCount to 1 repeat with i3 in orig1DList set j to contents of i3 set the end of tmpList to j if aCount ≥ aMax then set aCount to 1 set the end of tbList to tmpList set tmpList to {} else set aCount to aCount + 1 end if end repeat return tbList end makeList1DTo2D –Safariのウィンドウ上で表示中のDOM Elementsを座標計算して返す on getVisibleElementIndexList(aTag as string) tell application "Safari" set dCount to count every document if dCount = 0 then return false set jRes to do JavaScript "var winWidth = window.innerWidth, winHeight = window.innerHeight, winLeft = window.scrollX winTop = window.scrollY, winBottom = winTop + winHeight, winRight = winLeft + winWidth, elementsArray = document.body.getElementsByTagName(’" & aTag & "’), elemLen = elementsArray.length, inView = []; var step; for (step = 0 ; step < elemLen ; step++) { var tmpElem = document.body.getElementsByTagName(’" & aTag & "’)[step]; var bVar = tmpElem.getBoundingClientRect(); if (bVar.top > 0 && bVar.top < winHeight) { inView.push(step); } } JSON.stringify(inView);" in front document set jList to parseJSONAsList(jRes) of me return jList end tell end getVisibleElementIndexList on parseJSONAsList(jsRes as string) set jsonString to NSString’s stringWithString:jsRes set jsonData to jsonString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding) set aJsonDict to NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value) return aJsonDict as list end parseJSONAsList –Save 2D List to CSV file on saveAsCSV(aList as list, aPath) set crlfChar to (string id 13) & (string id 10) set LF to (string id 10) set wholeText to "" repeat with i in aList set newLine to {} –Sanitize (Double Quote) repeat with ii in i set jj to ii as text set kk to repChar(jj, string id 34, (string id 34) & (string id 34)) of me –Escape Double Quote set the end of newLine to kk end repeat –Change Delimiter set aLineText to "" set curDelim to AppleScript’s text item delimiters set AppleScript’s text item delimiters to "＼",＼"" set aLineList to newLine as text set AppleScript’s text item delimiters to curDelim set aLineText to repChar(aLineList, return, "") of me –delete return set aLineText to repChar(aLineText, LF, "") of me –delete lf set wholeText to wholeText & "＼"" & aLineText & "＼"" & crlfChar –line terminator: CR＋LF end repeat if (aPath as string) does not end with ".csv" then set bPath to aPath & ".csv" as Unicode text else set bPath to aPath as Unicode text end if writeToFileAsUTF8(wholeText, bPath, false) of me end saveAsCSV on writeToFileAsUTF8(this_data, target_file, append_data) tell current application try set the target_file to the target_file as text set the open_target_file to open for access file target_file with write permission if append_data is false then set eof of the open_target_file to 0 write this_data as «class utf8» to the open_target_file starting at eof close access the open_target_file return true on error error_message try close access file target_file end try return error_message end try end tell end writeToFileAsUTF8 on repChar(origText as text, targChar as text, repChar as text) set curDelim to AppleScript’s text item delimiters set AppleScript’s text item delimiters to targChar set tmpList to text items of origText set AppleScript’s text item delimiters to repChar set retText to tmpList as string set AppleScript’s text item delimiters to curDelim return retText end repChar |
Safariで指定のDOM Elementの情報を取得する
Safariで表示中の最前面のDocument内の指定Tag、指定Index（出現順、0はじまり）のDOM Elementの詳細なプロパティ値を取得するAppleScriptです。
複数のTableが存在しているページのそれぞれのプロパティ値を取得してdiffを取るための調査用Scriptです。
| AppleScript名：Safariで指定のDOM Elementの情報を取得する |
| use AppleScript version "2.4" use scripting additions use framework "Foundation" tell application "Safari" set jsStr to "var elementsArray = document.body.getElementsByTagName(’table’); aVar = window.getComputedStyle(elementsArray[1]); JSON.stringify(aVar);" set aHeight to do JavaScript jsStr in front document set cRes to parseJSONAsRecord(aHeight) of me end tell –> {|95|:"font-style", |50|:"caret-color", |96|:"font-synthesis", |51|:"clear", |97|:"font-variant", webkitMaskPosition:"0% 0%", |52|:"clip", |98|:"font-variant-alternates", webkitHyphens:"manual", |right|:"auto", |53|:"clip-path", |99|:"font-variant-caps", |54|:"clip-rule", backgroundAttachment:"scroll", willChange:"auto", |55|:"color", margin:"0px 0px 20px", marginTop:"0px", |10|:"animation-name", |56|:"color-interpolation", webkitColumnBreakBefore:"auto", baselineShift:"baseline", webkitLineSnap:"none", |11|:"animation-play-state", |57|:"color-interpolation-filters", scrollSnapMargin:"0px", transform:"none", |12|:"animation-timing-function", |58|:"color-rendering", |13|:"background-attachment", |59|:"color-scheme", fontVariantPosition:"normal", gridAutoFlow:"row", |14|:"background-blend-mode", position:"static", |15|:"background-clip", |16|:"background-color", |17|:"background-image", webkitMaskComposite:"source-over", |18|:"background-origin", justifyItems:"normal", |19|:"background-position", colorRendering:"auto", |color|:"rgb(51, 51, 51)", listStyleImage:"none", borderBottom:"0px none rgb(128, 128, 128)", backgroundOrigin:"padding-box", counterIncrement:"none", webkitMaskRepeatY:"", writingMode:"horizontal-tb", borderInlineEndStyle:"none", columnGap:"normal", textDecorationLine:"none", scrollSnapMarginBottom:"0px", strokeColor:"rgba(0, 0, 0, 0)", webkitBoxOrdinalGroup:"1", alignItems:"normal", caretColor:"rgb(51, 51, 51)", webkitMarginBottomCollapse:"collapse", paddingLeft:"0px", fontWeight:"normal", padding:"0px", scrollPaddingTop:"0px", flexGrow:"0", boxSizing:"border-box", webkitBackgroundSize:"auto", marginBottom:"20px", gridTemplateRows:"none", background:"rgba(0, 0, 0, 0) none repeat scroll 0% 0% / auto padding-box border-box", fontDisplay:"", speakAs:"normal", |left|:"auto", webkitBoxDecorationBreak:"slice", scrollSnapAlign:"none none", backgroundPosition:"0% 0%", gridRowStart:"auto", borderBlockStartWidth:"0px", borderTopLeftRadius:"0px", webkitUserDrag:"auto", borderRightColor:"rgb(128, 128, 128)", fontVariantAlternates:"normal", breakInside:"auto", webkitTextZoom:"normal", marker:"", webkitClipPath:"none", strokeLinejoin:"miter", webkitMarquee:"", breakAfter:"auto", webkitMaskPositionX:"0%", whiteSpace:"normal", backgroundColor:"rgba(0, 0, 0, 0)", flexDirection:"row", columns:"auto auto", transformOriginX:"", clip:"auto", emptyCells:"show", transformOrigin:"413.75px 309.4021911621094px", borderLeftColor:"rgb(128, 128, 128)", flex:"0 1 auto", webkitTextStroke:"", clipRule:"nonzero", grid:"none / none / none / row / auto / auto", listStyleType:"disc", maxWidth:"none", borderInlineStartStyle:"none", webkitTextOrientation:"mixed", clipPath:"none", justifySelf:"auto", clear:"none", transformOriginY:"", overflowWrap:"break-word", webkitHyphenateLimitAfter:"auto", tabSize:"8", marginBlockStart:"0px", |120|:"image-rendering", unicodeRange:"", gridColumnEnd:"auto", webkitRubyPosition:"before", |220|:"text-rendering", animationDirection:"normal", webkitMaskOrigin:"border-box", |121|:"isolation", fontStyle:"normal", |320|:"-webkit-text-emphasis-position", |221|:"text-shadow", webkitTextFillColor:"rgb(51, 51, 51)", |122|:"justify-content", borderBottomLeftRadius:"0px", |321|:"-webkit-text-emphasis-style", |80|:"fill-rule", |222|:"text-transform", |123|:"justify-items", |81|:"filter", |322|:"-webkit-text-fill-color", transformOriginZ:"", borderRightWidth:"0px", |82|:"flex-basis", |223|:"text-underline-position", |124|:"justify-self", webkitTextSizeAdjust:"auto", |83|:"flex-direction", |323|:"-webkit-text-orientation", |224|:"top", |84|:"flex-flow", |125|:"kerning", |150|:"opacity", |85|:"flex-grow", |324|:"-webkit-text-security", borderBlockStartStyle:"none", |225|:"touch-action", |40|:"border-top-color", |86|:"flex-shrink", |126|:"left", |250|:"-apple-color-filter", |151|:"order", |41|:"border-top-left-radius", |87|:"flex-wrap", |325|:"-webkit-text-size-adjust", |226|:"transform", border:"0px none rgb(128, 128, 128)", |42|:"border-top-right-radius", |88|:"float", |127|:"letter-spacing", |152|:"orphans", |251|:"-webkit-appearance", |43|:"border-top-style", |89|:"flood-color", |227|:"transform-box", |326|:"-webkit-text-stroke-color", |252|:"-webkit-backdrop-filter", |44|:"border-top-width", |128|:"lighting-color", |153|:"outline-color", |327|:"-webkit-text-stroke-width", borderBlockEndColor:"rgb(128, 128, 128)", |45|:"bottom", |228|:"transform-origin", borderInlineEnd:"0px none rgb(128, 128, 128)", |253|:"-webkit-backface-visibility", |129|:"line-break", |46|:"box-shadow", |154|:"outline-offset", |328|:"-webkit-text-zoom", alignContent:"normal", borderLeftStyle:"none", |47|:"box-sizing", |229|:"transform-style", |254|:"-webkit-background-clip", colorScheme:"auto", shapeOutside:"none", |48|:"buffered-rendering", |155|:"outline-style", |180|:"ry", |329|:"-webkit-transform-style", minBlockSize:"0px", |49|:"caption-side", |255|:"-webkit-background-composite", inlineSize:"827.5px", |280|:"-webkit-font-kerning", |156|:"outline-width", textDecorationColor:"rgb(51, 51, 51)", |181|:"scroll-padding", transitionProperty:"all", webkitBoxDirection:"normal", webkitInitialLetter:"normal", |256|:"-webkit-background-origin", gridColumn:"auto / auto", |281|:"-webkit-font-smoothing", |157|:"overflow-wrap", listStyle:"disc outside none", |182|:"scroll-padding-bottom", webkitMaskBoxImage:"none", floodColor:"rgb(0, 0, 0)", webkitTextEmphasisPosition:"over right", |257|:"-webkit-background-size", scrollSnapMarginRight:"0px", |282|:"-webkit-hyphenate-character", |158|:"overflow-x", webkitTextSecurity:"none", |183|:"scroll-padding-left", columnRule:"0px none rgb(51, 51, 51)", |258|:"-webkit-border-fit", gridColumnStart:"auto", |283|:"-webkit-hyphenate-limit-after", |159|:"overflow-y", touchAction:"auto", |184|:"scroll-padding-right", webkitFontSizeDelta:"", webkitLocale:"ja", |259|:"-webkit-border-horizontal-spacing", |284|:"-webkit-hyphenate-limit-before", colorInterpolation:"sRGB", borderTopColor:"rgb(128, 128, 128)", |185|:"scroll-padding-top", |285|:"-webkit-hyphenate-limit-lines", hangingPunctuation:"none", |186|:"scroll-snap-align", mask:"none", borderRight:"0px none rgb(128, 128, 128)", paddingInlineStart:"0px", webkitBackgroundOrigin:"padding-box", |286|:"-webkit-hyphens", |187|:"scroll-snap-margin", pageBreakAfter:"auto", colorProfile:"", textAnchor:"start", |287|:"-webkit-initial-letter", webkitMaskSize:"auto", |188|:"scroll-snap-margin-bottom", overflowX:"visible", |288|:"-webkit-line-align", strokeLinecap:"butt", |189|:"scroll-snap-margin-left", |289|:"-webkit-line-box-contain", borderBottomColor:"rgb(128, 128, 128)", paddingRight:"0px", fontOpticalSizing:"auto", borderImage:"none", floodOpacity:"1", webkitAspectRatio:"auto", webkitColumnProgression:"normal", alignSelf:"auto", display:"table", borderRadius:"0px", maxInlineSize:"none", minHeight:"0px", strokeMiterlimit:"4", webkitBorderVerticalSpacing:"0px", webkitMaskClip:"border-box", webkitBorderHorizontalSpacing:"0px", objectPosition:"50% 50%", kerning:"0", borderStyle:"none", visibility:"visible", textShadow:"none", borderLeftWidth:"0px", shapeImageThreshold:"0", scrollSnapMarginTop:"0px", markerMid:"none", scrollPadding:"0px", markerEnd:"none", webkitFontKerning:"auto", borderBottomWidth:"0px", float:"none", placeSelf:"auto auto", webkitBackgroundComposite:"source-over", borderTop:"0px none rgb(128, 128, 128)", backgroundRepeat:"repeat", webkitMarqueeDirection:"auto", animationIterationCount:"1", backgroundPositionX:"0%", content:"", transformStyle:"flat", borderInlineEndColor:"rgb(128, 128, 128)", borderBlockStart:"0px none rgb(128, 128, 128)", overflow:"visible", webkitMaskPositionY:"0%", perspective:"none", strokeDashoffset:"0px", outlineColor:"rgb(51, 51, 51)", webkitMarqueeSpeed:"", webkitTextEmphasisStyle:"none", isolation:"auto", borderInlineStartColor:"rgb(128, 128, 128)", textDecorationSkip:"auto", outlineOffset:"0px", objectFit:"fill", textUnderlineOffset:"auto", webkitAppearance:"none", webkitMaskBoxImageWidth:"auto", animationTimingFunction:"ease", borderWidth:"0px", borderSpacing:"0px 0px", captionSide:"top", columnWidth:"auto", rowGap:"normal", webkitMaskBoxImageSource:"none", webkitRtlOrdering:"logical", |70|:"counter-reset", paddingInlineEnd:"0px", |71|:"cursor", |72|:"cx", fontSize:"14.000000953674316px", |73|:"cy", vectorEffect:"none", |74|:"direction", justifyContent:"normal", fillRule:"nonzero", |75|:"display", fontSynthesis:"style weight small-caps", |30|:"border-image-repeat", |76|:"dominant-baseline", |31|:"border-image-slice", |77|:"empty-cells", pageBreakBefore:"auto", |32|:"border-image-source", |78|:"fill", cx:"0px", webkitMaskBoxImageRepeat:"stretch", borderImageSource:"none", |33|:"border-image-width", |79|:"fill-opacity", cy:"0px", outlineStyle:"none", webkitBoxFlex:"0", |34|:"border-left-color", width:"827.5px", webkitMarginBeforeCollapse:"collapse", |35|:"border-left-style", borderRightStyle:"none", |36|:"border-left-width", |0|:"align-content", |37|:"border-right-color", |1|:"align-items", paddingBlockStart:"0px", |size|:"", |2|:"align-self", |38|:"border-right-style", |3|:"alignment-baseline", |4|:"alt", |39|:"border-right-width", webkitFontSmoothing:"auto", |5|:"animation-delay", borderTopWidth:"0px", |6|:"animation-direction", |100|:"font-variant-east-asian", |7|:"animation-duration", |8|:"animation-fill-mode", |200|:"stroke", |9|:"animation-iteration-count", webkitTransformStyle:"flat", |101|:"font-variant-ligatures", counterReset:"none", |300|:"-webkit-mask-box-image", maskType:"luminance", webkitBoxShadow:"none", |201|:"stroke-color", borderBlockEndStyle:"none", |102|:"font-variant-numeric", fontStretch:"normal", textDecorationStyle:"solid", |301|:"-webkit-mask-box-image-outset", cursor:"auto", |202|:"stroke-dasharray", webkitMarqueeStyle:"scroll", |103|:"font-variant-position", animationFillMode:"none", glyphOrientationVertical:"auto", |302|:"-webkit-mask-box-image-repeat", |203|:"stroke-dashoffset", textRendering:"auto", |104|:"font-variation-settings", borderImageRepeat:"stretch", |303|:"-webkit-mask-box-image-slice", |204|:"stroke-linecap", height:"618.8043823242188px", |105|:"font-weight", all:"", |130|:"line-height", |304|:"-webkit-mask-box-image-source", pointerEvents:"auto", textTransform:"none", |205|:"stroke-linejoin", dominantBaseline:"auto", |230|:"transition-delay", |106|:"glyph-orientation-horizontal", filter:"none", |131|:"list-style-image", |305|:"-webkit-mask-box-image-width", |330|:"-webkit-user-drag", |206|:"stroke-miterlimit", paintOrder:"normal", |231|:"transition-duration", |107|:"glyph-orientation-vertical", placeItems:"normal normal", |132|:"list-style-position", |306|:"-webkit-mask-clip", borderInlineStart:"0px none rgb(128, 128, 128)", |331|:"-webkit-user-modify", |207|:"stroke-opacity", textOverflow:"clip", |232|:"transition-property", |108|:"grid-auto-columns", webkitBackdropFilter:"none", |133|:"list-style-type", |307|:"-webkit-mask-composite", webkitMaskRepeat:"repeat", |332|:"-webkit-user-select", |208|:"stroke-width", webkitBoxReflect:"none", |233|:"transition-timing-function", |109|:"grid-auto-flow", |134|:"margin-bottom", |308|:"-webkit-mask-image", |333|:"fullscreen-inset-bottom", |209|:"tab-size", |234|:"unicode-bidi", flexWrap:"nowrap", wordSpacing:"0px", |135|:"margin-left", |309|:"-webkit-mask-origin", |160|:"padding-bottom", |334|:"safe-area-inset-bottom", flexFlow:"row nowrap", |235|:"vector-effect", |260|:"-webkit-border-image", |136|:"margin-right", |161|:"padding-left", |335|:"safe-area-inset-left", transition:"all 0s ease 0s", |236|:"vertical-align", columnFill:"balance", |261|:"-webkit-border-vertical-spacing", |137|:"margin-top", |162|:"padding-right", |336|:"fullscreen-inset-left", maxHeight:"none", |237|:"visibility", alt:"＼"＼"", |262|:"-webkit-box-align", |138|:"marker-end", marginInlineEnd:"0px", |163|:"padding-top", |337|:"fullscreen-inset-right", webkitMarginTopCollapse:"collapse", |238|:"white-space", gridRowEnd:"auto", |263|:"-webkit-box-decoration-break", |139|:"marker-mid", |164|:"page-break-after", |338|:"fullscreen-auto-hide-duration", fillOpacity:"1", |239|:"widows", |264|:"-webkit-box-direction", overflowY:"visible", |165|:"page-break-before", |339|:"safe-area-inset-right", |190|:"scroll-snap-margin-right", |265|:"-webkit-box-flex", animationDuration:"0s", |290|:"-webkit-line-clamp", |166|:"page-break-inside", marginRight:"0px", |191|:"scroll-snap-margin-top", |266|:"-webkit-box-flex-group", borderInlineStartWidth:"0px", |291|:"-webkit-line-grid", |167|:"paint-order", webkitNbspMode:"normal", |192|:"scroll-snap-type", |267|:"-webkit-box-lines", mixBlendMode:"normal", |292|:"-webkit-line-snap", |168|:"perspective", paddingBlockEnd:"0px", |193|:"shape-image-threshold", src:"", webkitBoxAlign:"stretch", |268|:"-webkit-box-ordinal-group", paddingTop:"0px", |293|:"-webkit-locale", |169|:"perspective-origin", borderBlockEnd:"0px none rgb(128, 128, 128)", |194|:"shape-margin", r:"0px", textAlign:"start", |269|:"-webkit-box-orient", webkitMaskBoxImageOutset:"0px", |294|:"-webkit-margin-after-collapse", webkitTextEmphasis:"", webkitTextStrokeColor:"rgb(51, 51, 51)", |195|:"shape-outside", breakBefore:"auto", wordWrap:"break-word", |295|:"-webkit-margin-before-collapse", minInlineSize:"0px", |196|:"shape-rendering", borderInlineEndWidth:"0px", webkitLineAlign:"none", webkitMaskBoxImageSlice:"0 fill", widows:"auto", perspectiveOrigin:"413.75px 309.4021911621094px", |296|:"-webkit-marquee-direction", x:"0px", y:"0px", |197|:"speak-as", perspectiveOriginX:"", |297|:"-webkit-marquee-increment", |198|:"stop-color", fontFamily:"-apple-system, BlinkMacSystemFont, ＼"Segoe UI＼", Roboto, Oxygen-Sans, Ubuntu, Cantarell, ＼"Helvetica Neue＼", sans-serif", |298|:"-webkit-marquee-repetition", |199|:"stop-opacity", animationPlayState:"running", webkitHyphenateLimitBefore:"auto", |299|:"-webkit-marquee-style", webkitBoxOrient:"horizontal", order:"0", webkitMaskSourceType:"alpha", fontVariantNumeric:"normal", webkitColumnBreakAfter:"auto", webkitColumnBreakInside:"auto", shapeMargin:"0px", webkitMaskImage:"none", top:"auto", backgroundBlendMode:"normal", listStylePosition:"outside", bottom:"auto", gridTemplateColumns:"none", strokeWidth:"0.8695652484893799px", borderTopRightRadius:"0px", direction:"ltr", webkitBackfaceVisibility:"visible", backgroundPositionY:"0%", rx:"0px", webkitHyphenateLimitLines:"no-limit", ry:"0px", lineBreak:"auto", bufferedRendering:"auto", quotes:"", gridRow:"auto / auto", webkitBorderFit:"border", borderBottomRightRadius:"0px", alignmentBaseline:"auto", textIndent:"0px", paddingBottom:"0px", columnRuleColor:"rgb(51, 51, 51)", fontVariantCaps:"normal", backgroundSize:"auto", |60|:"column-count", columnCount:"auto", |61|:"column-fill", webkitBoxLines:"single", webkitBoxFlexGroup:"1", backgroundRepeatX:"", |62|:"column-gap", glyphOrientationHorizontal:"0deg", lineHeight:"20px", |63|:"column-rule-color", borderBlockEndWidth:"0px", opacity:"1", webkitBackgroundClip:"border-box", webkitBoxPack:"start", |64|:"column-rule-style", |65|:"column-rule-width", borderImageWidth:"1", fontVariantLigatures:"normal", |20|:"background-repeat", |66|:"column-span", |21|:"background-size", |67|:"column-width", gridTemplateAreas:"none", tableLayout:"auto", |22|:"baseline-shift", |68|:"content", webkitBorderImage:"none", |23|:"border-bottom-color", |69|:"counter-increment", animationName:"none", letterSpacing:"normal", |24|:"border-bottom-left-radius", |25|:"border-bottom-right-radius", backgroundClip:"border-box", transitionDelay:"0s", |26|:"border-bottom-style", |27|:"border-bottom-width", webkitCursorVisibility:"auto", |28|:"border-collapse", webkitTextDecorationsInEffect:"none", |29|:"border-image-outset", fill:"rgb(0, 0, 0)", webkitHyphenateCharacter:"auto", animation:"", pageBreakInside:"auto", lightingColor:"rgb(255, 255, 255)", webkitLineClamp:"none", perspectiveOriginY:"", textDecorationThickness:"auto", marginInlineStart:"0px", borderTopStyle:"none", placeContent:"normal normal", backgroundRepeatY:"", textUnderlinePosition:"auto", wordBreak:"normal", columnRuleStyle:"none", webkitUserModify:"read-only", columnSpan:"none", strokeOpacity:"1", webkitMarqueeRepetition:"infinite", webkitMarginCollapse:"", flexBasis:"auto", colorInterpolationFilters:"linearRGB", gap:"normal normal", webkitMask:"", gridArea:"auto / auto / auto / auto", gridTemplate:"none / none / none", resize:"none", borderColor:"rgb(128, 128, 128)", zIndex:"auto", webkitTextCombine:"none", webkitTextStrokeWidth:"0px", borderBottomStyle:"none", fontVariant:"normal", scrollSnapType:"none", textDecoration:"none", webkitTextEmphasisColor:"rgb(51, 51, 51)", orphans:"auto", scrollPaddingRight:"0px", borderImageOutset:"0px", webkitTextDecoration:"none solid rgb(51, 51, 51)", |110|:"grid-auto-rows", marginLeft:"0px", transitionTimingFunction:"ease", |210|:"table-layout", stroke:"none", stopOpacity:"1", |111|:"grid-column-end", |310|:"-webkit-mask-position", stopColor:"rgb(0, 0, 0)", webkitPrintColorAdjust:"economy", |211|:"text-align", unicodeBidi:"normal", |112|:"grid-column-start", |311|:"-webkit-mask-repeat", page:"", |212|:"text-anchor", |113|:"grid-row-end", |312|:"-webkit-mask-size", fontFeatureSettings:"normal", |213|:"text-decoration", |114|:"grid-row-start", webkitMarqueeIncrement:"6px", webkitUserSelect:"text", |313|:"-webkit-mask-source-type", gridAutoRows:"auto", |214|:"text-decoration-color", |115|:"grid-template-areas", |140|:"marker-start", |314|:"-webkit-nbsp-mode", scrollPaddingBottom:"0px", |215|:"text-decoration-line", |240|:"width", |116|:"grid-template-columns", |141|:"mask", |315|:"-webkit-print-color-adjust", borderBlockStartColor:"rgb(128, 128, 128)", |340|:"fullscreen-inset-top", |216|:"text-decoration-skip", fontVariantEastAsian:"normal", |241|:"will-change", |117|:"grid-template-rows", fontVariationSettings:"normal", |142|:"mask-type", |316|:"-webkit-rtl-ordering", marginBlockEnd:"20px", |341|:"safe-area-inset-top", |217|:"text-decoration-style", minWidth:"0px", |242|:"word-break", |118|:"hanging-punctuation", zoom:"1", |143|:"max-height", |317|:"-webkit-text-combine", |218|:"text-indent", gridAutoColumns:"auto", |243|:"word-spacing", |119|:"height", verticalAlign:"baseline", |144|:"max-width", |318|:"-webkit-text-decorations-in-effect", imageRendering:"auto", maxBlockSize:"none", |219|:"text-overflow", outlineWidth:"0px", |244|:"word-wrap", shapeRendering:"auto", webkitLineGrid:"none", |145|:"min-height", |319|:"-webkit-text-emphasis-color", |170|:"place-content", enableBackground:"", |245|:"writing-mode", |270|:"-webkit-box-pack", |146|:"min-width", animationDelay:"0s", |171|:"place-items", boxShadow:"none", scrollSnapMarginLeft:"0px", webkitBorderRadius:"", |246|:"x", |271|:"-webkit-box-reflect", |147|:"mix-blend-mode", |172|:"place-self", |247|:"y", blockSize:"618.8043823242188px", |272|:"-webkit-box-shadow", |148|:"object-fit", columnRuleWidth:"0px", |173|:"pointer-events", backgroundImage:"none", |248|:"z-index", |273|:"-webkit-clip-path", |149|:"object-position", transitionDuration:"0s", |174|:"position", |249|:"zoom", |274|:"-webkit-column-axis", webkitColumnAxis:"auto", |175|:"r", borderImageSlice:"100%", |275|:"-webkit-column-break-after", borderCollapse:"collapse", |176|:"resize", |276|:"-webkit-column-break-before", webkitLineBoxContain:"block inline replaced", |177|:"right", |277|:"-webkit-column-break-inside", |178|:"row-gap", borderLeft:"0px none rgb(128, 128, 128)", |font|:"normal normal normal normal 14.000000953674316px/20px -apple-system, BlinkMacSystemFont, ＼"Segoe UI＼", Roboto, Oxygen-Sans, Ubuntu, Cantarell, ＼"Helvetica Neue＼", sans-serif", webkitMarginAfterCollapse:"collapse", |278|:"-webkit-column-progression", |outline|:"rgb(51, 51, 51) none 0px", scrollPaddingLeft:"0px", |90|:"flood-opacity", |179|:"rx", markerStart:"none", strokeDasharray:"none", |91|:"font-family", |279|:"-webkit-cursor-visibility", flexShrink:"1", webkitMaskRepeatX:"", |92|:"font-optical-sizing", transformBox:"border-box", |93|:"font-size", |94|:"font-stretch"} on parseJSONAsRecord(jsRes) set jsonString to current application’s NSString’s stringWithString:jsRes 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) return aJsonDict as record end parseJSONAsRecord |
Safariのdo JavaScriptから結果をJSONで返してASの各種オブジェクトに変換
Safariのdo JavaScriptコマンドから各種結果を取得してAppleScriptの各種オブジェクトに変換するAppleScriptです。
真剣にSafari上でdo JavaScriptコマンド経由で値の受け渡しをするときに、さまざまな型のデータをJavaScript側からAppleScript側に渡したいことがあります。ただ、まじめにデータの受け渡しはそんなにやっていないので、あらためて方法を調べておきました。
| AppleScript名：Safariのdo javascriptから結果をJSONで返してASの各種オブジェクトに変換 |
| — – Created by: Takaaki Naganoya – Created on: 2019/09/22 — – Copyright © 2019 Piyomaru Software, All Rights Reserved — use AppleScript version "2.4" use scripting additions use framework "Foundation" tell application "Safari" if (count every document) = 0 then return –String List (1D) set jsRes1 to do JavaScript "var tempVar = [’1’,’2’]; JSON.stringify(tempVar);" in front document set aRes to parseJSONAsList(jsRes1) of me –> {"1", "2"} –Number List (1D) set jsRes2 to do JavaScript "var tempVar = [1,2]; JSON.stringify(tempVar);" in front document set bRes to parseJSONAsList(jsRes2) of me –> {1, 2} –Record set jsRes3 to do JavaScript "var tempVar2 = { name:’Steve Jobs’, age:32, tel:’080-1234-5678’ }; JSON.stringify(tempVar2);" in front document set cRes to parseJSONAsRecord(jsRes3) of me –> {|name|:"Steve Jobs", age:32, tel:"080-1234-5678"} –Records in List set jsRes4 to do JavaScript "var tempVar2 = [{ name:’Steve Jobs’, age:32, tel:’080-1234-5678’ },{ name:’Tim Coo’, age:55, tel:’090-1234-5678’ }] ; JSON.stringify(tempVar2);" in front document set dRes to parseJSONAsList(jsRes4) of me –> {{|name|:"Steve Jobs", age:32, tel:"080-1234-5678"}, {|name|:"Tim Coo", age:55, tel:"090-1234-5678"}} –Number List (2D) set jsRes5 to do JavaScript "var tempVar = [[1,2], [3,4], [5,6]]; JSON.stringify(tempVar);" in front document set eRes to parseJSONAsList(jsRes5) of me –> {{1, 2}, {3, 4}, {5, 6}} end tell on parseJSONAsList(jsRes) set jsonString to current application’s NSString’s stringWithString:jsRes 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) return aJsonDict as list end parseJSONAsList on parseJSONAsRecord(jsRes) set jsonString to current application’s NSString’s stringWithString:jsRes 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) return aJsonDict as record end parseJSONAsRecord |
| AppleScript名：Safariのdo javascriptから結果をJSONで返してASの各種オブジェクトに変換 2 |
| — – Created by: Takaaki Naganoya – Created on: 2019/09/22 — – Copyright © 2019 Piyomaru Software, All Rights Reserved — use AppleScript version "2.4" use scripting additions use framework "Foundation" tell application "Safari" if (count every document) = 0 then return –String set jsRes1 to do JavaScript "var tempVar = ’1’; tempVar;" in front document –> "1" –Number set jsRes2 to do JavaScript "var tempVar = 1; tempVar;" in front document –> 1.0 end tell |
コンテンツ中の表示中のエリア座標を取得する
Safariで表示中のWebコンテンツの表示範囲の座標を取得するAppleScriptです。
Webブラウザに対するAppleScriptの処理といえば、
（１）表示中のURLを取得して処理
（２）表示中のコンテンツにJavaScriptを実行したりGUI Scripting経由で操作（特定要素をカウントしたりFormに値を入れたりボタンを押したり）
（３）表示中のHTMLソースを取得して処理
（４）Webブラウザそのものの環境情報（Bookmarkや履歴など）にアクセスして処理
（５）選択中のテキストを取得して処理
（６）テキストを選択しておいて、その内容が該当する要素を抽出
といった操作を行ってきました。
（１）は、Webブラウザで表示中のURLを他のプログラムで処理する場合などに便利な、基礎的な処理です。
（２）は、ロボット的なScriptにありがちな、メニューの奥深く（URLで一発オープンが無理なログインを要求される構造のWebサイトとか）にあるデータを定期的に取得するような処理によく使います。
（３）は、（１）の延長線上にあるもので、HTMLReaderなどのHTMLそのものを解釈して処理できる高機能フレームワークと組み合わせてWebスクレイピングを行うものです
（４）は、書いてあるとおりブックマークや履歴などにアクセスして統計処理を行なったりしています。
（５）は、ちょっとした調べ物や翻訳などを行いたい場合に使っています。
（６）は、（３）の処理を行いたいが、処理対象の要素（表など）が複数あるので、どの要素なのか特定するための補助情報としてテキスト選択を要求するものです。
このうち、（６）に該当する処理が現状だといまひとつです。Webブラウザ上でテキストを選択しておく必要があるというのでは使い勝手がよくありません。
Webコンテンツのうち、Webブラウザ上で表示中の要素を取得するようなやり方であれば、その方が使い勝手がよいことでしょう。Wikipedia上の表データを使いまわしたいが、対象ページ上に表が複数あるので、いま現在Webブラウザのウィンドウ上で見えている範囲内に存在する表を取り出すようにすれば、より気の利いた処理になることでしょう。
| AppleScript名：コンテンツ中の表示中のエリア座標を取得する |
| –https://stackoverflow.com/questions/9271747/can-i-detect-the-user-viewable-area-on-the-browser tell application "Safari" set dCount to count every document if dCount = 0 then return set aHeight to do JavaScript "window.innerHeight;" in front document set sHeight to do JavaScript "window.scrollY;" in front document set aWidth to do JavaScript "window.innerWidth;" in front document set sWidth to do JavaScript "window.scrollX;" in front document return {myWidth:aWidth, scrollX:sWidth, myHeight:aHeight, scrollY:sHeight} end tell |
tableExtractor
Safariで表示中のページのうち、テキストを選択中のキーワードを含む表をCSVファイルに書き出してNumbersでオープンするAppleScriptです。
–> Download tableExtractor Run-Only (Code-Signed Executable including Framework in its bundle)
実行前にSafariの「開発」メニューから、「スマート検索フィールドからのJavaScriptの実行を許可」「AppleEventからのJavaScriptの実行を許可」を実行しておく必要があります（実行済みの場合には必要ありません）。
▲Safariで表示中のページのうち、CSV書き出ししたい表のテキストを選択
▲本Scriptで表をCSVに書き出してNumbersでオープン
以前に作成した「Safariで表示中のPageの選択中の文字を含む表データを取得」Scriptがいい線を行っていた（あらかじめ表中のテキストを選択しておく、という前提条件がかったるいかと思っていたのに、そうでもなかった）ので、ありもののサブルーチンを追加して、表部分のHTMLからのタグ削除やCSV書き出しなどを行えるようにしました。
本Scriptは表データをCSV書き出しする必要はどこにもないのですが、Numbers v6.1に「表を新規作成して表のセル数を指定すると多くの場合にエラーになる」というバグがあるので、Numbersを直接操作してデータ出力させることはやっていません。
処理時間もさほどかからないので、表示中のページのすべての表オブジェクトをCSV化したり、表を選択するUIを実装して、「どの表を出力するか？」という選択処理をしてもいいかもしれません。
▲漫然とMacOS日本語で書き出ししたため文字化けしたもの（左）、UTF8を指定して書き出ししたために文字化けしなくなったもの（右）
途中でCSV書き出しした表データに文字化けが発生していたのですが、これはUTF8でファイル書き出ししていなかったためでした。
本Scriptは前バージョンよりもキーワードの検出処理をていねいに行なっています。各TableのHTMLに対してタグの除去を行なったうえでWebブラウザ上で選択中の文字列を含んでいるかどうかをチェックしています。
| AppleScript名：tableExtractor.scptd |
| — Created 2019-09-15 by Takaaki Naganoya — 2019 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "HTMLReader" –https://github.com/nolanw/HTMLReader property NSString : a reference to current application’s NSString property HTMLDocument : a reference to current application’s HTMLDocument property NSMutableArray : a reference to current application’s NSMutableArray tell application "Safari" set dList to every document –Sometimes "count every document"causes error if length of dList = 0 then return –Get URL tell front document set aURL to URL end tell –Get Selected Text set aRes to do JavaScript "var selObj = window.getSelection(); var selStr = (selObj).getRangeAt(0); unescape(selStr);" in front document if aRes = "" then return end tell set aRes to filterATableAndPaseCells(aURL, aRes) of me if aRes = false then display notification "I could not filter table data…" return end if –Save 2D List to temp CSV file on desktop folder set savePath to ((path to desktop) as string) & (do shell script "uuidgen") & ".csv" saveAsCSV(aRes, savePath) of me tell application "Numbers" activate open file savePath end tell on filterATableAndPaseCells(aURL, aKeyword) set aData to (do shell script "curl " & aURL) set aHTML to current application’s HTMLDocument’s documentWithString:(aData as string) –Table要素をリストアップ set eList to (aHTML’s nodesMatchingSelector:"table") –Table要素のうちSafari上で選択中の文字列を含むものをサーチ（指定データを含むものを抽出） set hitF to false repeat with i in eList set cellList to i’s children()’s array() set htmlSource to i’s serializedFragment() as string –HTML source set html2 to trimStrFromTo(htmlSource, "<", ">") of me set html3 to repChar(html2, return, "") of me if html3 contains aKeyword then set hitF to true exit repeat end if end repeat if hitF = false then return false –Count columns of Table Header set aTableHeader to (i’s nodesMatchingSelector:"tr")’s firstObject() set hList to aTableHeader’s nodesMatchingSelector:"th" set hStrList to {} repeat with i1 in hList set the end of hStrList to i1’s textContent() as string end repeat set hLen to length of hStrList –count columns –Acquire whole table body contents set aTableBody to (i’s nodesMatchingSelector:"tbody")’s firstObject() set bList to aTableBody’s nodesMatchingSelector:"td" set bbList to {} repeat with i2 in bList set the end of bbList to i2’s textContent() as string end repeat set tbList to makeList1DTo2D(bbList, hLen) of me return {hStrList} & tbList end filterATableAndPaseCells –1D Listを2D化 on makeList1DTo2D(orig1DList, aMax) set tbList to {} set tmpList to {} set aCount to 1 repeat with i3 in orig1DList set j to contents of i3 set the end of tmpList to j if aCount ≥ aMax then set aCount to 1 set the end of tbList to tmpList set tmpList to {} else set aCount to aCount + 1 end if end repeat return tbList end makeList1DTo2D on trimStrFromTo(aParamStr, fromStr, toStr) set theScanner to current application’s NSScanner’s scannerWithString:aParamStr set anArray to current application’s NSMutableArray’s array() repeat until (theScanner’s isAtEnd as boolean) set {theResult, theKey} to theScanner’s scanUpToString:fromStr intoString:(reference) theScanner’s scanString:fromStr intoString:(missing value) set {theResult, theValue} to theScanner’s scanUpToString:toStr intoString:(reference) if theValue is missing value then set theValue to "" theScanner’s scanString:toStr intoString:(missing value) anArray’s addObject:theValue end repeat if anArray’s |count|() = 0 then return aParamStr copy aParamStr to curStr repeat with i in (anArray as list) set curStr to repChar(curStr, fromStr & i & toStr, "") of me end repeat return curStr end trimStrFromTo on repChar(aStr, targStr, repStr) set aString to current application’s NSString’s stringWithString:aStr set bString to aString’s stringByReplacingOccurrencesOfString:targStr withString:repStr set cString to bString as string return cString end repChar –2D List to CSV file on saveAsCSV(aList, aPath) –set crlfChar to (ASCII character 13) & (ASCII character 10) set crlfChar to (string id 13) & (string id 10) set LF to (string id 10) set wholeText to "" repeat with i in aList set newLine to {} –Sanitize (Double Quote) repeat with ii in i set jj to ii as text set kk to repChar(jj, string id 34, (string id 34) & (string id 34)) of me –Escape Double Quote set the end of newLine to kk end repeat –Change Delimiter set aLineText to "" set curDelim to AppleScript’s text item delimiters set AppleScript’s text item delimiters to "＼",＼"" set aLineList to newLine as text set AppleScript’s text item delimiters to curDelim set aLineText to repChar(aLineList, return, "") of me –delete return set aLineText to repChar(aLineText, LF, "") of me –delete lf set wholeText to wholeText & "＼"" & aLineText & "＼"" & crlfChar –line terminator: CR＋LF end repeat if (aPath as string) does not end with ".csv" then set bPath to aPath & ".csv" as Unicode text else set bPath to aPath as Unicode text end if writeToFileUTF8(wholeText, bPath, false) of me end saveAsCSV on writeToFileUTF8(this_data, target_file, append_data) tell current application try set the target_file to the target_file as text set the open_target_file to open for access file target_file with write permission if append_data is false then set eof of the open_target_file to 0 write this_data as «class utf8» to the open_target_file starting at eof close access the open_target_file return true on error error_message try close access file target_file end try return error_message end try end tell end writeToFileUTF8 |
Safariで表示中のPageの選択中の文字を含む表データを取得
Safari上で一部のテキストを選択した「表」のデータをHTMLReaderフレームワークを利用してparseし、2D Listとして取得するAppleScriptです。
Web上の表データをそのまま利用したいケースが多々あります。こんな小さなデータではなく、数百個にわたる表データをインポートして使いたいというケースです。
そのときに作った部品を転用して、より一般的な用途に使えるようにしたのが本Scriptです。ただし、さまざまな用途に使って鍛えたというものでもなく、AppleのWebドキュメントやWikiの内容の抽出など、割と「規則性の高そうなコンテンツ」で利用してみました。
本来は、複数ページの特定の表を指定してデータを取得する用途に用いているものなので、本Scriptのように「選択中の文字列を含む表」といった、のどかな使い方はしません。動作内容がわかりやすいように作り変えたためにこのような仕様になっています。
どこぞのオンラインストアの諸元をまとめた表をWeb上からくすねてくる、とかいう用途だと、割と表が込み入って（JavaScriptを仕込んでソートし直せるようにしてあるとか）いるケースがあるので、どのページのどの表にでもあまねく利用できるという種類のものではありません。
–> Download HTMLReader.framework(To ~/Library/Frameworks)
HTMLReader.frameworkを利用するためには、macOS 10.14以降だとSIPを解除するかScript Debugger上で動かすか、AppleScriptアプレット内に組み込んで実行することになります。
| AppleScript名：Safariで表示中のPageの選択中の文字を含む表データを取得.scptd |
| — Created 2019-09-02 by Takaaki Naganoya — 2019 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "HTMLReader" –https://github.com/nolanw/HTMLReader property NSString : a reference to current application’s NSString property HTMLDocument : a reference to current application’s HTMLDocument property NSMutableArray : a reference to current application’s NSMutableArray tell application "Safari" set dList to every document –Sometimes "count every document"causes error if length of dList = 0 then return –Get URL tell front document set aURL to URL end tell –Get Selected Text set aRes to do JavaScript "var selObj = window.getSelection(); var selStr = (selObj).getRangeAt(0); unescape(selStr);" in front document if aRes = "" then return end tell set aRes to filterATableAndPaseCells(aURL, aRes) of me –> {{"Objective-C and AppleScript class", "Attributes (script term, if different)", "Relationships"}, {"NSObjectImplements the item AppleScript class. For any scriptable Objective-C class that inherits from NSObject, the AppleScript class it implements inherits from the item class (and inherits the class property and the properties property).", "class name (class), properties", ""}, {"NSApplicationImplements the application AppleScript class.", "name, active flag (frontMost), version", "documents, windows (both accessible as ordered relationship)"}, {"NSDocumentImplements the document AppleScript class.", "location of the document’s on-disk representation (path); last component of filename (name); edited flag (modified)", ""}, {"NSWindowImplements the window AppleScript class.", "title (name); various binary-state attributes: closeable, floating, miniaturized, modal, resizable, titled, visible, zoomable", "document"}} on filterATableAndPaseCells(aURL, aKeyword) set aData to (do shell script "curl " & aURL) set aHTML to current application’s HTMLDocument’s documentWithString:(aData as string) –Table要素をリストアップ set eList to (aHTML’s nodesMatchingSelector:"table") –Table要素のうちSafari上で選択中の文字列を含むものをサーチ（指定データを含むものを抽出） set hitF to false repeat with i in eList set cellList to i’s children()’s array() set htmlSource to i’s serializedFragment() as string –HTML source if htmlSource contains aKeyword then set hitF to true exit repeat end if end repeat if hitF = false then return false –Count columns of Table Header set aTableHeader to (i’s nodesMatchingSelector:"tr")’s firstObject() set hList to aTableHeader’s nodesMatchingSelector:"th" set hStrList to {} repeat with i1 in hList set the end of hStrList to i1’s textContent() as string end repeat set hLen to length of hStrList –count columns –Acquire whole table body contents set aTableBody to (i’s nodesMatchingSelector:"tbody")’s firstObject() set bList to aTableBody’s nodesMatchingSelector:"td" set bbList to {} repeat with i2 in bList set the end of bbList to i2’s textContent() as string end repeat set tbList to makeList1DTo2D(bbList, hLen) of me return {hStrList} & tbList end filterATableAndPaseCells –1D Listを2D化 on makeList1DTo2D(orig1DList, aMax) set tbList to {} set tmpList to {} set aCount to 1 repeat with i3 in orig1DList set j to contents of i3 set the end of tmpList to j if aCount ≥ aMax then set aCount to 1 set the end of tbList to tmpList set tmpList to {} else set aCount to aCount + 1 end if end repeat return tbList end makeList1DTo2D |
各種GUI要素なしでSafari上に新規ウィンドウ表示
Safari上で操作ボタンなどのGUI要素を表示しないで新規ウィンドウ表示するAppleScriptです。
１つのウィンドウを表示するのはすぐにできましたが、複数表示が大変でした（ーー； 結局、適宜delayコマンドで時間待ちをする必要があったのでした。やれやれー。
現時点で用途はまったく不明なのですが、いつか必要になることもあるでしょう（そういうの多いな！）。「resizable=no」という指定をしているのに、ウィンドウがリサイズできるあたりはご愛嬌。
ちなみに、Safariのdocumentが１つ以上存在することを前提条件としていますが、そこは省略して明示していません（初心者がひっかかりがちな「不明確な前提条件」なのですが本説明をもってかえさせていただきます）。
Twitter上でロシアのMacユーザーが「だれかAppleScriptについて教えてくれー」と言っていたので、「Google翻訳の範囲でなら（込み入った話でなければ）いいぞ」と返信したら、マンツーマンでやりとり。
初のロシア人とのチャットです。
本ScriptのおおもとになったAppleScriptをAlfred.appを使ってキーボードショートカットで呼び出していたそうで、１アクションから１つのサイトをオープンするだけなのが不満で、複数のサイト（URL）をオープンするように変更したかったとのこと。
Google翻訳を使ってコミュニケーションしてみて、いろいろ理解しました。
（１）ロシア人、とっても普通
（２）話した相手がプログラミングわからない人だったので、いろいろ追加で話をされたが、プログラマーが一番嫌がる内容（最初からゴール地点が設定されていない）になってきたので「ここから先は仕事としてならやるが、ギャラなしだったらやらない」と明言して打ち切り
（３）Google翻訳を通じて「ロシア語に翻訳できない表現」がいろいろあって焦る。おそらく、英語ほどには日本語との間の翻訳の用例が多く蓄積されておらず、翻訳できなかったものと想像。一応、日本語→ロシア語に翻訳してから、その文章を再度日本語に再翻訳してチェック。トンでもない表現に翻訳されて驚愕するも、何例か日本語の表現を変えてリトライ
あとから振り返って考えると、「日本語からロシア語に翻訳するより、英語からロシア語に翻訳した方がよかった」、「ダスビダーニャ（До свидания）って挨拶は知っていたのに使えなかったよ、ハラショー」といったところでしょうか。
あとは、固定でプログラム中にURLのデータを入れておかないで、外部ファイル……たとえばNumbers書類上のデータであるとか、DragThingのURLランチャーに登録してある現在選択中のタブからURLを取得してオープンするとかいった処理が考えられると「お、頑張ったね」というレベルでしょうか。
| AppleScript名：各種GUI要素なしでSafari上に新規ウィンドウ表示 |
| set aURLstr to "http://piyocast.com/as"
tell application "Safari" tell front document set jsStr to "open(’" & aURLstr & "’, ’test’,’scrollbars=no,resizable=no,status=no,location=no," & "toolbar=no,menubar=no,width=1024,height=720,left=0,top=0’);" do JavaScript jsStr end tell end tell |
| AppleScript名：各種GUI要素なしでSafari上に新規ウィンドウを複数表示 |
| set aURLarray to {"http://piyocast.com/as", "http://www.apple.com", "http://www.microsoft.com"}
repeat with i in aURLarray set j to contents of i openNewWindowWithoutGUIElements(j) of me delay 3 end repeat on openNewWindowWithoutGUIElements(aURLstr) set aNum to random number from 1 to 999 tell application "Safari" tell front document set jsStr to ("open(’" & aURLstr & "’, ’test" & aNum as string) & "’,’scrollbars=no,resizable=no,status=no,location=no," & "toolbar=no,menubar=no,width=1024,height=720,left=0,top=0’);" do JavaScript jsStr end tell end tell end openNewWindowWithoutGUIElements |
YouTubeムービーの状態を取得、操作
Safari上で表示中のYouTubeのムービーの再生状態を取得、再生/停止のトグル動作を行うなどのAppleScriptです。
macOS標準搭載のスクリプトメニューに入れて呼び出しています。
| AppleScript名：Safariの最前面のウィンドウで再生中のYouTubeムービーの状態を取得する |
| –Get YouTube Movie status tell application "Safari" tell front document set aRes to (do JavaScript "document.querySelector(’#movie_player video’).paused;") end tell end tell |
| AppleScript名：Safariの最前面のウィンドウで再生中のYouTubeムービーを再生_停止をトグル切り替え |
| –Toggle Youtube play/pause tell application "Safari" tell front document set aRes to (do JavaScript "document.querySelector(’#movie_player .ytp-play-button’).click();") end tell end tell |
| AppleScript名：Safariの最前面のウィンドウでオープン中のYouTubeムービーを再生 |
| tell application "Safari" tell front document set aURL to URL –最前面のウィンドウがYouTubeの場合のみ処理 if aURL begins with "https://www.youtube.com/" then set aRes to (do JavaScript "document.querySelector(’#movie_player video’).paused;") if aRes = true then –停止中（一時停止中）の場合のみ再生操作 (do JavaScript "document.querySelector(’#movie_player .ytp-play-button’).click();") end if end if end tell end tell |
| AppleScript名：Safariの最前面のウィンドウでオープン中の YouTubeムービーの再生フレームの冒頭からの時間を取得 |
| tell application "Safari" tell front document set aURL to URL –最前面のウィンドウがYouTubeの場合のみ処理 if aURL begins with "https://www.youtube.com/" then set tRes to (do JavaScript "document.querySelector(’#movie_player video’).getCurrentTime();") end if end tell end tell |
| AppleScript名：Safariの最前面のウィンドウでオープン中のYouTubeムービーの再生ポジションを変更 |
| tell application "Safari" tell front document set aURL to URL –最前面のウィンドウがYouTubeの場合のみ処理 if aURL begins with "https://www.youtube.com/" then set tRes to (do JavaScript "document.querySelector(’#movie_player video’).currentTime =300;") end if end tell end tell |
| AppleScript名：Safariの最前面のウィンドウでオープン中のYouTubeムービーのdurationを取得 |
| tell application "Safari" tell front document set aURL to URL –最前面のウィンドウがYouTubeの場合のみ処理 if aURL begins with "https://www.youtube.com/" then set tRes to (do JavaScript "document.querySelector(’#movie_player video’).duration;") end if end tell end tell |
front document
AppleScriptに対応しているGUIアプリケーションで、複数のドキュメントを管理するもの、テキストエディタや表計算ソフトなどはwindowとdocumentというクラスが定義されています。
documentは、オープンされた順にIDが振られます。このIDは、ウィンドウの重ね合わせ順が変更されても変わりません。保存したりクローズしたりする対象はdocumentです（原則。たまに例外があります）。
windowのIDは、画面上のウィンドウの重ね合わせ順を反映したものです。最前面のウィンドウがwindow 1です。その下にあるのがwindow 2、3、4……とカウントされます。別のウィンドウを最前面に移動させると、それがwindow 1になります。
windowに対して実行できるコマンドもあれば、documentに対して実行できるコマンドもあります。そのあたり、アプリケーションごとに実装が異なるので慣れが必要です。一番このあたりでdocumentとwindowの使い分けに頭を悩まされるのはFileMakerあたりでしょうか。「それ、document（database）に対してのコマンドじゃないんだ？」という例がズラズラと。
長いあいだ、「最前面のdocumentにアクセスするのって大変だ」と感じていました。window 1にアクセスして、そのpropertyを取得し、propertyの中に対応するdocumentの情報があれば、それを取得。
そんな中、front documentという書き方を見かけ、試してみたら「最前面のdocument」にアクセスできました。AppleScript用語辞書にも載っていないのに、なぜか使える用語です。
| AppleScript名：window–>document |
| –window 1–> document tell application "Safari" tell window 1 properties –> {zoomable:true, closeable:true, zoomed:true, class:window, index:1, visible:true, name:"AppleScriptの穴 – Useful & Practical AppleScript archive", miniaturizable:true, id:204098, miniaturized:false, resizable:true, bounds:{0, 22, 1233, 1200}, current tab:tab 1 of window id 204098 of application "Safari", document:document "AppleScriptの穴 – Useful & Practical AppleScript archive" of application "Safari"} set aDoc to document of it end tell tell aDoc set aURL to URL –> "http://piyocast.com/as/" end tell end tell |
| AppleScript名：front document |
| –front document tell application "Safari" tell front document set aURL to URL –> "http://piyocast.com/as/" end tell end tell |
こんな便利な機能、いつごろ実装されたのかと疑問に思って、macOS/OS X/Mac OS Xのバージョンをさかのぼり、Classic Macエミュレータ「SheepShaver」上のClassic Mac OS J1-8.6上のAppleScript J1-1.3.7で確認したところ、期待どおりの動作を行いました。
うわ、恥ずかしい〜。ただ、front documentについて書籍などで書かれているのを見た覚えがありません。
1999年に作成されたAppleScript Language Guide 1.3.7で「front document」を検索してみたら、けっこーたくさん出てきました。
Safariで表示中のWebページの最終更新日時を取得
指定のWebページ（URL）の最終更新日時（Last Modified Date）を取得するAppleScriptです。
AppleScriptそのものにWebの最終更新日時を取得する関数や機能はありません。はい、おしまい。
……というのでは、AppleScriptの本質がぜんぜん分かっていないね、ということになります。AppleScriptは「それができるアプリケーション」（など）に依頼を出すのが処理スタイルだからです。
まずは、Safariにコマンドを投げて実行するスタイル。
| AppleScript名：Safariのdo javascriptコマンドで最終更新日時を取得 |
| — Created 2018-08-17 by Takaaki Naganoya — 2018 Piyomaru Software tell application "Safari" tell front document set dRes to (do JavaScript "document.lastModified;") end tell end tell |
だいたいは、これで手を打つでしょう。ただし、最近のmacOSではセキュリティ強化のためにSafariのdo javascriptコマンドがデフォルトでは禁止されているので、Safariで「開発」メニューを表示させたあとに、「開発」メニューの「AppleEventからのJavaScriptを許可」「スマート検索フィールドからのJavaScriptを許可」を実行しておく必要があります（→ 書籍「AppleScript 10大最新技術」P-84）。
Mac AppStore上で配布/販売するアプリケーションの中で処理することを考えると、SafariをコントロールすることをInfo.plist内で宣言しておけばとくに問題はありません。
do javascriptコマンドの実行で一般的にはファイナルアンサーなのですが、なぜでしょう。リアルタイム日付が返ってくるパターンが多いです。
次は、shellのcurlコマンドを呼び出すスタイルです。指定URLのレスポンスヘッダーを出力させられるので、これを検索して出力します。ただ、YouTubeをはじめとするWebサイトでこの最終更新日を返してこないので、これでもダメな時はダメです。
| AppleScript名：curlコマンドで最終更新日時を取得 |
| — Created 2018-08-17 by Takaaki Naganoya — 2018 Piyomaru Software tell application "Safari" tell front document set aURL to URL end tell end tell try set uRes to (do shell script "curl -D – -s -o /dev/null " & aURL & " | grep Date:") on error return false end try |
これも現在日時を返してくるパターンが多いですね。また、噂レベルではあるものの「do shell scriptコマンドは極力使わないほうがいいよ」というお達しがScripter界隈で流れているので、将来的に何かがあるのかもしれません（昔の、ごくごく初期のMac OS XはBSDレイヤーというかBSDコマンド類が、OSインストール時にオプション扱いだったので、そういう未来はあるかもしれない）。
Mac AppStore上で配布/販売するアプリケーションの中で処理するのも、とくに問題はないのですが、今度はネットワーク接続することをあらかじめ宣言しておくのと、httpによる通信を行うことを宣言しておかないとネットワーク接続ができません。
最後の手段。Cocoaを呼び出して自前でWebのレスポンスヘッダーを取得するスタイル。
| AppleScript名：Cocoaの機能で最終更新日時を取得 |
| — Created 2018-08-17 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" property NSString : a reference to current application’s NSString property NSLocale : a reference to current application’s NSLocale property NSURLRequest : a reference to current application’s NSURLRequest property NSDateFormatter : a reference to current application’s NSDateFormatter property NSURLConnection : a reference to current application’s NSURLConnection property NSURLRequestUseProtocolCachePolicy : a reference to current application’s NSURLRequestUseProtocolCachePolicy tell application "Safari" tell front document set aURL to URL end tell end tell set aURL to (current application’s |NSURL|’s URLWithString:aURL) set {exRes, headerRes, aData} to checkURLResourceExistence(aURL, 3) of me set aDate to headerRes’s |date| as string set lastUpdateDate to dateFromStringWithDateFormat(aDate, "EEE, dd MMM yyyy HH:mm:ss zzz") of me return lastUpdateDate — 指定URLにファイル（画像など）が存在するかチェック –> {存在確認結果（boolean）, レスポンスヘッダー(NSDictionary), データ(NSData)} on checkURLResourceExistence(aURL, timeOutSec as real) set aRequest to (NSURLRequest’s requestWithURL:aURL cachePolicy:(NSURLRequestUseProtocolCachePolicy) timeoutInterval:timeOutSec) set aRes to (NSURLConnection’s sendSynchronousRequest:aRequest returningResponse:(reference) |error|:(missing value)) set dRes to (first item of (aRes as list)) set bRes to (second item of (aRes as list)) if bRes is not equal to missing value then set hRes to (bRes’s allHeaderFields()) set aResCode to (bRes’s statusCode()) as integer else set hRes to {} set aResCode to -1 –error end if return {(aResCode = 200), hRes, dRes} end checkURLResourceExistence –指定形式の日付テキストをAppleScriptのdateオブジェクトに変換 on dateFromStringWithDateFormat(dateString, dateFormat) set dStr to NSString’s stringWithString:dateString set dateFormatStr to NSString’s stringWithString:dateFormat set aDateFormatter to NSDateFormatter’s alloc()’s init() aDateFormatter’s setDateFormat:dateFormatStr aDateFormatter’s setLocale:(NSLocale’s alloc()’s initWithLocaleIdentifier:"en_US_POSIX") set aDestDate to (aDateFormatter’s dateFromString:dStr) return aDestDate as date end dateFromStringWithDateFormat |
結果は３つとも変わりませんでした。Cocoa呼び出しするものも、作り置きしておいたサブルーチンを使いまわしただけなので、作るのに３分もかかっていません。
curlを呼び出すスタイル同様、Mac AppStore上で配布/販売するアプリケーションの中で処理するのもとくに問題はないのですが、httpによる通信を行うことを宣言しておかないとネットワーク接続ができません。
Safariでdo javascriptコマンドを実行するものは、最初にdo javascriptコマンドを実行する設定が必要。curlコマンドはまあそんなもんだろうかと。Cocoaの機能を呼び出す方法は、ここまでやってダメならあきらめがつくというところでしょうか。
OS X 10.11.5＋Safari 9.1.1以降で、新たなAS制限機能が増える
macOS 10.11.5＋Safari 9.1.1以降で、新たなAppleScriptの制限機能が増えました。Safariに対してdo javascriptコマンドによるコマンド実行が可能でしたが、これがデフォルト設定では禁止状態になったということです。
macOS 10.12.x系では、macOS 10.12.6＋Safari 11.1にて、macOS 10.13.x系ではmacOS 10.13.5＋Safari 11.1.1上にて確認しています。
■デフォルトでdo javascriptコマンドによる制御がオフに
これ以前のmacOSではデフォルトでオンになっていたので、一回オンにする作業が必要になりました（管理者パスワード必要）。
・STEP1 「開発」メニューをオンに
Safariの「環境設定」＞「詳細」で、「メニューバーに”開発”メニューを表示」をオンにします。これで、Safariのメニューバーに「開発」メニューが表示されます。
・STEP2 「開発」メニューから「AppleEventからのJavaScriptを許可」「スマート検索フィールドからのJavaScriptを許可」の２つの項目をオンに（管理者パスワード必要）
| AppleScript名：最前面のウィンドウのタイトルを取得する |
| tell application "Safari" set aRes to do JavaScript "document.title;" in front document display dialog aRes end tell |
▲デフォルト状態
▲「開発」メニューからJavaScriptの実行を許可した状態
Safariのダウンロードフォルダを求める v5
| AppleScript名：Safariのダウンロードフォルダを求める v5 |
| — Created 2015-03-06 by Takaaki Naganoya — Created 2018-04-09 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" set dlRes to getSafariDownloadFolder() of me –> "/Users/maro/Downloads" on getSafariDownloadFolder() set theID to id of application "Safari" –> "com.apple.Safari" set dlRes2 to getAppDefaultsValue(theID, "DownloadsPath") return dlRes2 end getSafariDownloadFolder on getAppDefaultsValue(appBundleID, appKey) set storedDefaults to (current application’s NSUserDefaults’s standardUserDefaults()’s persistentDomainForName:appBundleID) set keyList to storedDefaults’s allKeys() as list if appKey is not in keyList then return missing value set dlRes to (storedDefaults’s valueForKeyPath:appKey) set dlRes2 to (dlRes’s stringByExpandingTildeInPath()) as list of string or string return dlRes2 end getAppDefaultsValue |