[Unicode Escape]AppleScriptでユニコード・エスケープ処理

日本語を

JSONとかでよく使うユニコード・エスケープ形式に変換します。

※改行は考慮していません。

display dialog "変換するテキストをペースト" default answer "美しい日本語だ"

set theText to text returned of the result as Unicode text

set theTextList to characters of theText

set theResultHex to ""

repeat with theTextObj in theTextList

set theResult to my encodehexdump(theTextObj)

set theResultHex to theResultHex & "\\u" & theResult

end repeat

display dialog "出来上がりUnicode Escape" default answer theResultHex

on encodehexdump(str)

set str to id of first character of str as Unicode text

set scpt to " php -r 'echo dechex(" & str & ");'"

return do shell script scpt

end encodehexdump

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

「UnicodeEscape.scpt.rtf」をダウンロード