タグジャンプ

提供: MeryWiki
移動先: 案内検索

いわゆるタグジャンプを行います。
ジャンプ元文書が保存済みであれば、相対パスであっても移動できるかと思います。

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 );
	}
}