–丸つき数字を扱うキット
script maruNumKit
　　
　　use AppleScript
　　use framework "Foundation"
　　use scripting additions
　　property parent : AppleScript
　　
　　–1～50の範囲の数値を丸つき数字に変換して返す
　　on convNumToNumWithSign(aNum as number)
　　　　if (aNum ≤ 0) or (aNum > 50) then return ""
　　　　set aStr to "①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳㉑㉒㉓㉔㉕㉖㉗㉘㉙㉚㉛㉜㉝㉞㉟㊱㊲㊳㊴㊵㊶㊷㊸㊹㊺㊻㊼㊽㊾㊿"
　　　　set bChar to character aNum of aStr
　　　　return bChar
　　end convNumToNumWithSign
　　
　　
　　–1D List上で指定データを検索してヒットしたアイテム番号を返す
　　on search1DList(aList, aTarg)
　　　　set anArray to current application’s NSMutableArray’s arrayWithArray:aList
　　　　set anIndex to anArray’s indexOfObject:aTarg
　　　　if (anIndex = current application’s NSNotFound) or (anIndex > 9.99999999E+8) then
　　　　　　return false
　　　　end if
　　　　return (anIndex as integer) + 1 –convert index base (0 based to 1 based)
　　end search1DList
　　
　　
　　–1D listのクリーニング
　　on cleanUp1DList(aList as list, cleanUpItems as list)
　　　　set bList to {}
　　　　repeat with i in aList
　　　　　　set j to contents of i
　　　　　　if j is not in cleanUpItems then
　　　　　　　　set the end of bList to j
　　　　　　else
　　　　　　　　set the end of bList to ""
　　　　　　end if
　　　　end repeat
　　　　return bList
　　end cleanUp1DList
　　
　　
　　–text in listから丸つき数字を除去する
　　on removeNumberWithSignFromList(aList as list)
　　　　set bList to {}
　　　　repeat with i in aList
　　　　　　set j to contents of i
　　　　　　set j2 to removeNumberWithSign(j) of me
　　　　　　set the end of bList to j2
　　　　end repeat
　　　　return bList
　　end removeNumberWithSignFromList
　　
　　
　　–文字列から丸つき数字を除去する
　　on removeNumberWithSign(aStr as text)
　　　　set aNSString to current application’s NSString’s stringWithString:aStr
　　　　return (aNSString’s stringByReplacingOccurrencesOfString:"[＼＼U000024EA-＼＼U000024EA＼＼U00002460-＼＼U00002473＼＼U00003251-＼＼U000032BF＼＼U000024FF-＼＼U000024FF＼＼U00002776-＼＼U0000277F＼＼U000024EB-＼＼U000024F4＼＼U00002780-＼＼U00002789＼＼U0000278A-＼＼U00002793＼＼U000024F5-＼＼U000024FE]" withString:"" options:(current application’s NSRegularExpressionSearch) range:{0, aNSString’s |length|()}) as text
　　end removeNumberWithSign
　　
　　
　　–1D Listに入っているテキストから丸つき数字を抽出して数値化し、最小のものを求める
　　on getMinimumNumFromNumberWithSign(aList)
　　　　set nList to {}
　　　　
　　　　repeat with i in aList
　　　　　　set j to contents of i
　　　　　　–与えられたテキストのうち、丸つき数字（白）の
　　　　　　set j2 to holdNumberWithSignOnly(j) of me
　　　　　　set n2List to characters of j2 –複数の丸つき数字が入っている場合に対処
　　　　　　
　　　　　　repeat with ii in n2List
　　　　　　　　set jj to contents of ii
　　　　　　　　set tmpNum to decodeNumFromNumWithSign(jj) of me
　　　　　　　　set the end of nList to tmpNum
　　　　　　end repeat
　　　　　　
　　　　end repeat
　　　　
　　　　set anArray to current application’s NSArray’s arrayWithArray:nList
　　　　set cRes to (anArray’s valueForKeyPath:"@min.self") as integer
　　　　return cRes
　　end getMinimumNumFromNumberWithSign
　　
　　
　　–指定文字列から丸つき数字のみ抽出する
　　on holdNumberWithSignOnly(aStr as text)
　　　　set aNSString to current application’s NSString’s stringWithString:aStr
　　　　return (aNSString’s stringByReplacingOccurrencesOfString:"[^＼＼U000024EA-＼＼U000024EA＼＼U00002460-＼＼U00002473＼＼U00003251-＼＼U000032BF＼＼U000024FF-＼＼U000024FF＼＼U00002776-＼＼U0000277F＼＼U000024EB-＼＼U000024F4＼＼U00002780-＼＼U00002789＼＼U0000278A-＼＼U00002793＼＼U000024F5-＼＼U000024FE]" withString:"" options:(current application’s NSRegularExpressionSearch) range:{0, aNSString’s |length|()}) as text
　　end holdNumberWithSignOnly
　　
　　
　　–丸つき数字を数値にデコードする v2
　　on decodeNumFromNumWithSign(aStr as string)
　　　　set numStr1 to "①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳㉑㉒㉓㉔㉕㉖㉗㉘㉙㉚㉛㉜㉝㉞㉟㊱㊲㊳㊴㊵㊶㊷㊸㊹㊺㊻㊼㊽㊾㊿"
　　　　set numStr2 to "❶❷❸❹❺❻❼❽❾❿⓫⓬⓭⓮⓯⓰⓱⓲⓳⓴"
　　　　set numStr3 to "➀➁➂➃➄➅➆➇➈➉"
　　　　set numStr4 to "➊➋➌➍➎➏➐➑➒➓"
　　　　set numStr5 to "⓵⓶⓷⓸⓹⓺⓻⓼⓽⓾"
　　　　
　　　　set nList to {numStr1, numStr2, numStr3, numStr4, numStr5}
　　　　
　　　　repeat with i in nList
　　　　　　set numTemp to contents of i
　　　　　　if numTemp contains aStr then
　　　　　　　　using terms from scripting additions
　　　　　　　　　　set bNum to offset of aStr in numTemp
　　　　　　　　end using terms from
　　　　　　　　return bNum
　　　　　　end if
　　　　end repeat
　　　　return false
　　end decodeNumFromNumWithSign
　　
　　–1D Listを指定デリミタをはさみつつテキストに
　　on retDelimedText(aList as list, aDelim as string)
　　　　set aText to ""
　　　　set curDelim to AppleScript’s text item delimiters
　　　　set AppleScript’s text item delimiters to aDelim
　　　　set aText to aList as text
　　　　set AppleScript’s text item delimiters to curDelim
　　　　return aText
　　end retDelimedText
end script

★Click Here to Open This Script