[NSPasteboardTypeRTF]ペーストボードのリッチテキストデータをRTFファイルに書き出す

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

#

#

#

#                       com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"

use framework "Foundation"

use scripting additions

property refMe : a reference to current application

################################

##### パス関連

################################

set strFilePath to "~/Desktop/クリップボードのRTF書類.rtf" as text

set ocidFilePathStr to refMe's NSString's stringWithString:strFilePath

set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()

set ocidFilePathURL to refMe's NSURL's alloc()'s initFileURLWithPath:ocidFilePath isDirectory:false

################################

######ペーストボードを取得

################################

set ocidPasteboard to refMe's NSPasteboard's generalPasteboard()

###NSDataとしてRTFデータを受け取る

set ocidReadPasteboardRTF to ocidPasteboard's dataForType:(refMe's NSPasteboardTypeRTF)

################################

##### 保存

################################

####ファイルに書き出し

set boolFileWrite to (ocidReadPasteboardRTF's writeToURL:ocidFilePathURL atomically:true)