Macテキスト検索置換で2ケタの数字だけ半角に

質問

テキストの表記整理で漢数字を「全角」算用数字に一括変換しました。タテで組版をおこなう都合上、2ケタの数字だけ「半角」算用数字に変換したいのですが、一括でおこなう方法をご存知でしたらお教えください。
ちなみに今はJedit2.27で作業をしていますが、他のアプリケーションでかまいません。できればフリーがよいですがシェアでも。時間がかかって難儀しています。
どうぞよろしくお願いします。

回答No.3

dezimac · ベストアンサー

OS9ならばDTP等での文字の統一作業に特化した「TOOK Editor」を使えば一発です。
OSXならば、「mi」用の「TEXT整形モード」ファイルを利用する事で可能です。
http://hp.vector.co.jp/authors/VA023000/soft/took.html
http://hp.vector.co.jp/authors/VA023000/soft/mi_mode_text.html

お礼

dezimacさん、ご回答ありがとうございました。miというのを今日はじめてためしていたところでした。OS10.5.8なのでバージョンがあわないのか、教えていただいた「TEXT整形モード」ファイルを利用すると激しい文字化けをおこしてしまいました。やり方が悪いのかもしれません。理想的なモードファイルなのに……。もう1回試してみます。

回答No.2

TYWalker

失礼、さっきのだと３ケタ以上も引っかかっちゃいます。

×s/([０-９])([０-９])/$hash{$1}$hash{$2}/g;
○s/(?<![０-９])([０-９])([０-９])(?![０-９])/$hash{$1}$hash{$2}/g;

テストしてないので他にも間違いがあるかもしれません。
スミマセン。

お礼

TYWalkerさん
ご回答ありがとうございました。ちょっとためしてみます。

回答No.1

TYWalker

手元にMacがないんですが、Mac OS XならばターミナルからPerlが使えるはずなので、下のプログラムが使えると思います。

下のスクリプトをファイルと同じ文字コードで保存します。

#! /bin/perl
# #! /bin/perl
# textChange.pl

$hash{'０'} = '0';
$hash{'１'} = '1';
$hash{'２'} = '2';
$hash{'３'} = '3';
$hash{'４'} = '4';
$hash{'５'} = '5';
$hash{'６'} = '6';
$hash{'７'} = '7';
$hash{'８'} = '8';
$hash{'９'} = '9';

while (<>) {
s/([０-９])([０-９])/$hash{$1}$hash{$2}/g;
}

で、ターミナルから、以下のコマンドを使います。

% textChange.pl < 入力ファイル名 > 出力ファイル名

Perlをターミナルから使えるようになると、いろんなテキスト処理が簡単に出来るようになるので便利だと思います。
まったくの無料ですし・・・。

Jeditの正規表現を使ってもっとエレガントに出来るかもしれませんし、JeditでＣ言語っぽいマクロを使えるようなので、それを使えばもっとカンタンにできるかもしれませんが、一応書き込みました。

Jeditのマクロについては、以下のページを参考に出来ると思います。

http://d.hatena.ne.jp/tanakahisateru/20080925/1222336816