マクロで実現するとすればこんな感じでしょうか、自動と手動前・後の 3パターンです。
lljump.jsee
#title = "前後の連番文書を開く"
/*
カーソル位置が文頭か文末だったとき、
アクティブな文書のファイル名最後の数字を増減させたファイルを開く。
カーソルが文頭だったとき 数字-1 の文末
カーソルが文末だったとき 数字+1 の文頭
文頭=文末の場合は文頭処理優先
想定したパターンは
'1',,,'9','10',,,
'001',,,'009','010',,,
数値の文字列長さが不揃いな物は想定していない。ex., '00001', '2', '03'
*/
var topPrev = -1;
var yPos = document.selection.GetActivePointY( eePosLogical );
if( yPos != 1 ){
if( yPos != document.GetLines() ) Quit();
topPrev = 1;
}
var strName = document.Name;
var baseName = strName.match( /^(.*)\.(.*?)$/ );
var numMatch = baseName[1].match( /^(.*?)(\d+)([^\d]*?)$/ ); // ファイル名末尾の数字
if( numMatch.length != 4 ) Quit();
var num = 1 * numMatch[2]; // alert( 0 + "1" ); // Jscript だと 0 + "1" -> '01'
if( num == 0 && topPrev == -1 ) Quit(); // 0 より前はブロック
num = String( num + topPrev );
while( num.length < numMatch[2].length ){
num = "0" + num;
}
var fileName = numMatch[1] + num + numMatch[3] + "." + baseName[2];
var filePath = document.Path + "\\" + fileName;
var FSO = new ActiveXObject( "Scripting.FileSystemObject" );
if( FSO.FileExists( filePath ) ){
editor.OpenFile( filePath );
editor.ExecuteCommandByID( (topPrev == -1)? 4169 : 4168 ); // EEID_BOTTOM (4169), EEID_TOP (4168)
Quit();
}
// 先頭の "0" を一つだけ減らして再確認
if( num.substr(0,1) != "0" ) Quit();
num = num.substr(1);
fileName = numMatch[1] + num + numMatch[3] + "." + baseName[2];
filePath = document.Path + "\\" + fileName;
if( FSO.FileExists( filePath ) ){
editor.OpenFile( filePath );
editor.ExecuteCommandByID( (topPrev == -1)? 4169 : 4168 );
}
lljump_pre.jsee
#title = "連番-1 の文書を開く"
/*
アクティブな文書のファイル名最後の数字を1減させたファイル文末を開く。
想定したパターンは
'1',,,'9','10',,,
'001',,,'009','010',,,
数値の文字列長さが不揃いな物は想定していない。ex., '00001', '2', '03'
*/
var strName = document.Name;
var baseName = strName.match( /^(.*)\.(.*?)$/ );
var numMatch = baseName[1].match( /^(.*?)(\d+)([^\d]*?)$/ ); // ファイル名末尾の数字
if( numMatch.length != 4 ) Quit();
var num = 1 * numMatch[2];
if( num == 0 ) Quit(); // 0 より前はブロック
num = String( num - 1 );
while( num.length < numMatch[2].length ){
num = "0" + num;
}
var fileName = numMatch[1] + num + numMatch[3] + "." + baseName[2];
var filePath = document.Path + "\\" + fileName;
var FSO = new ActiveXObject( "Scripting.FileSystemObject" );
if( FSO.FileExists( filePath ) ){
editor.OpenFile( filePath );
document.selection.EndOfDocument();
Quit();
}
// 先頭の "0" を一つだけ減らして再確認
if( num.substr(0,1) != "0" ) Quit();
num = num.substr(1);
fileName = numMatch[1] + num + numMatch[3] + "." + baseName[2];
filePath = document.Path + "\\" + fileName;
if( FSO.FileExists( filePath ) ){
editor.OpenFile( filePath );
document.selection.EndOfDocument();
}
lljump_succ.jsee
#title = "連番+1 の文書を開く"
/*
アクティブな文書のファイル名最後の数字を 1増させたファイル文頭を開く。
想定したパターンは
'1',,,'9','10',,,
'001',,,'009','010',,,
数値の文字列長さが不揃いな物は想定していない。ex., '00001', '2', '03'
*/
var strName = document.Name;
var baseName = strName.match( /^(.*)\.(.*?)$/ );
var numMatch = baseName[1].match( /^(.*?)(\d+)([^\d]*?)$/ ); // ファイル名末尾の数字
if( numMatch.length != 4 ) Quit();
var num = 1 * numMatch[2];
num = String( num + 1 );
while( num.length < numMatch[2].length ){
num = "0" + num;
}
var fileName = numMatch[1] + num + numMatch[3] + "." + baseName[2];
var filePath = document.Path + "\\" + fileName;
var FSO = new ActiveXObject( "Scripting.FileSystemObject" );
if( FSO.FileExists( filePath ) ){
editor.OpenFile( filePath );
document.selection.StartOfDocument();
Quit();
}
lljump_pre.jsee, lljump_succ.jsee を実行するか 、
カーソルを文末文頭へ移動させて、lljump.jsee を実行すれば期待する動作に近い応答をすると思います。
ファイル名の末尾から見て最初の数字を対象にするので '旅行1日目.txt' でも可能です。
標準では割り当てられていない Ctrl+Shift+(PageUp,PageDown) に lljump_pre.jsee, lljump_succ.jsee を割り当てると便利になるかと思います。
- 現状未対応な物
ゼロパディング以外のパターン " 1",," 10", "__1",,"_10"
全角の数字、漢字の数字、1st,2nd など