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

== GetIniOption2() 関数 ==
Mery.ini ファイル内の各項目 <br>
 '''[SectionName]'''
 '''KeyName1'''='''value1'''
 '''KeyName2'''='''value2'''
の「段落名・セクション <code>[SectionName]</code>」と「項目名・キー <code>KeyName</code>」の文字列を指定して「値 <code>value</code>」を取得するための '''組み込み用関数''' です。<br> <span style="color:#0000c0;">ことなるセクションに同じキー名の項目が重複して存在することを考慮してありますので、<u>Mery.ini のすべての項目の参照が可能になります</u>。</span>

* [[#関数2|組み込み関数本体]] を任意のマクロのソースコード内にペーストして使用します。
: 使い方は [[#使い方_2|使用例]] を参考にしてください。

* <b style="color:#c00;">このマクロ関数は Mery.ini の内容を編集（書き換え）するものではありません。 </b>

=== ソースコード ===
 // #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>

=== 使い方 ===
 /**
  * 【使い方】
  *
  * GetIniOptions2() 関数の使用を１回で済ませないと
  * その都度 '''INI ファイルの読み込み''' が発生してマクロの処理速度が落ちるので
  * 取得したい項目すべてをひとつの配列にまとめること
  * 
  * ※ 取得したいオプション項目がひとつだけの場合でも引数の配列は '''入れ子''' にすること
  * 
  *   '''''<code>GetIniOption2( [ [ "SectionName", "KeyName" ] ] )</code>'''''
  *
  * ※ INI のオプション項目名の記述を間違えても警告ダイアログを表示して続行する
  *    記述ミスをした項目は '''''<syntaxhighlight lang="javascript" inline>undefined</syntaxhighlight>''''' に置き換え、要求された値は '''''<syntaxhighlight lang="javascript" inline>null</syntaxhighlight>''''' で返す
  * ※ オプションの値が空 ''<code>KeyName=</code>'' の場合は、空文字列 '''''<syntaxhighlight lang="javascript" inline>""</syntaxhighlight>''''' を返す
  *
  * ※ 値はすべて '''"文字列型"'''（String）で返されるので、
  *    必要に応じて ''<code>Number( value )</code>'' などのかたちで利用すること
  */
<syntaxhighlight lang="javascript">
// ➀ セクション名とキー名をセットにした配列を用意する
// [ [section1, key1], [section2, key2] ... ]
// セクション名にバックスラッシュ･¥ 記号「\」がある場合は、ふたつ重ね「\\」で記述すること

var keyArray = new Array(				// ▼ 戻り値 ▼
  [ "General", "LineColumnView" ], 		// 0 or 1
  [ "General", "FileFilter" ], 			// "*.txt;*ini;*.htm; …"
  [ "General", "Untitled" ], 			// 「無題」の代替文字列 or ""
  [ "View", "FontName0" ], 				// フォント名（履歴） or ""
  [ "Macros\\Macro1", "FileName" ], 	// Macros\マクロ名.js or ""
  [ "Outline\\JavaScript", "Match1" ],	// 文字列値 or 正規表現 or "..."
  [ "Themes\\Theme29", "Caption" ], 	// テーマ名 or ""
  [ "Display", "FallbackFonts" ], 		// フォント名 or ""
// ※ ～ Ver 2.7.4 では FallbackFonts キーがないので [Display] undefined = null

  // ※ 無効な セクション名 や キー名 を指定した場合
  [ "HOGE", "FUGA" ],  				// [undefined]	FUGA  =  null
  [ "Themes", "PIYO" ]				// [Themes]		undefined  =  null
);


// ➁ 関数の引数に配列をあたえて、変数 iniOption に代入する
//    関数の戻り値も入れ子状の配列
//    [ [section1, key1, value1], [section2, key2, value2] ... ]
// ※ value は文字列値（String）で返される（数字の場合も "1"    ※ "1" !== 1 ）

var iniOption = GetIniOption2( keyArray );


// ➂ 戻り値で取得した配列の内容をアウトプットバーに出力する

OutputBar.Writeln( "\nRun > " + ScriptName + " : function GetIniOption2()" );
var section, key, value;
for ( var i = 0; i < iniOption.length; i ++ ) {

  section = iniOption[i][0];	// セクション名に記述ミスがあると undefined
  key     = iniOption[i][1];	// キー名に記述ミスがあると undefined

  // 上の二つのいずれかにミスがあると値は null、値が空のときは ""
  value   = iniOption[i][2];

  OutputBar.Writeln( "\n[" + section + "]\n"
                   + key + "  =  " + value );
}
</syntaxhighlight>