TextWrangler.appのスクリプト—Line comment_Remove.scpt

TextWrangler.appのドキュメント上で、AppleScriptのラインコメント”– “を追加するためのスクリプトを紹介しましたが、今度はその削除をするスクリプトです。

2013-10-24 5.37.35

選択範囲の段落の先頭を検索して、”– “だけでなく”>”、”・”、”•”、”タブ”があれば同時に削除してします。
処理はハイライト部分だけですから、削除は追加に比べて随分簡単です。

tell application "TextWrangler"
	activate
	if (selection of text window 1 as string) is not "" then
		replace "^[ ->・•]+[ \\t]*" using "" searching in selection of text window 1 options {search mode:grep, starting at top:false, wrap around:false, backwards:false, case sensitive:false, match words:false, extend selection:false}
	else
		activate
		display dialog "文字列を選択してから実行しましょう。" buttons {"OK"} default button "OK" with icon note giving up after 3
	end if
end tell
広告

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中