「IO.Serialize() の JSON を参照する」を編集中 (節単位)

== 組み込み関数 OpenJson() ==
OpenJson() を使用するには JsonDir() と JsonContents() も必要。<br>
JSON.stringify() だと Windows XP では使えないので、整形は簡易的な置換処理（ダイアログ窓のコンソールフォントでの読みやすさを優先して｛｝を全角にする。入れ子になった要素の字下げ数を考慮しない）。

<syntaxhighlight lang="javascript">
/**
 * 関数 OpenJson( jsonName )
 * JSON ファイルを開く
 * 
 * 引数は JSON ファイルのベース名
 */
function OpenJson( jsonName ) {
  var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
  var jsonName = jsonName || ScriptName.replace( /\.js$/i, "" );
  var jsonDir = JsonDir();
  var jsonPath = jsonDir + "\\" + jsonName + ".json";
  // 開く前に最新の状態に更新するなら（object は任意のものに変更すること）
  // IO.Serialize( object, jsonName );
  // Sleep( 500 );
  if ( Fso.FileExists( jsonPath )
      && JsonContents( jsonPath ).length ) {
    var confirmStr = "設定ファイルは正常です　\n\n"
                   + JsonContents( jsonPath )
                   + "設定ファイルを開きますか？　";
    if ( Confirm( confirmStr ) ) {
      var WshShell = new ActiveXObject( "WScript.Shell" );
      WshShell.Run( '"' + editor.FullName
                  + '" "' + jsonPath + '"' );
    }
  }
  else {
    Alert( "設定ファイルがありません　\n"
         + jsonDir + "　　" );
  }
}


/** 
 * 関数 JsonContents( jsonPath [, bool] )
 * JSON ファイルの文字列をメッセージボックス用に整形する
 * 
 * 第１引数は JSON ファイルのパス
 * 第２引数は真偽値（省略可）
 *  true なら \uHHHH をデコードする
 */
function JsonContents( jsonPath, bool ) {
  var contents = ( jsonPath + "　　\n"
  + IO.LoadFromFile( jsonPath )
     .replace( /^\{/, "\n｛\n    " )
     .replace( /\}$/g, "\n｝\n\n" )
     .replace( /,/g, " ,\n     " )
     .replace( /\":/g, "\":  " )
  );
  if ( bool ) {
    // 「テキスト整形」マクロより >> 符号化/復号化 >> \uHHHH デコード
    var Decode_uHHHH = function( str ) {
      return str.replace( /\\u([0-9A-Fa-f]{4})/g, function( s, n ) {
        return String.fromCharCode( Number( "0x" + n ) )
      } )
    };
    return Decode_uHHHH( contents );
  }
  else {
    // 半角アルファベットの小文字を全角にするなら
    // contents = contents.replace( /[a-z]/g,
    //   function( $0 ) {
    //     return String.fromCharCode( $0.charCodeAt( 0 ) + 0xFEE0 )
    //   } )
    return contents;
  }
}
</syntaxhighlight>