| |
追伸です。ファイル名の処理に少し問題がありました。とりあえず次のように
修正します。
//--------------------------------------------------//
//任意の個数にファイルを分割
//対象ファイルの上で実行
#handle = hidemaruhandle( 0 );
$base = leftstr( basename2, strlen(basename) - strlen(filetype) );
$ext = filetype;
#linenum = linecount2;
#ime = imestate;
if( #ime ) imeswitch;
#divide = val( input( "分割数は？") );
if( #ime ) imeswitch;
if( #divide < 2 ) endmacro;
if( #divide > #linenum ) {
message "分割できません";
endmacro;
}
#unit = #linenum / #divide;
disabledraw;
gofiletop;
#i = 1;
while( #i <= #divide ) {
beginsel;
if( #i == #divide ) gofileend;
else movetolineno 1, #unit * #i + 1;
copy;
openfile "/h";
paste;
saveas $base + "_" + str( #i ) + $ext;
setactivehidemaru #handle;
#i = #i + 1;
}
endmacro;
//--------------------------------------------------//
では， (^^)/~
山紫水明
|
|