property NSString : a reference to current application’s NSString
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property HTMLDocument : a reference to current application’s HTMLDocument

set theFolder to choose folder
set theRecord to mdLib’s searchFolders:{theFolder} searchString:“kMDItemFSName ENDSWITH[c] ’.html’” searchArgs:{}
set aCount to 1

repeat with i in theRecord
　　set hRes to overWriteHTMLWithUTF8Encoding(i) of me
　　if hRes = true then
　　　　set aCount to aCount + 1
　　end if
end repeat

return aCount

on overWriteHTMLWithUTF8Encoding(aPOSIX)
　　set aRes to readJapanesTextFileWithGuessingEncoding(aPOSIX) of jLib
　　set bRes to retSpecifiedElementsFromHTMLString(aRes, “meta”) of me
　　–>　　{(HTMLElement) 0 children>, (HTMLElement) 0 children>, ….
　　
　　–Search Element
　　set aCount to 0
　　set hitF to false
　　repeat with i in bRes
　　　　set tRes to i’s attributes()
　　　　–> (NSDictionary) {http-equiv:”Content-Type”, content:”text/html; charset=euc-jp”}
　　　　
　　　　set kList to tRes’s allKeys() as list
　　　　–> {”http-equiv”, “content”}
　　　　
　　　　if kList contains “http-equiv” then
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　end repeat
　　
　　if hitF = false then return false –Element Not Found
　　
　　–Text Encoding を書き換えたHTMLElementを作成する
　　set aHTML to HTMLDocument’s documentWithString:aRes
　　set anElement to (aHTML’s nodesMatchingSelector:“meta”)’s objectAtIndex:aCount
　　anElement’s setObject:“text/html; charset=UTF-8″ forKeyedSubscript:“content”
　　set aRootHTMLStr to anElement’s |document|()’s serializedFragment()
　　
　　–Overwrite HTML
　　set aRes to (aRootHTMLStr’s writeToFile:aPOSIX atomically:false encoding:(NSUTF8StringEncoding) |error|:(missing value)) as boolean
　　return aRes
end overWriteHTMLWithUTF8Encoding

–与えられたHTML文字列のうち、指定されたタグ要素で囲まれた文字要素を返す
on retSpecifiedElementsFromHTMLString(anNSString, aTag)
　　set aHTML to HTMLDocument’s documentWithString:anNSString
　　set anElement to (aHTML’s nodesMatchingSelector:aTag)
　　return anElement as list
end retSpecifiedElementsFromHTMLString

–与えられたHTML文字列のうち、指定されたタグ要素で囲まれた文字要素を返す
on retSpecifiedElementStringFromHTMLString(anNSString, aTag)
　　set aHTML to HTMLDocument’s documentWithString:anNSString
　　set anElement to (aHTML’s nodesMatchingSelector:aTag)’s firstObject()’s textContent()
　　return anElement as string
end retSpecifiedElementStringFromHTMLString

–指定されたローカルのHTMLファイルを、指定文字エンコーディングで読み込んで、指定されたタグ要素で囲まれた文字要素を返す
on retSpecifiedElementStringFromLocalHTML(aPOSIX, anEncoding, aTag)
　　set aPath to NSString’s stringWithString:aPOSIX
　　set aData to NSString’s stringWithContentsOfFile:aPath encoding:(anEncoding) |error|:(missing value)
　　if aData = missing value then return false
　　
　　set aHTML to HTMLDocument’s documentWithString:aData
　　set anElement to (aHTML’s nodesMatchingSelector:aTag)’s firstObject()’s textContent()
　　return anElement as string
end retSpecifiedElementStringFromLocalHTML

★Click Here to Open This Script　

property CIFilter : a reference to current application’s CIFilter
property CIVector : a reference to current application’s CIVector
property CIImage : a reference to current application’s CIImage
property NSString : a reference to current application’s NSString
property NSUUID : a reference to current application’s NSUUID
property NSPNGFileType : a reference to current application’s NSPNGFileType
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep
property NSImage : a reference to current application’s NSImage
property |NSURL| : a reference to current application’s |NSURL|

–画像を選択
set aPath to POSIX path of (choose file of type {“public.image”})

set aNSImage to NSImage’s alloc()’s initWithContentsOfFile:aPath
set aSize to aNSImage’s |size|()
set aWidth to aSize’s width()
set aHeight to aSize’s height()

–Crop Image by CIFilter
set cropRes to cropNSImageWithCIFilter(aNSImage, 0, (aHeight - 100), 100, 100) of me

–Save as PNG
set fRes to retUUIDfilePath(aPath, “png”) of me
set sRes to saveNSImageAtPathAsPNG(cropRes, fRes) of me

–NSImageをCIImageに変換してCIfilterを実行
on cropNSImageWithCIFilter(aNSImage, x1, y1, xWidth, yHeight)
　　set aCIImage to convNSImageToCIimage(aNSImage) of me
　　set aFilter to CIFilter’s filterWithName:“CICrop”
　　set aCIVector to CIVector’s vectorWithX:x1 Y:y1 Z:xWidth W:yHeight
　　
　　aFilter’s setDefaults()
　　aFilter’s setValue:aCIImage forKey:“inputImage”
　　aFilter’s setValue:aCIVector forKey:“inputRectangle”
　　
　　set filteredImage to (aFilter’s outputImage)
　　set newNSImage to convCIimageToNSImage(filteredImage) of me
　　
　　return newNSImage
end cropNSImageWithCIFilter

on convCIimageToNSImage(aCIImage)
　　set aRep to NSBitmapImageRep’s alloc()’s initWithCIImage:aCIImage
　　set tmpSize to aRep’s |size|()
　　set newImg to NSImage’s alloc()’s initWithSize:tmpSize
　　newImg’s addRepresentation:aRep
　　return newImg
end convCIimageToNSImage

on convNSImageToCIimage(aNSImage)
　　set tiffDat to aNSImage’s TIFFRepresentation()
　　set aRep to NSBitmapImageRep’s imageRepWithData:tiffDat
　　set newImg to CIImage’s alloc()’s initWithBitmapImageRep:aRep
　　return newImg
end convNSImageToCIimage

on retUUIDfilePath(aPath, aEXT)
　　set aUUIDstr to (NSUUID’s UUID()’s UUIDString()) as string
　　set aPath to ((NSString’s stringWithString:aPath)’s stringByDeletingLastPathComponent()’s stringByAppendingPathComponent:aUUIDstr)’s stringByAppendingPathExtension:aEXT
　　return aPath
end retUUIDfilePath

–NSImageを指定パスにPNG形式で保存
on saveNSImageAtPathAsPNG(anImage, outPath)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to NSBitmapImageRep’s imageRepWithData:imageRep
　　set pathString to NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　set myNewImageData to (aRawimg’s representationUsingType:(NSPNGFileType) |properties|:(missing value))
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　return aRes –true/false
end saveNSImageAtPathAsPNG

★Click Here to Open This Script　

property NSString : a reference to current application’s NSString
property NSUUID : a reference to current application’s NSUUID
property NSPNGFileType : a reference to current application’s NSPNGFileType
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep
property NSImage : a reference to current application’s NSImage
property |NSURL| : a reference to current application’s |NSURL|

set aRect to {0, 0, 100, 100} –x1,y1,x-width, y-height

–Background Image
set aFile to POSIX path of (choose file with prompt “Choose background image”)
set aURL to |NSURL|’s fileURLWithPath:aFile
set aImage to NSImage’s alloc()’s initWithContentsOfURL:aURL

–Compose Image
set bFile to POSIX path of (choose file with prompt “Choose Overlay image”)
set bURL to |NSURL|’s fileURLWithPath:bFile
set bImage to NSImage’s alloc()’s initWithContentsOfURL:bURL

–Compose Two Images
set nImage to composeImage(aImage, bImage, aRect) of me

–Save as PNG
set fRes to retUUIDfilePath(aFile, “png”) of me
set sRes to saveNSImageAtPathAsPNG(nImage, fRes) of me

–2つのNSImageを重ね合わせ合成してNSImageで返す
on composeImage(backImage, composeImage, aTargerRect)
　　set newImage to NSImage’s alloc()’s initWithSize:(backImage’s |size|())
　　
　　copy aTargerRect to {x1, y1, x2, y2}
　　set bRect to current application’s NSMakeRect(x1, y1, x2, y2)
　　
　　newImage’s lockFocus()
　　
　　set newImageRect to current application’s CGRectZero
　　set newImageRect’s |size| to (newImage’s |size|)
　　
　　backImage’s drawInRect:newImageRect
　　composeImage’s drawInRect:bRect
　　
　　newImage’s unlockFocus()
　　return newImage
end composeImage

on retUUIDfilePath(aPath, aEXT)
　　set aUUIDstr to (NSUUID’s UUID()’s UUIDString()) as string
　　set aPath to ((NSString’s stringWithString:aPath)’s stringByDeletingLastPathComponent()’s stringByAppendingPathComponent:aUUIDstr)’s stringByAppendingPathExtension:aEXT
　　return aPath
end retUUIDfilePath

–NSImageを指定パスにPNG形式で保存
on saveNSImageAtPathAsPNG(anImage, outPath)
　　set imageRep to anImage’s TIFFRepresentation()
　　set aRawimg to NSBitmapImageRep’s imageRepWithData:imageRep
　　set pathString to NSString’s stringWithString:outPath
　　set newPath to pathString’s stringByExpandingTildeInPath()
　　set myNewImageData to (aRawimg’s representationUsingType:(NSPNGFileType) |properties|:(missing value))
　　set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean
　　return aRes –true/false
end saveNSImageAtPathAsPNG

★Click Here to Open This Script　

property NSSortDescriptor : a reference to current application’s NSSortDescriptor
property NSArray : a reference to current application’s NSArray
property NSSet : a reference to current application’s NSSet
property |NSURL| : a reference to current application’s |NSURL|
property PDFDocument : a reference to current application’s PDFDocument

set inFile to (choose file of type {“pdf”} with prompt “Choose your PDF files:”)
set targPageList to {1, 3, 5, 7, -1, -2}

set pRes to removeSpecificPagesFromPDF(inFile, targPageList) of me

–指定PDF書類の複数ページの一括削除
on removeSpecificPagesFromPDF(inFileAlias, targPageNumList as list)
　　set inNSURL to |NSURL|’s fileURLWithPath:(POSIX path of inFileAlias)
　　set theDoc to PDFDocument’s alloc()’s initWithURL:inNSURL
　　
　　–削除対象ページリストをユニーク化して降順ソート（後方から削除）
　　set pRes to theDoc’s pageCount()
　　set t3List to relativeToAbsNumList(targPageNumList, pRes) of me
　　
　　repeat with i in t3List
　　　　copy i to targPageNum
　　　　(theDoc’s removePageAtIndex:(targPageNum - 1))
　　end repeat
　　
　　–Overwrite Exsiting PDF
　　set aRes to (theDoc’s writeToURL:inNSURL) as boolean
　　
　　return aRes
end removeSpecificPagesFromPDF

–絶対ページと相対ページが混在した削除対象ページリストを絶対ページに変換して重複削除して降順ソート
on relativeToAbsNumList(aList, aMax)
　　set newList to {}
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　if i < 0 then
　　　　　　set j to aMax + j
　　　　end if
　　　　
　　　　if (j ≤ aMax) and (j is not equal to 0) then
　　　　　　set the end of newList to j
　　　　end if
　　end repeat
　　
　　set t1List to my uniquify1DList(newList, true)
　　set t2List to my sort1DNumList:t1List ascOrder:false
　　
　　return t2List
end relativeToAbsNumList

on absNum(q)
　　if q is less than 0 then set q to -q
　　return q
end absNum

–1D/2D Listをユニーク化
on uniquify1DList(theList as list, aBool as boolean)
　　set aArray to NSArray’s arrayWithArray:theList
　　set bArray to aArray’s valueForKeyPath:“@distinctUnionOfObjects.self”
　　return bArray as list
end uniquify1DList

–Sort 1-Dimension List（String Number List）
on sort1DNumList:theList ascOrder:aBool
　　tell NSSet to set theSet to setWithArray_(theList)
　　tell NSSortDescriptor to set theDescriptor to sortDescriptorWithKey_ascending_(“floatValue”, aBool)
　　set sortedList to theSet’s sortedArrayUsingDescriptors:{theDescriptor}
　　return (sortedList) as list
end sort1DNumList:ascOrder:

★Click Here to Open This Script　

property |NSURL| : a reference to current application’s |NSURL|
property PDFDocument : a reference to current application’s PDFDocument

set inFile to (choose file of type {“pdf”} with prompt “Choose your PDF files:”)
set targPage to 7

set pRes to removeSpecificPageInPDF(inFile, targPage) of me

on removeSpecificPageInPDF(inFileAlias, targPageNum)
　　set inNSURL to |NSURL|’s fileURLWithPath:(POSIX path of inFileAlias)
　　set theDoc to PDFDocument’s alloc()’s initWithURL:inNSURL
　　
　　set pRes to theDoc’s pageCount()
　　if absNum(targPageNum) of me > pRes or targPageNum = 0 then
　　　　error “PDF Page Range error. This PDF document has “ & (pRes as string) & ” pages. But you pointed “ & (targPageNum as string) & ” page from your script. “ & return & ” (available abs range :1…” & (pRes as string) & “, relative range: -1…-” & (pRes as string) & “)”
　　end if
　　
　　–Allow Relative Page Num ( -1 = the last page)
　　if targPageNum ≤ 0 then
　　　　set targPageNum to pRes + targPageNum + 1
　　end if
　　theDoc’s removePageAtIndex:(targPageNum - 1)
　　
　　–Overwrite Exsiting PDF
　　set aRes to (theDoc’s writeToURL:inNSURL) as boolean
　　
　　return aRes
end removeSpecificPageInPDF

on absNum(q)
　　if q is less than 0 then set q to -q
　　return q
end absNum

★Click Here to Open This Script　

–http://piyocast.com/as/archives/4778

set targString to “来週の水曜日に会議を予約。” –”Make a meeting on next Wednesday.” in Japanese

set aRes to current application’s jTokenize’s parseString:targString
–> {{token:”来週”, romaji:”raishuu”, hurigana:”らいしゅう”}, {token:”の”, romaji:”no”, hurigana:”の”}, {token:”水曜”, romaji:”suiyou”, hurigana:”すいよう”}, {token:”日”, romaji:”hi”, hurigana:”ひ”}, {token:”に”, romaji:”ni”, hurigana:”に”}, {token:”会議”, romaji:”kaigi”, hurigana:”かいぎ”}, {token:”を”, romaji:”wo”, hurigana:”を”}, {token:”予約”, romaji:”yoyaku”, hurigana:”よやく”}, {token:”。”, romaji:”｡”, hurigana:”｡”}}

set aList to (aRes’s valueForKeyPath:“hurigana”) as list –ふりがな
–>　　{”らいしゅう”, “の”, “すいよう”, “ひ”, “に”, “かいぎ”, “を”, “よやく”, “｡”}

set bList to (aRes’s valueForKeyPath:“token”) as list –元のテキスト
–>　　{”来週”, “の”, “水曜”, “日”, “に”, “会議”, “を”, “予約”, “。”}

set cList to (aRes’s valueForKeyPath:“romaji”) as list –hurigana (romaji)
–>　　{”raishuu”, “no”, “suiyou”, “hi”, “ni”, “kaigi”, “wo”, “yoyaku”, “｡”}

set bRes to current application’s jTokenize’s parseStringWithLinguisticTag:targString
set dList to (bRes’s valueForKeyPath:“scheme”) as list
–>　　{”Noun”, “Particle”, “Noun”, “Noun”, “Particle”, “Noun”, “Particle”, “Noun”, “SentenceTerminator”}

return bRes as list
–> {{token:”来週”, |scheme|:”Noun”}, {token:”の”, |scheme|:”Particle”}, {token:”水曜”, |scheme|:”Noun”}, {token:”日”, |scheme|:”Noun”}, {token:”に”, |scheme|:”Particle”}, {token:”会議”, |scheme|:”Noun”}, {token:”を”, |scheme|:”Particle”}, {token:”予約”, |scheme|:”Noun”}, {token:”。”, |scheme|:”SentenceTerminator”}}

★Click Here to Open This Script　

property NSRegularExpressionDotMatchesLineSeparators : a reference to current application’s NSRegularExpressionDotMatchesLineSeparators
property NSRegularExpressionAnchorsMatchLines : a reference to current application’s NSRegularExpressionAnchorsMatchLines
property NSRegularExpression : a reference to current application’s NSRegularExpression
property NSString : a reference to current application’s NSString

set aFile to choose file of type {“net.daringfireball.markdown”} –Markdown書類のUTI
set aStr to (read aFile as «class utf8»)
set aList to retHeaders(aStr) of me
–>　　{{3, “choose file, choose folderで選んだ対象の名称変更”}, {3, “choose folderで選んだフォルダ内のファイルの名称変更”}, {3, “Finder上で選んだ（selection）ファイルの名称変更”}, {3, “POSIX pathのファイルの名称変更”}, {3, “ファイルを移動させたうえで名称変更”}, {3, “要注意事項（超重要、生死にかかわる）”}}

on retHeaders(aCon)
　　set tList to {}
　　set regStr to “^#{1,6}[^#]*?$”
　　
　　set headerList to my findPattern:regStr inString:aCon
　　repeat with i in headerList
　　　　set j to contents of i
　　　　set regStr2 to “^#{1,6}[^#]*?”
　　　　set headerLevel to length of first item of (my findPattern:regStr2 inString:j)
　　　　set the end of tList to {headerLevel, text (headerLevel + 1) thru -1 in j}
　　end repeat
　　
　　return tList
end retHeaders

on findPattern:thePattern inString:theString
　　set theOptions to ((NSRegularExpressionDotMatchesLineSeparators) as integer) + ((NSRegularExpressionAnchorsMatchLines) as integer)
　　set theRegEx to NSRegularExpression’s regularExpressionWithPattern:thePattern options:theOptions |error|:(missing value)
　　set theFinds to theRegEx’s matchesInString:theString options:0 range:{location:0, |length|:length of theString}
　　set theFinds to theFinds as list – so we can loop through
　　set theResult to {} – we will add to this
　　set theNSString to NSString’s stringWithString:theString
　　repeat with i from 1 to count of items of theFinds
　　　　set theRange to (item i of theFinds)’s range()
　　　　set end of theResult to (theNSString’s substringWithRange:theRange) as string
　　end repeat
　　return theResult
end findPattern:inString:

★Click Here to Open This Script　

set aCon to getFrontmostSEContents() of me
set aaList to paragraphs of aCon

set aList to retPropertiesClass(aCon) of me
set bList to retCurrentApplicationsClass(aCon) of me
set cList to {“＼”", “＼”,”, “NSMakeRange”, “NSMakePoint”, “NSMakeRect”, “NSUTF16BigEndianStringEncoding”, “NSUTF16LittleEndianStringEncoding”} –置換してはいけないリスト。text encoding系はenumの桁数が足りなくてpropertyに代入できない

set aSet to current application’s NSMutableSet’s setWithArray:aList –property宣言文の一覧
set bSet to current application’s NSMutableSet’s setWithArray:bList –script中のcurrent application文のクラス
set cSet to current application’s NSMutableSet’s setWithArray:cList

bSet’s minusSet:aSet –current applicationで指定したクラスで、property宣言していないものを計算
bSet’s minusSet:cSet –置換禁止リスト

set dList to bSet’s allObjects() as list

–Scriptの本文を書き換える
repeat with i in dList
　　set j to contents of i
　　set tmpStr to “current application’s “ & j
　　set aCon to repChar(aCon, tmpStr, ” “ & j) of me
end repeat

–挿入部分のテキストを組み立てる
set repStr to return
repeat with i in dList
　　set j to contents of i
　　set repStr to repStr & “property “ & j & ” : a reference to current application’s “ & j & return
end repeat
set repStr to repStr & return

set aInsPoint to getFirstInsertionPoint(aCon) of me

tell application “Script Editor”
　　set aDoc to make new document
　　tell front document
　　　　set contents to aCon
　　　　set selection to paragraph aInsPoint
　　　　set contents of selection to the repStr
　　　　
　　　　try
　　　　　　compile
　　　　end try
　　end tell
end tell

on getFirstInsertionPoint(aCon)
　　set aList to paragraphs of aCon
　　set aCount to 1
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j = “” then
　　　　　　exit repeat
　　　　end if
　　　　set aCount to aCount + 1
　　end repeat
　　
　　return aCount
end getFirstInsertionPoint

on retPropertiesClass(aCon)
　　set resList to {}
　　set regStr to “(property .*?:)”
　　set aRes to my findPattern:regStr inString:aCon capturing:1
　　
　　repeat with i in aRes
　　　　set j to first item of (paragraphs of i)
　　　　
　　　　–正規表現もどきで取り出してみた（ぜんぜん改良の余地がある）
　　　　set j1 to repChar(j, “current application’s “, “”) of me
　　　　set j2 to repChar(j1, “property”, “”) of me
　　　　set j3 to repChar(j2, “:”, “”) of me
　　　　set j4 to repChar(j3, ” “, “”) of me
　　　　
　　　　set the end of resList to j4
　　end repeat
　　
　　set res2List to uniquify1DList(resList, false) of me
　　return res2List
end retPropertiesClass

on retCurrentApplicationsClass(aCon)
　　set resList to {}
　　set regStr to “(current application’s .*? )”
　　set aRes to my findPattern:regStr inString:aCon capturing:1
　　
　　repeat with i in aRes
　　　　set j to first item of (paragraphs of i)
　　　　
　　　　–正規表現もどきで取り出してみた（ぜんぜん改良の余地がある）　　　　
　　　　set j1 to repChar(j, “current application’s “, “”) of me
　　　　set j2 to repChar(j1, “’s “, “”) of me
　　　　set j3 to repChar(j2, “)”, “”) of me
　　　　set j4 to repChar(j3, “}”, “”) of me
　　　　set j5 to repChar(j4, “}”, “”) of me
　　　　set j6 to repChar(j5, ” “, “”) of me
　　　　
　　　　set the end of resList to j6
　　end repeat
　　
　　set res2List to uniquify1DList(resList, false) of me
　　return res2List
end retCurrentApplicationsClass

on getFrontmostSEContents()
　　tell application “Script Editor”
　　　　set docCount to count every document
　　　　if docCount = 0 then error “No Document”
　　　　tell front document
　　　　　　return contents
　　　　end tell
　　end tell
end getFrontmostSEContents

on replaceThis:thePattern inString:theString usingThis:theTemplate
　　set theOptions to ((current application’s NSRegularExpressionDotMatchesLineSeparators) as integer) + ((current application’s NSRegularExpressionAnchorsMatchLines) as integer)
　　set theRegEx to current application’s NSRegularExpression’s regularExpressionWithPattern:thePattern options:theOptions |error|:(missing value)
　　set theResult to theRegEx’s stringByReplacingMatchesInString:theString options:0 range:{location:0, |length|:length of theString} withTemplate:theTemplate
　　return theResult as text
end replaceThis:inString:usingThis:

on findPattern:thePattern inString:theString
　　set theOptions to ((current application’s NSRegularExpressionDotMatchesLineSeparators) as integer) + ((current application’s NSRegularExpressionAnchorsMatchLines) as integer)
　　set theRegEx to current application’s NSRegularExpression’s regularExpressionWithPattern:thePattern options:theOptions |error|:(missing value)
　　set theFinds to theRegEx’s matchesInString:theString options:0 range:{location:0, |length|:length of theString}
　　set theFinds to theFinds as list – so we can loop through
　　set theResult to {} – we will add to this
　　set theNSString to current application’s NSString’s stringWithString:theString
　　repeat with i from 1 to count of items of theFinds
　　　　set theRange to (item i of theFinds)’s range()
　　　　set end of theResult to (theNSString’s substringWithRange:theRange) as string
　　end repeat
　　return theResult
end findPattern:inString:

on findPattern:thePattern inString:theString capturing:n
　　set theOptions to ((current application’s NSRegularExpressionDotMatchesLineSeparators) as integer) + ((current application’s NSRegularExpressionAnchorsMatchLines) as integer)
　　set theRegEx to current application’s NSRegularExpression’s regularExpressionWithPattern:thePattern options:theOptions |error|:(missing value)
　　set theFinds to theRegEx’s matchesInString:theString options:0 range:{location:0, |length|:length of theString}
　　set theFinds to theFinds as list – so we can loop through
　　set theResult to {} – we will add to this
　　set theNSString to current application’s NSString’s stringWithString:theString
　　repeat with i from 1 to count of items of theFinds
　　　　set oneFind to (item i of theFinds)
　　　　if (oneFind’s numberOfRanges()) as integer < (n + 1) then
　　　　　　set end of theResult to missing value
　　　　else
　　　　　　set theRange to (oneFind’s rangeAtIndex:n)
　　　　　　set end of theResult to (theNSString’s substringWithRange:theRange) as string
　　　　end if
　　end repeat
　　return theResult
end findPattern:inString:capturing:

–文字置換
on repChar(aStr, targStr, repStr)
　　set aString to current application’s NSString’s stringWithString:aStr
　　set bString to aString’s stringByReplacingOccurrencesOfString:targStr withString:repStr
　　return bString as string
end repChar

–1D/2D Listをユニーク化
on uniquify1DList(theList as list, aBool as boolean)
　　set aArray to current application’s NSArray’s arrayWithArray:theList
　　set bArray to aArray’s valueForKeyPath:“@distinctUnionOfObjects.self”
　　return bArray as list
end uniquify1DList

★Click Here to Open This Script　

property NSRegularExpressionAnchorsMatchLines : a reference to current application’s NSRegularExpressionAnchorsMatchLines
property NSString : a reference to current application’s NSString
property NSArray : a reference to current application’s NSArray
property NSRegularExpressionDotMatchesLineSeparators : a reference to current application’s NSRegularExpressionDotMatchesLineSeparators
property NSMutableSet : a reference to current application’s NSMutableSet
property NSRegularExpression : a reference to current application’s NSRegularExpression

set aCon to getFrontmostSEContents() of me
set aaList to paragraphs of aCon

set aList to retPropertiesClass(aCon) of me
set bList to retCurrentApplicationsClass(aCon) of me
set cList to {“＼”", “＼”,”, “NSMakeRange”, “NSMakePoint”, “NSMakeRect”, “NSUTF16BigEndianStringEncoding”, “NSUTF16LittleEndianStringEncoding”} –置換してはいけないリスト。text encoding系はenumの桁数が足りなくてpropertyに代入できない

set aSet to NSMutableSet’s setWithArray:aList –property宣言文の一覧
set bSet to NSMutableSet’s setWithArray:bList –script中のcurrent application文のクラス
set cSet to NSMutableSet’s setWithArray:cList

bSet’s minusSet:aSet –current applicationで指定したクラスで、property宣言していないものを計算
bSet’s minusSet:cSet –置換禁止リスト

set dList to bSet’s allObjects() as list

–Scriptの本文を書き換える
repeat with i in dList
　　set j to contents of i
　　set tmpStr to “current application’s “ & j
　　set aCon to repChar(aCon, tmpStr, ” “ & j) of me
end repeat

–挿入部分のテキストを組み立てる
set repStr to return
repeat with i in dList
　　set j to contents of i
　　set repStr to repStr & “property “ & j & ” : a reference to current application’s “ & j & return
end repeat
set repStr to repStr & return

set aInsPoint to getFirstInsertionPoint(aCon) of me

tell application “Script Editor”
　　set aDoc to make new document
　　tell front document
　　　　set contents to aCon
　　　　set selection to paragraph aInsPoint
　　　　set contents of selection to the repStr
　　　　
　　　　try
　　　　　　compile
　　　　end try
　　end tell
end tell

on getFirstInsertionPoint(aCon)
　　set aList to paragraphs of aCon
　　set aCount to 1
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j = “” then
　　　　　　exit repeat
　　　　end if
　　　　set aCount to aCount + 1
　　end repeat
　　
　　return aCount
end getFirstInsertionPoint

on retPropertiesClass(aCon)
　　set resList to {}
　　set regStr to “(property .*?:)”
　　set aRes to my findPattern:regStr inString:aCon capturing:1
　　
　　repeat with i in aRes
　　　　set j to first item of (paragraphs of i)
　　　　
　　　　–正規表現もどきで取り出してみた（ぜんぜん改良の余地がある）
　　　　set j1 to repChar(j, “current application’s “, “”) of me
　　　　set j2 to repChar(j1, “property”, “”) of me
　　　　set j3 to repChar(j2, “:”, “”) of me
　　　　set j4 to repChar(j3, ” “, “”) of me
　　　　
　　　　set the end of resList to j4
　　end repeat
　　
　　set res2List to uniquify1DList(resList, false) of me
　　return res2List
end retPropertiesClass

on retCurrentApplicationsClass(aCon)
　　set resList to {}
　　set regStr to “(current application’s .*? )”
　　set aRes to my findPattern:regStr inString:aCon capturing:1
　　
　　repeat with i in aRes
　　　　set j to first item of (paragraphs of i)
　　　　
　　　　–正規表現もどきで取り出してみた（ぜんぜん改良の余地がある）　　　　
　　　　set j1 to repChar(j, “current application’s “, “”) of me
　　　　set j2 to repChar(j1, “’s “, “”) of me
　　　　set j3 to repChar(j2, “)”, “”) of me
　　　　set j4 to repChar(j3, “}”, “”) of me
　　　　set j5 to repChar(j4, “}”, “”) of me
　　　　set j6 to repChar(j5, ” “, “”) of me
　　　　
　　　　set the end of resList to j6
　　end repeat
　　
　　set res2List to uniquify1DList(resList, false) of me
　　return res2List
end retCurrentApplicationsClass