「行の表示方法を切り替える」を編集中 (節単位)

=== 行の表示方法を切り替える.js ===
<syntaxhighlight lang="javascript">
#title = "行の表示方法を切り替える"
#tooltip = "論理行表示 と 物理行表示 を切り替える"

/**
 * sukemaru, (2019-08-24 - 2019-08-25)
 * 
 * 「オプション」ダイアログを開いて「行の表示方法」の設定値を切り替える
 * 
 * ※ 推奨要件: Mery Ver 2.7.5 ～
 * 
 * ※ 別途、キーストロークを送信するための VBScript ファイル×２ が必要
 * （このマクロの実体ファイルと同じフォルダに配置すること）
 * 
 * ※ CPU がビジー状態の場合は、キー送信までの遅延が不十分で失敗するかも
 */

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

// Sleep(500) と SendKeys() を仕込んだ VBS のファイル名
var upVbs = "SendKeys( Alt+D, Up, Enter ).vbs";
var dnVbs = "SendKeys( Alt+D, Down, Enter ).vbs";

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


// 行の表示方法を取得
var lineColumnView = ( GetIniOptionNum( "LineColumnView" ) == 1 );

// Sleep(500) と SendKeys() を仕込んだ VBS ファイルのフルパス
var vbs = ScriptFullName.slice( 0, - ScriptName.length )
        + ( lineColumnView ? dnVbs : upVbs );

var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
if ( Fso.FileExists( vbs ) ) {

  // キー送信のタイミング失敗時のための保険
  var d = editor.ActiveDocument;
  var s = d.selection;
  var act = s.GetActivePos();
  var anc = s.GetAnchorPos();
  var dReadOnly = d.ReadOnly;
  var dLength = d.Text.length;
  var requirement =  VersionCheck( "2.7.5" );
  // 書き込み禁止にしてエディタ内で改行（Enter）するのを防ぐ
  if ( requirement ) {
    d.ReadOnly = true;
  }

  // VBS ファイルを呼び出す
  var WshShell = new ActiveXObject( "WScript.Shell" );
  WshShell.Run( "WScript.exe \"" + vbs + "\"" );
  
  // 「オプション」パネルを開く
  editor.ExecuteCommandByID( MEID_TOOLS_OPTIONS = 2177 );

  // 保険を適用
  if ( requirement ) {
    d.ReadOnly = dReadOnly;
  }
  else if ( d.Text.length != dLength ) {
    d.Undo();
  }
  d.selection.SetActivePos( act );
  d.selection.SetAnchorPos( anc );
}


// 関数 GetIniOptionNum( key )
function GetIniOptionNum( key ) {
  // Mery.ini を探す
  var iniPath = editor.FullName.replace( /\.exe$/i, ".ini" );
  var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
  if ( ! Fso.FileExists( iniPath ) ) {
    var iniName = /\\([^\\]+)\.exe$/.exec( editor.FullName )[1];
    var WshShell = new ActiveXObject( "WScript.Shell" );
    iniPath = WshShell.SpecialFolders( "APPDATA" )
            + "\\Mery\\" + iniName + ".ini";
  }
  // Mery.ini を読みこむ
  var Adodb = new ActiveXObject( "ADODB.Stream" );
  var adTypeText = 2,  adReadAll = -1;
  Adodb.Type = adTypeText, Adodb.Charset = "UTF-8";
  Adodb.Open();
  Adodb.LoadFromFile( iniPath );
  var iniText = Adodb.ReadText( adReadAll );
  Adodb.Close();

  // ini から引数で指定したオプションの値を取得する
  var reg = new RegExp( "^" + key + "=[^\\r\\n]*$", "gm" );
  var value = iniText.match( reg )[0].substr( key.length + 1 );
  iniText = "";
  // Number 型で返す
  return Number( value );
}

// 関数 VersionCheck( versionStr )
function VersionCheck( versionStr ) {
  var Pad2 = function( str ) {
    return str.replace( /[0-9]+/g , function( digit ) {
      return digit.length < 2 ? "0" + digit : digit
    } )
  };
  var editorVer = + ( Pad2( editor.Version ).replace( /\./g, "" ).slice( 0, 6 ) );
  var requirement = + ( Pad2( versionStr ).replace( /\./g, "" ).slice( 0, 6 ) );
  return ( editorVer >= requirement );
}
</syntaxhighlight>