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

=== ソースコード ===
 // #title="Mery.ini のオプション値を取得"
 
 /**
  * 組み込み関数 '''GetIniOption2( keyArray )'''
  *
  * 引数で指定した '''任意の''' INI オプション項目の配列に
  * '''「値」をくわえた配列''' で返す
  *
  * '''引数:''' INI オプション項目（セクション名とキー名）を指定する配列
  * ※ 記述形式は '''''[ [section1, key1], [section2, key2] ... ] '''''（※入れ子にする）
  *
  * '''戻り値:''' INI オプション項目の「値」を追加した '''配列'''
  * ※ 配列の形式は '''''[ [section1, key1, value1], [section2, key2, value2] ... ]'''''
  * 
  * ※ value はすべて '''文字列型''' （String）で返す
  *  （数字の場合も '''<syntaxhighlight lang="javascript" inline>"1"</syntaxhighlight>''' として返す   <span style="color:#c00;">"1" !== 1</span> ）
  */
<div id="関数2"></div>
<syntaxhighlight lang="javascript">
// ---------- ▼ 組み込み関数 ココから ▼ ----------

function GetIniOption2( 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 section, key, value, iniOptionArray = [];
  var reg, id1, id2, id3, id4;
  var iniLength = iniText.length;
  var Quote = function( str ) { return str.replace( /\W/g, "\\$&" ) };
  for ( var i = 0, len = keyArray.length; i < len; i ++ ) {
    section = keyArray[i][0];
    key     = keyArray[i][1];
    reg = new RegExp( "^\\[" + Quote( section ) + "\\]$", "m" );
    id1 = iniText.search( reg );				// セクションの開始位置
    if ( id1 != -1 ) {							// セクション名が正しいか？
      id2 = iniText.indexOf( "\r\n[", id1 + 1 );// 次のセクションの開始位置
      id2 = ( id2 > id1 ) ? id2 : iniLength;
      id3 = iniText.indexOf( "\n" + key + "=", id1 );	// キーの開始位置
      if ( id3 != -1 && id2 > id3 ) {			// セクション内にキーがあるか？
        id4 = iniText.indexOf( "\r\n", id3 );	// 検索項目の行末位置
        value = iniText.slice( id3 + key.length + 2, id4 );
        iniOptionArray.push( [ section, key, value ] );
      }
      else {	// キーの指定ミスがあった場合
        Alert( "\"" + key + "\" key is NOT found in [" + section + "] section." );
        iniOptionArray.push( [ section, undefined, null ] );
      }
    }
    else {	// セクションの指定ミスがあった場合
      Alert( "[" + section + "] section is NOT found in \"Mery.ini\" file." );
      iniOptionArray.push( [ undefined, key, null ] );
    }
    id1 = 0;
  }
  return iniOptionArray;
}

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