指定URLのMS名を取得する v2b

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: