| |
sylpheedさん，こんばんは。
》ファイルの拡張子のところなんですが、フォルダ（パス）も指定して実行という
》場合はどうすればよいでしょうか？
》あとできれば、最初にマクロを実行するか否か聞くようになるといいのですが
次のではどうでしょう。
＃それから，相手の引用は必要最小限にしましょう。読みづらいし，サーバに余分
な負担をかけます。
//------------------------------------------------//
// 複数ファイルの指定行に指定文字列を挿入するマクロ
// 目的のファイルの一つを開いて実行
question "挿入マクロを実行しますか？";
if( result == no ) endmacro;
$s = input( "挿入文字列は？" );
if( $s == "" ) endmacro;
#ime = imestate;
if( #ime ) imeswitch;
#line = val( input( "挿入する行は" ) );
$folder = input( "指定フォルダは", directory );
$ext = input( "ファイルの拡張子は", ".txt" );
$file0 = filename;
#handle0 = hidemaruhandle( 0 );
grep ".", "*" + $ext, $folder, regular, filelist;
replaceallfast "\\(1\\)\\n", "\\n", regular;
#handle_g = hidemaruhandle( 0 );
#c = linecount2 - 1;
gofiletop;
while( #i < #c ) {
golinetop2;
beginsel;
golineend2;
$f = gettext( seltopx, seltopy, selendx, selendy );
openfile $folder + "\\" + $f;
#handle1 = hidemaruhandle( 0 );
movetolineno 1, #line;
insert $s + "\n";
question "保存しますか？";
if( result ) save;
#i = #i + 1;
setactivehidemaru #handle_g;
closehidemaruforced #handle1;
movetolineno 1, lineno + 1;
}
openfile $file0;
closehidemaruforced #handle_g;
if( #ime ) imeswitch;
endmacro;
//------------------------------------------------//
では， (^^)/~
山紫水明
|
|