ポップアップメニューで検索先にジャンプ

概要

ポップアップメニューで検索にヒットした箇所へジャンプできます。

手石 版

機能

• 選択した文字列（選択していないときはカーソルのある語）を検索します。
• ヒットした行をポップアップメニューに表示し、選択するとその行へジャンプします。
• 同一行にヒットする箇所が複数あったときは最初のヒット箇所にジャンプします。
• 検索文字列の強調解除は、変更していなければ「Alt＋F3」です。

コード (手石 版)

// pooupJump.js
// 2014/04/04

var sel = document.selection
if ( sel.isEmpty ){ sel.SelectWord(); };
var s = sel.Text;
var ty = sel.GetTopPointY( mePosView );
var p = sel.GetActivePos();
sel.Find( s, meFindNext + meFindAround );
sel.SetActivePos( p );

// ポップアップメニューでジャンプ先リスト
var menu_width = 66;
if ( "\t .,;:(){}[]+-=\"\\".indexOf( s ) < 0 && s.length > 0 ){
    var menu = CreatePopupMenu();
    var ary = [];
    for( var i = 0, n = document.GetLines( meGetLineView ); i < n ; i++ ){
        ary.push( document.GetLine( i+1, meGetLineView ));
    };
    var p = 0;
    for( var i = 0, n = ary.length; i < n ; i++ ){
        if ( ary[i].toLowerCase().indexOf( s.toLowerCase() ) >= 0 ){
            var item = ary[i].replace( /^\s*|\t/g, "" )
            item = ( item.length > menu_width + 1 )? item.slice( 0, menu_width ) + "..." : item ;
            var flags = ( (i+1) == ty )? meMenuChecked : 0 ; // meMenuGrayed  
            menu.Add( ( "    " + (i + 1) ).slice( -4 ) + " ： " + item, i + 1, flags );
            p++;
        };
    };
    if ( p > 1 ){ // ポップアップメニューを表示するのは、検索ヒット行が複数のとき。
        var r = menu.Track( mePosMouse );  // mePosMouse 
        if ( r > 0 ){
            var line = document.GetLine( r, meGetLineView );
            sel.SetActivePoint( mePosView, line.indexOf( s ) + s.length + 1, r, false );
            sel.CharLeft( true, s.length );
            ScrollY = r-10;
        };
    };
};

履歴

• 2014/04/04 初版

その他

• 不具合があったら教えていただけると幸いです。

sukemaru 版

手石版のソースコードをベースにして、自分好みにカスタマイズしました。
機能にあげられている部分はそのまま流用・踏襲しています。

変更点

手石版からの変更点

• エディタ設定の「行の表示方法」にあわせられるように、ポップアップメニューに表示する行番号は表示行／論理行を選択できます（ソースコード内の変数で設定）。
• 検索文字列がほかの行でヒットしなかった場合や、ポップアップメニューからジャンプしなかった（キャンセル）場合に、検索履歴に残さないようにしました。
  そのさい、マクロの実行前に選択範囲なしだったときは単語選択もキャンセルします。
• 検索文字列の強調表示を解除できます（ソースコード内の変数で設定）。

ダウンロード (sukemaru 版)

ダウンロード： 「ファイル:ジャンプ.zip (アイコン入り)」 (2018/11/14)

以下のマクロと、それぞれの専用の「マテリアルデザインっぽいアイコン」を同梱してあります。
「ジャンプ」の下の3点は『小マクロ集』にソースコードを置いてあります。

• ジャンプ（ポップアップメニューで検索先にジャンプ）
• 次の文字列を検索 (強調なし)
• 前の文字列を検索 (強調なし)
• 検索強調を解除

コード (sukemaru 版)

#title = "ジャンプ"
#tooltip = "ポップアップメニューで検索先にジャンプ"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",229

/**
 * ------------------------------------------------------------
 * "ポップアップメニューで検索先にジャンプ"
 * pooupJump.js	
 * Original Copyright: 手石 (2014/04/04)
 * ------------------------------------------------------------
 * Modified by: sukemaru (2018/11/12 - 2018/11/14)
 * ------------------------------------------------------------
 */

// ■行の表示方法 （論理座標なら 0; ／表示座標なら 1; ）
var lineUnit = 0;

// ■検索文字列の強調表示を残すか？ （残すなら true; ／残さないなら false; ）
var highlightEnable = true;

// ■ポップアップメニューに表示する文字数
var menuWidth = 66;


var d = document
var s = document.selection
if ( s.IsEmpty ) {	// 選択範囲なしならカーソル位置の単語を選択
  var p = s.GetActivePos();
  s.SelectWord();
}
var st = s.Text;	// 検索文字列
var ty = ( lineUnit ) ? s.GetTopPointY( mePosView )
                      : s.GetTopPointY( mePosLogical );
var lines = ( lineUnit ) ? d.GetLines( meGetLineView )
                         : d.GetLines( 0 );

// ポップアップメニューでジャンプ先リスト
if ( "\n\t .,;:(){}[]+-=\"\\".indexOf( st ) < 0 && st.length > 0 ) {
  // 文書全体を行単位で分割
  if ( lineUnit ) {
    var a = [];
    for( var i = 0; i <= lines ; i ++ )
      a.push( d.GetLine( i, meGetLineView ) );
  }
  else {
    var a = d.Text.split( "\n" );
    a.unshift( "" );
  }
  // 検索文字列がヒットした行をポップアップメニューのアイテムとして取得する
  var m = CreatePopupMenu();
  var h = 0;	// ヒットした行数
  for( var i = 0; i < a.length; i ++ ) {	// a[0] = 空要素、i = 行番号
    if ( a[i].toLowerCase().indexOf( st.toLowerCase() ) >= 0 ) {
      // 行頭空白は除去、空白文字は半角スペースに置換、文字数を圧縮して取得
      var label = a[i].replace( /^\s+/, "" ).replace( /\s+/g, "  " );
      label = ( label.length > menuWidth + 1 ) ? label.slice( 0, menuWidth ) + "..." : label;
      var flags = ( i == ty ) ? meMenuChecked : 0;	// + meMenuGrayed
      m.Add( ( "    " + i ).slice( -4 ) + " ： " + label, i, flags );
      h ++;
    }
  }
  // ポップアップメニューを表示するのは、検索ヒット行が複数のとき
  if ( h > 1 ) {
    var y = m.Track( mePosMouse );	// Track( 0 ) ならキャレット位置にポップアップ
    if ( y > 0 ) {
      // 選択した行番号にジャンプして検索文字列を選択
      if ( lineUnit )  s.SetActivePoint( mePosView, 1, y );
      else             s.SetActivePoint( mePosLogical, 1, y );
      s.Find( st, meFindNext );
      p = 0;
      d.HighlightFind = highlightEnable;	// 検索文字列の強調を解除
    }
  }
  // ほかの行でヒットしなかったとき
  else
    Status = "ほかの行に　" + st + "　は見つかりませんでした　　（ "
           + lines.toLocaleString().replace( /\.00$/, "" ) + " 行 ）";
}
var pos = ( lineUnit ) ? s.GetActivePointY( mePosView )
                       : s.GetActivePointY( mePosLogical );
if ( p && pos == ty )    s.SetActivePos( p );	// 単語選択を解除

メモ

• (2018/11/12 sukemaru)

Get/SetActivePoint() や GetLines() のオプションパラメータ（ mePosView や meGetLineView ）を変数にすると機能しなくなるようで条件文 if ( lineUnit ) や ( lineUnit ) ? : をひとつひとつ書かかざるをえず、余計に長くなってしまいました。

• (2018/11/14 sukemaru)

・ZIP の「ジャンプ.js」がソースコードのものより古い版だったので差し替えました。

・11/12 のソースコードでは表示行だと最終行を取得しなかったので修正しました。