EvernoteのノートのタイトルをAppleScriptで一括変更する

Brogtrottrというサービスがあります。
RSSの記事をメールとして送信してくれるサービスです。

個人的に、このサービスをGoogle Readerと組み合わせて利用しています。
具体的には、Google Readerで気になった記事は共有するようにして、 共有アイテムのRSSをBrogtrottrでEvernoteに送信し、気になった記事がEvernoteに自動的にクリッピングされるようにしています。

ただ1点、Brogtrottrが残念なのが、メールのタイトルが変更できないという点。
Brogtrottrからのメールのタイトルは”サイト名: タイトル”のようになり、Google Readerの共有アイテムのようにサイト名が長いと、Evernoteに登録した際非常に冗長になってしまいます。

幸い、Mac版のEvernoteではAppleScriptでノートのタイトルが変更できます。

ということで、冗長なタイトルになっているノートを一括して変更するAppleScriptをさっくり書いたので、メモとしてあげておきます。

なお、AppleScript中の”switchText”はこちらから引用させていただきました。
感謝です。

※実際に使う際は、最初のpropertyの値を変更のこと。

property nb : "_inbox" -- ノートブック名
property str_G_orig : "naoki's shared items in Google Reader" -- 置換え対象文字列
property str_G_sub : "G" -- 置換え後文字列

tell application "Evernote"
	-- repeat with var_note in (get selection) -- 選択しているノート
	repeat with var_note in (get notes in notebook nb) -- ノートブック内の全ノート
		set var_title to (get title of var_note)
		if var_title contains str_G_orig then
			set var_title_new to (switchText from var_title to str_G_sub instead of str_G_orig) of me
			set title of var_note to var_title_new
		end if
	end repeat
end tell

to switchText from t to r instead of s
	set d to text item delimiters
	set text item delimiters to s
	set t to t's text items
	set text item delimiters to r
	tell t to set t to item 1 & ({""} & rest)
	set text item delimiters to d
	t
end switchText
%d人のブロガーが「いいね」をつけました。