09/12/13 12:29:53 ZIwNBVYl0
Tekitou:
$$s = searchbuffer;##f = searchoption;$$r = replacebuffer;
$$pat_search_top = "^六角$";
$$pat_search_end = "^鉛筆$";
##count=0;
disabledraw;
while(true){
searchdown2 $$pat_search_top,regular,nocasesense;
if(result!=true)break;
#x1=foundendx;#y1=foundendy;
searchdown2 $$pat_search_end,regular,nocasesense;
if(result!=true)break;
#x2=foundtopx;#y2=foundtopy;
moveto #x1 , #y1;
escape;
beginsel;
moveto #x2, #y2;
endsel;
if(#y2-#y1 >= 25){
enabledraw #y1;
question str(#y2-#y1)+"行";
if(result==no)break;
disabledraw;
}
insert "\n";//適宜変更 delete; ?
##count=##count+1;
}
setsearch $$s, ##f;setreplace $$r;
message str(##count)+"個削除";
return;