Macro/投稿/218 のバックアップ(No.5)

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86

/**
 * @name         backup_untitle_tab.js
 * @description  サクラエディタの新規タブ内容をバックアップ
 * @require      SakuraEditor 2.0.0.2 以上
 * @author       s_hiiragi
 * @created      2011年8月13日 9:39:48
 * 
 * @summary
 *     サクラエディタにはファイルの自動保存機能があり、予期しないWindowsの終了に
 *   対して有効です。しかし、新規作成直後の(無題)タブに関しては、ファイルとして
 *   保存されていないため自動保存機能が効きません。
 *     このマクロはこの問題を解決します。新規作成時に一時ファイルに保存を行うこ
 *   とで自動保存機能が有効となります。
 *   
 *   注意点
 *     マクロ登録時、「自動実行:」の「新規／開ファイル後」にチェックを入れて
 *     ください (これを入れないと新規作成時にマクロを実行できません)
 */
(function () {
    var UNTITLED_DIR_NAME = 'untitled_files';
    var UNTITLED_PARENT_DIR = null;  // Default is a directory "sakura.exe" exists in.
    var UNTITLED_FILE_PREFIX = '無題_';
    
    var DEFAULT_CHARSET = 4;  // UTF-8
    var DEFAULT_NEWLINE = 1;  // CRLF
    
    var fso = new ActiveXObject('Scripting.FileSystemObject');
    
    
    // 無題タブかどうかチェック
    if (Editor.GetFilename() != '') return;
    
    var untitled_dir = UNTITLED_PARENT_DIR;
    if (!untitled_dir) {
        // サクラエディタ本体のあるディレクトリパスを取得
        var exe_dir = fso.GetParentFolderName(Editor.ExpandParameter('$S'));
        untitled_dir = fso.BuildPath(exe_dir, UNTITLED_DIR_NAME);
    }
    
    var save_index = -1;
    if (!fso.FolderExists(untitled_dir)) {
        // 無題ファイル保存先フォルダが存在しない場合
        
        // フォルダを作成
        fso.CreateFolder(untitled_dir);
        
        save_index = 0;
    }
    else {
        // 無題ファイル保存先フォルダが存在する
        
        // 若い添え字から順にファイルオープン可能か調べ、ファイルが存在しない
        // orロックされてない添え字を取得
        for (var i=0; i < 64; ++i) {  // 暴走防止のため、あえて制限を課しておく
            var save_path = fso.BuildPath(untitled_dir, UNTITLED_FILE_PREFIX + i);
            
            if (!fso.FileExists(save_path)) {
                save_index = i;
                break;
            }
            try {
                var file = fso.OpenTextFile(save_path, 2);
                file.Close();
                
                save_index = i;
                break;
            } catch (e) {
                // ファイルを書込みモードで開けない = 編集中と判断し、
                // 次の添え字のファイルを試す
//				Editor.TraceOut(
//					'Exception occured at OpenTextFile [index = ' + i + ']');
            }
        }
        if (save_index == -1) {
            var wshShell = new ActiveXObject('WScript.Shell');
            wshShell.Popup(
                '無題ファイル数の制限に達したため保存できませんでした', 0, 
                'サクラエディタマクロ - ' + fso.GetFileName(
                    Editor.ExpandParameter('$M')), 0 + 48);
            return;
        }
    }
    
    // 無題ファイルを保存
    var save_path = fso.BuildPath(untitled_dir, UNTITLED_FILE_PREFIX + save_index);
    Editor.FileSaveAs(save_path, DEFAULT_CHARSET, DEFAULT_NEWLINE);
})();