[AppleScripts]シングルクオトのエスケープ処理（phpを使う時のお約束）

-----シングルクオトを含むテキストを定義

set theOriginalText to "<'/>" as text

log theOriginalText

-----シグルクオトの前に\\を付けてエスケープ

set theEscapeSingleQuotesText to my theReplace(theOriginalText, "'", "\\'") as text

log theEscapeSingleQuotesText

-----エンコード処理

set theUrlEncodeText to do shell script ("echo \"<?php print(urlencode('" & theEscapeSingleQuotesText & "'));?>\" | php")

log theUrlEncodeText

-----デコード処理

set theDecodeText to do shell script ("echo \"<?php print(urldecode('" & theUrlEncodeText & "'));?>\" | php")

log theDecodeText

--------------文字の置き換えサブルーチン

to theReplace(theText, theOrgStr, theNewStr)

set theOldDelim to AppleScript's text item delimiters

set AppleScript's text item delimiters to theOrgStr

set theTmpList to every text item of theText

set AppleScript's text item delimiters to theNewStr

set theReplaceStr to theTmpList as text

set AppleScript's text item delimiters to theOldDelim

return theReplaceStr

end theReplace

「EscapeSingleQuotes.rtf」をダウンロード

「EscapeSingleQuotes.scpt.zip」をダウンロード