「Mery.iniのオプション値を取得」を編集中 (節単位)

=== ソースコード ===
 // #title="Mery.ini のオプション値を取得"
 
 /**
  * 組み込み関数 '''GetIniOption( keyArray )'''
  * 引数で指定した '''任意の''' INI オプション項目の「値」を返す
  *
  * '''引数:''' INI オプション項目名を列挙した配列
  * ※ 記述形式は '''''[ "KeyName1", "KeyName2", "KeyName3" ]'''''
  * 
  * '''戻り値:''' INI オプション項目の「値」を並べた '''配列'''。
  * ※ 配列の形式は '''''[ "value1", "value2", "value3" ]'''''
  *    各要素 value は '''数値型'''（Number） または '''文字列型'''（String）
  */
<div id="関数1"> </div>
<syntaxhighlight lang="javascript">
// ---------- ▼ 組み込み関数 ココから ▼ ----------

function GetIniOption( keyArray ) {
  // 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();

  /* includeライブラリの IO.js, MeryInfo.js を #include しているマクロに組み込むなら
     var iniPath  から  Adodb.Close()  までは以下の一行だけでもよい */
  // var iniText = IO.LoadFromFile( MeryInfo.GetIniPath(), "utf-8" );

  // 引数の配列をループ処理して ini からオプションの値を取得する
  var reg, value, iniOptionArray = [];
  for ( var i = 0, len = keyArray.length; i < len; i ++ ) {
    reg = new RegExp( "^" + keyArray[i] + "=[^\\r\\n]*$", "gm" );
    try {
      // 項目名の記述ミスがあるとこの行でエラーが発生する
      value = iniText.match( reg )[0]
                     .substr( keyArray[i].length + 1 );
      // 10進数なら Number 型で返す
      if ( /^-?[1-9][0-9]*$/.test( value ) ) {
        value = Number( value );
      }
    } catch( e ) {
      Alert( keyArray[i] + " という項目はありません。" );
      value = undefined;
    }
    iniOptionArray.push( value );
  }
  return iniOptionArray;
}

// ---------- ▲ 組み込み関数 ココまで ▲ ----------
</syntaxhighlight>