[NSPasteboard]テキストで取得

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

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

#APIキーは

# https://developer.adobe.com/console/projects

#から取得

#com.cocolog-nifty.quicktimer.icefloe

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

use AppleScript version "2.8"

use framework "Foundation"

use framework "UniformTypeIdentifiers"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

log doGetPasteboard("")

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

(* クリップボードテキスト取出

doGetPasteboard("SOME-TEXT")

SOME-TEXTは

クリップボードにテキストがなかった場合に

戻り値を指定

*)

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

to doGetPasteboard(argDefaultText)

  ###渡された値が無い場合

  if argDefaultText = (missing value) then

    set strMesText to "" as text

  else

    set strMesText to argDefaultText as text

  end if

  ## クリップボードの中身取り出し

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

  set ocidPastBoardTypeArray to ocidPasteboard's types

  ###テキストがあれば

  set boolContain to ocidPastBoardTypeArray's containsObject:"public.utf8-plain-text"

  if boolContain = true then

    set strPasteboardString to (ocidPasteboard's stringForType:"public.utf8-plain-text") as text

  else

    set boolContain to ocidPastBoardTypeArray's containsObject:"NSStringPboardType"

    if boolContain = true then

      set ocidPasteboardString to ocidPasteboard's stringForType:(refMe's NSPasteboardTypeString)

      set strPasteboardString to ocidPasteboardString as text

    else

      ###取得できなかった場合はメッセージを返す

      set strPasteboardString to (strMesText) as text

    end if

  end if

return strPasteboardString

end doGetPasteboard

---