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

#!/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書類のHTML.html" 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)

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

##### HTML変換

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

###NSAttributedStringに変換

set ocidAttributedString to refMe's NSAttributedString's alloc()'s initWithRTF:ocidReadPasteboardRTF documentAttributes:(missing value)

###文字数カウント

set numStringLenge to ocidAttributedString's |length|() as integer

###アトリビュートをHTMLに変換

set ocidAttributedDict to refMe's NSDictionary's dictionaryWithObject:(refMe's NSHTMLTextDocumentType) forKey:(refMe's NSDocumentTypeDocumentAttribute)

####NSDATAに変換

set listDocAttar to ocidAttributedString's dataFromRange:{location:0, |length|:numStringLenge} documentAttributes:ocidAttributedDict |error|:(reference)

####取り出して

set ocidHTMLData to item 1 of listDocAttar

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

##### 保存

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

#####保存

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