Jedit X 用スクリプトで、半角4桁の西暦だけを全角に置換

縦書きの本を組版する際、欧文回転や自動縦中横を使う場合、西暦の半角数字だけを全角数字に置き換えたい…という事がたまにあります。Jedit X 用のスクリプトを作ったので、よかったら使って下さい。
「****年」→「****年」
例:1969年 → 1969年

tell application “Jedit X”
tell front document
set selected character range to {len:0, loc:1}
repeat while find string “[0-9]{4}年” with grep
to full width cnvFlag “4000003E00000000”
end repeat
end tell
end tell

4行目のrepeat〜で始まる部分から「年」を削除したら、「2011」を「2011」と変更するようになります。しかし、金額や数量などが4桁で入力された原稿(例:9800円)も、全角に変更(例:9800円)するので、必要に応じて修正して下さい。

コメントを残す

メールアドレスが公開されることはありません。