マクロ作成のお願いですNo.00368
ｶﾙﾛｽ さん　99/01/29 13:39
　
どうも、カルロスと申しますm(_ _)m

マクロを作りたいのですが、何せ素人なので皆の助けを借りたいのです。(^^;)
えーと、アセンブルでソースを書いている時に、たまにコメントにしたい数行がある
んですが、
選択してその先頭に";"を入れてくれるマクロはありますか?
例
aaaa
bbbb
cccc

;aaaa
;bbbb
;cccc

たったこれだけだけど何かありませんか?ちなみに";"だけではなくいろいろ(">","//
",その他)
を選択できるといいんですが。。。
宜しくお願いします。m(_ _)m
[ △ ]
RE:00368 マクロ作成のお願いですNo.00370
番頭++ さん　99/01/29 14:16
　
>選択してその先頭に";"を入れてくれるマクロはありますか?
...
>たったこれだけだけど何かありませんか?ちなみに";"だけではなくいろいろ(">","//
>",その他)

こんなのでいかがですか ...

//*5    KZ_CommentA.mac - 1999/01/29 - K.N. - 番頭++
//*2    コメント太君
    disabledraw;
    if( ! selecting ){  endmacro;   }   //  範囲選択
    if( (seltopx + selendx) != 0 ){ escape; endmacro;   }   //  行単位
    #seltopy = seltopy; #selendy = selendy;
    $wk1 = input("Type-in Comment String","//");
    if( ( ! result ) || $wk1 == "" ){   endmacro;   }
//* Ver. 3.00   replaceallfast "^\\f.", "//\\1", regular, inselect;
    escape; moveto 0, #seltopy;
    while( y < #selendy ){
        insertfix $wk1; down;
    }
//R moveto 0, #seltopy; //  範囲選択の先頭
    moveto 0, #selendy; //  範囲選択の最後
endmacro;
[ △ ]
RE:00368 マクロ作成のお願いですNo.00372
プックン さん　99/01/29 14:45
　
手元にあるマクロを、切り張りして作ってみました。
動作がおかしかったら、連絡してください。

=====切り取ってファイルにSAVEしてください。================================
//--------------------------------------------------------------------------
//
//      ﾏｸﾛ名称  :  COMMENT.MAC                                            
//
//                                                                          
//
//  機能概要 :  選択した行の先頭に指定したキャラクタをPASTE
//                                                                          
//
//  注意事項 :  特になし                                                    
//
//                                                                          
//
//  作 成 者 :  プックン                99.01.29
//                                                                          
//
//  修正履歴 :                                                              
//
// 修正日   修正者          修正概要                                        
//
// ------------------------------------------------------------------------
//
    if (!selecting) {
        message "文字列追加プロセス:\n\n範囲選択してから実行してください。";
        endmacro;
    }
    while ( 1 ) {
        menu "◆◆ コメントマーク ◆◆",
                 "（ &1  ） ; ",
                 "（ &2  ） > ",
                 "（ &3  ） , ",
                 "（ &4  ） // ",
                 "（ &5  ） その他 ";
        if ( result != 1 ) break;
    }
    if( result == 0 )      endmacro;
    else if( result == 2 ) replaceallfast "^", ";", regular,inselect;
    else if( result == 3 ) replaceallfast "^", ">", regular,inselect;
    else if( result == 4 ) replaceallfast "^", ",", regular,inselect;
    else if( result == 5 ) replaceallfast "^", "//", regular,inselect;
    else if( result == 6 )
    {   $other = input( "挿入する文字列の指定: " );
        if ( result != 1 ) endmacro;
        replaceallfast "^", $other, regular,inselect;
    }
//=====切り取ってファイルにSAVEしてください。===============================
=
[ △ ]