勉強部屋〜秀丸マクロの部屋〜
 私が今まで作ってきた秀丸マクロです。こうして見ると本当にたいした物を作ってないなぁ。
 各命令や関数は秀丸マクロヘルプを参照して下さい。
 


 行末にbrタグを追加する。 これは正規表現を使えば一発なので、削除しました。

 カーソル位置にFontタグを埋め込む。 大きさや色を可変にした方が良いかも(^^;。
    insert "<font color=\"#ffffff\" size=\"+2\"></font>";


 全行の行末にbrタグを追加する。 SSを書く時は最後にこれを使います。
    question "全行末に<br>タグを追加しますか?";
    if( result == yes ) {
        escape;
        gofiletop;
        while ( true ) {
            golineend2;
            insert "<br>";
            down;
            if ( result == false ) break;
        }
        beep;
    }


 特定の半角記号(中黒、句読点、カギカッコ、長音)を全角に変換する。 大辞典のデータ変換で毎回使います。正規表現を少し使うように直してあります。(2001/01/02修正)
//半角記号変換     98/9/20
// trunshan.mac
//  このマクロは、半角の中黒などinternetで使用できない記号を全角に変換します。
// ファイル名に括弧が含まれている場合は使えません。
//
//  使い方
//    − このtrunshan.macを実行する
//
    question "【大辞典用】半角記号を全角に変換しますか?";
    if( result == yes ) {
        replaceallfast "・" , "・";         // 半角から全角への強制変換
        replaceallfast "、" , "、";
        replaceallfast "。" , "。";
        replaceallfast "ー" , "ー";
        replaceallfast "゙" , "゛";
        replaceallfast "゚" , "゜";
        replaceallfast "「" , "「";
        replaceallfast "」" , "」";
        replaceallfast "・・・" , "…";     // 連続中黒の変換
        replaceallfast "…・・" , "……";
        replaceallfast "…・" , "……";
        replaceallfast "イブ" , "イヴ" , ask;   // 間違えやすい文字の変換
        replaceallfast "バンパイア" , "ヴァンパイア" , ask;
        replaceallfast "−" , "ー" , ask;
        replaceallfast "パーティー" , "パーティ" , ask;
        replaceallfast "," , "、" , ask;    // カンマは読込の問題で除去
        replaceallfast "," , "、" , ask;
        replaceallfast "描\\f(か|き|く|け|こ|い)" , "書\\1" , ask, regular ;   //01.01.02 ADD
        replaceallfast "書\\f(か|き|く|け|こ|い)" , "描\\1" , ask, regular ;   //01.01.02 ADD
    }


 全てのタグを除去する。 正規表現を使ってます。
//HTMLタグ除去     98/9/20
// eracetag.mac
//  このマクロは、<と>で囲まれたタグを全て除去します。
//
//  使い方
//    − このeracetag.macを実行する
//
    question "全てのタグを除去しますか?";
    if( result == yes ) {
        replaceallfast "<[^>]+>" , "", , regular;
    }


 
投稿、ご意見はこちらまで。
1998/09/24 作成 越後屋善兵衛 zetigoya@dream.com