行頭、行末に定型句を挿入するマクロ - 秀丸エディタ関連ソフト会議室 - スレッド17083, 2004/04/15

行頭、行末に定型句を挿入するマクロ

CDF さん　04/04/15 20:47

今日は。
文章の行頭、行末に定型句を挿入するマクロを探しています。

以前より時々、秀丸エディィタを使用し、その際には、引用符挿入マクロ INS_INYO.
LZHを重宝して使っていました。

このマクロを、数百行にわたる文章の各行の行頭と、行末に定型句を挿入するために
使ってきました。目的は、VISUAL BASICの、プロシージャを書くためです。

今月、再び、秀丸エディタを使用することとなり、引用符挿入マクロを使おうと思
ったのですが、私のパソコン内には見あたらず、ニフティのウインドウズフォーラム
（FWINDOWS）で探そうとしたのですが、これも、今月3月31日で閉鎖されていました。
マクロ作者にもメールを送りましたが、メールアドレスは廃止されていました。

マクロライブラリーも見てみたのですが、私には、よくわかりませんでした。

どなたかこれに類するマクロをご存じでしたら、お教えください。

　　　　　　　　　　CDFこと小川正義

RE:17083 行頭、行末に定型句を挿入するマ

山紫水明 さん　04/04/15 21:48

　CDFさん，こんばんは。

》文章の行頭、行末に定型句を挿入するマクロを探しています。
》
》以前より時々、秀丸エディィタを使用し、その際には、引用符挿入マクロ
》 INS_INYO.
》LZHを重宝して使っていました。

　このマクロについては知りませんが，定型句というのはその都度指定するもので
しょうか？　それとも一定の文字列でしょうか？
　とりあえず次のマクロを試してください。

//----------------------------------------------------//
$top = input( "行頭挿入文字" );
if( $top == "" ) endmacro;
$tail = input( "行末挿入文字" );
if( $tail == "" ) endmacro;
replaceallfast "^.+$", $top + "\\0" + $tail, regular;
endmacro;
//----------------------------------------------------//

　では，　(^^)/~
山紫水明（ユーザー）

RE:17084 行頭、行末に定型句を挿入するマ

CDF さん　04/04/16 00:07

山紫水明さん。さっそくお答えいただき、どうもありがとうございます。

>　このマクロについては知りませんが，定型句というのはその都度指定するもので
>しょうか？　それとも一定の文字列でしょうか？
>　とりあえず次のマクロを試してください。

>//----------------------------------------------------//
>$top = input( "行頭挿入文字" );
>if( $top == "" ) endmacro;
>$tail = input( "行末挿入文字" );
>if( $tail == "" ) endmacro;
>replaceallfast "^.+$", $top + "\\0" + $tail, regular;
>endmacro;
>//----------------------------------------------------//

定型句というのは次のようなものです。

if text1 = "" then List1.AddItem "
if text8 = "" then text3 = "

このような命令文が、全てあわせると、千行以上あります。こんな作業は、手作業で
はやってられません。
""の間には、アルファベット、あるいは数字を後で自分で記入します。

完成した命令文は、たとえば、次のようなものになります。

If text1 = "10" then List1.AddItem "写真"

if text8 = "211" then text3 = "写真"
if text8 = "211" then text5 = "10"

言われたマクロを実行してみました。引用符挿入マクロと同じ結果を得ることが出
来ました。

助かりました。どうもありがとうございました。

　　　　　　　　　　　　　　　CDF