Googleで検索して結果を返す v2

Webブラウザを併用せず、Googleの検索エンジンに直接問い合わせを行い、結果をCocoaの機能を用いて検索結果URLの一覧を取得するAppleScriptです。

オリジナル v1はShane Stanleyが作成、あまりに洗練された処理内容に絶句しました。さらに、処理内容が内容だけに、Shaneから見せられて「掲載はちょっと検討させて」と返事をしてしまったほど。

他のプログラミング言語でも同様の実装例が見られたので、問題視されないレベルと判断して掲載しました。

ただ、その一方でオリジナル版からの改良も行い、オリジナルでは20件ぐらいだった検索件数の拡張を行なって100件までの検索が行えるようにしたものがこのv2です。

長期間かつ大量の検索をGoogleの検索エンジンに対して行う場合には、REST API経由で行なってください。

追記（2019/08/20）
しばらく動いていましたが、Google側のWeb表示の仕様が変わって検索できなくなりました。ただし、検索結果のNSXMLDocumentからのURL抽出処理を変更することで、対応は可能と思われます（やっていませんが）。REST APIのドキュメント化された仕様は変わらないため、検索を行うにはREST API経由のほうが安心です。

追記（2020）
CotEditorのPowerPackにこれの改訂版を入れてあり、CotEditorで選択中の語句でGoogle検索できるようにしてあります。これの動作状況で様子を見ているところです。

AppleScript名：Googleで検索して結果を返す v4

— Created 2017-03-31 by Shane Stanley
— Modified 2019-09-18 by Takaaki Naganoya
use AppleScript version "2.4"
use framework "Foundation"
use scripting additions

property theResult : {}

set theQuery to "戦場の絆"
set paramObj to {myQuery:theQuery, myMax:10}

my performSelectorOnMainThread:"searchByGoogle:" withObject:(paramObj) waitUntilDone:true
return my theResult
–> {"http://web.gundam-kizuna.jp/sp/",…….}

on searchByGoogle:paramObj
　　set theQuery to myQuery of paramObj
　　set maxNum to myMax of paramObj
　　
　　— build and escape query string
　　set theQuery to current application’s NSString’s stringWithString:theQuery
　　set theQuery to theQuery’s stringByReplacingOccurrencesOfString:space withString:"+"
　　set escQuery to theQuery’s stringByAddingPercentEncodingWithAllowedCharacters:(current application’s NSCharacterSet’s URLQueryAllowedCharacterSet())
　　
　　— do search
　　set searchURLString to current application’s NSString’s stringWithFormat_("https://www.google.com/search?client=safari&rls=en&ie=UTF-8&oe=UTF-8&q=%@&complete=0&num=%@&as_qdr=all", escQuery, (maxNum as string))
　　set theURL to current application’s |NSURL|’s URLWithString:searchURLString
　　set {theData, theError} to current application’s NSData’s dataWithContentsOfURL:theURL options:0 |error|:(reference)
　　if theData = missing value then error (theError’s localizedDescription() as text)
　　
　　— convert to XML
　　set {theXMLDoc, theError} to current application’s NSXMLDocument’s alloc()’s initWithData:theData options:(current application’s NSXMLDocumentTidyHTML) |error|:(reference)
　　if theXMLDoc = missing value then error (theError’s localizedDescription() as text)
　　
　　–検索結果として返してくるclass要素名を固定で書かない方法を模索するべき？
　　
　　— filter via XPath and predicate
　　set xpathStr to "//*[@class=＼"kCrYT＼"]/a/@href" –ここが問題
　　
　　set {theNodes, theError} to theXMLDoc’s nodesForXPath:xpathStr |error|:(reference)
　　if theNodes = missing value then error (theError’s localizedDescription() as text)
　　set nodeStrings to (theNodes’s valueForKey:"stringValue")
　　set thePred to current application’s NSPredicate’s predicateWithFormat:"self BEGINSWITH ’/url?q=’"
　　set nodeStrings to nodeStrings’s filteredArrayUsingPredicate:thePred
　　
　　— trim URL strings
　　set theURLStrings to {}
　　repeat with aString in nodeStrings
　　　　set theOffset to (aString’s rangeOfString:"&")
　　　　set end of theURLStrings to (aString’s substringWithRange:{7, (theOffset’s location) – 7}) as text
　　end repeat
　　
　　set my theResult to theURLStrings
end searchByGoogle: