| |
>>TXTファイルを任意の文字数、もしくはバイト数により分割、ないしは改ページ設定
>>する事は可能でしょうか？
以前に個人用途で文字数分割をするマクロを作ったことがありますので、そのときの
コードを乗せておきます。
バイト単位は残念ながらありません。
//----
#fepMode = imestate;
if (#fepMode) {
imeswitch;
}
#devideLength = val(input( "分割文字数を半角数字で入力してください。\n(単位:
文字数)"));
if (#fepMode) {
imeswitch;
}
if (#devideLength < 1) {
message ("分割文字数の指定が正しくありません。");
endmacro;
}
#hRootHidemaru = hidemaruhandle(0);
$fileExt = filetype;
$fileName = leftstr(basename2, strlen(basename2) - strlen($ext));
#num = 0;
gofiletop;
#flag = 1;
while (#flag) {
#num = #num + 1;
$devidedName = $fileName + "_" + str( #num ) + $fileExt;
beginsel;
right #devideLength;
copy2;
openfile "/h";
paste;
gofileend;
if (x || y) {
saveas $devidedName;
setactivehidemaru #hRootHidemaru;
#hHidemaru = hidemaruhandle(findhidemaru($devidedName));
} else {
#hHidemaru = hidemaruhandle(0);
setactivehidemaru #hRootHidemaru;
}
closehidemaruforced(#hHidemaru);
endsel;
#xx = x; #yy = y;
right #devideLength;
#flag = result;
moveto #xx, #yy;
}
message("分割処理が終了しました。");
|
|