| |
こんにちは“YU”さん、白雲斎です。
双方とも、対象フォルダのファイル上でマクロ実行のこと。
対象ファイルのエンコードが
Shift_JIS限定なら：
------------------------------------------------------------
$output = "merge.txt";
runsync getenv("ComSpec") + " /c copy *.txt " + $output;
openfile $output;
endmacro;
------------------------------------------------------------
Shift_JIS以外か、統一されていない場合：
※エンコードの自動判定が上手くいかなかった場合の検証なし
------------------------------------------------------------
$sb = searchbuffer;
#so = searchoption;
$rb = replacebuffer;
openfile "/h /gCWrZUoF,\"*.txt\",.";
if( linecount2 <= 2 ) quit;
replaceallfast "\\([0-9]+\\)$", "", regular, nohilight;
gofiletop;
#i = 0;
while( code != eof )
{
$fnames[#i] = gettext2(0, lineno, linelen2, lineno);
#i = #i + 1;
movetolineno 1, lineno + 1;
}
selectall;
delete;
#j = 0;
while( #j < #i )
{
insertfile $fnames[#j];
if( code == eof ) insert "\n";
#j = #j + 1;
}
gofiletop;
changename "";
showwindow 1;
setsearch $sb, #so;
setreplace $rb;
SAVEAS;
endmacro;
------------------------------------------------------------
|
|