| |
白雲斎と申します。
時間があったのでマクロを作って見ました。
役立つようであれば、使ってみてください。
// マクロ ここから -------------------
$sb = searchbuffer;
#so = searchoption;
$zn[0] = "〇";
$zn[1] = "一";
$zn[2] = "二";
$zn[3] = "三";
$zn[4] = "四";
$zn[5] = "五";
$zn[6] = "六";
$zn[7] = "七";
$zn[8] = "八";
$zn[9] = "九";
disabledraw;
gofiletop;
searchdown2 "[0-9０-９]+", regular;
while( result )
{
tohankaku;
#tx = seltopx;
#ty = seltopy;
#ex = selendx;
#ey = selendy;
$buff = gettext(#tx, #ty, #ex, #ey);
escape; // 念のため
if( strlen($buff) == 2 ) call toZen2c $buff;
else call toZen $buff;
beginsel;
moveto #ex, #ey;
insert $$return;
finddown;
}
gofiletop;
enabledraw;
setsearch $sb, #so;
endmacro;
toZen:
$$n = "";
##l = strlen($$1);
##i = 0;
while( ##i < ##l )
{
$$n = $$n + $zn[val( midstr($$1, ##i, 1) )];
##i = ##i + 1;
}
return $$n;
toZen2c:
##ln = val(leftstr($$1, 1));
##rn = val(rightstr($$1, 1));
if( ##ln == 1 ) return "十" + $zn[##rn];
else if( ##rn == 0 ) return $zn[##ln] + "十";
return $zn[##ln] + "十" + $zn[##rn];
// マクロ ここまで -------------------
__________________________________________________
Do You Yahoo!?
http://bb.yahoo.co.jp/
|
|