on run {input, parameters}
try
set a to the (input as string)
set c to repChar(a, "㈰", "①") of me
set c to repChar(c, "㈪", "②") of me
set c to repChar(c, "㈫", "③") of me
set c to repChar(c, "㈬", "④") of me
set c to repChar(c, "㈭", "⑤") of me
set c to repChar(c, "㈮", "⑥") of me
set c to repChar(c, "㈯", "⑦") of me
set c to repChar(c, "㉀", "⑧") of me
set c to repChar(c, "㈷", "⑨") of me
set c to repChar(c, "㉂", "⑩") of me
set c to repChar(c, "㉃", "⑪") of me
set c to repChar(c, "㈹", "⑫") of me
set c to repChar(c, "㈺", "⑬") of me
set c to repChar(c, "㈱", "⑭") of me
set c to repChar(c, "㈾", "⑮") of me
set c to repChar(c, "㈴", "⑯") of me
set c to repChar(c, "㈲", "⑰") of me
set c to repChar(c, "㈻", "⑱") of me
set c to repChar(c, "㈶", "⑲") of me
set c to repChar(c, "㈳", "⑳") of me
end try
return c
end run
--文字置換ルーチン
on repChar(origText, targStr, repStr)
set {txdl, AppleScript's text item delimiters} to {AppleScript's text item delimiters, targStr}
set temp to text items of origText
set AppleScript's text item delimiters to repStr
set res to temp as text
set AppleScript's text item delimiters to txdl
return res
end repChar