【AppleScript】句点直後で改行する

長文の打ち込みを終えて、アップロードするときに句点「。」が一行中にあるとき、

改行をしたいことがあります。それもたくさん。

一個づつやるのは面倒なのでこちらを考えました。

--2017/12/22テストOK
--入力モードを英和交互にしたりしなければならないとか、構文途中の文字化けとかあったので、単機能にした。
tell application "Finder"
	tell document 1
		tell application "System Events"
			--delay 0.5
			keystroke ":" using {control down, shift down} --英語入力モード。
			keystroke ":" using {control down, shift down} --念のために再度。
			tell application "Jedit X"
				tell front document
					replaceAll string "。([^\\n])" to "。\\n\\1" with select all, case sensitive, grep and entire word
					--2017/12/22、二重にバックスラッシュを入れて文字化けを回避。
				end tell
			end tell
		end tell
	end tell
end tell

この置換コマンドが便利です。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

ページトップに戻る↑　　　　　　　　　　　　　　　　　　　　　　　　　　　ページ一番下へ↓