set aList to {{507, 162}, {338, 166}, {389, 166}, {448, 166}, {286, 110}, {504, 109}, {558, 108}, {341, 113}, {394, 115}, {447, 112}, {234, 107}, {611, 110}, {286, 58}, {501, 63}, {556, 58}, {337, 59}, {391, 60}, {448, 63}, {611, 58}}

set rangeList to {{500, 100}, {550, 180}} –{{x1,y1}, {x2,y2}}
set resList to withinRange(rangeList, aList) of me
–>　　{{507, 162}, {504, 109}}

on withinRange(rangeList as list, targetList as list)
　　set aRect to makeNSRect(rangeList) of me
　　
　　set includedList to {}
　　repeat with i in targetList
　　　　copy i to {x, y}
　　　　set aPoint to current application’s NSMakePoint(x, y)
　　　　set aRes to (current application’s NSPointInRect(aPoint, aRect)) as boolean
　　　　
　　　　if aRes = true then
　　　　　　set the end of includedList to contents of i
　　　　end if
　　end repeat
　　
　　return includedList
end withinRange

on makeNSRect(aList as list)
　　try
　　　　copy aList to {{x1, y1}, {x2, y2}}
　　　　set xWidth to (x2 - x1)
　　　　set yHeight to (y2 - y1)
　　　　set a1Rect to {origin:{x:x1, y:y1}, |size|:{width:xWidth, height:yHeight}}
　　　　return a1Rect
　　on error
　　　　return missing value
　　end try
end makeNSRect

★Click Here to Open This Script　

set aList to {{507, 162}, {338, 166}, {389, 166}, {448, 166}, {286, 110}, {504, 109}, {558, 108}, {341, 113}, {394, 115}, {447, 112}, {234, 107}, {611, 110}, {286, 58}, {501, 63}, {556, 58}, {337, 59}, {391, 60}, {448, 63}, {611, 58}}

set rangeList to {{500, 100}, {550, 180}} –{{x1,y1}, {x2,y2}}
set resList to withinRange(rangeList, aList) of me
–>　　{{507, 162}, {504, 109}}

on withinRange(rangeList, targetList)
　　set aRect to makeNSRect(rangeList) of me
　　
　　set includedList to {}
　　repeat with i in targetList
　　　　set bRect to makeNSRectFromXY(i) of me
　　　　if bRect = missing value then error “Missing Data”
　　　　set aRes to detectRectanglesCollision(aRect, bRect) of me
　　　　if aRes = true then
　　　　　　set the end of includedList to contents of i
　　　　end if
　　end repeat
　　
　　return includedList
end withinRange

on makeNSRectFromXY(bList as list)
　　try
　　　　copy bList to {x, y}
　　　　set xWidth to 1
　　　　set yHeight to 1
　　　　set a1Rect to {origin:{x:x, y:y}, |size|:{width:xWidth, height:yHeight}}
　　　　return a1Rect
　　on error
　　　　return missing value
　　end try
end makeNSRectFromXY

on makeNSRect(aList as list)
　　try
　　　　copy aList to {{x1, y1}, {x2, y2}}
　　　　set xWidth to (x2 - x1)
　　　　set yHeight to (y2 - y1)
　　　　set a1Rect to {origin:{x:x1, y:y1}, |size|:{width:xWidth, height:yHeight}}
　　　　return a1Rect
　　on error
　　　　return missing value
　　end try
end makeNSRect

–NSRect同士の衝突判定
on detectRectanglesCollision(aRect, bRect)
　　set a1Res to current application’s NSIntersectionRect(aRect, bRect)
　　return not (a1Res = {origin:{x:0.0, y:0.0}, |size|:{width:0.0, height:0.0}})
end detectRectanglesCollision

★Click Here to Open This Script　

set cityRecList to {{kCityName:“Tokyo”, kCityLatitude:(35.6894875), kCityLongitude:(139.6917064), kCityTimeZone:“Asia/Tokyo”}}

set dList to {}

repeat with i in cityRecList
　　set the end of dList to getSunriseSunset(i) of me
end repeat
return dList
–>　　{{sunrise:date “2017年6月21日水曜日 4:25:37″, sunset:date “2017年6月21日水曜日 19:00:21″, civilTwilightStart:date “2017年6月21日水曜日 3:55:35″, civilTwilightEnd:date “2017年6月21日水曜日 19:30:23″, nauticalTwilightStart:date “2017年6月21日水曜日 3:18:15″, nauticalTwilightEnd:date “2017年6月21日水曜日 20:07:44″, astronomicalTwilightStart:date “2017年6月21日水曜日 2:36:45″, astronomicalTwilightEnd:date “2017年6月21日水曜日 20:49:13″, cityname:”Tokyo”}}

on getSunriseSunset(cityRec)
　　set curLocale to current application’s NSLocale’s currentLocale()
　　set curDate to current application’s NSDate’s |date|()
　　
　　set aTZ to current application’s NSTimeZone’s alloc()’s initWithName:(kCityName of cityRec)
　　set aSunrizeSunset to current application’s EDSunriseSet’s alloc()’s initWithDate:curDate timezone:aTZ latitude:(kCityLatitude of cityRec) longitude:(kCityLongitude of cityRec)
　　
　　–日の出、日没　　
　　set aSunRiseDate to (aSunrizeSunset’s sunrise) as date
　　set aSunSetDate to (aSunrizeSunset’s sunset) as date
　　
　　–https://en.wikipedia.org/wiki/Twilight
　　–https://ja.wikipedia.org/wiki/薄明
　　
　　–市民薄明（常用薄明、第三薄明）
　　set aCivilTwilightStart to (aSunrizeSunset’s civilTwilightStart) as date
　　set aCivilTwilightEnd to (aSunrizeSunset’s civilTwilightEnd) as date
　　
　　–航海薄明（第二薄明）
　　set aNauticalTwilightStart to (aSunrizeSunset’s nauticalTwilightStart) as date
　　set aNauticalTwilightEnd to (aSunrizeSunset’s nauticalTwilightEnd) as date
　　
　　–天文薄明（第一薄明）
　　set anAstronomicalTwilightStart to (aSunrizeSunset’s astronomicalTwilightStart) as date
　　set anAstronomicalTwilightEnd to (aSunrizeSunset’s astronomicalTwilightEnd) as date
　　
　　return {sunrise:aSunRiseDate, sunset:aSunSetDate, civilTwilightStart:aCivilTwilightStart, civilTwilightEnd:aCivilTwilightEnd, nauticalTwilightStart:aNauticalTwilightStart, nauticalTwilightEnd:aNauticalTwilightEnd, astronomicalTwilightStart:anAstronomicalTwilightStart, astronomicalTwilightEnd:anAstronomicalTwilightEnd, cityname:kCityName of cityRec}
end getSunriseSunset

★Click Here to Open This Script　

set cityRecList to {{kCityName:“Madrid”, kCityLatitude:(40.4165), kCityLongitude:(-3.70256), kCityTimeZone:“Europe/Madrid”}, {kCityName:“Beijing”, kCityLatitude:(39.9075), kCityLongitude:(116.39723), kCityTimeZone:“Asia/Shanghai”}, {kCityName:“Cupertino”, kCityLatitude:(37.3229978), kCityLongitude:(-122.0321823), kCityTimeZone:“America/Los_Angeles”}, {kCityName:“New York”, kCityLatitude:(40.7127837), kCityLongitude:(-74.0059413), kCityTimeZone:“America/New_York”}, {kCityName:“Tokyo”, kCityLatitude:(35.6894875), kCityLongitude:(139.6917064), kCityTimeZone:“Asia/Tokyo”}, {kCityName:“Sydney”, kCityLatitude:(-33.8674869), kCityLongitude:(151.2069902), kCityTimeZone:“Australia/Sydney”}}

set dList to {}

repeat with i in cityRecList
　　set the end of dList to getSunriseSunset(i) of me
end repeat
return dList
–>　　{{sunrise:date “2017年6月19日月曜日 13:44:22″, sunset:date “2017年6月20日火曜日 4:48:04″, cityname:”Madrid”}, {sunrise:date “2017年6月19日月曜日 5:45:35″, sunset:date “2017年6月19日月曜日 20:45:54″, cityname:”Beijing”}, {sunrise:date “2017年6月19日月曜日 21:47:30″, sunset:date “2017年6月20日火曜日 12:31:43″, cityname:”Cupertino”}, {sunrise:date “2017年6月19日月曜日 18:24:37″, sunset:date “2017年6月20日火曜日 9:30:19″, cityname:”New York”}, {sunrise:date “2017年6月19日月曜日 4:25:14″, sunset:date “2017年6月19日月曜日 18:59:52″, cityname:”Tokyo”}, {sunrise:date “2017年6月19日月曜日 5:59:28″, sunset:date “2017年6月19日月曜日 15:53:30″, cityname:”Sydney”}}

on getSunriseSunset(cityRec)
　　set curLocale to current application’s NSLocale’s currentLocale()
　　set curDate to current application’s NSDate’s |date|()
　　
　　set aTZ to current application’s NSTimeZone’s alloc()’s initWithName:(kCityName of cityRec)
　　set aSunrizeSunset to current application’s EDSunriseSet’s alloc()’s initWithDate:curDate timezone:aTZ latitude:(kCityLatitude of cityRec) longitude:(kCityLongitude of cityRec)
　　
　　set aSunRiseDate to (aSunrizeSunset’s sunrise) as date
　　–>　　date “2017年6月19日月曜日 4:25:14″
　　
　　set aSunSetDate to (aSunrizeSunset’s sunset) as date
　　–>　　date “2017年6月19日月曜日 18:59:52″
　　
　　return {sunrise:aSunRiseDate, sunset:aSunSetDate, cityname:kCityName of cityRec}
end getSunriseSunset

★Click Here to Open This Script　

★Click Here to Open This Script　

★Click Here to Open This Script　

property textCache : missing value
property aList : {}

–検索対象の語群
set sList to {“notification”, “Cocoa”} –considering case

set thePath to POSIX path of (choose file of type {“com.adobe.pdf”})

–PDFのテキスト内容をあらかじめページごとに読み取って、検索用のテキストキャッシュを作成
set anNSURL to (current application’s |NSURL|’s fileURLWithPath:thePath)
set theDoc to current application’s PDFDocument’s alloc()’s initWithURL:anNSURL
set theCount to theDoc’s pageCount() as integer

set textCache to current application’s NSMutableArray’s new()

repeat with i from 0 to (theCount - 1)
　　set aPage to (theDoc’s pageAtIndex:i)
　　set tmpStr to (aPage’s |string|())
　　(textCache’s addObject:{pageIndex:i + 1, pageString:tmpStr})
end repeat

–主にテキストキャッシュを対象にキーワード検索
repeat with s in sList
　　
　　–❶部分一致で抽出
　　set bRes to ((my filterRecListByLabel1(textCache, “pageString contains ’” & s & “’”))’s pageIndex) as list
　　
　　–❷、❶のページ単位のテキスト検索で見つからなかった場合（ページ間でまたがっている場合など）
　　if bRes = {} then
　　　　set bRes to {}
　　　　set theSels to (theDoc’s findString:s withOptions:0)
　　　　repeat with aSel in theSels
　　　　　　set thePage to (aSel’s pages()’s objectAtIndex:0)’s label()
　　　　　　set curPage to (thePage as integer)
　　　　　　if curPage is not in bRes then
　　　　　　　　set the end of bRes to curPage
　　　　　　end if
　　　　end repeat
　　end if
　　
　　set the end of aList to bRes
　　
end repeat

return aList

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel1(aRecList as list, aPredicate as string)
　　set aArray to current application’s NSArray’s arrayWithArray:aRecList
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat:aPredicate
　　set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate
　　return filteredArray
end filterRecListByLabel1

★Click Here to Open This Script　

set aPath to POSIX path of (choose file of type {“com.adobe.pdf”})
set aSearchKeyword to “数値のインクリメント/デクリメント”
set guardPage to 15 –検索対象から外すページ（冒頭からこのページまでを除外）
set pRes to searchPDFforString(aPath, aString, guardPage) of me
–>　　{67, 78}

–指定のPDFの指定のキーワードを検索してキーワードが存在するページのリストを返す
on searchPDFforString(posixPath, aSearchKeyword, guardPage)
　　set theURL to current application’s |NSURL|’s fileURLWithPath:posixPath
　　set thePDF to current application’s PDFDocument’s alloc()’s initWithURL:theURL
　　
　　set theSels to (thePDF’s findString:searchString withOptions:0)
　　set aList to {}
　　
　　repeat with aSel in theSels
　　　　set thePage to (aSel’s pages()’s objectAtIndex:0)’s label()
　　　　set curPage to (thePage as integer)
　　　　if curPage > guardPage then
　　　　　　if curPage is not in aList then
　　　　　　　　set the end of aList to curPage
　　　　　　end if
　　　　end if
　　end repeat
　　
　　return aList
end searchPDFforString

★Click Here to Open This Script　

set aHFSPath to (choose file of type {“com.adobe.pdf”} with prompt “Select PDF”)
set aPOSIX to POSIX path of aHFSPath
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL
set pCount to aPDFdoc’s pageCount()
set aPage to aPDFdoc’s pageAtIndex:0

set firstPage to (aPDFdoc’s pageAtIndex:0)

–Remove Annotation
my removeAnnotationFromPage:firstPage –Call by Reference

–Get PDF size by Point
set aBounds to aPage’s boundsForBox:(current application’s kPDFDisplayBoxMediaBox)
set aSize to |size| of aBounds

–Add Annotation
repeat with xNum from 30 to ((width of aSize) - 30) by 50
　　repeat with yNum from 30 to ((height of aSize) - 30) by 50
　　　　set squAnn to (current application’s PDFAnnotationSquare’s alloc()’s initWithBounds:{origin:{x:xNum, y:yNum}, |size|:{width:40, height:40}})
　　　　(squAnn’s setValue:(current application’s NSColor’s blueColor()) forAnnotationKey:(current application’s kPDFAnnotationKey_Color))
　　　　(squAnn’s setValue:(current application’s NSColor’s clearColor()) forAnnotationKey:(current application’s kPDFAnnotationKey_InteriorColor))
　　　　(firstPage’s addAnnotation:squAnn)
　　end repeat
end repeat

–Save It
aPDFdoc’s writeToFile:aPOSIX

–Remove All Annotation from a Page. Call by Reference
on removeAnnotationFromPage:aPage
　　set anoList to (aPage’s annotations()) as list
　　repeat with i in anoList
　　　　(aPage’s removeAnnotation:i)
　　end repeat
end removeAnnotationFromPage:

★Click Here to Open This Script　

set theQuery to “AppleScript”
set aResList to searchByGoogle(theQuery, 100) of me

on searchByGoogle(theQuery, maxNum)
　　– 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)
　　
　　– filter via XPath and predicate
　　set xpathStr to “//*[@class=＼”r＼”]/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
　　
　　return theURLStrings
end searchByGoogle

★Click Here to Open This Script　

set aHFSPath to (choose file of type {“com.adobe.pdf”} with prompt “Choose a PDF”)
set aPOSIX to POSIX path of aHFSPath
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL
set pCount to aPDFdoc’s pageCount()
set firstPage to (aPDFdoc’s pageAtIndex:0)

set textAnnotation to current application’s PDFAnnotationText’s alloc()’s initWithBounds:{origin:{x:10, y:400}, |size|:{width:200, height:100}}
textAnnotation’s setType:(current application’s PDFAnnotationTextWidget)
textAnnotation’s setValue:“/FreeText” forAnnotationKey:(current application’s kPDFAnnotationKey_Subtype)
textAnnotation’s setValue:“Hello PDF” forAnnotationKey:(current application’s kPDFAnnotationKey_Contents)
textAnnotation’s setValue:(current application’s NSColor’s yellowColor()) forAnnotationKey:(current application’s kPDFAnnotationKey_Color)

firstPage’s addAnnotation:textAnnotation

aPDFdoc’s writeToFile:aPOSIX

★Click Here to Open This Script　

set aPath to POSIX path of (choose file of type {“com.adobe.pdf”})
set pRes to my makeLinksInPDF:aPath forStrings:{“日本語 WordNet”, “日本語WordNet”} linkURLs:{“http://compling.hss.ntu.edu.sg/wnja/”, “http://compling.hss.ntu.edu.sg/wnja/”}

–指定のPDFの指定のキーワード群に対してURL群でリンクのアノテーションを追加する
on makeLinksInPDF:posixPath forStrings:listOfSearchStrings linkURLs:listOfLinkURLStrings
　　set theURL to current application’s |NSURL|’s fileURLWithPath:posixPath
　　set thePDF to current application’s PDFDocument’s alloc()’s initWithURL:theURL
　　
　　repeat with i from 1 to count of listOfSearchStrings
　　　　
　　　　set searchString to item i of listOfSearchStrings
　　　　set linkURLString to item i of listOfLinkURLStrings
　　　　
　　　　– get list of matches as PDFSelections
　　　　set theSels to (thePDF’s findString:searchString withOptions:0)
　　　　
　　　　repeat with aSel in theSels
　　　　　　set thePage to (aSel’s pages()’s objectAtIndex:0)
　　　　　　set theBounds to (aSel’s boundsForPage:thePage)
　　　　　　
　　　　　　set theLink to (current application’s PDFAnnotationLink’s alloc()’s initWithBounds:theBounds) – make link with those bounds
　　　　　　set theAction to (current application’s PDFActionURL’s alloc()’s initWithURL:(current application’s |NSURL|’s URLWithString:linkURLString))
　　　　　　
　　　　　　(theLink’s setMouseUpAction:theAction)
　　　　　　
　　　　　　– set link’s appearance
　　　　　　(theLink’s setColor:(current application’s NSColor’s blueColor()))
　　　　　　set linkBorder to current application’s PDFBorder’s alloc()’s init()
　　　　　　(linkBorder’s setLineWidth:1.0)
　　　　　　(linkBorder’s setStyle:0)
　　　　　　(theLink’s setBorder:(linkBorder))
　　　　　　(theLink’s setShouldDisplay:true)
　　　　　　
　　　　　　– add it to the page
　　　　　　(thePage’s addAnnotation:theLink)
　　　　end repeat
　　end repeat
　　
　　– save the modified PDF
　　set oldName to theURL’s lastPathComponent()’s stringByDeletingPathExtension()
　　set newURL to (theURL’s URLByDeletingLastPathComponent()’s URLByAppendingPathComponent:(oldName’s stringByAppendingString:“-new”))’s URLByAppendingPathExtension:“pdf”
　　thePDF’s writeToURL:newURL
　　
end makeLinksInPDF:forStrings:linkURLs:

★Click Here to Open This Script　

set aHFSPath to (choose file of type {“com.adobe.pdf”} with prompt “Choose a PDF with Annotation”)
set aPOSIX to POSIX path of aHFSPath
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL
set pCount to aPDFdoc’s pageCount()

set firstPage to (aPDFdoc’s pageAtIndex:0)

set anoList to (firstPage’s annotations()) as list

repeat with i in anoList
　　(firstPage’s removeAnnotation:i)
end repeat

aPDFdoc’s writeToFile:aPOSIX

★Click Here to Open This Script　

set aHFSPath to (choose file of type {“com.adobe.pdf”} with prompt “Choose a PDF with Annotation”)
set aPOSIX to POSIX path of aHFSPath
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL
set pCount to aPDFdoc’s pageCount()

set firstPage to (aPDFdoc’s pageAtIndex:0)
–>　　(PDFPage) PDFPage, label 1

set anoList to (firstPage’s annotations()) as list
(*
{(PDFAnnotationMarkup) Type: ’Highlight’, Bounds: (81, 624) [434, 53]
, (PDFAnnotationSquare) Type: ’Square’, Bounds: (50, 419) [212, 162]
, (PDFAnnotationSquare) Type: ’Square’, Bounds: (301, 107) [244, 484]
}
*)

repeat with i in anoList
　　set aBounds to i’s |bounds|()
　　
　　log aBounds
　　(* {origin:{x:80.79, y:624.4106}, size:{width:433.6944, height:52.8918}} *)
　　(* {origin:{x:50.05553, y:419.1671}, size:{width:212.27807, height:162.3308}} *)
　　(* {origin:{x:300.6213, y:106.8405}, size:{width:244.0961, height:484.4566}} *)
　　
end repeat

★Click Here to Open This Script　

set myIP to getGeoLocationByIPinfo(“45.59.69.202″) of me
–>　　{region:”Delaware”, city:”Wilmington”, country:”US”, org:”AS3800 Talent House, Inc.”, hostname:”No Hostname”, postal:”19801″, ip:”45.59.69.202″, loc:”39.7157,-75.5281″}

–http://ipinfo.io/developers
on getGeoLocationByIPinfo(myIP)
　　set aURL to “http://ipinfo.io/” & myIP
　　set aRes to callRestGETAPIAndParseResults(aURL) of me
　　set aRESTres to (json of aRes)
　　set aRESTcode to responseCode of aRes
　　if aRESTcode is not equal to 200 then return false
　　return aRESTres as record
end getGeoLocationByIPinfo

–GET methodのREST APIを呼ぶ
on callRestGETAPIAndParseResults(aURL)
　　set aRequest to current application’s NSMutableURLRequest’s requestWithURL:(current application’s |NSURL|’s URLWithString:aURL)
　　
　　aRequest’s setHTTPMethod:“GET”
　　aRequest’s setCachePolicy:(current application’s NSURLRequestReloadIgnoringLocalCacheData)
　　aRequest’s setHTTPShouldHandleCookies:false
　　aRequest’s setTimeoutInterval:60
　　aRequest’s setValue:“application/json” forHTTPHeaderField:“Accept”
　　
　　set aRes to current application’s NSURLConnection’s sendSynchronousRequest:aRequest returningResponse:(reference) |error|:(missing value)
　　set resList to aRes as list
　　
　　set bRes to contents of (first item of resList)
　　set resStr to current application’s NSString’s alloc()’s initWithData:bRes encoding:(current application’s NSUTF8StringEncoding)
　　
　　set jsonString to current application’s NSString’s stringWithString:resStr
　　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)
　　
　　–Get Response Code & Header
　　set dRes to contents of second item of resList
　　if dRes is not equal to missing value then
　　　　set resCode to (dRes’s statusCode()) as number
　　　　set resHeaders to (dRes’s allHeaderFields()) as record
　　else
　　　　set resCode to 0
　　　　set resHeaders to {}
　　end if
　　
　　return {json:aJsonDict, responseCode:resCode, responseHeader:resHeaders}
end callRestGETAPIAndParseResults

★Click Here to Open This Script　

★Click Here to Open This Script　

set anAlias to choose file of type {“com.apple.applescript.script”, “com.apple.applescript.script-bundle”}

set aURL to current application’s |NSURL|’s fileURLWithPath:(POSIX path of anAlias)
set theScript to current application’s OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)

set scriptName to theScript’s |language|()’s |name|() as string
set scriptDesc to theScript’s |language|()’s info() as string
set scriptVer to theScript’s |language|()’s |version|() as string

return {osaName:scriptName, osaDesc:scriptDesc, osaVer:scriptVer}
–>　　{osaName:”AppleScript”, osaDesc:”AppleScript.”, osaVer:”2.5″}
–>　　{osaName:”JavaScript”, osaDesc:”JavaScript”, osaVer:”1.1″}

★Click Here to Open This Script　

set tFol to choose folder with prompt “処理対象フォルダを選択”
set sFol to choose folder with prompt “Pure AppleScriptの移動先フォルダを選択”

tell application “Finder”
　　tell folder (tFol)
　　　　set sList to (every file whose name ends with “.scpt” or name ends with “.scptd”) as alias list
　　end tell
end tell

repeat with i in sList
　　set sRes to detectScriptIsPureASorASOC(i) of me
　　if sRes = false then
　　　　tell application “Finder”
　　　　　　move i to sFol
　　　　end tell
　　end if
end repeat

–指定AppleScriptファイルがPure ASかASOCかを判定して返す
on detectScriptIsPureASorASOC(aFile)
　　set sText to getASsourceFor(aFile) of me
　　if sText = “” or sText = missing value then return missing value
　　if sText contains “use framework ＼”Foundation＼”" then
　　　　return true –ASOC (AppleScript with Cocoa Framework)
　　else
　　　　return false –Pure AppleScript
　　end if
end detectScriptIsPureASorASOC

–指定AppleScriptファイルのソースコードを取得する（実行専用Scriptからは取得できない）
on getASsourceFor(anAlias as {alias, string})
　　set anHFSpath to anAlias as string
　　set aURL to current application’s |NSURL|’s fileURLWithPath:(POSIX path of anHFSpath)
　　set theScript to current application’s OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
　　return theScript’s source() as text
end getASsourceFor

★Click Here to Open This Script　

set anAddress to “piyomarusoft+0001@gmail.com”
set anID to getMessageIDFromMailAddress(anAddress) of me
–>　　”＜D6A128D3-2D53-4163-B2F7-53A25FB9608C@gmail.com＞”

–とりあえずMessage IDらしきものを組み立ててみた
on getMessageIDFromMailAddress(anAddress as string)
　　set anOffset to (offset of “@” in anAddress)
　　if anOffset = 0 then return false –Error
　　set aDomain to text anOffset thru -1 of anAddress
　　set aStr to (current application’s NSUUID’s UUID()’s UUIDString()) as string
　　return (“< " & aStr & aDomain & “>”)
end getMessageIDFromMailAddress

–offset命令の実行を横取りする
on offset of searchStr in str
　　set aRes to getOffset(str, searchStr) of me
　　return aRes
end offset

on getOffset(str, searchStr)
　　set d to divideBy(str, searchStr)
　　if (count d) is less than 2 then return 0
　　return (length of item 1 of d) + 1
end getOffset

on divideBy(str, separator)
　　set delSave to AppleScript’s text item delimiters
　　set the AppleScript’s text item delimiters to separator
　　set strItems to every text item of str
　　set the AppleScript’s text item delimiters to delSave
　　return strItems
end divideBy

★Click Here to Open This Script　

set aRes1 to getCategoryFromKeyword(“AppleScript”) of me
–>　　{”Mac OS development”, “MacOS development”, “Proprietary software”, “Scripting languages”}

on getCategoryFromKeyword(aText)
　　set wikiStr to getBodyFromWikipedia(aText) of me
　　set aList to categoryTagListFromWikipedia(wikiStr, “[[Category:”) of me
　　set bList to cleanupArray(aList, “[[Category:”, “]]”) of me
　　return bList
end getCategoryFromKeyword

on categoryTagListFromWikipedia(sText, pickUpKey)
　　set aString to current application’s NSString’s stringWithString:sText
　　set anArray to aString’s componentsSeparatedByString:(string id 10)
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat_(“SELF BEGINSWITH %@”, pickUpKey)
　　return (anArray’s filteredArrayUsingPredicate:aPredicate) as list
end categoryTagListFromWikipedia

–Search keyword with Wikipedia. Without considering Synonyms
on getBodyFromWikipedia(aText)
　　–set reqURLStr to “https://jp.wikipedia.org/w/api.php” –Japanese Version URL
　　set reqURLStr to “https://en.wikipedia.org/w/api.php” –English Version URL
　　
　　set aRec to {action:“query”, titles:aText, |prop|:“revisions”, rvprop:“content”, |format|:“json”}
　　set aURL to retURLwithParams(reqURLStr, aRec) of me
　　set aRes to callRestGETAPIAndParseResults(aURL) of me
　　
　　if aRes = missing value then return missing value
　　
　　set aRESTres1 to (json of aRes)
　　try
　　　　set aRESTres to pages of query of aRESTres1
　　on error
　　　　return missing value
　　end try
　　
　　set allKeys to (aRESTres’s allKeys()) as list
　　repeat with i in allKeys
　　　　set j to contents of i
　　　　set aKeyPath to j & “.” & “revisions.*”
　　　　set aContent to (aRESTres’s valueForKeyPath:aKeyPath)
　　　　return aContent as string
　　end repeat
end getBodyFromWikipedia