–Written By Philip Aker
–文字置換ルーチン
on repChar(origText as string, targStr as string, repStr as string)
　　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

★Click Here to Open This Script　

on cleanUpText(someText, targStr, repStr)
　　set theString to current application’s NSString’s stringWithString:someText
　　set targString to current application’s NSString’s stringWithString:targStr
　　set repString to current application’s NSString’s stringWithString:repStr
　　
　　set theString to theString’s stringByReplacingOccurrencesOfString:targString withString:repString options:(current application’s NSRegularExpressionSearch) range:{location:0, |length|:length of someText}
　　return theString as text
end cleanUpText

★Click Here to Open This Script　

on replaceOne(origStr as string, targStr as string, repStr as string)
　　set anOffset to offset of targStr in origStr
　　if anOffset = 0 then return origStr
　　set {aLen, bLen} to {length of origStr, length of targStr}
　　
　　if anOffset + bLen > aLen then
　　　　–置換対象文字が末尾にある場合
　　　　set newStr1 to (text 1 thru (anOffset – 1) of origStr)
　　　　set newStr2 to ""
　　else if anOffset = 1 then
　　　　–置換対象文字が先頭にある場合
　　　　set newStr2 to (text (anOffset + ((length of targStr))) thru -1 of origStr)
　　　　set newStr1 to ""
　　else
　　　　–通常パターン
　　　　set newStr1 to (text 1 thru (anOffset – 1) of origStr)
　　　　set newStr2 to (text (anOffset + ((length of targStr))) thru -1 of origStr)
　　end if
　　return newStr1 & repStr & newStr2
end replaceOne

★Click Here to Open This Script