| |
こんにちは。鳩です。
鶴亀メールVer1.02で秀丸マクロの実行によって保護違反がでます。
（再現性あり）
保護違反のでるマクロの機能は先頭に記号（たとえば■）のある行を検出して表
示し（複数）、選ばれた行へジャンプするというものです。
鶴亀メールで秀丸マクロがすべて動くという保証はないと思いますが、長くて項
目立てしてある文ではなかなか有用なマクロですので、できれば鶴亀メールでも動
くとありがたいと思います。
水銀水さんが以前アスキー誌に書かれたものです。
それほど大きくないマクロですのでここにかきますが、dump.txtはどうしましょ
うか。別送した方がいいのか、それともここへかいたほうがいいのでしょうか。
//topic.mac アウトライン
//項目リストアップ＆ジャンプ ASCII '96.8 P462 小田明夫（水銀水）
//メニューによる選択追加 ＹＯＧ
//MAIN
menu "■|●","■","■|●|◎| ■","◆";
if ( result == 1 ) $TM="(■|●)" ;//行頭に置くトピックマーク
else if ( result == 2 ) $TM="■" ;
else if ( result == 3 ) $TM="(■|●|◎| ■)" ;
else if ( result == 4 ) $TM="◆" ;
else if ( result == 0 ) goto End;
#SelectedWidth=40; //リスト表示するための獲得文字数
$b=searchbuffer;
#p=searchoption;
call getTopcsline;
call menuDisp;
setsearch $b,#p;
End:
endmacro;
//menuDisp
menuDisp:
while(1){
mousemenuarray $s,#i;
if(result==0) return;
else moveto #SelectedWidth,#L[result-1];
title $s[result-1];
}
return;
//getTopcsline
getTopcsline:
#yy=y;
disabledraw;
gofiletop;
while(1){
searchdown "^"+$TM,regular;
if(!result) break;
golinetop;
beginsel;
moveto #SelectedWidth,y;
$s[#i]="["+str(y+1)+"]"+gettext(seltopx,seltopy,selendx,selendy);
#L[#i]=y;
#i=#i+1;
}
moveto #selectedwidth,#yy;
enabledraw;
return;
|
|