タグジャンプ
いわゆるタグジャンプを行います。
ジャンプ元文書が保存済みであれば、相対パスであっても移動できるかと思います。
c:\abc\def.ghi(123): ○○
..\..\abc\def.ghi(123): ○○
のような行にカーソルを合わせ実行すると、そのファイルを開きカッコ内で指定された行に移動します。
// タグジャンプ
// NYSL
// ファイルパスからドキュメントを開く
function FindDocument( path )
{
path = path.toUpperCase();
var docs = Editor.Documents;
var count = docs.Count;
for( var i = 0 ; i < Editors.Count ; ++i ){
var docs = Editors.Item(i).Documents;
var count = docs.Count;
for( var j = 0 ; j < count ; ++j ){
var doc = docs.Item(j);
if( doc ){
if( doc.FullName.toUpperCase() == path ){
return doc;
}
}
}
}
return null;
}
// カーソル行からファイルパスと行番号検索
var line = Document.GetLine( Document.selection.GetActivePointY(mePosLogical) );
var matched = line.match( /^\s*(.+)\((\d+)\):/ );
if( matched && matched.length >= 3 ){
var path = matched[1];
var fso = new ActiveXObject( 'Scripting.FileSystemObject' );
// フルパスへ変換
var dir = Document.Path;
if( dir && dir.length > 0 ){
var shell = new ActiveXObject( "WScript.Shell" );
var prev = shell.CurrentDirectory;
shell.CurrentDirectory = dir;
path = fso.GetAbsolutePathName( path );
shell.CurrentDirectory = prev;
}
var doc = FindDocument( path );
if( doc ){
// 既に開かれてるならアクティブにする
doc.Activate();
}else if( fso.FileExists( path ) ){
// まだ開いてないなら開く
Editor.NewFile();
if( Editor.EnableTab ){
Editor.OpenFile( path );
} else {
Editors.Item(Editors.Count-1).OpenFile( path );
}
doc = FindDocument( path );
}
// 指定行に移動
if( doc ){
doc.selection.SetActivePoint( mePosLogical, 1, matched[2], false );
}
}
スポンサーリンク