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

いろいろパスジャンプ

ページ: 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]:\\|\\\\[A-Z])(.*?)(  |[\t\r\n\f\v\x])(\n|.*\n|.*)/i;
    var reg1 = /(.*?)(\\\\foobarhoge)(.*?)/i;    //foobarhogeをアクセスしてはいけない共有名に
 
    if(!path) {
        path = Editor.GetLineStr(0);
    }
    path = path.replace(reg0, "$2$3");
 
    if (!reg1.test(path)) {
        jumpCnt(path);
    } else {
        propMsg(1);
    }
}
 
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();
            if(sh.indexOf("foobarhoge") != -1) {    //foobarhogeをアクセスしてはいけない共有名に
                propMsg(2);
                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);
    }
    objSL = null;
    objFS = null;
}
 
function propMsg(n) {
    var msg;
    switch (n) {
        case 1: msg = "アクセス不可の共有名です";break;
        case 2: msg = "アクセス不可の共有パス割当ドライブです";break;
        case 3: msg = "ファイルが見つかりません";break;
        case 4: msg = "ドライブが利用できません";break;            //未実装
        default: msg = "不明なエラーです";break;
    }
    var objSL = new ActiveXObject("WScript.SHell");
    objSL.popup(msg, 0, "パスジャンプマクロ",48);
}