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

== ソースコード（マルチカーソル対応版） ==
※ 動作要件：'''Mery Ver 3.0.1''' 以上

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

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

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

// ■ タブの桁数
var indentSize = 0;

  // ※ Mery から自動取得するなら indentSize = 0 にする
  //  （自動取得できなかったときは 4）


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

  // true:  選択範囲／キャレット位置が変換されなかった場合、行全体を変換する
  // false: 行全体の「TAB ⇔ 半角空白」変換はしない
  // ※ false の場合、選択範囲に非空白文字があるときは変換なし


// ■「全角空白 ⇒ 半角空白×2」変換（非推奨）
var FullToHalf2 = false;	// true: する ／ false: しない

  // true なら、「全角空白 ⇒ 半角空白×2」変換後に「空白をタブに変換」する
  // ※「半角空白 ⇒ TAB」が優先なので「半角空白 ⇒ 全角空白」はできない
  //   また、ソースコード内で全角の "　" にしている部分が壊れることがある

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


var d = editor.ActiveDocument,  s = d.selection;
var sMode = s.Mode;
if ( d.ReadOnly ) {
  Status = "　ドキュメントは書き換え禁止です。";
}
else if ( ! sMode ) {
  Status = "　このマクロは Mery Ver 3.0.1 以降でしか使用できません。";
}
else {
  if ( ! indentSize || ! ( indentSize > 0 ) ) {
    if ( "IndentSize" in d ) {
      indentSize = d.IndentSize;
    }
    // Mery.ini から「タブの桁数」を取得する
    if ( ! indentSize || ! ( indentSize > 0 ) ) {
      indentSize = GetIniOptionNum( "TabColumns" ) || 4;
    }
  }

  /* マルチカーソル対応 */
  var sx = ScrollX,  sy = ScrollY;
  var dt = d.Text;
  var arg = [ indentSize, wholeLines, FullToHalf2 ];
  BeginUndoGroup();  AddUndo();
  // 選択範囲が１つで矩形選択ではないとき
  if ( s.Mode == meModeStream ) {
    TabifyUntabify( arg );
  }
  // 複数行または複数選択のとき
  else {
    MultiFunction( TabifyUntabify, arg );
  }
  // テキストの変更なしなら UNDO 履歴から破棄
  EndUndoGroup();
  if ( d.Text === dt ) {
    d.Undo();
  }

  Status = "　タブの桁数: " + indentSize;
  ScrollX = sx;  ScrollY = sy;
}

/**
 * 関数 TabifyUntabify( [ indentSize, wholeLines, FullToHalf2 ] )
 * 「TAB／半角空白変換」マクロ
 */
function TabifyUntabify( arg ) {
  var indentSize  = arg[0];
  var wholeLines  = arg[1];
  var FullToHalf2 = arg[2];

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

  if ( pos > -1 ) {
    s.SelectWord();
  }
  var act = s.GetActivePos();
  var anc = s.GetAnchorPos();
  var ty = s.GetTopPointY( mePosLogical );
  var bx = s.GetBottomPointX( mePosLogical );
  var st = s.Text;
  var tmp = d.GetLine( ty, 0 ).slice( 0, bx - 1 );

  // １行内の選択範囲のとき
  if ( st && indentSize > 0 && /^[\t 　]+$/.test( st ) ) {

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

    // TAB ⇒ 半角空白（キャレット位置または選択範囲内のみ）
    if ( st.indexOf( "\t" ) > -1 ) {
      // Act1: 行頭から選択範囲の末尾までを新規の行にする
      s.Text = "\n" + tmp + "\n";
      s.CharLeft();  s.WordLeft( true );
      // Act2: 「タブを半角空白に変換」して行末の空白文字列を取得
      s.Untabify();
      s.Collapse( meCollapseEnd );  s.WordLeft( true );
      st = s.Text;
      // マルチカーソル対応のためコード変更		◆2020/07/02◆
      s.SetAnchorPos( s.GetAnchorPos() + 1 );
      s.SetActivePoint( mePosLogical, 1, ty, true );
      s.Text = tmp;
      s.SetActivePos( anc );
      s.SetActivePos( act, true );
      // 「TAB ⇒ 半角空白」変換終了
      s.Text = st;
      s.SetAnchorPos( s.GetActivePos() - st.length );
      return;
    }

    // 半角空白 ⇒ TAB（キャレット位置または選択範囲内のみ）
    else if ( st.indexOf( " " ) > -1 ) {
      // Act1: 行頭から選択範囲の末尾までを新規の行にする
      s.Text = "\n" + tmp + "\n";
      s.CharLeft();
      s.WordLeft( true );
      // Act2: 「半角空白をタブに変換」して行末の空白文字列を取得
      s.Tabify();
      s.Collapse( meCollapseEnd );
      s.WordLeft( true );
      st = s.Text;
	  // マルチカーソル対応のためコード変更		◆2020/07/02◆
      s.SetAnchorPos( s.GetAnchorPos() + 1 );
      s.SetActivePoint( mePosLogical, 1, ty, true );
      s.Text = tmp;
      s.SetActivePos( anc );
      s.SetActivePos( act, true );
      // 「半角空白 ⇒ TAB」変換終了
      if ( st !== s.Text ) {
        s.Text = st;
        s.SetAnchorPos( s.GetActivePos() - st.length );
        return;
      }
    }
  }

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

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

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

    // 半角空白 ⇒ TAB（行全体）
    else {
      s.Tabify();
    }

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


/**
 * 関数 MultiFunction( Fn, arg )
 * マルチカーソル（複数選択範囲）に対応させる
 * 第１引数: 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 = d.TextLength;
  i < sCount; i ++ ) {
    // dl = d.TextLength;
    s.SetActivePos( Sel[i].act + diff );
    s.SetAnchorPos( Sel[i].anc + diff );

    Fn( arg );	// TabifyUntabify() 関数

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

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