| |
takumasaさんこんにちは(^^)noroです。
》「半角カタカナのみを全角に変換」してくれるようなマクロないでしょうか？
ファイル全部対象でよければ、以下のようなマクロでできるんじゃないで
しょうか？
私の「半角カナ」の範囲についての認識がアヤシイので、ちょっと自信が無
かったりしますが…（＾＾；）
−−−−−−−−−−−キリトリセン−−−−−−−−−−−
$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;
−−−−−−−−−−−キリトリセン−−−−−−−−−−−
ではでは…
|
|