マクロの連結方法 - 秀丸エディタ関連ソフト会議室 - スレッド29516, 2011/02/10

マクロの連結方法

eigodono1 さん　11/02/10 08:48

question "臨床試験整理マクロ";
if( result != yes ) {
endmacro;
}
replaceallfast "(^[^()\\n]*\\([^()\\n]*\\)[^()\\n]*\\([^()\\n]*\\)\\n)|
(^[\\x81\\x40-\\xFC\\xFF]+/[^\\x81\\x40-\\xFC\\xFF\\n/]+\\n)|(^[\\x81\\x40-\
\xFC\\xFF]+\\([\\x81\\x40-\\xFC\\xFF]+）/[^\\x81\\x40-\\xFC\\xFF]+\\n)|(^\\t)"
, ""
, regular, casesense;
message str(result) + "個の置換を実行しました。";

question "行頭数字、その後何もない文を削除";
if( result != yes ) {
endmacro;
}
replaceall "^\\d+\\n", "", regular;
message str(result) + "個の置換を実行しました。";

message "改行を減らすマクロです";
#searchoptionOrg = searchoption;
$searchbufferOrg = searchbuffer;
$replacebufferOrg = replacebuffer;
replaceallfast "(\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n)|"
+ "(\\n\\n\\n\\n\\n\\n\\n\\n\\n)|(\\n\\n\\n\\n\\n\\n\\n\\n)|"
+ "(\\n\\n\\n\\n\\n\\n\\n)|(\\n\\n\\n\\n\\n\\n)|"
+ "(\\n\\n\\n\\n\\n)|(\\n\\n\\n\\n)|(\\n\\n\\n)|(\\n\\n)|\\n"
, "\\n"
, regular;
message str(getresultex(14)) + "個の置換を行いました。";
setsearch $searchbufferOrg,#searchoptionOrg;
setreplace $replacebufferOrg;

上記３つのマクロを連結して、1つのマクロにするにはどうすればいいですか？1つ目
と2つ目と3つ目の「XXXXX個の置換を行いました」は省いても結構ですが、マクロ終
了後には「置換完了」というメッセージを入れたいです。そして、マクロの開始時に
は「臨床試験マクロ」と表示させたいです。

RE:29516 マクロの連結方法

eigodono1 さん　11/02/10 08:54

> question "臨床試験整理マクロ";
≪全文引用されていたのでコミュニテックス会議室システムが引用部分を省略処理し
ました。≫
>上記３つのマクロを連結して、1つのマクロにするにはどうすればいいですか？1つ
>目と2つ目と3つ目の「XXXXX個の置換を行いました」は省いても結構ですが、マクロ
>終了後には「置換完了」というメッセージを入れたいです。そして、マクロの開始
>時には「臨床試験マクロ」と表示させたいです。

順番を間違えました。次の通りにしたいです：

question "臨床試験整理マクロ";
if( result != yes ) {
endmacro;
}
replaceallfast "(^[^()\\n]*\\([^()\\n]*\\)[^()\\n]*\\([^()\\n]*\\)\\n)|
(^[\\x81\\x40-\\xFC\\xFF]+/[^\\x81\\x40-\\xFC\\xFF\\n/]+\\n)|(^[\\x81\\x40-\
\xFC\\xFF]+\\([\\x81\\x40-\\xFC\\xFF]+）/[^\\x81\\x40-\\xFC\\xFF]+\\n)|(^\\t)"
, ""
, regular, casesense;
message str(result) + "個の置換を実行しました。";

message "改行を減らすマクロです";
#searchoptionOrg = searchoption;
$searchbufferOrg = searchbuffer;
$replacebufferOrg = replacebuffer;
replaceallfast "(\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n)|"
+ "(\\n\\n\\n\\n\\n\\n\\n\\n\\n)|(\\n\\n\\n\\n\\n\\n\\n\\n)|"
+ "(\\n\\n\\n\\n\\n\\n\\n)|(\\n\\n\\n\\n\\n\\n)|"
+ "(\\n\\n\\n\\n\\n)|(\\n\\n\\n\\n)|(\\n\\n\\n)|(\\n\\n)|\\n"
, "\\n"
, regular;
message str(getresultex(14)) + "個の置換を行いました。";
setsearch $searchbufferOrg,#searchoptionOrg;
setreplace $replacebufferOrg;

question "行頭数字、その後何もない文を削除";
if( result != yes ) {
endmacro;
}
replaceall "^\\d+\\n", "", regular;
message str(result) + "個の置換を実行しました。";

上記３つのマクロを連結して、1つのマクロにするにはどうすればいいですか？1つ目
と2つ目と3つ目の「XXXXX個の置換を行いました」は省いても結構ですが、マクロ終
了後には「置換完了」というメッセージを入れたいです。そして、マクロの開始時に
は「臨床試験マクロ」と表示させたいです。

よろしくお願いします。

RE:29517 マクロの連結方法

秀まるお2 さん　11/02/10 09:14

途中にあるquestion文とmessage文を削除してくっつけるだけでいいと思います．

question "臨床試験整理マクロ";
if( result != yes ) {
endmacro;
}
replaceallfast "(^[^()\\n]*\\([^()\\n]*\\)[^()\\n]*\\([^()\\n]*\\)\\n)|
(^[\\x81\\x40-\\xFC\\xFF]+/[^\\x81\\x40-\\xFC\\xFF\\n/]+\\n)|(^[\\x81\\x40-\
\xFC\\xFF]+\\([\\x81\\x40-\\xFC\\xFF]+）/[^\\x81\\x40-\\xFC\\xFF]+\\n)|(^\\t)"
, ""
, regular, casesense;

#searchoptionOrg = searchoption;
$searchbufferOrg = searchbuffer;
$replacebufferOrg = replacebuffer;
replaceallfast "(\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n)|"
+ "(\\n\\n\\n\\n\\n\\n\\n\\n\\n)|(\\n\\n\\n\\n\\n\\n\\n\\n)|"
+ "(\\n\\n\\n\\n\\n\\n\\n)|(\\n\\n\\n\\n\\n\\n)|"
+ "(\\n\\n\\n\\n\\n)|(\\n\\n\\n\\n)|(\\n\\n\\n)|(\\n\\n)|\\n"
, "\\n"
, regular;
setsearch $searchbufferOrg,#searchoptionOrg;
setreplace $replacebufferOrg;

replaceall "^\\d+\\n", "", regular;
message "置換完了";

RE:29518 マクロの連結方法

eigodono1 さん　11/02/10 12:16

>途中にあるquestion文とmessage文を削除してくっつけるだけでいいと思います．
≪全文引用されていたのでコミュニテックス会議室システムが引用部分を省略処理し
ました。≫
> message "置換完了";

うまくいきました。ありがとうございます。