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

=== 保存された位置情報でジャンプ（復帰） ===
<syntaxhighlight lang="javascript" style="height:60em; overflow:auto;">
#title = "保存された位置情報でジャンプ（復帰）"
#tooltip = "「次／前の文字列を検索」マクロで保存された位置に復帰する"
#include "include/IO.js"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",225

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

var altPos = true;
  // 「保存された位置」に「保存された文字列」がなかったときの代替処理方法
  // true  なら「保存された位置」に最寄の「保存された文字列」の位置にジャンプ
  // false なら「保存された文字列」があったはずの行番号にジャンプ

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

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

var setting = { fileList: [] }
setting = IO.Deserialize( setting, "FindRepeatInfo" );	// JSON 読み込み
var list = setting.fileList;
var len = list.length;
var d = editor.ActiveDocument,  s = d.selection;
var path = d.FullName;
var fileInfo;
for ( var i = 0; i < len; i ++ ) {
  /* fileList[i] = [ "フルパス"、"検索文字列"、文字列の位置、ｎ件目、行番号 ] */
  fileInfo = setting.fileList[i];

  /* JSON に位置情報があれば… */
  if ( fileInfo[0] == path ) {
    var dt = d.Text,  word = fileInfo[1];  targetPos = fileInfo[2];
    len = word.length;

    /* ① 保存された「位置」に「文字列」がそのままあれば、そこにジャンプする */
    if ( dt.substr( targetPos ).indexOf( word ) == 0 ) {
      s.SetActivePos( targetPos );
      s.SetActivePos( targetPos + len, true );
      Status = "  保存された位置にジャンプ";
    }

    /* 保存された「位置」に保存した「文字列」がなければ… */
    else if ( altPos ) {
      /* ②-1 「ｎ件目」の「文字列」を検索してジャンプする */
      var tmp = 0,  pos = 0,  hit = 0;
      while ( hit < fileInfo[3] ) {
        tmp = dt.indexOf( word, pos );
        if ( tmp == -1 ) { break; }
        else {
          pos = tmp + len;
          hit ++;
        }
      }
      if ( dt.substr( pos - len ).indexOf( word ) == 0 ) {
        s.SetActivePos( pos - len );
        s.SetAnchorPos( pos );
        Status = "  " + hit + " 件目の \"" + word + "\" の位置にジャンプ";
      }
      /* ③ 「ｎ件目」にあたる「文字列」がなければ、さいごの「文字列」の位置にジャンプする */
      else if ( dt.lastIndexOf( word ) >= 0 ) {
        pos = dt.lastIndexOf( word );
        s.SetActivePos( pos );
        s.SetAnchorPos( pos + len );
        Status = "  さいごの \"" + word + "\" の位置にジャンプ";
      }
      /* ④ 文書全体に「保存された文字列」がなければジャンプしない */
      else {
        Status = "  \"" + word + "\" が見つかりませんでした。";
      }
    }

    /* ②-2 「保存された文字列」があったはずの行番号にジャンプする */
    else {
      s.SetActivePoint( mePosLogical, 1, fileInfo[4] );
      Status = "  保存された行番号にジャンプ";
    }

    break;
  }
}
</syntaxhighlight>