「カッコをはずす」を編集中 (節単位)

=== ソースコード ===
※ Mery Ver 3.0.0 以降では <code>#include "include/IO.js"</code> を削除しても動作します。<br>
※ Mery Ver 3.0.1 以降では「マルチカーソル／複数選択範囲」にも対応します。

<syntaxhighlight lang="javascript" style="height:100em; overflow:auto;">
#title="カッコを追加／削除"
#tooltip="対になるカッコを追加／削除する"
#include "include/IO.js"
// #icon="brackets(delete)[3].ico"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",288

var start = new Date();
editor.ExecuteCommandByID( MEID_WINDOW_ACTIVE_PANE = 2189 );

/**
 * ------------------------------------------------------------
 * カッコを追加／削除
 * sukemaru, 2019-03-19 - 2020-06-28
 * ------------------------------------------------------------
 * ※ 以下の外部実行ファイルが必要です。
 *  ・pizz 氏作成の "GetKeySatate.exe(キー状態取得実行ファイル)" を Macros フォルダに配置してください。
 *  	https://www.haijin-boys.com/wiki/GetKeyState.exe(キー状態取得実行ファイル)
 * ------------------------------------------------------------
 * ※ Mery Ver 2.x では、以下の外部ライブラリが必要です。
 *  ・ks 氏作成の "includeライブラリ" を Macros フォルダに配置してください。
 *  	https://www.haijin-boys.com/wiki/includeライブラリ
 * ------------------------------------------------------------
 */

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

// ■ Ctrl キーを押しながら実行したときの動作モード
var ctrlToDel = false;	// true：カッコを追加 ／ false：カッコを削除


// ■ 選択範囲の『外側』(前と後ろ) の各１文字がカッコのときも削除する？ ■ 
// （※ 選択範囲の前後を１文字ずつ拡張してカッコを削除する）
var outerEnable = true;	// true：する ／ false：しない


// ■ 追加するカッコの初期値（Tag プロパティや JSON がないとき）
var defaultOpenBrc = "「";
var defaultCloseBrc = "」";


// ■ Alt キー押し下げ時は指定したカッコを追加（※強制）
var altOpenBrc  = "(";
var altCloseBrc = ")";


// ■ JSON ファイルのベース名（要：include ライブラリ）
var jsonName = ScriptName.replace( /\.js$/i, "" );
// var jsonName = "カッコを追加／削除";


// ■ 削除したカッコの一時記憶方法（要：Mery Ver 3.0.0 以上）
var tagType = 1;
  // 0 ： 一時記憶なし
  // 1 ： タブ（文書）ごとに一時記憶する（Document.Tag）
  // 2 ： ウインドウごとに一時記憶する（Editor.Tag）
  // 3 ： すべてのタブとウインドウ共通で一時記憶する（window.Tag）


// ▼「対になるカッコ」の種類 (始)と(終) のペアを列挙する ▼ 
// ※ brackets に列挙する開き/閉じカッコのペアはそれぞれ「１文字」ずつでないとダメ

var brackets = "()｢｣<>[]{}\"\"''（）「」『』＜＞［］｛｝【】〖〗﹁﹂﹃﹄︵︶︿﹀︽︾︹︺︷︸︻︼︗︘⦅⦆｟｠〚〛〔〕〘〙〈〉《》””’’〝〞〝〟‘’“”――～～〜〜  　　";

brackets += "++--**\/\/##==%%::：：@@＠＠※※○○●●□□■■◇◇◆◆▽▽▼▼△△▲▲☆☆★★††｜｜←→→←↑↓↓↑←←→→↑↑↓↓……¿?¡!‚‘‚’„“„”“„‘‚‹››‹«»»«——‐‐－－␣␣＿＿≪≫";


// ▼ HTML タグなど複数文字の要素での (始)と(終) のペアを列挙 ▼
var brackets2 = [
  "<i>" , "</i>" , "<u>" , "</u>" , "<s>" , "</s>" , 
  "<b>" , "</b>" , "<q>" , "</q>" , 
  "</" , ">" , "<" , "/>" , 
  "<li>" , "</li>" , "<h>" , "</h>" , 
  "<span>" , "</span>" , "<div>" , "</div>" , 
  "<pre>" , "</pre>" , "<code>" , "</code>" , 
  "===== " , " =====" , "=====" , "=====" , "==== " , " ====", "====" , "====", 
  "=== " , " ===" , "===" , "===" , "== " , " ==" , "==" , "==" , "= " , " =", 
  "'''''" , "'''''" , "'''" , "'''" , "''" , "''", 
  "――" , "――" , 
  "/** \n" , "\n */" , "/** \n" , "\n*/" , "/**\n" , "\n */" , "/**\n" , "\n*/" , 
  "/* \n" , "\n */" , "/* \n" , "\n*/" , "/*\n" , "\n */" , "/*\n" , "\n*/" , 
  "/** " , " */" , "/* " , " */" , "/*" , "*/" , 
  "( ", " )" , " (", ") " , ' "' , '" ' , 
  "<!-- " , " -->" , "<!--" , "-->" 
];

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

brackets = brackets2.concat( brackets.split( "" ) );	// brackets2 が先、brackets が後

// OutputBar.Writeln( ( brackets.length / 2 ) + " pairs of brckets" );
// OutputBar.Writeln( brackets.toString().replace( /\n/g , "\\n" ).replace( /\t/g , "\\t" ).replace( /[ ]/g , "▯" ) + "\n" );


var d = editor.ActiveDocument;
var $end  = false;	// 完了フラグ
var $ctrl = $alt = false;
var gks = editor.FullName.replace( /[^\\]+$/, "" )
        + "Macros\\GetKeyState.exe";

if ( d.ReadOnly ) {
  Status = "　ドキュメントは書き換え禁止です。";
  $end = true;
}
else if ( ! new ActiveXObject( "Scripting.FileSystemObject" ).FileExists( gks ) ) {
  Status = "　GetKeyState.exe がありません。";
  $end = true;
}
else {
  var WshShell = new ActiveXObject( "WScript.Shell" );
  // Ctrl, Alt キーの状態を取得
  $ctrl = ( WshShell.Run( "\"" + gks + "\" ctrl", 0, true ) === 1 );
  if ( ! $ctrl && altOpenBrc && altCloseBrc ) {
    $alt = ( WshShell.Run( "\"" + gks + "\" alt" , 0, true ) === 1 );
  }
}

// メインコード
if ( ! $end ) {
  $ctrl = $alt ? false : ( ctrlToDel ? $ctrl : ! $ctrl );

  var s = d.selection;
  var sMode = s.Mode || 0;
  var setting = {
    openBracket:     defaultOpenBrc,
    closeBracket:    defaultCloseBrc,
    altOpenBrc:      altOpenBrc,
    altCloseBrc:     altCloseBrc,
    defaultOpenBrc:  defaultOpenBrc,
    defaultCloseBrc: defaultCloseBrc
  };

  // Tag プロパティに対応
  var ioEnable  = ( typeof IO === "object" );
  var tagEnable = ( "Tag" in window );
  var tagKey    = "addDeleteBrackets";

  // JSON ファイルから「最後に使用したカッコ」を読みこむ
  if ( ioEnable ) {
    jsonName = jsonName || ScriptName.replace( /\.js$/i, "" );
    setting  = IO.Deserialize( setting, jsonName );	// JSON 読み込み
  }
  // Tag プロパティから「最後に使用したカッコ」を読みこむ
  else if ( tagEnable ) {
    setting = GetTag( tagType, tagKey ) || setting;
  }

  var sx = ScrollX,  sy = ScrollY;

  // マルチカーソル／複数選択に対応
  // ※ マルチカーソル／複数選択では削除したカッコを外部 JSON ファイルに保存しない
  var arg = [
    tagType, jsonName, outerEnable, brackets, $ctrl, $alt, sMode,
    setting, ioEnable, tagEnable, tagKey, start
  ];
  // 選択範囲が１つで矩形選択ではないとき
  if ( ! s.Mode || s.Mode === 1 ) {
    AddDeleteBrackets_Main( arg );
  }
  // 矩形選択または複数選択のとき
  else {
    var dt = d.Text;
    BeginUndoGroup();
    AddUndo();
    MultiFunction( AddDeleteBrackets_Main, arg );
    EndUndoGroup();
    if ( d.Text === dt ) { d.Undo(); }
  }

  ScrollX = sx;  ScrollY = sy;
}


/**
 * 関数 AddDeleteBrackets_Main()
 * 「カッコを追加／削除」マクロ
 */
function AddDeleteBrackets_Main( arg ) {
  var tagType     = arg[0];
  var jsonName    = arg[1];
  var outerEnable = arg[2];
  var brackets    = arg[3];
  var $ctrl       = arg[4];
  var $alt        = arg[5];
  var sMode       = arg[6];
  var setting     = arg[7];
  var ioEnable    = arg[8];
  var tagEnable   = arg[9];
  var tagKey      = arg[10];
  var start       = arg[11];

  var d = editor.ActiveDocument;
  var s = d.selection;
  var act = s.GetActivePos();
  var anc = s.GetAnchorPos();
  var tp = Math.min( anc, act );
  var bp = Math.max( anc, act );
  var $end = $del = $add = false;	// 削除フラグ／追加フラグ／完了フラグ
  var len = brackets.length;
  var tmp = {};

  // 選択範囲を「最後に使用したカッコ」で囲う
  // Alt キーありで「指定したカッコを強制追加」モード（※優先）
  // ショートカットキー [ Alt＋F8 ] or [ Shift＋F8 ]
  if ( $alt || ! $ctrl ) {
    AddBrackets( setting, tp, $alt );
    $add = $end = true;
  }

  // 選択範囲の先頭と末尾から「対になるカッコ」を削除
  // ショートカットキー [ Ctrl＋F8 ]
  if ( ! $end && $ctrl ) {
    tmp = DeleteBrackets(
      brackets, setting, sMode, ioEnable, jsonName, tagEnable, tagKey, tagType, tp
    );
    setting = tmp.setting;
    $end = tmp.$end;  $del = tmp.$del;
  }

  // 選択範囲内の先頭と末尾が「対になるカッコ」ではなかったとき
  if ( ! $end && outerEnable ) {
    tmp = RemoveOuterBrackets(
      brackets, setting, sMode, ioEnable, jsonName, tagEnable, tagKey, tagType, tp, bp
    );
    setting = tmp.setting;
    $end = tmp.$end;  $del = tmp.$del;
  }
  var o = $alt ? setting.altOpenBrc
        : setting.openBracket;
  var c = $alt ? setting.altCloseBrc
        : setting.closeBracket;

  // 終了ステータス
  Status = $add ? "　" + o.replace( /[ ]+/g , "␣" ) + "　カッコ　"
                       + c.replace( /[ ]+/g , "␣" ) + "　で囲いました。"
         : $del ? "　" + o.replace( /[ ]+/g , "␣" ) + "　と　"
                       + c.replace( /[ ]+/g , "␣" ) + "　を削除しました。"
         : $end ? "　カッコの 追加/削除 なし。　"
     /* else */ : "　カッコがありません。　( searched for " 
                  + ( ( len / 2 ) + " pairs of brckets )" );
  Status += TimerElapsed( new Date(), start );
}

/**
 * 関数 TimerElapsed( end, start )
 * start からの経過時間を [ s.sss 秒 ] で返す
 */
function TimerElapsed( end, start ) {
  var elapsedSec = ( end - start ) / 1000;
  // start からの経過時間を [ s.sss 秒 ] で返す
  return "  [ "
         + elapsedSec.toFixed( 3 ).replace( /\./, ". " )
         + " 秒 ]";
}

/**
 * 関数 AddBrackets( setting )
 * 選択範囲をカッコで囲う
 */
function AddBrackets( setting, tp, $alt ) {
  // 追加するカッコ ( Alt強制 > ｢最後に使用したカッコ｣ > 初期値 )
  var o = $alt ? setting.altOpenBrc
               : setting.openBracket;
  var c = $alt ? setting.altCloseBrc
               : setting.closeBracket;

  var s = editor.ActiveDocument.selection;
  // カッコを追加
  s.Text = o + s.Text + c;
  s.SetAnchorPos( tp );	// 選択範囲を復帰
  return true;
}

/**
 * 関数 DeleteBrackets( brackets, setting, jsonName )
 * 選択範囲の先頭と末尾からカッコを削除する
 */
function DeleteBrackets( brackets, setting, sMode, ioEnable, jsonName, tagEnable, tagKey, tagType, tp ) {
  var $del = $end = false;
  var s = editor.ActiveDocument.selection,  st = s.Text;
  var o = c = "",  oLen = cLen = 0;
  // ループ処理で「対になるカッコ」と一致するかチェック
  for ( var i = 0, len = brackets.length; i < len; i += 2 ) {
    if ( i % 2 == 1 ) { continue; }
    o = brackets[ i ];      oLen = o.length;	// 開きカッコ
    c = brackets[ i + 1 ];  cLen = c.length;	// 閉じカッコ

    // 選択範囲内の先頭と末尾が「対になるカッコ」のとき
    if ( st.length >= oLen + cLen
    &&   st.slice( 0, oLen ) === o
    &&   st.slice( - cLen )  === c ) {

      // 先頭・末尾のカッコを削除して選択範囲を復帰
      s.Text = st.slice( oLen, - cLen );
      s.SetAnchorPos( tp );	// 選択範囲を復帰
      $del = $end = true;

      // ヒットしたカッコを JSONファイル／Tagプロパティ に保存
      if ( ( o !== setting.openBracket || c !== setting.closeBracket ) ) {
        setting.openBracket  = o;
        setting.closeBracket = c;
        if ( ioEnable && jsonName && sMode < 2 ) {	// JSON 書き込み
          IO.Serialize( setting, jsonName );
        }
        else if ( tagEnable ) {	// Tag 書き込み
          SetTag( setting, tagType, tagKey );
        }
      }
      break;
    }
  }
  return { setting : setting,  $del : $del,  $end : $end };
}

/*
 * 関数 RemoveOuterBrackets( brackets, setting, jsonName )
 * 選択範囲の外側（前と後ろ）にあるカッコを削除する
 */
function RemoveOuterBrackets( brackets, setting, sMode, ioEnable, jsonName, tagEnable, tagKey, tagType, tp, bp ) {
  var $del = $end = false;
  var d = editor.ActiveDocument,  s = d.selection;
  var dt = d.Text,  st = s.Text;
  var o = c = "",  oLen = cLen = 0;
  for ( var i = 0, len = brackets.length; i < len; i += 2 ) {
    if ( i % 2 === 1 ) { continue; }
    o = brackets[ i ];      oLen = o.length;	// 開きカッコ
    c = brackets[ i + 1 ];  cLen = c.length;	// 閉じカッコ

    // 選択範囲の外側 (前と後) の各１文字がカッコのとき
    // カッコの文字数だけ選択範囲を拡張してカッコを削除
    if ( dt.slice( tp - oLen, tp ) === o
    &&   dt.slice( bp, bp + cLen ) === c ) {

      s.SetAnchorPos( tp - oLen );
      s.SetActivePos( bp + cLen, true );
      s.Text = s.Text.slice( oLen, - cLen );
      s.SetAnchorPos( tp - oLen );	// 選択範囲を復帰
      $del = $end = true;

      // ヒットしたカッコを Tag プロパティ／JSON ファイル に保存
      if ( o !== setting.openBracket || c !== setting.closeBracket ) {
        setting.openBracket  = o;
        setting.closeBracket = c;
        if ( ioEnable && jsonName && sMode < 2 ) {	// JSON 書き込み
          IO.Serialize( setting, jsonName );
        }
        else if ( tagEnable ) {	// Tag 書き込み
          SetTag( setting, tagType, tagKey );
        }
      }
      break;
    }
  }
  return { setting : setting,  $del : $del,  $end : $end };
}


/**
 * 関数 GetTag( tagType, tagKey, property )
 * 指定された Tag の値を返す
 */
function GetTag( tagType, tagKey, property ) {
  try {
    var obj = ( typeof tagType === "object" ) ? tagType
            : ( tagType === 1 ) ? editor.ActiveDocument
            : ( tagType === 2 ) ? editor
            : ( tagType === 3 ) ? window
            : window;
    return ( obj.Tag.Exists( tagKey )
    && ( property ? property in obj.Tag( tagKey ) : true ) )
    ? property
      ? obj.Tag( tagKey )[ property ]
      : obj.Tag( tagKey )
    : null;
  } catch( e ) { Status = e;  return null; }
}

/**
 * 関数 SetTag( value, tagType, tagKey, property )
 * 指定された値を Tag に書き込む
 */
function SetTag( value, tagType, tagKey, property ) {
  try {
    var obj = ( typeof tagType === "object" ) ? tagType
            : ( tagType === 1 ) ? editor.ActiveDocument
            : ( tagType === 2 ) ? editor
            : ( tagType === 3 ) ? window
            : window;
    if ( property ) {
      if ( obj.Tag.Exists( tagKey ) ) {
        obj.Tag( tagKey )[ property ] = value;
      }
      else { obj.Tag( tagKey ) = { property: value }; }
    }
    else { obj.Tag( tagKey ) = value; }
  }
  catch( e ) { Status = e; }
  finally { return; }
}


/**
 * 関数 MultiFunction( Fn, arg1 )
 * マルチカーソル（複数選択範囲）に対応させる
 * 第１引数: Function; 選択範囲ごとに適用する処理の関数
 * 第２引数: Function に渡す引数をまとめた配列
 */
function MultiFunction( Fn, arg ) {
  var d = editor.ActiveDocument;
  var s = d.selection;

  // 矩形選択範囲は行に分ける
  s.Mode = meModeMulti;

  // 選択範囲の座標を取得
  var sCount = s.Count;
  var Sel = [];
  for ( var i = 0; i < sCount; i ++ ) {
    Sel[i] = {
      act: s.GetActivePos( i ),
      anc: s.GetAnchorPos( i )
    };
  }

  // 各選択範囲を処理;
  for ( var i = 0, diff = 0, dl; i < sCount; i ++ ) {
    dl = d.TextLength;
    s.SetActivePos( Sel[i].act + diff );
    s.SetAnchorPos( Sel[i].anc + diff );

    Fn( arg );	// AddDeleteBrackets_Main() 関数でカッコを追加／削除

    // Fn() の残した選択範囲（またはキャレット位置）を回収
    Sel[i].act = s.GetActivePos();
    Sel[i].anc = s.GetAnchorPos();
    diff += d.TextLength - dl;	// 文字数の増減量（累積）
  }

  // マルチカーソル（複数選択範囲）を復帰
  for ( var i = 0; i < sCount; i ++ ) {
    s.AddPos( Sel[i].anc, Sel[i].act );
  }
}
</syntaxhighlight>