批处理系列2：多彩文字

青青草

完整代码：

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

复制代码

xwuyun.cn

谢谢分享

逍遥逸仙

学习了，谢谢楼主

青青草

懒羊羊号人力车 发表于 2022-1-24 14:18
看起来不错，谢谢大佬

不客气！

青青草

朱百亿 发表于 2021-8-20 16:43
楼主有心，学习

懒羊羊号人力车

看起来不错，谢谢大佬

青青草

XJMGS 发表于 2021-8-24 08:12
这个有意思，mark

青青草

朱百亿 发表于 2021-8-20 16:43
楼主有心，学习

XJMGS

这个有意思，mark

朱百亿

楼主有心，学习

青青草

plusv 发表于 2021-7-5 19:47
你的论点 站不住脚.

不回了

是你用法不正常好不好。
不跟你争了。

plusv

你的论点 站不住脚.

不回了

青青草

plusv 发表于 2021-7-5 19:27
26F.

你可以有你的习惯，你也可以英文里面用中文的标点符号，但电脑不一定认同你，如果不信，编程时代码之间你用中文标点符号试试！

青青草

plusv 发表于 2021-7-5 19:27
26F.

你要说明什么？说它会出错吗？
说它是中文文字中间用英文标点符号吗？

plusv

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

26F.

plusv

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

15F.

青青草

sshyqcnssdy 发表于 2021-7-4 02:44
技术贴支持一下

谢谢！

青青草

plusv 发表于 2021-7-5 18:49
30F.

你出错的原因是：全中文，中间用了英文标点。
其实，争这个也没有任何意义，你认为不好用，不要用就好了。

青青草

plusv 发表于 2021-7-5 18:49
30F.

你看我，“ 01. 将整个磁盘分区”，不影响呀

青青草

plusv 发表于 2021-7-5 18:40
每个人使用习惯不同,
我是不认同你的说法,
如你所说,

问题是，一段中文，中间的标点用英文，除了你，肯怕很难找到第二个人了。

plusv

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

30F.

青青草

plusv 发表于 2021-7-5 18:40
每个人使用习惯不同,
我是不认同你的说法,
如你所说,

比如，文字编辑时，中文文字用英文标点，我的语文老师没有这样教过我。如果高考作文，也这样做，不被扣分才怪呢！

plusv

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

每个人使用习惯不同,
我是不认同你的说法,
如你所说,
中文 OS 只能中文,
英文 OS 只能英文.

青青草

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

再说了，中文用英文标点符号，也不符合逻辑。

青青草

plusv 发表于 2021-7-5 15:57
知道.

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

一般而言，输入中文时，不会刻意切换成英文，输入标点，再切换回中文，继续输入。所以，你的情况一般不会出现。除非故意。

plusv

青青草 发表于 2021-7-4 10:56
你知道错的原因吗？

知道.

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

自写程式解决:
完美解决.
功能扩展.
运行速度提升.

plusv

青青草 发表于 2021-7-4 18:16
中文环境，故意用了英文冒号，让电脑来识别？你真会想。

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

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

青青草

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

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

够用就行，要十全十美很难！

青青草

zhouaga 发表于 2021-7-4 18:38
测试了下，挺好了，感谢楼主！

能用就好，不用客气。

zhouaga

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. 
   
8. %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
   
9. cd /d "%~dp0"
   
10. 
    
11. 
    
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
    
81. 
    
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

复制代码

测试了下，挺好了，感谢楼主！