RE:04206 <質問>小数バージョンでちょっとNo.04207
える さん 99/10/10 17:22
 
>お世話になっています。昨日から以下のないようなメールが届いております。
>私は小数点〜の質問はしておりません。多分他の方の質問に対するお答えでは
>ないかと思います。メールアドレスをご確認ください。

メールで受け取る設定にしていると、このフォーラム内のすべての投稿がメールで送
られてくるのでは ?

[ ]
RE:04206 <質問>小数バージョンでちょっとNo.04209
番頭++ さん 99/10/10 18:03
 
>私はよくGrepしてタグジャンプしてるのですがタグジャンプの際に
>Grepウインドウを閉じたい事が多々あります。
>
>その動作をマクロで作成したいのですがどうも出来ません。
>一見簡単そうなのですがclosehidemaru辺りの使い方がわかっていな
>いようです。

こんな感じです。試してください。

//*5    a1.mac
//*grep の後に実行。
    tagjump;
    if( result ){
        closehidemaru(1);
    } else {
        message "tagjump failed !";
    }
endmacro;
// end of macro.


//*5    a2.mac
//*grep の後に実行。
//*1 *** Macro for 「秀丸エディタ」 ***
//*1 【マクロ名】 KZ_TjRopBj.mac - Ver. 02.01 - 1998/07/01
//*1 【機能】
//*1 ・tagjump; readonly; backtagjump; の処理です。ハイ !
//*1 ・tagjump を初めに行ないます。
//*1 ・readonly にします。
//*1 ・その後、[Enter] : backtagjump; を行ない、相手を close します。
//*1 ・その後、[Esc] : endmacro; です。
//
    disableerrormsg;    escape;
    $wk1 = filename2;
    tagjump;
    if( ! result ){ endmacro;   }
    if( $wk1 == filename2 ){    endmacro;   }
    if( ! readonly ){   readonlyswitch; }
    setactivehidemaru 0;    title 1;
    inputpos filename2 + " - [Enter] : backtagjump; - [Esc] : endmacro;";
    if( iskeydown( 0x1B ) ){    endmacro;   }   //  [Esc]
//R if( iskeydown( 0x0D ) ){    endmacro;   }   //  [Enter]
    $wk1 = filename2;
    backtagjump;
    if( ! result ){ endmacro;   }
    setactivehidemaru 0;    title 1;
    closehidemaruforced hidemaruhandle(findhidemaru($wk1));
    enableerrormsg;
endmacro;
// end of macro.


//*5    a3.mac
//*grep も実行。
//  "(&G) grep - わからん ! "
ppkn_grep1:
    $wk1 = input(directory2+"\n\ngrep - 検索する文字列 ?","[0-9][0-9]\\.[0-
9][0-9]");
    if( ! result ){ endmacro;   }
    if( strlen($wk1) == 0 ){
        grepdialog;
        if( ! result ){ endmacro;   }
        if( iskeydown( 0x1B ) ){    //  [Esc]
            if( basename == "" && x+y == 0 ){
                quit;   endmacro;
            } else {
                endmacro;
            }
        }
    } else {
        grep $wk1, "*.*", directory2, regular, icon;
    }
    if( basename == "" && code == eof ){
        quit;   endmacro;
    }
    config "t4 w200";   readonlyswitch;
    while( ! iskeydown( 0x1B ) ){   //  [Esc]
        setactivehidemaru 0;    title 1;
        if( basename == "" ){
            inputpos "わからん ! - [Enter] : tagjump;";
            if( iskeydown( 0x1B ) ){    break;  }   //  [Esc]
            golinetop2; tagjump;
        } else {
            inputpos filename2 + " - わからん ! - [Enter] : backtagjump;";
            if( iskeydown( 0x1B ) ){    break;  }   //  [Esc]
            golinetop2; backtagjump;
        }
        #i = hidemarucount;
        if( #i > 5 ){
            closehidemaru #i-1; closehidemaru 5;
        }
    }
    #i = hidemarucount;
    while( #i > 1 ){
        #i = #i - 1;    closehidemaru #i;
    }
    title 1;
    setsearch "", 0x00; //  reset. 記憶にありません !
endmacro;
// end of macro.

[ ]