« Mac OS X Lion で起動音を消す方法 | トップページ | LaunchPadのアイテムを削除するツールを作ってみた »

2012年6月10日 (日)

スティッキーズの内容をEvernoteにコピーするAppleScript

スティッキーズをもうちょっと活用しようと思ったらこうなった

利用は自己責任で!とくに重複と見なしたnoteは削除するような仕様になっています。

また、StickesDatabase というノートブックを使うので、同名のノートブックがあるとやばいかも?

property StickesNotebookName : "StickesDatabase"

set cNote to {ctitle:"", tcount:"", atext:""}

set classList to {}

tell application "System Events"

        if UI elements enabled is false then

                set UI elements enabled to true

        end if

        

        tell application process "Stickies"

                set nameList to name of every window

                try

                        repeat with nwindow in nameList

                                copy cNote to newNote

                                set myText to value of text area 1 of scroll area 1 of window nwindow

                                set ctitle of newNote to nwindow

                                set tcount of newNote to count myText

                                set atext of newNote to myText

                                set classList to classList & {contents of newNote}

                        end repeat

                on error err

                        display dialog err

                        

                end try

                try

                        repeat with aClass in classList

                                set noteTitle to ctitle of aClass

                                set countText to tcount of aClass

                                tell application "Evernote"

                                        if exists of notebook StickesNotebookName then

                                                set mynote to (notes of notebook StickesNotebookName whose title is noteTitle)

                                                -- set mynote to find notes noteTitle

                                                if (count mynote) is not 0 then

                                                        set mynote to item 1 of mynote

                                                        -- append mynote text atext of aClass

                                                        delete mynote

                                                        delay 0.5

                                                        create note title noteTitle with text atext of aClass notebook StickesNotebookName

                                                else

                                                        create note title noteTitle with text atext of aClass notebook StickesNotebookName

                                                end if

                                        else

                                                -- StickesDatabase というノートブックを作成

                                                create notebook StickesNotebookName

                                                create note title noteTitle with text atext of aClass notebook StickesNotebookName

                                        end if

                                end tell

                        end repeat

                on error err

                        display dialog err

                end try

        end tell

        

end tell

« Mac OS X Lion で起動音を消す方法 | トップページ | LaunchPadのアイテムを削除するツールを作ってみた »

トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/1392531/45597914

この記事へのトラックバック一覧です: スティッキーズの内容をEvernoteにコピーするAppleScript:

« Mac OS X Lion で起動音を消す方法 | トップページ | LaunchPadのアイテムを削除するツールを作ってみた »

2015年6月
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30        
無料ブログはココログ

最近のトラックバック

ウェブページ

Twitter

  • Twtter