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

[文本处理] 我制作了一个用于编写批处理(bat和vbs)的工具

使用之前一定看程序附带的帮助!代码如下:
  1. @echo off
  2. title BatchPlus:无任务
  3. color 1f
  4. :start
  5. set /p user_input=键入1新建一个文本;键入2退出编辑器;键入3查看帮助;键入4试运行已有批处理;键入5来启动命令提示符;键入6以文本形式查看已有批处理文件:
  6. if %user_input% equ 1=goto new
  7. if %user_input% equ 2=exit
  8. if %user_input% equ 3=goto help
  9. if %user_input% equ 4=goto run
  10. if %user_input% equ 5=goto cmd
  11. if %user_input% equ 6=goto edit
  12. goto start
  13. :new
  14. title BatchPlus:新建批处理
  15. set /p fillname=为文件命名:
  16. set /p hzx=选择文件的扩展名 1=.vbs 2=.bat:
  17. if %hzx% equ 1=set hz=vbs
  18. if %hzx% equ 2=set hz=bat
  19. :newedit
  20. set /p u=^>
  21. echo %u%>>%cd%\%fillname%.%hz%
  22. goto newedit
  23. :run
  24. title BatchPlus:试运行
  25. set /p user_in=请将文件拖入窗口或手动输入路径(%%cd%%可以表示工具主程序当前路径):
  26. %user_in%
  27. goto start
  28. :cmd
  29. title BatchPlus:命令提示符
  30. :cmdstart
  31. set /p cmdin=^>
  32. %cmdin%
  33. goto cmdstart
  34. :edit
  35. set /p editin=请将文件拖入窗口或手动输入路径(%%cd%%可以表示工具主程序当前路径):
  36. for %%i in (%editin%) do echo "%%i" & type "%%i"
  37. goto start
  38. :help
  39. titile BatchPlus:帮助
  40. set /p a=键入1来查看常见问题,键入2查看本工具主要功能,键入3回到选择页面:
  41. if %a% equ 1=goto help1
  42. if %a% equ 2=goto help2
  43. if %a% equ 3=goto start
  44. goto start
  45. :help1
  46. echo 常见问题
  47. echo 1.如果编写的批处理不能正常运行,例如闪退或缺少某些功能,在保证您的语法正确的情况下,请尝试在标点符号前键入一个转义符^
  48. echo 2.批处理编写完毕最后一行后请换行再关闭工具,否则最后一行将不会被保存
  49. echo 3.本工具尚未完善,如有bug请谅解
  50. echo 特别声明:由于技术原因,大部分返回启动页面的侦测代码会导致工具闪退,因此只得去掉这些部分,现在您需要关闭本工具的窗口然后重新打开才能重新选择功能,给您带来的不便敬请谅解
  51. goto start
  52. :help2
  53. echo 程序主要功能
  54. echo 1.本工具可以自动新建后缀为.bat的文档,无需手动修改,尤其是在没有开启显示文件后缀名的操作系统上,这一点可以方便您的操作
  55. echo 2.避免了保存批处理文件编码选择不正确,导致的乱码问题,使用"BatchPlus"编写的批处理文件统一使用ANSI编码保存
  56. goto start
复制代码

更新了,新版加入了试运行vbs的功能,因为我的用户组没法发到原创&转载,无奈只能发到这里,往版主包容一下
  1. @echo off
  2. title BatchPlus:无任务
  3. color 0f
  4. :start
  5. set /p user_input=键入1新建一个文本;键入2退出编辑器;键入3查看帮助;键入4试运行已有批处理;键入5来启动命令提示符;键入6以文本形式查看已有批处理文件:
  6. if %user_input% equ 1=goto new
  7. if %user_input% equ 2=exit
  8. if %user_input% equ 3=goto help
  9. if %user_input% equ 4=goto run
  10. if %user_input% equ 5=goto cmd
  11. if %user_input% equ 6=goto edit
  12. goto start
  13. :new
  14. title BatchPlus:新建批处理
  15. set /p fillname=为文件命名:
  16. set /p hzx=选择文件的扩展名 1=.vbs 2=.bat 3=.ps1 4=.py:
  17. if %hzx% equ 1=set hz=vbs
  18. if %hzx% equ 2=set hz=bat
  19. if %hzx% equ 3=set hz=ps1
  20. if %hzx% equ 4=set hz=py
  21. :newedit
  22. set /p u=^>
  23. echo %u%>>%cd%\%fillname%.%hz%
  24. goto newedit
  25. :run
  26. title BatchPlus:试运行
  27. set /p vborcmd=运行bat文件还是以CScript运行vbs文件?:
  28. if %vborcmd% equ bat=goto runcmd
  29. if %vborcmd% equ vbs=goto runvbs
  30. goto run
  31. :runvbs
  32. set /p user_invbs=请将文件拖入窗口或手动输入路径(%%cd%%可以表示工具主程序当前路径):
  33. start CScript %user_invbs%
  34. goto start
  35. :runcmd
  36. set /p user_in=请将文件拖入窗口或手动输入路径(%%cd%%可以表示工具主程序当前路径):
  37. %user_in%
  38. goto start
  39. :cmd
  40. title BatchPlus:命令提示符
  41. :cmdstart
  42. set /p cmdin=^>
  43. %cmdin%
  44. goto cmdstart
  45. :edit
  46. set /p editin=请将文件拖入窗口或手动输入路径(%%cd%%可以表示工具主程序当前路径):
  47. for %%i in (%editin%) do echo "%%i" & type "%%i"
  48. goto start
  49. :help
  50. titile BatchPlus:帮助
  51. set /p a=键入1来查看常见问题,键入2查看本工具主要功能,键入3回到选择页面:
  52. if %a% equ 1=goto help1
  53. if %a% equ 2=goto help2
  54. if %a% equ 3=goto start
  55. goto start
  56. :help1
  57. echo 常见问题
  58. echo 1.如果编写的批处理不能正常运行,例如闪退或缺少某些功能,在保证您的语法正确的情况下,请尝试在标点符号前键入一个转义符^
  59. echo 2.批处理编写完毕最后一行后请换行再关闭工具,否则最后一行将不会被保存
  60. echo 3.本工具尚未完善,如有bug请谅解
  61. echo 特别声明:由于技术原因,大部分返回启动页面的侦测代码会导致工具闪退,因此只得去掉这些部分,现在您需要关闭本工具的窗口然后重新打开才能重新选择功能,给您带来的不便敬请谅解
  62. goto start
  63. :help2
  64. echo 程序主要功能
  65. echo 1.本工具可以自动新建后缀为.bat的文档,无需手动修改,尤其是在没有开启显示文件后缀名的操作系统上,这一点可以方便您的操作
  66. echo 2.避免了保存批处理文件编码选择不正确,导致的乱码问题,使用"BatchPlus"编写的批处理文件统一使用ANSI编码保存
  67. goto start
复制代码

TOP

返回列表