「さいごに閉じたファイルを参照する」を編集中 (節単位)

== 組み込み関数 LatestClosedFile() ==
[[includeライブラリ]] を導入（#include "include/IO.js"　#include "include/MryInfo.js"）したマクロで利用する前提なら前半部分「Mery.his をさがす」「Mery.his を読み込む」のコードを圧縮することもできますが、あえて include なしで使えるようにしてあります（処理手続きはおなじなので、動作速度に差はないはず）。

 // #title = "さいごに閉じたファイル"
 // #tooltip = "「さいごに閉じたファイル」のフルパスを返す"
 
 /**
  * 関数 LatestClosedFile( num )
  * Mery.his を読み込んで「さいごに閉じたファイル」のフルパスを返す
  * 
  * 引数 num: 「さいごに閉じたファイル」の件数を指定
  *     1 を指定した場合または省略した場合は、１件のフルパスを文字列で返す
  *     2 以上の数値を指定した場合は、配列で返す
  *       
  * ※ Mery の「オプション」設定で「カーソル位置とブックマークを保存する」
  *   が無効（Mery.his がない）なら "" を返す
  * ※ Mery.his を下から順にチェックするだけなので
  *   マクロなどで閉じられたファイルは Mery.his の並び順に反映されていないことがあるかも
  */
<syntaxhighlight lang="javascript">
function LatestClosedFile( num ) {
  var start = new Date();	// 所要時間計測（開始）
  var closedFile = "";
  var closedFileArray = [];
  var num = num ? num : 1;

  // Mery.his をさがす (ポータブル / %APPDATA% )
  var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
  var meryhis = editor.FullName.replace( /\.exe$/i , ".his" );
  if ( ! Fso.FileExists( meryhis ) ) {
    meryhis = new ActiveXObject( "WScript.Shell" )
              .ExpandEnvironmentStrings( "%APPDATA%" )
            + "\\Mery\\Mery.his";
  }
  if ( ! Fso.FileExists( meryhis ) ) {
    return closedFile;	// "" を返す
  }

  // Mery.his を読みこむ
  var Adodb = new ActiveXObject( "ADODB.Stream" );
  var adTypeText = 2,  adReadAll = -1;
  Adodb.Type = adTypeText,  Adodb.Charset = "UTF-8";
  Adodb.Open();
  Adodb.LoadFromFile( meryhis );
  var hisText = Adodb.ReadText( adReadAll ).replace( /\r\n?/g, "\n" );
  Adodb.Close();

  // Mery.his からファイルパスを抽出する
  var hisArray = hisText.match( /^\[.+\]$/gm );

  if ( ! hisArray ) {
    return closedFile;	// "" を返す
  }

  // 履歴のファイルパスをうしろから順にチェックして
  // 現在開いているファイルにないものを「さいごに閉じたファイル」とする

  hisArray.reverse();
  var hCount = hisArray.length;
  var eCount = Editors.Count;
  var dCount, cCount, file, hit;
  outerLoop:
  for ( var i = 0; i < hCount || cCount < num; i ++ ) {
    closedFile = hisArray[i].replace( /^\[|\]$/g, "" );
    for ( var ee = 0; ee < eCount; ee ++ ) {
      dCount = Editors.Item( ee ).Documents.Count;
      for ( var dd = 0, hit = 0; dd < dCount; dd ++ ) {
        file = Editors.Item( ee ).Documents.Item( dd ).FullName;
        if ( closedFile == file ) {
          hit ++;
        }
      }
      cCount = closedFileArray.length;
      if ( ! hit && cCount < num && Fso.FileExists( closedFile ) ) {
        closedFileArray.push( closedFile );
      }
      if ( cCount == num ) {
        break outerLoop;
      }
    }
  }

  Status = "[ " + ( ( new Date() - start ) / 1000 ).toFixed( 3 ) + " 秒 ]";
  return num == 1 ? ( closedFileArray[0] || "" ) : closedFileArray;
}
</syntaxhighlight>