| |
haruさん，こんにちは。
手作業でもできそうですが，マクロでやるとすれば，次のようなものでどう
でしょう。
//---------------------------------------//
$from = input("開始番号");
if( $from == "" ) $from = "1";
$to = input("終了番号");
call HanToZen $from;
$from = $$return;
$to = str(val($to) + 1);
call HanToZen $to;
$to = $$return;
menu "&1 残す","&2 削除";
#r = result;
gofiletop;
if(#r == 2) goto Delete;
//残す
searchdown "№" + $from + "$", regular;
golinetop;
beginsel;
gofiletop;
delete;
if( $to == "１" ) endmacro;
searchdown "№" + $to + "$", regular;
golinetop;
beginsel;
gofileend;
delete;
endmacro;
Delete://削除
call HanToZen $from;
searchdown "№" + $from + "$", regular;
golinetop;
beginsel;
if( $to == "１" ) gofileend;
else {
searchdown "№" + $to + "$", regular;
golinetop;
}
delete;
endmacro;
HanToZen: //半角数字→全角数字
##n = strlen( $$1 );
while( ##i < ##n ) {
$$a = midstr( $$1, ##i, 1 );
$$a = char( ascii( $$a ) +0x821f );
$$b = $$b + $$a;
##i = ##i + 1;
}
return $$b;
//---------------------------------------//
では， (^^)/~
山紫水明
|
|