property NSScanner : a reference to current application’s NSScanner
property NSOrderedSet : a reference to current application’s NSOrderedSet
property NSMutableString : a reference to current application’s NSMutableString
property NSRegularExpressionSearch : a reference to current application’s NSRegularExpressionSearch

tell application "CotEditor"
　　tell front document
　　　　set aCon to contents
　　end tell
end tell

set bCon to trimStrFromTo(aCon, "《", "》") of me

tell application "CotEditor"
　　tell front document
　　　　set contents to bCon
　　end tell
end tell

–開始文字と終了文字に囲われた文字列をすべて削除する
on trimStrFromTo(aParamStr, fromStr, toStr)
　　script hsAry
　　　　property anArray : {}
　　　　property curStr : ""
　　end script
　　
　　set theScanner to NSScanner’s scannerWithString:aParamStr
　　set (anArray of hsAry) to {}
　　
　　repeat until (theScanner’s isAtEnd as boolean)
　　　　set {aResult, theKey} to theScanner’s scanUpToString:fromStr intoString:(reference)
　　　　theScanner’s scanString:fromStr intoString:(missing value)
　　　　
　　　　set {bResult, theValue} to theScanner’s scanUpToString:toStr intoString:(reference)
　　　　if theValue is missing value then set theValue to ""
　　　　
　　　　theScanner’s scanString:toStr intoString:(missing value)
　　　　set the end of (anArray of hsAry) to (fromStr & theValue & toStr)
　　end repeat
　　
　　–Case: Not found
　　if length of (anArray of hsAry) = 0 then return aParamStr
　　
　　–Uniquefy
　　set (anArray of hsAry) to makeUniqueListFrom((anArray of hsAry)) of me
　　
　　–Replace strings as NSMutableString
　　set (curStr of hsAry) to NSMutableString’s stringWithString:aParamStr
　　repeat with i in (anArray of hsAry)
　　　　set j to contents of i
　　　　set (curStr of hsAry) to ((curStr of hsAry)’s stringByReplacingOccurrencesOfString:(j) withString:"" options:(NSRegularExpressionSearch) range:{location:0, |length|:((curStr of hsAry)’s |length|())})
　　end repeat
　　
　　return (curStr of hsAry) as string
end trimStrFromTo

–1D Listをユニーク化（重複削除）
on makeUniqueListFrom(theList)
　　set theSet to NSOrderedSet’s orderedSetWithArray:theList
　　return (theSet’s array()) as list
end makeUniqueListFrom