主目录\Data\Packages\User\SideBarEnhancements\Open With
复制代码

		{
				"caption": "这里是浏览器名",
				"id": "side-bar-files-open-with-seamonkey",

				"command": "side_bar_files_open_with",
				"args": {
									"paths": [],
									"application": "这里是浏览器路径，但必须是//双符号才行", // WINNT
									"extensions":"", //open all even folders
									"args":[]
								},
				"open_automatically" : false // will close the view/tab and launch the application
			},,
复制代码

for /f  "delims=" %%a in ('dir /a-d/b/s *.exe') do set f=%%a&call echo;%%f:\=\\%%
pause
复制代码

"caption": "谷歌浏览器，这是可以自定义的",
复制代码

"application": "E:\\编程\\Sublime Text Build 3103\\浏览器\\Google Chrome\\chrome.exe", // WINNT
复制代码

@echo off&Title 获取程序所在的目录名&setlocal EnableExtensions
cd /d "%~dp0"
for /f "delims=" %%I in ('DIR /S /B /A:-D *.exe') do set "ExePath=%%~I"&call :args
Endlocal&pause&exit

:args
SET "caption=%ExePath:\=" "%
for %%I in ("%caption%) do SET "caption=%%~I"
set "application=%ExePath:\=\\%"
ECHO,%caption%
ECHO,%application%
ECHO,请把以上两个参数替换到对应的地方即可。&ECHO,&ECHO,
goto :eof
复制代码

/*&cls
@echo off
(for /f "delims=" %%a in ('dir /a-d/b/s *.exe') do @echo;%%a)|cscript -nologo -e:jscript "%~f0"
pause&exit
*/

var fso=new ActiveXObject('Scripting.FileSystemObject');
var text=fso.OpenTextFile(WSH.ScriptFullName, 1).ReadAll();
var files=WSH.StdIn.ReadAll().split(/[\r\n]+/);
WSH.Echo(text.match(/\/\*[\s\S]+?\*\//g)[1].replace(
    /\/\*(\[[\s\S]+?\[)(\s+?\{[\s\S]+\})(\s+?\][\s\S]+?\])\*\//,
    function(a,b,c,d){
        var t=[];
        for(var i=0;i<files.length;i++){
            var s=c.replace(/程序名/, files[i].replace(/.+\\([^\\]+)\\[^\\]+$/,'$1'));
            var s=s.replace(/程序路径/, files[i].replace(/\\/g,'\\\\'));
            t.push(s);
        }
        return b+t.join(',\r\n')+d;
    }
))

/*[
    {"id": "side-bar-files-open-with",
        "children":
        [
           {
              "caption": "程序名",
              "id": "side-bar-files-open-with-seamonkey",

              "command": "side_bar_files_open_with",
              "args": {
                          "paths": [],
                          "application": "程序路径", // WINNT
                          "extensions":"", //open all even folders
                          "args":[]
                      },
              "open_automatically" : false // will close the view/tab and launch the application
           }
        ]
    }
]*/
复制代码

(for /f "delims=" %%a in ('dir /a-d/b/s chrome.exe') do @echo;%%a)|cscript -nologo -e:jscript 

"%~f0"


(for /f "delims=" %%a in ('dir /a-d/b/s firefox.exe') do @echo;%%a)|cscript -nologo 

-e:jscript "%~f0"


(for /f "delims=" %%a in ('dir /a-d/b/s 世界之窗深度单文件版.exe') do @echo;%%a)|cscript -nologo 

-e:jscript "%~f0"

......
复制代码

@echo off&Title 完整测试代码&setlocal EnableExtensions

:::::::::::::::::::::::::::::::::::::::::::
(FOR %%I IN (Z Y X W V U T S R Q P O N M L K J I H G F E D C) DO IF EXIST "%%I:\" set "RootDir=%%I:")&call :CreateDir&@rem 此条测试使用。
if not exist ".\Data\Packages\User\SideBarEnhancements\Open With" md ".\Data\Packages\User\SideBarEnhancements\Open With"
SET "FilePath=.\Data\Packages\User\SideBarEnhancements\Open With\Side Bar.sublime-menu"
.>"%FilePath%" 2>nul&@rem 清空文件Side Bar.sublime-menu的内容，如果需要就备份。
call :head

%Core% SET "Program=chrome.exe firefox.exe SogouExplorer.exe"&@rem 定义的exe文件名要避免cmd命令行上的特殊字符；除此以外程序对已存在的路径中的特殊字符不敏感。
%Core% FOR %%I IN (%Program%) DO for /f "delims=" %%J in ('DIR /S /B /A:-D "%%~I"') do if /I "%%~nxJ"=="%%~I" (set "ExePath=%%~J"&call set "application=%%ExePath:\=\\%%"&call :args&call :Build)
call :end

notepad "%FilePath%"&rd /s /q "%RootDir%\%TestDir%" 2>NUL&@rem 此条测试使用。
Endlocal&exit

@rem 获取程序所在的目录名称。
:args
%Core% SET "caption=%ExePath:\=" "%
%Core% for %%I in ("%caption%) do SET "caption=%%~I"
goto :eof
:::::::::::::::::::::::::::::::::::::::::::

@rem 文件中间的可变部分。
:Build
set /p"=			{"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p=				"caption": "%caption%",<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=				"id": "side-bar-files-open-with-seamonkey","<nul>>"%FilePath%"&echo,>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=				"command": "side_bar_files_open_with","<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=				"args": {"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=						"paths": [],"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p=						"application": "%application%", // WINNT<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=						"extensions":"", //open all even folders"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=						"args":[]"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=					},"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=				"open_automatically" : false // will close the view/tab and launch the application"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"= 			},"<nul>>"%FilePath%"&echo,>>"%FilePath%"&echo,>>"%FilePath%"
goto :eof

@rem 文件的固定尾部。
:end
set /p"=			{"caption":"-"}"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=		]"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=	}"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=]"<nul>>"%FilePath%"&echo,>>"%FilePath%"
goto :eof

@rem 文件的固定头部。
:head
set /p"=["<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=	{"id": "side-bar-files-open-with","<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=		"children":"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=		["<nul>>"%FilePath%"&echo,>>"%FilePath%"
goto :eof

@rem 模拟附件“Side Bar.sublime-menu”中的文件路径，测试使用。
:CreateDir
FOR /F "delims=" %%I IN ('DIR /B /A:D "%RootDir%\"') DO for /F "eol=  skip=5 tokens=1 delims=" %%J in ('dir "%RootDir%\%%~I" /w /a') do if "%%J"=="[.]  [..] " (SET "DirExist=%%~I")
:loop
set TestDir=%RANDOM%
IF "%DirExist%"=="" (if exist "%RootDir%\%TestDir%\" (goto :loop) else (md "%RootDir%\%TestDir%")) else (set "TestDir=%DirExist%")
cd /d %RootDir%\%TestDir%

md "%RootDir%\%TestDir%\360安全浏览器\360se7.0.0.180"
md "%RootDir%\%TestDir%\Google【谷歌浏览器 (Google Chrome) 35.0.1916.114 绿色免安装版+便携版 - 精品绿色便携软件】Chrome_35.0.1916.114_PortableSoft\GoogleChromePortable\App\Google Chrome"
md "%RootDir%\%TestDir%\OperaNextPortable"
md "%RootDir%\%TestDir%\pcxFirefox-46.0-zhCN-vc2013-x86-sse2-betterpgo-160430\firefox"
md "%RootDir%\%TestDir%\SafariPortable"
md "%RootDir%\%TestDir%\SogouExplorer"
md "%RootDir%\%TestDir%\傲游浏览器\111\Bin"
md "%RootDir%\%TestDir%\桌面\1\浏览器类\IETester v0.5.2"

2>nul .>"%RootDir%\%TestDir%\360安全浏览器\360se7.0.0.180\360se.exe"
2>nul .>"%RootDir%\%TestDir%\Google【谷歌浏览器 (Google Chrome) 35.0.1916.114 绿色免安装版+便携版 - 精品绿色便携软件】Chrome_35.0.1916.114_PortableSoft\GoogleChromePortable\App\Google Chrome\chrome.exe"
2>nul .>"%RootDir%\%TestDir%\OperaNextPortable\launcher.exe"
2>nul .>"%RootDir%\%TestDir%\pcxFirefox-46.0-zhCN-vc2013-x86-sse2-betterpgo-160430\firefox\firefox.exe"
2>nul .>"%RootDir%\%TestDir%\SafariPortable\SafariPortable.exe"
2>nul .>"%RootDir%\%TestDir%\SogouExplorer\SogouExplorer.exe"
2>nul .>"%RootDir%\%TestDir%\傲游浏览器\111\Bin\Maxthon.exe"
2>nul .>"%RootDir%\%TestDir%\桌面\1\浏览器类\IETester v0.5.2\IETester.exe"
2>nul .>"%RootDir%\%TestDir%\桌面\1\浏览器类\LisectIE6.exe"
2>nul .>"%RootDir%\%TestDir%\桌面\1\浏览器类\世界之窗深度单文件版.exe"
goto :eof
:::::::::::::::::::::::::::::::::::::::::::
复制代码

@echo off&Title 生成Side Bar.sublime-menu的内容&setlocal EnableExtensions
if not exist ".\Data\Packages\User\SideBarEnhancements\Open With" md ".\Data\Packages\User\SideBarEnhancements\Open With"
SET "FilePath=.\Data\Packages\User\SideBarEnhancements\Open With\Side Bar.sublime-menu"
if exist "%FilePath%" if not exist "%FilePath%.bak" copy /y "%FilePath%" "%FilePath%.bak" >nul
.>"%FilePath%" 2>nul&call :head
SET "Program=chrome.exe firefox.exe launcher.exe SafariPortable.exe Maxthon.exe TheWorld.exe 360se.exe 360chrome.exe baidubrowser.exe QQBrowser.exe SogouExplorer.exe LisectIE6.exe IETester.exe navigator.exe"
FOR %%I IN (%Program%) DO for /f "delims=" %%J in ('DIR /S /B /A:-D "%%~I" 2^>nul') do if /I "%%~nxJ"=="%%~I" (set "ExePath=%%~J"&call set "application=%%ExePath:\=/%%"&SET "caption=%%~I"&call :Build)
call :end
(iconv.exe --help >NUL 2>nul)&&(for /f "usebackq" %%I in (`SET /P^="测试"^<NUL^|iconv.exe -f GB2312 -t java`) do if "%%I"=="\u6d4b\u8bd5" ((iconv.exe -f GBK -t UTF-8 "%FilePath%" > "%FilePath%.tmp")&(type "%FilePath%.tmp">"%FilePath%")&(del /f/q "%FilePath%.tmp")))
notepad "%FilePath%"&Endlocal&exit

:Build
set /p=        // This is [%caption%]<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=            {"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p=                "caption": "%caption%",<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                "id": "side-bar-files-open-with-seamonkey","<nul>>"%FilePath%"&echo,>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                "command": "side_bar_files_open_with","<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                "args": {"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                            "paths": [],"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p=                            "application": "%application%", // WINNT<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                            "extensions":"", //open all even folders"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                            "args":[]"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                        },"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                "open_automatically" : false // will close the view/tab and launch the application"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=            },"<nul>>"%FilePath%"&echo,>>"%FilePath%"&echo,>>"%FilePath%"&echo,>>"%FilePath%"
goto :eof

:end
set /p"=            {"caption":"-"}"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=        ]"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=    }"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=]"<nul>>"%FilePath%"&echo,>>"%FilePath%"
goto :eof

:head
set /p"=["<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=    {"id": "side-bar-files-open-with","<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=        "children":"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=        ["<nul>>"%FilePath%"&echo,>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=        //application 1"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=            {"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                "caption": "Photoshop","<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                "id": "side-bar-files-open-with-photoshop","<nul>>"%FilePath%"&echo,>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                "command": "side_bar_files_open_with","<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                "args": {"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                            "paths": [],"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                            "application": "Adobe Photoshop CS5.app", // OSX"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                            "extensions":"psd^|png^|jpg^|jpeg",  //any file with these extensions"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                            "args":[]"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                        },"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=                "open_automatically" : false // will close the view/tab and launch the application"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=            },"<nul>>"%FilePath%"&echo,>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=        //separator"<nul>>"%FilePath%"&echo,>>"%FilePath%"
set /p"=            {"caption":"-"},"<nul>>"%FilePath%"&echo,>>"%FilePath%"&echo,>>"%FilePath%"&echo,>>"%FilePath%"
goto :eof
:::::::::::::::::::::::::::::::::::::::::::
复制代码

@echo off
rem win7及以上系统运行
dir /a-d/b/s *.exe|powershell -c "$t='';[IO.File]::ReadAllText('%~f0', [Text.Encoding]::Default) -match '(?<=pause&exit\r\n)(\[[\s\S]+?\[)(\s+?\{[\s\S]+\})(\s+?\{[\s\S]+?\][\s\S]+?\])'|out-null;$input|%%{$t+=(($matches[2] -replace 'fname',($_.split('\')[-2])) -replace 'fpath',($_ -replace '\\','\\'))+\",`n\"};($matches[1]+$t+$matches[3]) -replace '\r',''|out-file '$result.txt' -encoding utf8"
pause&exit
[
    {"id": "side-bar-files-open-with",
        "children":
        [
           {
              "caption": "fname",
              "id": "side-bar-files-open-with-seamonkey",

              "command": "side_bar_files_open_with",
              "args": {
                          "paths": [],
                          "application": "fpath", // WINNT
                          "extensions":"", //open all even folders
                          "args":[]
                      },
              "open_automatically" : false // will close the view/tab and launch the application
           }
           {"caption":"-"}
        ]
    }
]
复制代码