「TAB／半角空白トグル変換」を編集中 (節単位)

== ソースコード（通常版） ==
※ Mery Ver 2.x 用 （マルチカーソル非対応）

<syntaxhighlight lang="javascript" style="height:100em; overflow:auto;">
#title = "TAB ⇔ 半角空白 トグル変換"
#tooltip = "キャレット位置だけ TAB ⇔ 半角空白 の変換をする"
#icon = "tabify[3].ico"

/**
 * ---------------------------------------------------------
 * 「TAB／半角空白変換」マクロ
 * sukemaru, 2020/05/27 - 2020/05/29
 * ---------------------------------------------------------
 * キャレット位置または選択範囲内だけの「TAB ⇔ 半角空白」変換可
 * 2020/05/29: うしろの非空白文字列の開始位置がズレないようコード改編
 * 
 * ※ 優先ルール： タブ＋半角空白 からの変換のばあいは「TAB ⇒ 半角空白」変換
 *  （再度実行すれば「半角空白 ⇒ TAB」変換）
 * ※ EditorConfig でタブの桁数をカスタマイズしている場合は、
 *   indentSize = 0 にすること。
 */

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

// ■ タブの桁数
// ※ Mery から自動取得するなら indentSize = 0 にする
var indentSize = 0;

// ■ 論理行全体（複数行可）の「TAB ⇔ 半角空白」変換
var wholeLines = true;		// true: する ／ false: しない

// ■「全角空白 ⇒ 半角空白×2」変換
// ※「全角空白 ⇒ 半角空白×2」変換後に「空白をタブに変換」する
var FullToHalf2 = false;	// true: する ／ false: しない

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

var d = editor.ActiveDocument,  s = d.selection;
var sv = d.Saved;
var isEmpty = s.IsEmpty;
var pos = ( isEmpty ) ? s.GetActivePos() : -1;

if ( d.ReadOnly ) {
  Status = "　ドキュメントは書き換え禁止です。";
}
else {
  if ( ! indentSize || ! ( indentSize > 0 ) ) {
    // Mery Ver 3 以降？
    if ( "IndentSize" in Document ) {
      indentSize = d.IndentSize;
    }
    // Mery.ini から「タブの桁数」を取得する
    if ( ! indentSize || ! ( indentSize > 0 ) ) {
      indentSize = GetIniOptionNum( "TabColumns" ) || 4;
    }
  }
  Status = "　タブの桁数: " + indentSize;

  if ( isEmpty ) {
    s.SelectWord();
  }
  var act = s.GetActivePos();
  var anc = s.GetAnchorPos();
  var ty = s.GetTopPointY( mePosLogical );
  var bx = s.GetBottomPointX( mePosLogical );
  var st = s.Text;

  if ( st && indentSize > 0 && /^[\t 　]+$/.test( st ) ) {
    var ty = s.GetTopPointY( mePosLogical );
    var bx = s.GetBottomPointX( mePosLogical );

    // 全角空白 ⇒ 半角空白×2
    if ( FullToHalf2 && st.indexOf( "　" ) > -1 ) {
      st = st.replace( /[　]/g, "  " );
    }

    // TAB ⇒ 半角空白（キャレット位置または選択範囲内のみ）
    if ( st.indexOf( "\t" ) > -1 ) {
      // Act1: 行頭から選択範囲の末尾までを新規の行にする
      s.Text = "\n" + d.GetLine( ty, 0 ).slice( 0, bx - 1 ) + "\n";
      s.CharLeft();  s.WordLeft( true );
      // Act2: 「タブを半角空白に変換」して行末の空白文字列を取得
      s.Untabify();
      s.Collapse( meCollapseEnd );  s.WordLeft( true );
      st = s.Text;
      // Act1, Act2 を巻き戻して「TAB ⇒ 半角空白」変換終了
      d.Undo();  d.Undo();
      s.Text = st;
      s.SetAnchorPos( s.GetActivePos() - st.length );
    }

    // 半角空白 ⇒ TAB（キャレット位置または選択範囲内のみ）
    // else if ( RegExp( "[ ]{" + indentSize + "}", "" ).test( st ) ) {	// }
    else if ( st.indexOf( " " ) > -1 ) {
      // Act1: 行頭から選択範囲の末尾までを新規の行にする
      s.Text = "\n" + d.GetLine( ty, 0 ).slice( 0, bx - 1 ) + "\n";
      s.CharLeft();  s.WordLeft( true );
      // Act2: 「半角空白をタブに変換」して行末の空白文字列を取得
      s.Tabify();
      s.Collapse( meCollapseEnd );  s.WordLeft( true );
      st = s.Text;
      // Act1, Act2 を巻き戻して「半角空白 ⇒ TAB」変換終了
      d.Undo();  d.Undo();
      if ( st !== s.Text ) {
        s.Text = st;
        s.SetAnchorPos( s.GetActivePos() - st.length );
      }
    }
  }

  // wholeLines = true のとき
  if ( st === s.Text && wholeLines ) {
    var by = s.GetBottomPointY( mePosLogical );
    // 選択範囲を拡張（末尾改行を含めない）
    if ( by != ty && bx === 1 ) { by -= 1; }
    s.SetActivePoint( mePosLogical, 1, by );
    s.EndOfLine( false, mePosLogical );
    s.SetAnchorPoint( mePosLogical, 1, ty );
    st = s.Text;

    // TAB ⇒ 半角空白（行全体）
    if ( st.indexOf( "\t" ) > -1 ) {
      s.Untabify();
    }

    // 半角空白 ⇒ TAB（行全体）
    else if ( RegExp( "[ ]{" + indentSize + "}", "" ).test( st ) ) {
      s.Tabify();
      if ( st === s.Text ) { d.Undo();  d.Saved = sv;  }
    }
    // else {
    //   s.Tabify();
    //   if ( st === s.Text ) { d.Undo();  d.Saved = sv;  }
    // }

    // キャレット位置または選択範囲の復帰
    if ( st === s.Text ) {
      if ( pos >= 0 ) { s.SetActivePos( pos ); }
      else { s.SetActivePos( act );  s.SetAnchorPos( anc ); }
    }
    // 行全体を変換したときは論理行全体を範囲選択
    else { s.SelectLine( true ); }
  }
}

/**
 * 関数 GetIniOptionNum( key )
 * 引数で指定された設定項目の「値」を返す（※数値のみ）
 */
function GetIniOptionNum( key ) {
  var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
  // Mery.ini を探す
  var meryPath = editor.FullName;
  var mery     = Fso.GetBaseName( meryPath );
  var iniPath  = meryPath.replace( /\.exe$/i, ".ini" );
  if ( ! Fso.FileExists( iniPath ) ) {
    iniPath = new ActiveXObject( "WScript.Shell" )
              .ExpandEnvironmentStrings( "%APPDATA%" )
              + "\\Mery\\" + mery + ".ini";
  }
  // Mery.ini を読み込んで項目 key の値を取得する
  var iniFile = Fso.OpenTextFile( iniPath, 1 );
  var iniText = iniFile.ReadAll();
  iniFile.Close();  Fso = null;
  var value = "";
  if ( ( reg = RegExp( "^" + key + "=(\\d*)$", "m" ) ).test( iniText ) )
  { value = reg.exec( iniText )[1]; }
  return Number( value );
}
</syntaxhighlight>