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

=== ソースコード ===
 // #title="Mery.ini のオプション値を取得"
 
 /**
  * 組み込み関数 '''GetIniOption3( keyArray, boolAlertEnable )'''
  * 
  * 引数で指定した '''任意の''' INI オプション項目名と「値」をプロパティ値として持つ
  * '''''入れ子型のオブジェクト''''' を返す
  * 
  * '''第1引数:''' INI オプション項目（セクション名とキー名）を指定する入れ子型の配列
  * ※ 配列の記述形式は '''''[ [ section1, key2 ], [ section2, key2 ] ... ]''''' （※入れ子にする）
  * 
  * '''第2引数:''' INI オプション項目（セクション名とキー名）の指定ミスがあったときに
  *          警告ダイアログを表示する／しない を <syntaxhighlight lang="javascript" inline>true</syntaxhighlight> か <syntaxhighlight lang="javascript" inline>false</syntaxhighlight> で指定する（省略可）
  * 
  * '''戻り値:''' INI オプション項目の「値」を String 型のプロパティ値として持つ '''''オブジェクト'''''
  * ※ 戻り値の形式は '''''{ section1: { key1: value1 }, section2: { key2: value2 } ... }'''''
  * ⇒ '''''<syntaxhighlight lang="javascript" inline>objOptions[ section ][ key ] = value</syntaxhighlight>'''''
  * 
  * ※ 有効な value はすべて '''文字列型''' （String）で返す
  *  （数字の場合も '''<syntaxhighlight lang="javascript" inline>"1"</syntaxhighlight>''' として返す    <span style="color:#c00;">"1" !== 1</span> ）
  * ※ 無効な section, key が指定されたものにたいしては ''<syntaxhighlight lang="javascript" inline>value = undefined</syntaxhighlight>'' で返す
  * 
  * ※ 各「値」への参照方法は
  *   <syntaxhighlight lang="javascript" inline>var iniOptions = GetIniOption3( keyArray );</syntaxhighlight>
  *   <syntaxhighlight lang="javascript" inline>var value1 = iniOptions[ "section1" ][ "key1" ];	// ブラケット記法</syntaxhighlight>
  *   <syntaxhighlight lang="javascript" inline>var value2 = iniOptions.section2.key2;		// ドット記法</syntaxhighlight>
  */
<div id="関数3"></div>
<syntaxhighlight lang="javascript">
// ---------- ▼ 組み込み関数 ココから ▼ ----------

function GetIniOption3( keyArray, alertEnable ) {
  var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
  // Mery.ini を探す
  var iniPath = editor.FullName.replace( /\.exe$/i, ".ini" );
  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 options = {};
  var section, key, value, reg, id1, id2, id3, id4;
  var iniLength = iniText.length;
  for ( var i = 0, len = keyArray.length; i < len; id1 = 0, i ++ ) {
    section = keyArray[i][0];
    key     = keyArray[i][1];
    options[ section ] = options[ section ] || {};
    // セクション名を検索
    reg = new RegExp( "^\\[" + section.replace( /\W/g, "\\$&" ) + "\\]$", "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 );	// ("\n"+"=").length = 2
        options[ section ][ key ] = value;
      }
      else {	// キー名の指定ミス
        options[ section ][ key ] = undefined;
        if ( alertEnable ) {
          Alert( "\"" + key + "\" key is NOT found in [" + section + "] section.\n\n"
               + "The function will return ... \n"
               + "{ \"" + section + "\" : { \"" + key + "\" : undefined } }" );
        }
      }
    }
    else {		// セクション名の指定ミス
      options[ section ][ key ] = undefined;
      if ( alertEnable ) {
        Alert( "[" + section + "] section is NOT found in \"Mery.ini\" file.\n\n"
             + "The function will return ... \n"
             + "{ \"" + section + "\" : { \"" + key + "\" : undefined } }" );
      }
    }
  }
  return options;
}

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