[NSPasteboard]複数のペーストボード(ペーストボードに名前をつける)

#!/usr/bin/env osascript

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

#

#

#

#

# com.cocolog-nifty.quicktimer.icefloe

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

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use scripting additions

property refMe : a reference to current application

property refNSPasteboard : a reference to refMe's NSPasteboard

set objFileManager to refMe's NSFileManager's defaultManager()

###普通のペーストボード

set ocidPasteboard to refNSPasteboard's generalPasteboard()

log ocidPasteboard

log className() of ocidPasteboard as text

###名前をつけた２つ目のペーストボード

set ocidNamedPasteboard to refNSPasteboard's pasteboardWithName:"Pastboad01"

log ocidNamedPasteboard

log className() of ocidNamedPasteboard as text

###２つ目のペーストボードの初期化

ocidNamedPasteboard's clearContents()

set strText to "AAAAAAA"

###２つ目のペーストボードにNSString『テキスト』を格納

ocidNamedPasteboard's setString:strText forType:(refMe's NSStringPboardType)

###２つ目のペーストボードからNSString『テキスト』データ取り出し

set ocidReadArrayInNSString to ocidNamedPasteboard's readObjectsForClasses:({refMe's NSString}) options:(missing value)

##戻り値はリスト形式

log className() of ocidReadArrayInNSString as text

###１つ目にテキストの戻り値

log className() of (ocidReadArrayInNSString's objectAtIndex:0) as text

###戻ったデータ

set strGetData to (ocidReadArrayInNSString's objectAtIndex:0) as text

log strGetData