次／前の文字列を検索・改

機能

ショートカットキー [ Ctrl＋Shift＋ ↓ または ↑ ] の機能「次／前の文字列を検索」コマンドをカスタマイズしたマクロです。

選択範囲が改行をふくむ複数行（論理行）のばあいでも「次／前の文字列を検索」と同様のジャンプ機能を実現する目論見です。

設定項目

設定項目： findNext

• "Next" なら「次（下）の文字列を検索」
• "Prev" なら「前（上）の文字列を検索」

※ 実際のところ "Next"、"Down"、true、1 のいずれかなら「次」、それ以外の値なら「前」になるようにしてあります。

設定項目： optionEnable

「検索」ダイアログのオプションフラグを使用するかしないかを指定します（優先オプション）。

• true なら、カスタマイズなしで、ショートカットキー [ Ctrl＋Shift＋ ↓ / ↑ ] の機能そのままに「次／前の文字列を検索」のジャンプを実行します。

[ Ctrl＋Shift＋ ↓ / ↑ ] の機能そのままでツールバーにマクロのアイコンを登録したい場合は、true にしてください。

※「検索」ダイアログのオプションフラグ「大文字と小文字を区別する」や「文末まで検索したら文頭に移動する」が適用されます。

※ ジャンプした後も、「検索」ダイアログに検索文字列の履歴が残ります。

• false なら、「検索」ダイアログのオプションフラグを一度リセットしてから「次／前の文字列を検索」と同様のジャンプを実行します。

※ リセット（解除）されるオプションフラグは、以下の４項目です。

• 「大文字と小文字を区別する」
• 「正規表現を使用する」
• 「単語のみを検索する」
• 「文末まで検索したら文頭に移動する」

※「大文字と小文字を区別する」「文末まで検索したら文頭に移動する」については、べつの変数をもうけて再設定可能にしてあります。

※「終了したら閉じる」と、ベータ版 2.6.10 で追加された「インクリメンタルサーチ」のオプションフラグは解除されません。

※ ジャンプの後、「検索」ダイアログのオプションフラグは、マクロ実行前の状態に復旧されません。

※ ジャンプの後、「検索」ダイアログに検索文字列の履歴を残しません。

※「検索」ダイアログに検索文字列の最新の履歴は空になるので、「次を検索 (F3)」と「前を検索 (Shift+F3)」に影響します。

設定項目： highlightEnable

ジャンプした後に「検索文字列の強調表示」を残すかどうかを指定します。

• true なら、検索した文字列はハイライト状態のまま残ります。

※「検索文字列の強調を解除」のショートカットキーは [Alt＋F3] ですので、任意のタイミングで手動で解除してください。

• false なら、検索した文字列のハイライトを残しません。

※ 自動マーカーが有効なら自動マーカーによる強調表示は残りますので、「検索文字列の強調表示」を手動で解除するのが面倒な人は false にしてください。

設定項目： hitCountEnable

マクロ「検索ヒット数表示（選択文字列）#機能強化バージョン」の組み込み関数で、検索文字列の出現回数をステータスバーに表示させるかをしていします。

• true なら、検索ヒット数を表示します。

※ ヒット数のカウント方式は Mery 標準の検索メソッドにあわせてあります。

• false なら、検索ヒット数を表示しません。

※ 別途で「検索ヒット数表示」マクロのような「選択範囲が変更された時」にステータス表示するイベントマクロを使用している場合は false にしてください。
ジャンプ後に「選択範囲が変更された時」のイベントを発生させるので、イベントマクロと連携できるようになります。

---

▼ optionEnable = false のとき ▼

設定項目： findAroundEnable

• true なら、「文末まで検索したら文頭に移動する」オプションを有効化して、「次／前の文字列を検索」と同様のジャンプ機能を実行できます。

※ ジャンプ後も「検索／置換」ダイアログ内の「文末まで検索したら文頭に移動する」オプションは有効化されたままになります。

設定項目： matchCaseEnable

• true なら、「大文字と小文字を区別する」オプションを有効化して「次／前の文字列を検索」と同様のジャンプ機能を実行できます。

※ ジャンプ後も「検索／置換」ダイアログ内の「大文字と小文字を区別する」オプションは有効化されたままになります。

設定項目： multiLinesEnable

選択範囲が改行をふくむ複数行のばあいでも「次／前の文字列を検索」と同様のジャンプを可能にするための独自オプションです。
multiLinesEnable = true でも選択範囲が改行をふくまない１行内（論理行）であれば、optionEnable = false の説明内容でジャンプを実行します。

• true なら、選択範囲が複数行でも「次／前の文字列を検索」と同様のジャンプができます。

※ 選択範囲が改行記号をふくむ複数行の状態からジャンプしたばあいは、highlightEnable = true であっても「検索文字列の強調表示」は残りません（Mery 本体の仕様上の都合）。

• false で選択範囲が複数行だったばあいは、選択範囲はいったん解除され、キャレット付近の単語を自動選択して「次／前の文字列を検索」と同様のジャンプをします。

ダウンロード

ダウンロード　>>　「ファイル:次／前の文字列を検索・改.zip」（アイコン入り）

ソースコード

• 2019/09/07（第１版）
• 2019/09/09（第２版）

検索方向「次／前」を変数で指定

検索ヒット数のステータス表示機能を追加

ソースコードが長くなったので、ZIP 書庫をアップロード

#title="次／前の文字列を検索"
#tooltip = "次／前の文字列を検索・改"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",124

// ▲ 「次／前」の部分を直してからマクロを登録すること ▲
// 「マテリアルデザインっぽいアイコン」のインデックスは、次 = 124 ／ 前 = 125

/**
 * ----------------------------------------------
 * 「次／前の文字列を検索・改」
 * sukemaru, (2018/07/19 - 2019/09/09)
 * ----------------------------------------------
 * 「次／前の文字列を検索」機能をカスタマイズ
 * 
 * ・検索強調なし、検索履歴なしでジャンプ可
 * ・複数行選択からの検索ジャンプに対応
 * ・「検索ヒット数表示（選択文字列）」マクロ（機能強化版）の関数を移植して
 *    ヒット数をステータス表示できるようにした
 * 
 * → 推奨： ショートカット [ Shift＋Ctrl＋ ↓ / ↑ ] に登録して置きかえる
 * 
 * ※ 複数行選択でジャンプした場合は、強制的に「検索強調なし」「検索履歴なし」
 * ※「検索履歴なし」では、最新の履歴が "空" になる
 * ※ 実行後は「検索／置換」ダイアログ内の「正規表現」オプションは OFF になる
 */

// ---------- ▼ 設定項目 ▼ ----------

// ■ 検索する方向 ( 次: "Next" ／ 前: "Prev" )
var findNext = "Next";


/* optionEnable, highlightEnable 両方を false にすると、検索履歴に残さない */

var optionEnable = false;		// 推奨: false
  // true  なら、検索ダイアログの「正規表現」以外のオプションが適用される
  // false なら、検索オプションをリセットする// 推奨: false
  // ※「終了したら閉じる」と、ベータ版 2.6.10 で追加された「インクリメンタルサーチ」のオプションフラグは解除されない

var highlightEnable = true;
  // true  なら、検索文字列の強調を残す
  // false なら、検索文字列の強調を解除する

var hitCountEnable = true;
  // true  なら、検索文字列の出現回数をステータスバーに表示する
  // false なら、検索ヒット数をステータスバーに表示しない
  // ※ 別途で「選択範囲が変更された時」にステータス表示するイベントマクロを使用するなら false に


/* ▼ optionEnable = false のとき ▼ */

  var findAroundEnable = true;
    // true  なら、文末まで検索したら文頭に移動する
    // false なら、文末まで検索したらストップ
    // ※ true の場合、ジャンプ後も検索ダイアログの「文末まで検索したら文頭に移動する」は ON のままにする

  var matchCaseEnable = false;
    // true  なら、大文字と小文字を区別する
    // false なら、大文字と小文字を区別しない
    // ※ true の場合、ジャンプ後も検索ダイアログの「大文字と小文字を区別する」は ON のままにする

  var multiLinesEnable = true;		// 推奨: true
    // true  なら、複数行選択から検索（検索強調なし、履歴なし）できる
    // false なら、複数行選択から検索しない
    // ※ true でも、選択範囲が１行内なら highlightEnable = true/false を適用
    // ※ false で複数行選択のときは、キャレット位置の単語を自動選択して検索

// ---------- ▲ 設定項目 ▲ ----------


var d  = editor.ActiveDocument;
var s  = d.selection;
var st = s.Text;
var sy = ScrollY;
var direction = /next|down|true|1/i.test( String( findNext ) )
              ? 1 : 0;

// 検索オプションを適用して検索する場合	※「次／前の文字列を検索」コマンド
if ( optionEnable ) {
  editor.ExecuteCommandByID( 2137 - direction );
  // MEID_SEARCH_NEXT_WORD = 2136
  // MEID_SEARCH_PREV_WORD = 2137
}

// 検索オプションをリセットして検索する場合
else {
  var findAround = findAroundEnable ? meFindAround : 0;
  var matchCase  = matchCaseEnable ? meFindReplaceCase : 0;
  var multiLines = ( multiLinesEnable && st.indexOf( "\n" ) > -1 );

  // 複数行選択では正規表現で検索
  if ( multiLines ) {
    s.Find( st.replace( /\W/g, "\\$&" ),
            direction + findAround + matchCase + meFindReplaceRegExp );
  }

  // １行内の範囲選択または単語自動選択からの検索
  else {
    // 検索オプションをリセットして「次／前の文字列を検索」
    s.Find( "", findAround + matchCase );
    s.FindRepeat( direction + meFindRepeatWord );
  }

  // 検索文字列を検索履歴から消す
  if ( multiLines || ! highlightEnable ) {
    s.Find( "", findAround + matchCase );
  }
}

// 検索強調表示の有無
d.HighlightFind = highlightEnable;

// スクロール位置を調整
ScrollY = ( ScrollY == sy ) ? sy : s.GetActivePointY( mePosView );

if ( st && hitCountEnable ) {
  // 検索ヒット数をステータス表示
  Status += "  " + HitStatus( s.Text, d.Text, matchCase, false );
}
else {
  // 選択範囲変更イベントを発生させる
  var anc = s.GetAnchorPos(), act = s.GetActivePos();
  s.SetActivePos( anc ), s.SetActivePos( act, true );
}


/**
 * 関数 HitStatus( strSelection, strDocuText, matchCase, countMinimum )
 * 選択文字列の出現回数を返す
 * ※ 変数 s はグローバルスコープの Document.Selection
 * https://www.haijin-boys.com/wiki/検索ヒット数表示（選択文字列）#機能強化バージョン
 */
function HitStatus( word, docu, matchCase, countMinimum ) {
  var word = matchCase ? word : word.toLowerCase();
  var docu = matchCase ? docu : docu.toLowerCase();
  var len = word.length;
  var tPos = Math.min( s.GetActivePos(), s.GetAnchorPos() );
  var pos = 0,  count = 0,  hit = 0;
  while ( pos >= 0 ) {
    pos = docu.indexOf( word, pos );
    if ( pos >= 0 ) {
      count ++;
      if ( pos == tPos ) {
        hit = count;
      }
      pos += countMinimum ? len : 1;
    }
  }
  word = docu = "";
  var SeparateNum = function( str ) {
    return str.replace( /(\d)(?=(?:\d{3})+[^\d])/g, "$1," );
  }
  return SeparateNum( "ヒット数：" + count + " 件"
           + " ( " + hit + " 件目 ) " );
}

メモ

個人的な覚え書き のページに FindRepeat メソッド で「大文字と小文字を区別」や「末尾まで検索したら先頭から検索」オプションを使うために Find メソッド を併用する方法の説明を書いています。(sukemaru)