「位置情報を保存してから「すべて選択／選択解除」(非スクロール)」を編集中 (節単位)

=== ソースコード ===
<syntaxhighlight lang="javascript" style="height:60em; overflow:auto;">
#title = "位置を復帰／保存"
#tooltip = "選択範囲（カーソル位置）を復帰 または 位置情報を保存"
#include "include/IO.js"
// #icon = "arrows_swap_vertical[1].ico"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",224

/**
 * ---------------------------------------------------------
 * 【include 版】位置を復帰／保存
 *  sukemaru, 2019/11/13 - 2020/11/01
 * ---------------------------------------------------------
 * 要：include ライブラリ
 * 要: GetKeyState.exe
 * 
 * ※ 能書きはソースコード末尾のコメントブロックに。
 */

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

// ■ 位置情報の保存用ファイルのベース名
var jsonName = "位置情報を保存";

  // ※ ｢すべて選択｣ ｢選択解除｣ ｢位置を復帰｣ マクロで同一の名前を指定すること
  // 保存先は…		（e.g. "位置情報を保存" の場合）
  // ・ポータブル版: Mery\Macros\MacroSettings\位置情報を保存.json
  // ・インストール版: %AppData%\Mery\MacroSettings\位置情報を保存.json


// ■ GetKeyState.exe のフルパスを指定する場合（ \ 記号はふたつがさね「\\」で）
// 未指定 "" なら、Mery インストールフォルダの Macros\GetKeyState.exe
var gksPath = "";	// ※ GetKeyState.exe なしのときも "" にする

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

var gks = gksPath ||
          editor.FullName.replace( /[^\\]+$/i, "Macros\\GetKeyState.exe" );
var gksCmd = '"' + gks + '" ctrl';
var $ctrl = ( new ActiveXObject( "Scripting.FileSystemObject" ).FileExists( gks )
          && new ActiveXObject( "WScript.Shell" ).Run( gksCmd, 0, true ) !== 0 )
          ? true : false;

var d = editor.ActiveDocument,  s = d.selection;
var dPath = d.FullName || "無題";
var dLength = d.TextLength || d.Text.length;
var anc = s.GetAnchorPos(),  act = s.GetActivePos();
var sx = ScrollX,  sy = ScrollY;
var sMode = s.Mode || 0;

var setting = { fileList: [] };
setting = IO.Deserialize( setting, jsonName );	// JSON 読み込み
var list = setting.fileList;
var infoExist = false;
var v3 = ( "AddUndo" in window );

// 位置を復帰
if ( ! $ctrl ) {
  // Redraw = false;
  var meFindKeepOptions;
  /**
   * list[i] = { path, len, mode, anc, act, sel, sx, sy, ay }
   * フルパス (dPath), 文字数 (dLength)
   * 範囲選択モード (mode)
   * 選択範囲の開始／終了位置 (anc, act)
   * マルチカーソル選択範囲 (sel)
   * スクロール位置 (sx, sy), アクティブ行 (ay)
   */
  ListLoop1:
  for ( var i = 0, len = list.length, info; i < len; i ++ ) {
    info = list[i];
    // リストにファイル情報があれば
    if ( info.path === dPath ) {
      infoExist = true;
      // 文書の文字数が同じなら、選択範囲（キャレット位置）を復元
      if ( info.len === dLength ) {
        s.SetActivePos( info.act );
        /* マルチカーソル選択範囲を復帰 */
        if ( ( sCount = info.sel.length ) > 0 ) {
          for ( var i = 0; i < sCount; i ++ ) {
            s.AddPos( info.sel[i].anc, info.sel[i].act );
          }
          s.AddPos( info.anc, info.act );
        }
        // 通常選択範囲または矩形選択範囲を復帰
        else {
          s.SetAnchorPos( info.anc );
          if ( info.mode == 2 ) { s.Mode = meModeBox; }
        }
        ScrollX = info.sx;  ScrollY = info.sy;
      }
      // 文書の文字数が異なるなら、行番号（行頭）に復帰
      else {
        s.SetActivePoint( mePosLogical, 1, info.ay, false );
      }
      // 実行前と選択範囲が同じならスクロールする
      if ( s.GetActivePos() === act && s.GetAnchorPos() === anc ) {
        ScrollY = s.GetTopPointY( mePosView );
        ScrollX = ( ScrollX === 1 ) ? 1
                : s.GetTopPointX( mePosView );
      }
      break ListLoop1;
    }
  }	// ListLoop1

  // ファイル情報がないときは、キャレット位置までスクロールするだけ
  if ( ! infoExist  ) {
    if ( sMode == 3 ) {
      s.AddPos( anc, act );
    }
    else {
      s.SetActivePos( anc );
      s.SetActivePos( act, true );
      s.Mode = sMode;
    }
    if ( ScrollY === sy ) {
      ScrollY = s.GetTopPointY( mePosView );
    }
  }
  // Redraw = true;
}

// 位置情報を保存
else {	// if ( $ctrl )
  var ay = s.GetActivePointY( mePosLogical );
  var eCount = Editors.Count,  docus,  dCount,  hit;
  /* マルチカーソル対応 */
  var sCount = s.Count || 0,  Sel = [];
  for ( var i = 0; i < sCount; i ++ ) {
    Sel[i] = { act: s.GetActivePos( i ),  anc: s.GetAnchorPos( i ) };
  }
  /**
   * list[i] = { path, len, mode, anc, act, sel, sx, sy, ay }
   * フルパス (dPath), 文字数 (dLength)
   * 範囲選択モード (mode)
   * 選択範囲の開始／終了位置 (anc, act)
   * マルチカーソル選択範囲 (sel)
   * スクロール位置 (sx, sy), アクティブ行 (ay)
   */
  ListLoop2:	// ※ list.length はループ中に変動する
  for ( var i = 0, path; i < list.length; i ++ ) {
    path = list[i].path;
    // リストにファイルの情報があれば書き換える
    if ( path === dPath ) {
      infoExist = true;
      list[i] = {
        path: dPath,  len: dLength,  mode: sMode,
        anc: anc,  act: act,  sel: Sel,
        sx: sx,  sy: sy,  ay: ay
      };
    }
    // リストに現在開かれていないファイルの情報があれば削除する
    else {
      DeleteLoop:
      for ( var ee = 0, hit = false; ee < eCount; ee ++ ) {
        docus = Editors.Item( ee ).Documents;
        dCount = docus.Count;
        for ( var dd = 0; dd < dCount; dd ++ ) {
          if ( docus.Item( dd ).FullName === path ) { hit = true }
        }
      }	// DeleteLoop
      // リストから削除して、ループ処理の i をひとつ巻き戻す
      if ( ! hit ) { list.splice( i --, 1 ) }
    }
  }	// ListLoop2:

  // リストにファイルの情報がなければ追加する
  if ( ! infoExist ) {
    list.push( {
      path: dPath,  len: dLength,  mode: sMode,
      anc: anc,  act: act,  sel: Sel,
      sx: sx,  sy: sy,  ay: ay
    } );
  }


  setting.fileList = list;
  IO.Serialize( setting, jsonName );	// JSON 書き込み
  var str = "　" + ( act === anc ? "位置" : "選択範囲" ) + "を保存";
  if ( Status.indexOf( "文字" ) > -1 && Status.indexOf( "行" ) > -1
  && ! /(?:位置|選択範囲)を保存/.test( Status ) ) {
    Status += str;
  }
  else if ( Status.indexOf( "文字" ) < 0 && Status.indexOf( "行" ) < 0 ) {
    Status = str;
  }
}


/**
 * ・Ctrl キーを押しながらこのマクロを実行したときは「位置情報を保存」する。
 *  ※ ファイル名、文字数、選択範囲（キャレット位置）とスクロール位置などの
 *    情報を JSON ファイルに書き出す。
 * 
 * ・Ctrl キーを押さずにこのマクロを実行したときは「位置を復帰」する。
 *  ※ Ctrl キーを押しながらこのマクロを実行して保存した位置情報か、
 *   「すべて選択」マクロ実行前のキャレット位置（選択範囲）を
 *    JSON ファイルから読みこんで復元する。
 * 
 * ・JSON ファイルに保存された情報と文字数がことなるときは、
 *   保存された行番号（論理行）の行頭に復帰する。
 *  ※ 保存されたスクロール位置を復帰せず、キャレット位置までスクロールする。
 * 
 * ・「位置を復帰」の前後でキャレット位置（選択範囲）に変化がないとき、
 *   または JSON ファイルに位置情報がないときは、
 *   キャレット位置にスクロールするだけ。
 * ⇒ さらに再実行すると選択範囲の先頭行が画面内の先頭になるようにスクロールする。
 * 
 * ・「位置を復帰」の動作では JSON ファイルに保存された位置情報を削除しない。
 *  ※ Ctrl キーを押しながらこのマクロを実行したとき、
 *     または「すべて選択」マクロ実行時の「位置情報を保存」処理のさいに、
 *     開かれていないファイルの位置情報は JSON から削除される。
 * 
 * ・このマクロで保存した位置情報を、当該ファイルのタブを閉じずに削除したい場合は、
 *   「すべて選択」マクロと「選択解除」マクロをつづけて実行する。
 *  ※「すべて選択」の状態から「選択解除」マクロを実行したとき（位置の復帰動作）
 *     当該ファイルの位置情報は JSON から削除される。
 *  ※ このマクロ単独で「位置情報を保存／位置を復帰」の運用をする場合、
 *     JSON から位置情報を削除するには、当該ファイルのタブを閉じた状態で
 *     別のタブ上から「位置情報を保存」操作をするしかない。
 */
</syntaxhighlight>