| |
みなさん，こんばんは。山紫水明です。
#05775 への自己レスです。
先のマクロ，桁折りの関係や，改行が入ってボックス幅が一定でないときなど，
うまく働かない場合があるようですので書き換えてみました。
では， (^^)/~
//------ Boxpaste.mac ---------------------//
// 2000.5.18 山紫水明
#handle1 = hidemaruhandle(0);
menu "&1) ボックス上書き",
"&2) 文字列状挿入";
#r = result;
disableinvert;
openfile "/h";
#handle2 = hidemaruhandle(0);
paste;
if(#r == 1){
while(result){
if(#ex < linelen) #ex = linelen;
down;
}
#ey = y;
}else{
gofileend;
replaceallfast "\\n","", regular;
selectall;
copy;
}
setactivehidemaru #handle1;
closehidemaruforced #handle2;
if(#r == 1){
beginrect;
moveto x + #ex, y + #ey;
delete;
}
paste;
endmacro;
//-----------------------------------------//
|
|