|
半角カナを全角カナを一括して変換したいのですが
よくわからなくて困っています。
過去ログを読んだところ、
>00211 98/09/11 17:54 RE:00210 半角カタカナを全角に
>投稿者 : noro
というのがありましてnonoさんがサンプルを提示されています。
以下がnonoさんの書かれたコードです。
---引用はじめ---
$bu = searchbuffer;
#op = searchoption;
if ( selecting ) escape;
openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\Env";
#sf = getregnum( "SelectFound" );
if ( ! #sf ) { // 検索ヒット時の点滅を選択に設定変更
writeregnum "SelectFound",1;
envchanged;
}
gofiletop;
if ( code >= 0xA1 && code < 0xDF ) {//ファイル先頭が半角カナの時
#ins = 1;
insertfix "\n";
}
while (1) {
searchdown "[。-゚]+",regular;
if ( result ) tozenkakukata;
else break;
}
if ( ! #sf ) { // 検索ヒット時の点滅を選択に設定変更を戻す
writeregnum "SelectFound",0;
envchanged;
}
setsearch $bu, #op;
if ( #ins == 1 ) {
gofiletop;
delete;
}
endmacro;
---引用終わり---
このコードで半角カナを全角カナに変換すると、困ったことに
数字まで全角に変換されてしまいます。
アスキーコードの範囲を見る限り間違ってはいないと思うのですが…
「数字は全角に変換しない」にはどのようにしたらよろしいでしょうか?
おわかりの方居りましたら、ご教示ください。
よろしくお願いします。
|
|