[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
kli2018

Rank: 1

帖子
12 
积分
27 
技术
0  
捐助
0  
注册时间
2018-9-4 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2020-7-2 09:38 | 只看该作者

[系统相关] [已解决]请问这个批处理还能精简下吗

本帖最后由 kli2018 于 2020-7-2 13:28 编辑

如题
  1. @echo off

  2. PUSHD %~dp0

  3. 

  4. echo.

  5. echo 1.为常用图片格式文件添加右键打开

  6. echo.

  7. echo 2.删除

  8. echo.

  9. set /p file=请选择？(1/2):

  10. if "%file%"=="1" goto ql1

  11. if "%file%"=="2" goto ql2

  12. 

  13. :ql1

  14. for /f "tokens=2 delims==" %%a in ('assoc .bmp') do set "pictype=%%a"

  15. call :addright

  16. for /f "tokens=2 delims==" %%a in ('assoc .gif') do set "pictype=%%a"

  17. call :addright

  18. for /f "tokens=2 delims==" %%a in ('assoc .ico') do set "pictype=%%a"

  19. call :addright

  20. for /f "tokens=2 delims==" %%a in ('assoc .jpg') do set "pictype=%%a"

  21. call :addright

  22. for /f "tokens=2 delims==" %%a in ('assoc .jpe') do set "pictype=%%a"

  23. call :addright

  24. for /f "tokens=2 delims==" %%a in ('assoc .jpeg') do set "pictype=%%a"

  25. call :addright

  26. for /f "tokens=2 delims==" %%a in ('assoc .png') do set "pictype=%%a"

  27. call :addright

  28. goto :EOF

  29. 

  30. :ql2

  31. for /f "tokens=2 delims==" %%a in ('assoc .bmp') do set "pictype1=%%a"

  32. call :deleteright

  33. for /f "tokens=2 delims==" %%a in ('assoc .gif') do set "pictype1=%%a"

  34. call :deleteright

  35. for /f "tokens=2 delims==" %%a in ('assoc .ico') do set "pictype1=%%a"

  36. call :deleteright

  37. for /f "tokens=2 delims==" %%a in ('assoc .jpg') do set "pictype1=%%a"

  38. call :deleteright

  39. for /f "tokens=2 delims==" %%a in ('assoc .jpe') do set "pictype1=%%a"

  40. call :deleteright

  41. for /f "tokens=2 delims==" %%a in ('assoc .jpeg') do set "pictype1=%%a"

  42. call :deleteright

  43. for /f "tokens=2 delims==" %%a in ('assoc .png') do set "pictype1=%%a"

  44. call :deleteright

  45. goto :EOF

  46. 

  47. :addright

  48. Reg.exe add "HKLM\SOFTWARE\Classes\%pictype%\shell\open1" /v "Icon" /t REG_SZ /d "%CD%\FSViewer.exe,0" /f

  49. Reg.exe add "HKLM\SOFTWARE\Classes\%pictype%\shell\open1" /ve /t REG_SZ /d "FSViewer" /f

  50. Reg.exe add "HKLM\SOFTWARE\Classes\%pictype%\shell\open1\command" /ve /t REG_SZ /d "\"%CD%\FSViewer.exe\" \"%%1\"" /f

  51. goto :EOF

  52. 

  53. :deleteright

  54. Reg.exe delete "HKLM\SOFTWARE\Classes\%pictype1%\shell\open1" /f

  55. goto :EOF
复制代码
收藏 分享

went

Rank: 6Rank: 6

帖子
861 
积分
1735 
技术
229  
捐助
0  
注册时间
2017-9-22 
2楼
发表于 2020-7-2 12:07 | 只看该作者 
  1. @echo off

  2. PUSHD %~dp0

  3. 

  4. echo.

  5. echo 1.为常用图片格式文件添加右键打开

  6. echo.

  7. echo 2.删除

  8. echo.

  9. set /p file=请选择？(1/2):

  10. set "ext=.bmp .gif .ico .jpg .jpe .jpeg .png"

  11. if "%file%"=="1" for /f "tokens=2 delims==" %%a in ('assoc ^| findstr "%ext%"') do call :addright "%%a"

  12. if "%file%"=="2" for /f "tokens=2 delims==" %%a in ('assoc ^| findstr "%ext%"') do call :deleteright "%%a"

  13. pause&exit

  14. 

  15. :addright

  16. Reg.exe add "HKLM\SOFTWARE\Classes\%~1\shell\open1" /v "Icon" /t REG_SZ /d "%CD%\FSViewer.exe,0" /f

  17. Reg.exe add "HKLM\SOFTWARE\Classes\%~1\shell\open1" /ve /t REG_SZ /d "FSViewer" /f

  18. Reg.exe add "HKLM\SOFTWARE\Classes\%~1\shell\open1\command" /ve /t REG_SZ /d "\"%CD%\FSViewer.exe\" \"%%1\"" /f

  19. goto :EOF

  20. :deleteright

  21. Reg.exe delete "HKLM\SOFTWARE\Classes\%~1\shell\open1" /f

  22. goto :EOF
复制代码

TOP

kli2018

Rank: 1

帖子
12 
积分
27 
技术
0  
捐助
0  
注册时间
2018-9-4 
3楼
发表于 2020-7-2 13:28 | 只看该作者
本帖最后由 kli2018 于 2020-7-2 13:54 编辑

回复 2# went

谢谢

同时再问个问题
为什么我只是

set "ext=.doc .docx"

但是最后.mydocs这个的下面也添加了啊？

TOP

smss

Rank: 5Rank: 5

帖子
596 
积分
805 
技术
38  
捐助
0  
注册时间
2018-11-29 
4楼
发表于 2020-7-2 14:15 | 只看该作者
本帖最后由 smss 于 2020-7-2 14:36 编辑 
  1. @Echo off

  2. :X

  3. cls&echo 1.添加图片格式关联  2.删除图片格式关联&choice /C:12 /N /M ">>输入选择:

  4. for /f "tokens=2 delims==" %%i in ('assoc ^|findstr ".bmp .gif .ico .jpg .jpe .jpeg .png"') do call :%errorlevel% "%%i"

  5. ping 0 -n "2">nul&goto :X

  6. :1

  7. reg add "HKLM\SOFTWARE\Classes\%~1\shell\open1" /v "Icon" /t REG_SZ /d "%CD%\FSViewer.exe,0" /f

  8. reg add "HKLM\SOFTWARE\Classes\%~1\shell\open1" /ve /t REG_SZ /d "FSViewer" /f

  9. reg add "HKLM\SOFTWARE\Classes\%~1\shell\open1\command" /ve /t REG_SZ /d "\"%CD%\FSViewer.exe\" \"%%1\"" /f

  10. goto :EOF

  11. :2

  12. reg delete "HKLM\SOFTWARE\Classes\%~1\shell\open1" /f

  13. goto :EOF
复制代码

TOP

went

Rank: 6Rank: 6

帖子
861 
积分
1735 
技术
229  
捐助
0  
注册时间
2017-9-22 
5楼
发表于 2020-7-2 14:17 | 只看该作者
回复 3# kli2018
改成这样
  1. findstr /b "%ext%"
复制代码
更加准确就
  1. findstr /b "%ext: == %"
复制代码

TOP

kli2018

Rank: 1

帖子
12 
积分
27 
技术
0  
捐助
0  
注册时间
2018-9-4 
6楼
发表于 2020-7-2 15:35 | 只看该作者
回复 4# smss

谢谢

TOP

kli2018

Rank: 1

帖子
12 
积分
27 
技术
0  
捐助
0  
注册时间
2018-9-4 
7楼
发表于 2020-7-2 15:35 | 只看该作者
回复 5# went

谢谢

TOP

返回列表