无忧启动论坛

标题: 批处理系列2：多彩文字 [打印本页]
作者: 青青草    时间: 2021-7-2 12:49
标题: 批处理系列2：多彩文字
本帖最后由 青青草 于 2021-7-2 15:18 编辑

完整代码：
  1. @ECHO OFF
  2.    Title 电脑维护
  3.    mode con lines=32 cols=72
  4.    color 1f
  5.    setlocal enabledelayedexpansion
  6.    for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (set "DEL=%%a")
  7. cls
  8.     echo.
  9.     call :ColorText 1C "                              电脑维护菜单"
  10.     echo.
  11.     echo.
  12.     echo.
  13.     call :ColorText 1B "       磁盘管理                 系统维护                 映像管理"
  14.     echo.
  15.     echo.
  16.     echo.
  17.     call :ColorText 1F "  01. 将整个磁盘分区      11. 重新 安装 系统       21. 查看映像的信息"
  18.     echo.
  19.     echo.
  20.     call :ColorText 1F "  02. 删除指定的分区      12. 完整 备份 系统       22. 将镜像重新命名"
  21.     echo.
  22.     echo.
  23.     call :ColorText 1F "  03. 创建指定的分区      13. 增量 备份 系统       23. 提取指定的镜像"
  24.     echo.  
  25.     echo.
  26.     call :ColorText 1F "  04. 回收分区的空间      14. 还原以前的系统       24. 删除指定的镜像"
  27.     echo.
  28.     echo.
  29.     call :ColorText 1F "  05. 扩容分区的容量      15. 修复 系统 引导       25. 装载并修改镜像"
  30.     echo.
  31.     echo.
  32.     call :ColorText 1F "  06. 格式化指定分区      16. 添加或删除驱动       26. 创建可启动映像"
  33.     echo.
  34.     echo.
  35.     call :ColorText 1F "  07. 显示或隐藏分区      17. 备份或还原驱动       27. 完整备份文件夹"
  36.     echo.
  37.     echo.
  38.     call :ColorText 1F "  08. 管理分区的盘符      18. 查看 驱动 程序       28. 还原映像到目录 "
  39.     echo.
  40.     echo.
  41.     call :ColorText 1F "  09. 管理分区的图标      19. 集成 系统 补丁       29. WIM 与 ESD互转  "
  42.     echo.
  43.     echo.
  44.     call :ColorText 1F "  10. 设置分区为只读      20. 系统检查与修复 "     
  45.     call :ColorText 1C "       30. 退 "       
  46.     call :ColorText 1A " 出"
  47.     call :ColorText 1E " 批"
  48.     call :ColorText 1D " 处"
  49.     call :ColorText 1B " 理"
  50.     echo.
  51.     echo.
  52.         call :ColorText 1A "      温馨提醒：下面每一步操作， 请按回车键确认！"
  53.     echo.
  54. echo.
  55.     echo.
  56.     call :ColorText 1E " 请输入您选择的菜单序号"
  57.     set /p w=:
  58.     echo %w%|findstr "^0">nul && set w=%w:~1,1%
  59.     echo.
  60.     for /l %%i in (1 1 30) do if %w%==%%i goto %%i
  61.     echo.
  62.     call :ColorText 1B "   输错了！请重新输入!"
  63.     echo.
  64. :ColorText
  65.     <nul set /p "=%DEL%" > "%~2"
  66.     findstr /v /a:%1 /R "+" "%~2" nul
  67.     del "%~2" > nul
  68.     goto :eof
复制代码

未标题-1.png (33.26 KB, 下载次数: 213)

未标题-1.png
作者: bjay2008xmy    时间: 2021-7-2 13:17
提示: 作者被禁止或删除 内容自动屏蔽
作者: 青青草    时间: 2021-7-2 13:30
bjay2008xmy 发表于 2021-7-2 13:17
findstr  /a后面缺少参数

你不妨试一下。
作者: bjay2008xmy    时间: 2021-7-2 13:46
提示: 作者被禁止或删除 内容自动屏蔽
作者: plusv    时间: 2021-7-2 14:17
本帖最后由 plusv 于 2021-7-2 15:03 编辑

于 Windows XP/7  测试通过.




作者: bjay2008xmy    时间: 2021-7-2 14:25
提示: 作者被禁止或删除 内容自动屏蔽
作者: flyingdancex    时间: 2021-7-2 14:25
青青草 发表于 2021-7-2 13:30
你不妨试一下。

Win10下确实是这个提示
作者: 青青草    时间: 2021-7-2 15:19
bjay2008xmy 发表于 2021-7-2 13:17
findstr  /a后面缺少参数

还是完整代码给你们吧！
作者: 青青草    时间: 2021-7-2 15:19
bjay2008xmy 发表于 2021-7-2 13:17
findstr  /a后面缺少参数

还是完整代码给你们吧！
作者: 青青草    时间: 2021-7-2 15:20
bjay2008xmy 发表于 2021-7-2 13:46
试过了，正是因为有错误提示

还是完整代码给你们吧！
作者: 青青草    时间: 2021-7-2 15:21
bjay2008xmy 发表于 2021-7-2 13:46
试过了，正是因为有错误提示

还是完整代码给你们吧！
作者: 青青草    时间: 2021-7-2 15:22
flyingdancex 发表于 2021-7-2 14:25
Win10下确实是这个提示

还是完整代码给你们吧！
作者: 青青草    时间: 2021-7-2 15:22
bjay2008xmy 发表于 2021-7-2 14:25
奇怪，我WIN7运行的时候就提示findstr  /a后面缺少参数
这个批处理没有@echo off语句，还是我自己加上去 ...

还是完整代码给你们吧！
作者: bjay2008xmy    时间: 2021-7-2 15:45
提示: 作者被禁止或删除 内容自动屏蔽
作者: junyee    时间: 2021-7-2 16:38
这个在当年的 cn-dos 论坛玩得很滥了，有一定局限性，不能出现某些字符。

不过比外挂或内嵌二进制的更方便通用。


作者: plusv    时间: 2021-7-2 16:49
junyee 发表于 2021-7-2 16:38
这个在当年的 cn-dos 论坛玩得很滥了，有一定局限性，不能出现某些字符。

不过比外挂或内嵌二进制的更方 ...

>这个在当年的 cn-dos 论坛玩得很滥了，有一定局限性，不能出现某些字符。
+1.

這句
call :ColorText 1A "      温馨提醒：下面每一步操作， 请按回车键确认！"

我在 繁体 Windows XP/7 测试后才发现,改了就有问题.

作者: qq叔    时间: 2021-7-2 20:15
学习了！！
作者: 青青草    时间: 2021-7-3 16:06
plusv 发表于 2021-7-2 16:49
>这个在当年的 cn-dos 论坛玩得很滥了，有一定局限性，不能出现某些字符。
+1.

改了什么特殊字符出现问题？我怎么就碰不到呢？
作者: sshyqcnssdy    时间: 2021-7-4 02:44
技术贴支持一下
作者: plusv    时间: 2021-7-4 03:40
青青草 发表于 2021-7-3 16:06
改了什么特殊字符出现问题？我怎么就碰不到呢？

改一个字就报错.你用附件测试.


正常版:




改一个字就报错版:



Error.rar

183 Bytes, 下载次数: 5, 下载积分: 无忧币 -2

作者: 青青草    时间: 2021-7-4 10:56
plusv 发表于 2021-7-4 03:40
改一个字就报错.你用附件测试.

你知道错的原因吗？
作者: 青青草    时间: 2021-7-4 18:16
本帖最后由 青青草 于 2021-7-4 20:06 编辑
plusv 发表于 2021-7-4 03:40
改一个字就报错.你用附件测试.

中文环境，故意用了英文冒号，让电脑来识别？你真会想。
作者: zhouaga    时间: 2021-7-4 18:38
  1. @ECHO OFF
  2. Title 电脑维护菜单
  3. mode con lines=32 cols=72
  4. color 1f
  5. setlocal enabledelayedexpansion
  6. for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (set "DEL=%%a")

  8. %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
  9. cd /d "%~dp0"


  12. :start
  13. cls
  14. echo.
  15. call :ColorText 1C "                              电脑维护菜单"
  16. echo.
  17. echo.
  18. echo.
  19. call :ColorText 1B "       磁盘管理                 系统维护                 映像管理"
  20. echo.
  21. echo.
  22. echo.
  23. call :ColorText 1F "  01. 将整个磁盘分区      11. 重新 安装 系统       21. 查看映像的信息"
  24. echo.
  25. echo.
  26. call :ColorText 1F "  02. 删除指定的分区      12. 完整 备份 系统       22. 将镜像重新命名"
  27. echo.
  28. echo.
  29. call :ColorText 1F "  03. 创建指定的分区      13. 增量 备份 系统       23. 提取指定的镜像"
  30. echo.  
  31. echo.
  32. call :ColorText 1F "  04. 回收分区的空间      14. 还原以前的系统       24. 删除指定的镜像"
  33. echo.
  34. echo.
  35. call :ColorText 1F "  05. 扩容分区的容量      15. 修复 系统 引导       25. 装载并修改镜像"
  36. echo.
  37. echo.
  38. call :ColorText 1F "  06. 格式化指定分区      16. 添加或删除驱动       26. 创建可启动映像"
  39. echo.
  40. echo.
  41. call :ColorText 1F "  07. 显示或隐藏分区      17. 备份或还原驱动       27. 完整备份文件夹"
  42. echo.
  43. echo.
  44. call :ColorText 1F "  08. 管理分区的盘符      18. 查看 驱动 程序       28. 还原映像到目录 "
  45. echo.
  46. echo.
  47. call :ColorText 1F "  09. 管理分区的图标      19. 集成 系统 补丁       29. WIM 与 ESD互转  "
  48. echo.
  49. echo.
  50. call :ColorText 1F "  10. 设置分区为只读      20. 系统检查与修复 "     
  51. call :ColorText 1C "       30. 退 "      
  52. call :ColorText 1A " 出"
  53. call :ColorText 1E " 批"
  54. call :ColorText 1D " 处"
  55. call :ColorText 1B " 理"
  56. echo.
  57. echo.
  58. mshta vbscript:createobject("sapi.spvoice").speak("温馨提醒：下面每一步操作， 请按回车键确认")(window.close)
  59. call :ColorText 1A "      温馨提醒：下面每一步操作， 请按回车键确认！"
  60. echo.
  61. echo.
  62. echo.
  63. call :ColorText 1E " 请输入您选择的菜单序号"
  64. set /p w=:
  65. echo %w%|findstr "^0">nul && set w=%w:~1,1%
  66. echo.
  67. for /l %%i in (1 1 30) do if %w%==%%i goto %%i
  68. echo.
  69. CLS
  70. ECHO.
  71. ECHO.
  72. ECHO 输入有误，按任意键返回主菜单。
  73. PAUSE >nul
  74. goto start
  75. echo.
  76. :ColorText
  77. <nul set /p "=%DEL%" > "%~2"
  78. findstr /v /a:%1 /R "+" "%~2" nul
  79. del "%~2" > nul
  80. goto :eof

  82. :1
  83. cls
  84. ::测试
  85. netsh interface ip set address name="以太网" source=static 10.0.0.219 255.0.0.0 10.0.0.1
  86. netsh interface ip set dns "以太网" source=static 114.114.114.114 >nul
  87. netsh interface ip add dns name="以太网" addr=223.5.5.5 validate=no
  88. echo **正常上网成功**
  89. echo ------------------------------------------
  90. pause
  91. goto start
复制代码
测试了下，挺好了，感谢楼主！
作者: 青青草    时间: 2021-7-4 19:55
zhouaga 发表于 2021-7-4 18:38
测试了下，挺好了，感谢楼主！

能用就好，不用客气。
作者: 青青草    时间: 2021-7-5 09:42
junyee 发表于 2021-7-2 16:38
这个在当年的 cn-dos 论坛玩得很滥了，有一定局限性，不能出现某些字符。

不过比外挂或内嵌二进制的更方 ...

够用就行，要十全十美很难！
作者: plusv    时间: 2021-7-5 15:52
青青草 发表于 2021-7-4 18:16
中文环境，故意用了英文冒号，让电脑来识别？你真会想。

你可看我发的所有文,
我都使用英文符号,
在 OS 上,
我也全部使用英文符号.

另外,
以显示功能来说,
MS OS 可以用,
这个批处理就显示功能来说不能用,
这逻辑不是很奇怪.



作者: plusv    时间: 2021-7-5 15:57
青青草 发表于 2021-7-4 10:56
你知道错的原因吗？

知道.

分析它运行思路就知道原因了,
只能闪它的缺点.

自写程式解决:
完美解决.
功能扩展.
运行速度提升.
作者: 青青草    时间: 2021-7-5 18:33
plusv 发表于 2021-7-5 15:57
知道.

分析它运行思路就知道原因了,

一般而言，输入中文时，不会刻意切换成英文，输入标点，再切换回中文，继续输入。所以，你的情况一般不会出现。除非故意。
作者: 青青草    时间: 2021-7-5 18:35
青青草 发表于 2021-7-5 18:33
一般而言，输入中文时，不会刻意切换成英文，输入标点，再切换回中文，继续输入。所以，你的情况一般不会 ...

再说了，中文用英文标点符号，也不符合逻辑。
作者: plusv    时间: 2021-7-5 18:40
青青草 发表于 2021-7-5 18:35
再说了，中文用英文标点符号，也不符合逻辑。

每个人使用习惯不同,
我是不认同你的说法,
如你所说,
中文 OS 只能中文,
英文 OS 只能英文.
作者: 青青草    时间: 2021-7-5 18:48
plusv 发表于 2021-7-5 18:40
每个人使用习惯不同,
我是不认同你的说法,
如你所说,

比如，文字编辑时，中文文字用英文标点，我的语文老师没有这样教过我。如果高考作文，也这样做，不被扣分才怪呢！
作者: plusv    时间: 2021-7-5 18:49
青青草 发表于 2021-7-5 18:48
比如，文字编辑时，中文文字用英文标点，我的语文老师没有这样教过我。如果高考作文，也这样做，不被扣分 ...

30F.
作者: 青青草    时间: 2021-7-5 18:52
plusv 发表于 2021-7-5 18:40
每个人使用习惯不同,
我是不认同你的说法,
如你所说,

问题是，一段中文，中间的标点用英文，除了你，肯怕很难找到第二个人了。
作者: 青青草    时间: 2021-7-5 18:55
plusv 发表于 2021-7-5 18:49
30F.

你看我，“ 01. 将整个磁盘分区”，不影响呀
作者: 青青草    时间: 2021-7-5 18:59
plusv 发表于 2021-7-5 18:49
30F.

你出错的原因是：全中文，中间用了英文标点。
其实，争这个也没有任何意义，你认为不好用，不要用就好了。
作者: 青青草    时间: 2021-7-5 19:00
sshyqcnssdy 发表于 2021-7-4 02:44
技术贴支持一下

谢谢！
作者: plusv    时间: 2021-7-5 19:27
青青草 发表于 2021-7-5 18:52
问题是，一段中文，中间的标点用英文，除了你，肯怕很难找到第二个人了。

15F.
作者: plusv    时间: 2021-7-5 19:27
青青草 发表于 2021-7-5 18:59
你出错的原因是：全中文，中间用了英文标点。
其实，争这个也没有任何意义，你认为不好用，不要用就好了 ...

26F.
作者: 青青草    时间: 2021-7-5 19:43
plusv 发表于 2021-7-5 19:27
26F.

你要说明什么？说它会出错吗？
说它是中文文字中间用英文标点符号吗？
作者: 青青草    时间: 2021-7-5 19:46
plusv 发表于 2021-7-5 19:27
26F.

你可以有你的习惯，你也可以英文里面用中文的标点符号，但电脑不一定认同你，如果不信，编程时代码之间你用中文标点符号试试！
作者: plusv    时间: 2021-7-5 19:47
你的论点 站不住脚.

不回了



作者: 青青草    时间: 2021-7-5 19:51
plusv 发表于 2021-7-5 19:47
你的论点 站不住脚.

不回了

是你用法不正常好不好。
不跟你争了。
作者: 朱百亿    时间: 2021-8-20 16:43
楼主有心，学习
作者: XJMGS    时间: 2021-8-24 08:12
这个有意思，mark
作者: 青青草    时间: 2021-8-27 11:07
朱百亿 发表于 2021-8-20 16:43
楼主有心，学习

作者: 青青草    时间: 2021-8-27 11:07
XJMGS 发表于 2021-8-24 08:12
这个有意思，mark

作者: 懒羊羊号人力车    时间: 2022-1-24 14:18
看起来不错，谢谢大佬
作者: 青青草    时间: 2022-2-20 16:46
朱百亿 发表于 2021-8-20 16:43
楼主有心，学习

作者: 青青草    时间: 2022-2-20 16:47
懒羊羊号人力车 发表于 2022-1-24 14:18
看起来不错，谢谢大佬

不客气！
作者: 逍遥逸仙    时间: 2022-2-21 09:38
学习了，谢谢楼主
作者: xwuyun.cn    时间: 2023-6-20 16:58
谢谢分享



欢迎光临 无忧启动论坛 (http://bbs.c3.wuyou.net/) Powered by Discuz! X3.3