set targStr to “ぴよ” –置換対象文字列
set repStr to “ぷよ” –置換後文字列

set inList of spd to {}
set outList of spd to {}

–最前面のドキュメントから本文を取得
tell application “mi”
　　tell document 1
　　　　set (inList of spd) to content
　　end tell
end tell

–置換処理
set (outList of spd) to repChar((inList of spd), targStr, repStr) of me

–最前面のドキュメント本文に置換結果を戻す
tell application “mi”
　　tell document 1
　　　　set content to (outList of spd)
　　end tell
end tell

–文字置換ルーチン
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

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set targStr to “ぴよ” –置換対象文字列
set repStr to “ぷよ” –置換後文字列

set inList of spd to {}
set outList of spd to {}

–最前面のドキュメントから本文を取得
tell application “mi”
　　tell document 1
　　　　set (inList of spd) to every paragraph
　　end tell
end tell

–置換処理
repeat with i in (inList of spd)
　　set j to contents of i
　　set jj to repChar(j, targStr, repStr) of me
　　set the end of (outList of spd) to jj
end repeat

–最前面のドキュメント本文に置換結果を戻す
tell application “mi”
　　tell document 1
　　　　set pCount to count every paragraph
　　　　repeat with i from 1 to pCount
　　　　　　set j to content of item i of (outList of spd)
　　　　　　set content of paragraph i to j
　　　　end repeat
　　end tell
end tell

–文字置換ルーチン
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

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–改行コードがCRになっている部分をLFに置換（v2で追加）
set this_data to repChar(this_data, ASCII character 13, ASCII character 10) of me

set tmpPath to path to temporary items from user domain
set fStr to (do shell script “date +%Y%m%d%H%M%S”) & “.pl”
set fPath to (tmpPath as string) & fStr

write_to_fileUTF8(this_data, fPath, false) of me
do shell script “sync”

set sText to “perl -w “ & quoted form of POSIX path of fPath
doComInTerminalWindow(sText) of me

on doComInTerminalWindow(aCMD)
　　tell application “Terminal”
　　　　set wCount to count (every window whose visible is true)
　　　　
　　　　– By wayne melrose
　　　　– Re: New window in Terminal.app
　　　　
　　　　if wCount = 0 then
　　　　　　–ウィンドウが１枚も表示されていない場合
　　　　　　do script aCMD
　　　　else
　　　　　　–すでにウィンドウが表示されている場合
　　　　　　do script aCMD in front window
　　　　end if
　　end tell
end doComInTerminalWindow

–ファイルの追記ルーチン「write_to_file」
–追記データ、追記対象ファイル、boolean（trueで追記）
on write_to_fileUTF8(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to open for access file target_file with write permission
　　　　if append_data is false then set eof of the open_target_file to 0
　　　　write this_data to the open_target_file as «class utf8» starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error error_message
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return error_message
　　end try
end write_to_fileUTF8

–文字置換ルーチン
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

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に