| |
TAKA さん今日は、ひろです。
> 「ColorComment」の値が１４なら、「PL/SQL」のようです。
どうも有り難うございます。
そうすると、先のマクロは各々以下のようにすると上手くいきます。->Papageno さん
//-------------- add comment (PL/SQL) --------------------------------
call ColorComment;
if( ##return != 14)endmacro;
if( !selecting ){
#ox = x;
#oy = y;
golinetop2;
insert "--";
moveto #ox, #oy;
right 2;
}
else{
//検索状態を保持
$search=searchbuffer;
#search=searchoption;
replaceallfast "^","--",regular,inselect;
//検索を初期状態に戻す
setsearch $search, #search;
}
endmacro;
GetType://「C言語source」等と file type が決まっていない場合は "" を返す
call GetExtension basename;
if($$return==".")openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\.";
else openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\."+$$return;
if(result){
$$type=getregstr("");
}
else $$type="";
closereg;
return $$type;
GetExtension://拡張子を取得
##extension=strstr($$1,".");
if(##extension==-1)return ".";
else if(##extension==0)return "";
while(1){
##extension=strlen($$1)-##extension-1;
$$1=rightstr($$1,##extension);
##extension=strstr($$1,".");
if(##extension==-1)break;
}return $$1;
ColorComment:
call GetType;
if( $$return == "" )
openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\Default";
else openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\Config\\"
+ $$return;
##ColorComment = getregnum( "ColorComment" );
closereg;
return ##ColorComment;
//-------------- delete comment (PL/SQL) --------------------------------
call ColorComment;
if( ##return != 14)endmacro;
if( !selecting ){
#ox = x;
#oy = y;
golinetop2;
if(gettext(x,y,x+2,y) == "--"){
delete;
delete;
}
moveto #ox, #oy;
}
else{
//検索状態を保持
$search=searchbuffer;
#search=searchoption;
replaceallfast "^--","",regular,inselect;
//検索を初期状態に戻す
setsearch $search, #search;
}
endmacro;
GetType://「C言語source」等と file type が決まっていない場合は "" を返す
call GetExtension basename;
if($$return==".")openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\.";
else openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\."+$$return;
if(result){
$$type=getregstr("");
}
else $$type="";
closereg;
return $$type;
GetExtension://拡張子を取得
##extension=strstr($$1,".");
if(##extension==-1)return ".";
else if(##extension==0)return "";
while(1){
##extension=strlen($$1)-##extension-1;
$$1=rightstr($$1,##extension);
##extension=strstr($$1,".");
if(##extension==-1)break;
}return $$1;
ColorComment:
call GetType;
if( $$return == "" )
openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\Default";
else openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\Config\\"
+ $$return;
##ColorComment = getregnum( "ColorComment" );
closereg;
return ##ColorComment;
|
|