« ホワイトポイント | トップページ | [QuickTime]イメージシーケンス(複数画像)からムービーを作成する »

[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


|

« ホワイトポイント | トップページ | [QuickTime]イメージシーケンス(複数画像)からムービーを作成する »

AppleScript NSPasteboard」カテゴリの記事