上書き保存(UAC対応)

概要

UAC に対応した「上書き保存」マクロです．

変更履歴

2013/1/27 初版

注意

若干の副作用(制限)があります．
環境変数「TEMP」にアクセスします．
「TEMP」フォルダ配下の同名ファイルを書き換えます．

使用方法

コードを js ファイルにしてマクロを登録する．
必要があれば，Ctrl+S に登録する．

コード

副作用(制限)が異なる 2 パターンのコードがあるので，より制限を許容できる方のコードをご使用ください．

パターン1

副作用(制限)

改行コードは固定
「外部でファイルが変更されています」のメッセージが表示される

#title="上書き保存(UAC対応)"

// -----------------------------------------------------------------------------
// Overwrite.js
//
// UAC対応の上書き保存
//
// (C) ks
// http://merysmacro.seesaa.net/
// -----------------------------------------------------------------------------

var NEWLINE_CODE = "\r\n";

// UAC 不要な場合は通常保存
if (!NeedUAC(Document.FullName)){
  Document.Save();
  Quit();
}

// 『無題』は保存対象外
if (!Document.Name) {
  Quit();
}
// 変更がない場合は保存しない
if (Document.Saved) {
  Quit();
}

// マークの更新
//すぐに反映されないので対処
Document.Saved = true;
var sel = Document.Selection;
if (sel.GetActivePointX(mePosLogical) == 1 && sel.GetActivePointY(mePosLogical) == 1) {
  sel.CharLeft();
} else {
  sel.CharLeft();
  sel.CharRight();
}

// 一時ファイルに保存して UAC 対応ムーブ
var shell = new ActiveXObject("Wscript.Shell");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var folder = shell.ExpandEnvironmentStrings("%TEMP%");

var tempFilePath = fso.BuildPath(folder, Document.Name);
SaveToFile(tempFilePath, Document);

var appShell = new ActiveXObject("Shell.Application");
appShell.ShellExecute("cmd.exe", '/c MOVE /Y "' + tempFilePath +'" "' + Document.FullName + '"', "", "runas", 2);

// UAC が必要かを判定
function NeedUAC(path) {
  if (!path) {
    return false;
  }

  // OS 判定
  // XP 以前は不要
  var oLocator = new ActiveXObject("WBemScripting.SWbemLocator");
  var oService = oLocator.ConnectServer();
  var os = new Enumerator(oService.ExecQuery("SELECT *FROM Win32_OperatingSystem"));
  if (Number(os.item().Version.substring(0, 3)) < 6.0) {
    return false;
  }

  // パス判定
  path = path.toLowerCase().match(/^.*\\/)[0];
  if (path == "c:\\" || path.indexOf("c:\\program files") >= 0 || path.indexOf("c:\\windows\\") >= 0) {
    return true;
  }

  return false;
}

// ファイル保存
function SaveToFile(path, doc) {
  if (!charset) {
    var charset = "utf-8";
    switch (doc.Encoding) {
      case meEncodingEUC:           charset = "euc-JP";   break;
      case meEncodingShiftJIS:        charset = "shift-jis";  break;
      case meEncodingUTF16LE:
      case meEncodingUTF16BE:         charset = "unicode";  break;
      case meEncodingUTF7:          charset = "utf-7";    break;
      case meEncodingUTF8WithSignature:
      case meEncodingUTF8WithoutSignature:  charset = "utf-8";    break;
    }
  }
  var adodb = new ActiveXObject("ADODB.Stream");
  adodb.Charset = charset;
  adodb.Type = 2;
  adodb.Open();
  adodb.WriteText(doc.Text.replace(/\n/mg, NEWLINE_CODE));

  // BOM 削除処理
  if (charset.toLowerCase() === ("utf-8")) {
    adodb.Position = 0;
    adodb.Type = 1;
    adodb.Position = 3;
    var binary = adodb.Read();
    adodb.Close();

    // 新規ストリームに BOM を除いた文字列を書き込む
    adodb.Open();
    adodb.Write(binary);
  }
  adodb.SaveToFile(path, 2);
  adodb.Close();
};

パターン2

副作用(制限)

元に戻す，やり直しの履歴が削除される

#title="上書き保存"

// -----------------------------------------------------------------------------
// Overwrite.js
//
// UAC対応の上書き保存
//
// (C) ks
// http://merysmacro.seesaa.net/
// -----------------------------------------------------------------------------

// UAC 不要な場合は通常保存
if (!NeedUAC(Document.FullName)){
  Document.Save();
  Quit();
}

// 『無題』は保存対象外
if (!Document.Name) {
  Quit();
}
// 変更がない場合は保存しない
if (Document.Saved) {
  Quit();
}

var shell = new ActiveXObject("Wscript.Shell");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var folder = shell.ExpandEnvironmentStrings("%TEMP%");
var tempFilePath = fso.BuildPath(folder, Document.Name);

// 保存前の状態を保持
var sel = Document.Selection;
var latestText = Document.Text;
var sx = ScrollX, sy = ScrollY;
var tx = sel.GetTopPointX(mePosLogical), ty = sel.GetTopPointY(mePosLogical);
var bx = sel.GetBottomPointX(mePosLogical), by = sel.GetBottomPointY(mePosLogical);
var filePath = Document.FullName;

// 一時ファイルに保存して UAC 対応ムーブ
Document.Saved = true;
Document.Save(tempFilePath);
var appShell = new ActiveXObject("Shell.Application");
appShell.ShellExecute("cmd.exe", '/c MOVE /Y "' + tempFilePath +'" "' + filePath + '"', "", "runas", 2);

// ファイルムーブの完了をポーリング(最大 1 秒)
for (var i=0; i<50; i++) {
  Sleep(20);
  if (!fso.FileExists(tempFilePath)) {
    break;
  }
}

// ファイルを開き直す
// UACの昇格を拒否されていた場合は，エディタ上の内容だけ書き換え
Editor.OpenFile(filePath);
var doc = Editor.ActiveDocument
if (doc.Text != latestText) {
  doc.Text = latestText;
}
doc.Selection.SetActivePoint(mePosLogical, tx, ty);
doc.Selection.SetAnchorPoint(mePosLogical, bx, by);
ScrollX = sx; ScrollY = sy;

// UAC が必要かを判定
function NeedUAC(path) {
  if (!path) {
    return false;
  }

  // OS 判定
  // XP 以前は不要
  var oLocator = new ActiveXObject("WBemScripting.SWbemLocator");
  var oService = oLocator.ConnectServer();
  var os = new Enumerator(oService.ExecQuery("SELECT *FROM Win32_OperatingSystem"));
  if (Number(os.item().Version.substring(0, 3)) < 6.0) {
    return false;
  }

  // パス判定
  path = path.toLowerCase().match(/^.*\\/)[0];
  if (path == "c:\\" || path.indexOf("c:\\program files") >= 0 || path.indexOf("c:\\windows\\") >= 0) {
    return true;
  }

  return false;
}

ご意見・ご要望

何かありましたら，右の [編集] から追記してください．対応するもかしれません．