「位置情報を保存してから「次の文字列を検索」」を編集中 (節単位)

=== 位置情報を保存してから「前の文字列を検索」 ===
<syntaxhighlight lang="javascript" style="height:60em; overflow:auto;">
#title = "位置情報を保存してから「前の文字列を検索」"
#tooltip = "ジャンプ前の位置情報を保存して「前の文字列を検索」する"
#include "include/IO.js"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",221

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

var findNext = false;
  // true   なら「次の文字列を検索（Shift＋Ctrl＋↓）」
  // false  なら「前の文字列を検索（Shift＋Ctrl＋↑）」

var optionEnable = true;
  // true  なら「次の文字列を検索（Shift＋Ctrl＋↓）」コマンドを利用してジャンプ
  //       ※検索ダイアログの「正規表現」以外のオプションが適用される
  // false なら FindRepeat() メソッドを利用してジャンプ
  //       ※検索オプションをリセット（すべて OFF ）する
  //       ※検索ダイアログの履歴に残らない

var highlightEnable = true;
  // true  なら検索文字列の強調表示を残す
  // false なら「検索文字列の強調を解除（Alt＋F3）」する

var jsonName = "FindRepeatInfo";
  // 位置情報保存用ファイルのベース名
  // ※「保存」マクロ（次／前の文字列を検索）と「復帰」マクロで同一の名前を指定すること
  // 保存先は…		（e.g. "FindRepeatInfo" の場合）
  // ・ポータブル版: Mery\Macros\MacroSettings\FindRepeatInfo.json
  // ・インストール版: %AppData%\Mery\MacroSettings\FindRepeatInfo.json

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

var setting = { fileList: [] }
setting = IO.Deserialize( setting, jsonName );	// JSON 読み込み

var d = editor.ActiveDocument,  s = d.selection;
if ( s.IsEmpty ) { s.SelectWord(); }
var word = s.Text;
if ( ! word ) { Quit(); }
var path = d.FullName;	// 「無題-x」のタブは ""
var tx = s.GetActivePointY( mePosLogical );
var sy = ScrollY;

/* 検索開始時点の文字列の位置情報、ヒット件数 */
var wordPos = Math.min( s.GetAnchorPos(), s.GetActivePos() );
var HitStatus = function( docu, str, strPos ) {
  var len = str.length;
  var dText = docu.Text;
  var pos = 0,  hit = 0,  a = [ 0, 0 ];
  while ( pos >= 0 ) {
    pos = dText.indexOf( str, pos );
    if ( pos >= 0 ) {
      hit ++;
      if ( pos == strPos ) { a[0] = hit; }
      pos += len;
    }
  }
  a[1] =  hit;
  return a;
}
var hit = HitStatus( d, word, wordPos );
var hitCount = hit[0];
var hitTotal = hit[1];

if ( findNext ) { FindNextWord(); }
else            { FindPreviousWord(); }

/* 「次の文字列を検索」を実行 */
function FindNextWord() {
  if ( optionEnable ) {
    editor.ExecuteCommandByID( MEID_SEARCH_NEXT_WORD = 2136 );
  }
  else {
    s.Find( "", 0 );	// 検索オプションをリセット
    s.FindRepeat( meFindNext + meFindRepeatWord );
  }
}

/* 「前の文字列を検索」を実行 */
function FindPreviousWord() {
  if ( optionEnable ) {
    editor.ExecuteCommandByID( MEID_SEARCH_PREV_WORD = 2137 );
  }
  else {
    s.Find( "", 0 );	// 検索オプションをリセット
    s.FindRepeat( meFindPrevious + meFindRepeatWord );
  }
}

editor.ActiveDocument.HighlightFind = highlightEnable;
ScrollY = ( ScrollY == sy ) ? sy : s.GetActivePointY( mePosView );

/* フルパス、検索文字列、検索開始時点の文字列の位置、ｎ件目、行番号 */
var list = setting.fileList;
var len = setting.fileList.length;
var infoExist = false;
for ( var i = 0; i < len; i ++ ) {
  if ( setting.fileList[i][0] == path ) {
    infoExist = true;
    setting.fileList[i] = [ path, word, wordPos, hitCount, tx ];
    break;
  }
}
if ( ! infoExist ) {
  setting.fileList.push( [ path, word, wordPos, hitCount, tx ] );
}
try {
  setting = IO.Serialize( setting, jsonName );	// JSON 書き込み
  Status = "  " + hitTotal + " 件中 " + hitCount + " 件目の \""
         + word + "\" の位置を保存しました。";
} catch(e) {
  Status = "  検索開始位置を保存できませんでした。";
}
</syntaxhighlight>