edama2さんから投稿していただいた、指定URLの初出の指定タグ要素を抽出するAppleScriptです。
戦場の絆Wiki上の指定ページ上の指定タグでマークされたテキストを取得します。
ブログを見ていて思いつき、前に作りかけていたのを清書して送ります。 名前は「指定URLのMS名を取得するv2b」です。 内容はWKWebviewでページを読み込んで、javascriptで要素を取得しています。 前の二つよりスマートではありませんが、こんなやり方もあるってことで... 色々書き換えているうちに元がないですが、元ネタはapplescriptの穴からです。
プログラムも短いわけではなく、処理速度も速いわけでもなく（自分の環境で9秒ぐらい）、ただ見ただけだと「？？？？」という内容ですが、本プログラムの価値は処理対象ではなく、
AppleScriptからWkWebViewに対して任意のJavaScriptを実行して処理しているサンプルである
という１点に尽きます。これはー、セキュリティ上のしばりがきつくて、けっこう大変なんですよ（遠い目）。
以前、WKWebView上にYouTubeの指定URLのムービーを表示するというScriptを掲載したことがありますが、本当はこの上でJavaScriptを実行して指定の再生ポジションに再生位置をジャンプさせるといった処理を行いたかったのですが、WKWebView相手に（任意の）JavaScriptを実行させられず、時間切れで諦めたことがありました（そして絶賛放置中）。なるほど、こう書くんですねー。
あとは、
tell AppleScript
ってなんなんでしょう（＾ー＾；； 初めて見かける記述のオンパレードがけっこうショッキングです。
自分は「癖のないプログラムを読みやすく書く派」を自称していますが、日本国内にも割と海外のScripterに紹介したい（変わった）人たちがいて、edama2さんとMacLab.さんはその中に必ず入ってくる人たちでしょう。
| AppleScript名：指定URLのMS名を取得する v2b.scpt |
| — – Created by: edama2 – Created on: 2019/09/04 — use AppleScript use scripting additions use framework "Foundation" use framework "WebKit" property _js_result : "" on run my main() end run on main() set my _js_result to "" set aURL to "https://w.atwiki.jp/senjounokizuna/pages/1650.html" set myJs to "var result = document.getElementsByTagName(’h3’)[0].innerHTML; webkit.messageHandlers.oreore.postMessage(result);" –>返信用に必要 set paramObj to {targetURL:aURL, javascript:myJs} my performSelectorOnMainThread:"makeWebContents:" withObject:(paramObj) waitUntilDone:true return my _js_result as text end main on makeWebContents:paramObj set {targetURL:aURL, javascript:myJs} to paramObj # 下準備 set thisURL to current application’s |NSURL|’s URLWithString:aURL set theRequest to current application’s NSURLRequest’s requestWithURL:thisURL set aConf to current application’s WKWebViewConfiguration’s new() #javascriptからname を取り出す set myJs to myJs as text tell AppleScript set tmp to text item delimiters set text item delimiters to "webkit.messageHandlers." set stringList to myJs’s text items set aText2 to stringList’s item 2 set text item delimiters to ".postMessage(" set stringList2 to aText2’s text items set scriptName to stringList2’s item 1 set text item delimiters to tmp end tell #ページ読み込み後に実行するjavascriptの仕込み set userScript to current application’s WKUserScript’s alloc()’s initWithSource:myJs injectionTime:(current application’s WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true tell current application’s WKUserContentController’s new() addUserScript_(userScript) addScriptMessageHandler_name_(me, scriptName) aConf’s setUserContentController:it end tell #WebViewを作成＆読み込み tell (current application’s WKWebView’s alloc()’s initWithFrame:(current application’s CGRectZero) configuration:aConf) setNavigationDelegate_(me) loadRequest_(theRequest) set hitF to false repeat (minutes * 1000) times set isLoading to isLoading() as boolean if not isLoading then set hitF to true exit repeat end if delay "0.001" as real end repeat end tell return hitF end makeWebContents: #javascriptの結果を受信 on userContentController:myUserContentController didReceiveScriptMessage:aMessage set my _js_result to aMessage’s body() as text return my _js_result end userContentController:didReceiveScriptMessage: |
