Macro/投稿/160 のバックアップ(No.7)

いろいろパスジャンプ

ページ: Macro/投稿
作者: ガンジャム?
カテゴリー: js
投稿日: 2006-12-31 (日) 19:27:42

メッセージ

タグジャンプの代わりに使うとパスを関連付けで開きます。パスにマッチさせる正規表現の精度が上がりました。

//pathJump.js
//選択範囲もしくはカーソル行にあるパス文字に対し以下の動作をします
//①GREP結果ウィンドウであればタグジャンプ
//②フォルダパスであればエクスプローラ
//③設定した拡張子であればサクラエディタ、それ以外はWINDOWS関連付け
//
//パスがUNCパスもしくはネットワーク割当てドライブの場合、ソース内の
//"foobarhoge"の共有名を変更することでアクセスを制限することができます。
 
windowTypeCnt();
function windowTypeCnt() {
    var windowType = Editor.ExpandParameter("${w?0$:1$:2$");
    if (windowType == 0) {
        Editor.TagJump();
    } else {
        pathJumpMain();
    }
}
 
function pathJumpMain() {
    var path = Editor.GetSelectedString(0);
    var reg0 = /(?:.*?)([A-Z]:\\|\\\\[1A-Z])(.*?)(?:[\f\t\v\x<>":,]|(?:　|\s){2,})(?:.*)/i;	//"
    //foobarhogeをジャンプ制限共有名に
    var reg1 = /\\\\foobarhoge/i;
 
    if(!path) {
        path = Editor.GetLineStr(0);
    }
    path = path.replace(reg0, "$1$2");
 
    if (reg1.test(path)) {
        propMsg(1, path);
    } else {
        jumpCnt(path);
    }
}
 
function jumpCnt(p) {
    var objSL = new ActiveXObject("WScript.Shell");
    var objFS = new ActiveXObject("Scripting.FileSystemObject");
    
    if (objFS.DriveExists(objFS.GetDriveName(p))) {
        var d = objFS.GetDrive(objFS.GetDriveName(p));
        if (d.DriveType == 3) {
            var sh = d.ShareName.toLowerCase();
 
            //foobarhogeをジャンプ制限共有名に
            if(sh.indexOf("foobarhoge") != -1) {
                propMsg(2, p);
                return(false);
            }
        }
    }
    if (objFS.FolderExists(p)) {
        objSL.Run('"'+ p +'"');
    }
    else if (objFS.FileExists(p)) {
        var ext = objFS.GetExtensionName(p);
        var lowerext = ext.toLowerCase();
        switch (lowerext) {
            case "txt":        //サクラエディタで開きたい拡張子
            case "log":
            case "dat":
            case "ini":
            case "sql":
            case "js":
            case "vbs":
            case "mac":
            case "pl":
                    Editor.FileOpen(p);
                    break;
            default:
                    objSL.Run('"'+ p +'"');
        }
    } else {
        propMsg(3, p);
    }
    objSL = null;
    objFS = null;
}
 
function propMsg(n, path) {
    var ie = new ActiveXObject("InternetExplorer.Application");
        ie.Navigate("about:blank");
    var window = ie.Document.parentWindow;
    var msg = "カーソル行or選択範囲から抽出した下記のパス文字列は、";
 
    switch (n) {
        case 1: msg = msg+"アクセス不可の共有名です";break;
        case 2: msg = msg+"アクセス不可の共有パス割当ドライブです";break;
        case 3: msg = msg+"ファイルが見つかりません";break;
        case 4: msg = msg+"ドライブが利用ません";break;    
        default: msg = "不明なエラーです";break;
    }
    var st = window.prompt(msg,path);
    window = null;
}

「タグジャンプの代わり」という目的なら，GREP結果でなくてもタグ情報付きだったときにはタグジャンプしたほうが良さそうな？タグファイルを開いている通常ウインドウかもしれないし．ついでにアウトプットウィンドウだと，タグ情報もパス情報もどちらもあり得る． -- maru 2007-06-05 (火) 18:26:36