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