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

Rank: 3Rank: 3

帖子
212 
积分
255 
技术
2  
捐助
0  
注册时间
2023-2-26 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2023-7-3 13:36 | 只看该作者

[其他] 自制命令行没问题，把它改成解释器就不能用了

我做了一个升级版的命令行，代码如下：
  1. @echo off

  2. rem time

  3. set "t=%time%"

  4. rem code

  5. rem time

  6. set "tx=%time%"

  7. rem code

  8. for /f "delims=; tokens=1" %%o in (%cd%\config.ldt) do set conls=%%o

  9. for /f "delims=' tokens=1" %%z in ("%conls%") do set modc=%%z

  10. for /f "delims=' tokens=2" %%e in ("%conls%") do set modl=%%e

  11. for /f "delims=; tokens=2" %%i in (%cd%\config.ldt) do set dbg=%%i

  12. for /f "delims=; tokens=3" %%t in (%cd%\config.ldt) do set dk=%%t

  13. for /f "delims=; tokens=4" %%b in (%cd%\config.ldt) do set color=%%b

  14. if %dbg% equ true (set dbgx=a) else (if %dbg% equ false (set dbgx=b) else (goto configerr))

  15. if %dk% equ true (set dkif=a) else (if %dk% equ false (set dkif=b) else (goto configerr))

  16. for %%i in (01,02,03,04,05,06,07,08,09,0a,0b,0c,0d,0e,0f,10,12,16,14,15,16,17,18,19,1a,1b,1c,1d,1e,1f,20,21,23,24,25,26,27,28,29,2a,2b,2c,2d,2e,2f,30,31,32,34,35,36,37,38,39,3a,3b,3c,3d,3e,3f,40,41,42,43,45,46,47,48,49,4a,4b,4c,4d,4e,4f50,51,52,53,54,56,57,58,59,5a,5b,5c,5d,5e,5f,60,61,62,63,64,65,67,68,69,6a,6b,6c,6d,6e,6f,70,71,72,73,74,75,76,77,78,79,7a,7b,7c,7d,7e,7f,80,81,82,83,84,85,86,87,89,8a,8b,8c,8d,8e,8f,90,91,92,93,94,95,96,97,98,9a,9b,9c,9d,9e,9f,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,ab,ac,ab,ac,ad,ae,af,b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,ba,bc,bd,be,bf,c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,ca,cb,cd,ce,cf,d0,d1,d2,d3,d4,d5,d6,d7,d8,d9,da,db,dc,de,df,e0,e1,e2,e3,e4,e5,e6,e7,e8,e9,ea,eb,ec,ed,ef,f0,f1,f2,f3,f4,f5,f6,f7,f8,f9,fa,fb,fc,fd,fe) do if %color% equ %%i goto colok

  17. goto configerr

  18. :colok

  19. rem time

  20. set "t1x=%time%"

  21. if "%t1x:~,2%" lss "%tx:~,2%" set "add=+24"

  22. set /a "timesx=(%t1x:~,2%-%tx:~,2%%add%)*360000+(1%t1x:~3,2%%%100-1%tx:~3,2%%%100)*6000+(1%t1x:~6,2%%%100-1%tx:~6,2%%%100)*100+(1%t1x:~-2%%%100-1%tx:~-2%%%100)" ,"ssx=(timesx/100)%%60","mmx=(timesx/6000)%%60","hhx=timesx/360000","msx=timesx%%100"

  23. rem endtime

  24. if %dkif% equ b goto nodk

  25. rem time

  26. set "tn=%time%"

  27. rem code

  28. for /f "delims=" %%a in (%cd%\doskey.ldt) do doskey %%a

  29. rem time

  30. set "t1n=%time%"

  31. if "%t1n:~,2%" lss "%tn:~,2%" set "add=+24"

  32. set /a "timesn=(%t1n:~,2%-%tn:~,2%%add%)*360000+(1%t1n:~3,2%%%100-1%tn:~3,2%%%100)*6000+(1%t1n:~6,2%%%100-1%tn:~6,2%%%100)*100+(1%t1n:~-2%%%100-1%tn:~-2%%%100)" ,"ssn=(timesn/100)%%60","mmn=(timesn/6000)%%60","hhn=timesn/360000","msn=timesn%%100"

  33. :nodk

  34. rem time

  35. set "t1=%time%"

  36. if "%t1:~,2%" lss "%t:~,2%" set "add=+24"

  37. set /a "times=(%t1:~,2%-%t:~,2%%add%)*360000+(1%t1:~3,2%%%100-1%t:~3,2%%%100)*6000+(1%t1:~6,2%%%100-1%t:~6,2%%%100)*100+(1%t1:~-2%%%100-1%t:~-2%%%100)" ,"ss=(times/100)%%60","mm=(times/6000)%%60","hh=times/360000","ms=times%%100"

  38. color %color%

  39. mode con cols=%modc% lines=%modl%

  40. if %dbgx% equ a goto dbg

  41. echo 加载文件:

  42. echo 加载配置文件...

  43. echo 完成 用时%hhx%:%mmx%:%ssx%.%msx%(时:分:秒.毫秒)

  44. echo 加载宏命令...

  45. echo 完成 用时%hhn%:%mmn%:%ssn%.%msn%(时:分:秒.毫秒)

  46. echo 加载完成 总用时%hh%:%mm%:%ss%.%ms%(时:分:秒.毫秒)

  47. echo.

  48. echo BetterCommand Development version 0.1a

  49. echo.

  50. :inputloop

  51. set /p com=^>

  52. if "%com%" equ help %cd%\help.txt

  53. if "%com%" equ exit exit

  54. if "%com%" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:

  55. if "%shutyn%" equ y shutdown /s /t 0 /f)

  56. %com%

  57. goto inputloop

  58. :configerr

  59. echo 配置文件可能存在问题，加载失败，请检查config.ldt。

  60. pause

  61. exit

  62. :dbg

  63. @echo on

  64. :inputloopdbg

  65. set /p com=^>

  66. if "%com%" equ help %cd%\help.txt

  67. if "%com%" equ exit exit

  68. if "%com%" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:

  69. if "%shutyn%" equ y shutdown /s /t 0 /f)

  70. %com%

  71. pause

  72. goto inputloopdbg
复制代码
doskey.ldt和config.ldt这两个需要放在和主文件同一个目录下，其中doskey.ldt的内容就是一行行的代号=执行的命令，语法就是doskey命令不打出来开头的doskey几个字。config.ldt内容是：
  1. 窗口大小的列数'行数;是否启用debug模式(false或者true，打开这个模式后回显会开启，并且会执行一条命令暂停一次，让你按任意键继续);是否启用doskey宏功能，关掉它则doskey.ldt的内容不会被加载(false或者true);颜色代码(就是color命令的语法不打出来开头的color几个字)
复制代码
一个帖子有字数限制，另一部分发到二楼。
收藏 分享
一个六年级小学生，请多指教

LTSC1809

Rank: 3Rank: 3

帖子
212 
积分
255 
技术
2  
捐助
0  
注册时间
2023-2-26 
2楼
发表于 2023-7-3 13:36 | 只看该作者
现在做了一个解释器，逐行获取文本里的内容并执行，使用call命令来调用它并传递两个参数，第一个参数是文件的路径（不包含文件本身名称），第二个参数是目标文件的名称，它还会读取文件路径下的config.ldt和doskey.ldt，其中config.ldt内容最后多了一个分号，后面跟着一个选项是用来决定是否显示加载中的文字和加载时间的，如果它为true，那么加载中提示和加载时间显示将会被关闭。现在它不能正常运行，会闪退，麻烦大家再帮我看看，代码如下：
  1. @echo off

  2. SetLocal EnableDelayedExpansion

  3. for /f "delims=; tokens=5" %%q in (%1\config.ldt) do if %%q equ true goto noecho

  4. rem time

  5. set "t=%time%"

  6. rem code

  7. rem time

  8. set "tx=%time%"

  9. rem code

  10. for /f "delims=; tokens=1" %%o in (%1\config.ldt) do set conls=%%o

  11. for /f "delims=' tokens=1" %%z in ("%conls%") do set modc=%%z

  12. for /f "delims=' tokens=2" %%e in ("%conls%") do set modl=%%e

  13. for /f "delims=; tokens=2" %%i in (%1\config.ldt) do set dbg=%%i

  14. for /f "delims=; tokens=3" %%t in (%1\config.ldt) do set dk=%%t

  15. for /f "delims=; tokens=4" %%b in (%1\config.ldt) do set color=%%b

  16. if %dbg% equ true (set dbgx=a) else (if %dbg% equ false (set dbgx=b) else (goto configerr))

  17. if %dk% equ true (set dkif=a) else (if %dk% equ false (set dkif=b) else (goto configerr))

  18. for %%i in (01,02,03,04,05,06,07,08,09,0a,0b,0c,0d,0e,0f,10,12,16,14,15,16,17,18,19,1a,1b,1c,1d,1e,1f,20,21,23,24,25,26,27,28,29,2a,2b,2c,2d,2e,2f,30,31,32,34,35,36,37,38,39,3a,3b,3c,3d,3e,3f,40,41,42,43,45,46,47,48,49,4a,4b,4c,4d,4e,4f50,51,52,53,54,56,57,58,59,5a,5b,5c,5d,5e,5f,60,61,62,63,64,65,67,68,69,6a,6b,6c,6d,6e,6f,70,71,72,73,74,75,76,77,78,79,7a,7b,7c,7d,7e,7f,80,81,82,83,84,85,86,87,89,8a,8b,8c,8d,8e,8f,90,91,92,93,94,95,96,97,98,9a,9b,9c,9d,9e,9f,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,ab,ac,ab,ac,ad,ae,af,b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,ba,bc,bd,be,bf,c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,ca,cb,cd,ce,cf,d0,d1,d2,d3,d4,d5,d6,d7,d8,d9,da,db,dc,de,df,e0,e1,e2,e3,e4,e5,e6,e7,e8,e9,ea,eb,ec,ed,ef,f0,f1,f2,f3,f4,f5,f6,f7,f8,f9,fa,fb,fc,fd,fe) do if %color% equ %%i goto colok

  19. goto configerr

  20. :colok

  21. rem time

  22. set "t1x=%time%"

  23. if "%t1x:~,2%" lss "%tx:~,2%" set "add=+24"

  24. set /a "timesx=(%t1x:~,2%-%tx:~,2%%add%)*360000+(1%t1x:~3,2%%%100-1%tx:~3,2%%%100)*6000+(1%t1x:~6,2%%%100-1%tx:~6,2%%%100)*100+(1%t1x:~-2%%%100-1%tx:~-2%%%100)" ,"ssx=(timesx/100)%%60","mmx=(timesx/6000)%%60","hhx=timesx/360000","msx=timesx%%100"

  25. rem endtime

  26. if %dkif% equ b goto nodk

  27. rem time

  28. set "tn=%time%"

  29. rem code

  30. for /f "delims=" %%a in (%cd%\doskey.ldt) do doskey %%a

  31. rem time

  32. set "t1n=%time%"

  33. if "%t1n:~,2%" lss "%tn:~,2%" set "add=+24"

  34. set /a "timesn=(%t1n:~,2%-%tn:~,2%%add%)*360000+(1%t1n:~3,2%%%100-1%tn:~3,2%%%100)*6000+(1%t1n:~6,2%%%100-1%tn:~6,2%%%100)*100+(1%t1n:~-2%%%100-1%tn:~-2%%%100)" ,"ssn=(timesn/100)%%60","mmn=(timesn/6000)%%60","hhn=timesn/360000","msn=timesn%%100"

  35. :nodk

  36. rem time

  37. set "t1=%time%"

  38. if "%t1:~,2%" lss "%t:~,2%" set "add=+24"

  39. set /a "times=(%t1:~,2%-%t:~,2%%add%)*360000+(1%t1:~3,2%%%100-1%t:~3,2%%%100)*6000+(1%t1:~6,2%%%100-1%t:~6,2%%%100)*100+(1%t1:~-2%%%100-1%t:~-2%%%100)" ,"ss=(times/100)%%60","mm=(times/6000)%%60","hh=times/360000","ms=times%%100"

  40. color %color%

  41. mode con cols=%modc% lines=%modl%

  42. if %dbgx% equ a goto dbg

  43. echo 加载文件:

  44. echo 加载配置文件...

  45. echo 完成 用时%hhx%:%mmx%:%ssx%.%msx%(时:分:秒.毫秒)

  46. echo 加载宏命令...

  47. echo 完成 用时%hhn%:%mmn%:%ssn%.%msn%(时:分:秒.毫秒)

  48. echo 加载完成 总用时%hh%:%mm%:%ss%.%ms%(时:分:秒.毫秒)

  49. echo.

  50. echo BetterCommand Interpreter development version 0.1a

  51. echo.

  52. for /f "delims=" %%r in (%1\%2) do (set /p !com!=<%1\%2

  53. if "!com!" equ help %cd%\help.txt

  54. if "!com!" equ exit exit

  55. if "!com!" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:

  56. if "!shutyn!" equ y shutdown /s /t 0 /f)

  57. !com!)

  58. exit

  59. :configerr

  60. echo 配置文件可能存在问题，加载失败，请检查config.ldt。

  61. pause

  62. exit

  63. :dbg

  64. @echo on

  65. for /f "delims=" %%w in (%1\%2) do (set /p com=<%1\%2

  66. if "!com!" equ help %cd%\help.txt

  67. if "!com!" equ exit exit

  68. if "!com!" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:

  69. if "!shutyn!" equ y shutdown /s /t 0 /f)

  70. !com!)

  71. exit

  72. exit

  73. pause

  74. :noecho

  75. for /f "delims=; tokens=1" %%o in (%1\config.ldt) do set conls=%%o

  76. for /f "delims=' tokens=1" %%z in ("%conls%") do set modc=%%z

  77. for /f "delims=' tokens=2" %%e in ("%conls%") do set modl=%%e

  78. for /f "delims=; tokens=2" %%i in (%1\config.ldt) do set dbg=%%i

  79. for /f "delims=; tokens=3" %%t in (%1\config.ldt) do set dk=%%t

  80. for /f "delims=; tokens=4" %%b in (%1\config.ldt) do set color=%%b

  81. if %dbg% equ true (set dbgx=a) else (if %dbg% equ false (set dbgx=b) else (goto configerr))

  82. if %dk% equ true (set dkif=a) else (if %dk% equ false (set dkif=b) else (goto configerr))

  83. for %%i in (01,02,03,04,05,06,07,08,09,0a,0b,0c,0d,0e,0f,10,12,16,14,15,16,17,18,19,1a,1b,1c,1d,1e,1f,20,21,23,24,25,26,27,28,29,2a,2b,2c,2d,2e,2f,30,31,32,34,35,36,37,38,39,3a,3b,3c,3d,3e,3f,40,41,42,43,45,46,47,48,49,4a,4b,4c,4d,4e,4f50,51,52,53,54,56,57,58,59,5a,5b,5c,5d,5e,5f,60,61,62,63,64,65,67,68,69,6a,6b,6c,6d,6e,6f,70,71,72,73,74,75,76,77,78,79,7a,7b,7c,7d,7e,7f,80,81,82,83,84,85,86,87,89,8a,8b,8c,8d,8e,8f,90,91,92,93,94,95,96,97,98,9a,9b,9c,9d,9e,9f,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,ab,ac,ab,ac,ad,ae,af,b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,ba,bc,bd,be,bf,c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,ca,cb,cd,ce,cf,d0,d1,d2,d3,d4,d5,d6,d7,d8,d9,da,db,dc,de,df,e0,e1,e2,e3,e4,e5,e6,e7,e8,e9,ea,eb,ec,ed,ef,f0,f1,f2,f3,f4,f5,f6,f7,f8,f9,fa,fb,fc,fd,fe) do if %color% equ %%i goto colok

  84. goto configerr

  85. :colokn

  86. if %dkif% equ b goto nodk

  87. for /f "delims=" %%a in (%1\doskey.ldt) do doskey %%a

  88. :nodkn

  89. for /f "delims=" %%y in (%1\%2) do (set /p com=<%1\%2

  90. if "!com!" equ help %cd%\help.txt

  91. if "!com!" equ exit exit

  92. if "!com!" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:

  93. if "!shutyn!" equ y shutdown /s /t 0 /f)

  94. !com!)

  95. exit

  96. :configerrn

  97. echo 配置文件可能存在问题，加载失败，请检查config.ldt。

  98. pause

  99. exit

  100. :dbgn

  101. @echo on

  102. for /f "delims=" %%u in (%1\%2) do (set /p com=<%1\%2

  103. if "!com!" equ help %1\%2

  104. if "!com1" equ exit exit

  105. if "!com!" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:

  106. if "!shutyn!" equ y shutdown /s /t 0 /f)

  107. !com!

  108. pause)

  109. exit
复制代码
一个六年级小学生，请多指教

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14781 
积分
45955 
技术
847  
捐助
745  
注册时间
2008-6-9 
3楼
发表于 2023-7-3 13:52 | 只看该作者
回复 2# LTSC1809


每行代码下面加一行：
pause
观察一下是在第几行代码“闪退”的？
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

LTSC1809

Rank: 3Rank: 3

帖子
212 
积分
255 
技术
2  
捐助
0  
注册时间
2023-2-26 
4楼
发表于 2023-7-3 18:04 | 只看该作者
回复 3# Batcher


    58行有个exit，所以退出了。但是去掉exit，则会直接显示配置文件存在问题。配置文件存在问题那个是59行的:configerr 那个标签。按理说会执行循环体，然后执行完循环体也就是文本的每一行都执行完了，就会碰到exit退出，但明明那个exit前面是一个for循环，循环提取文件每行内容并执行，为什么会不执行循环而是直接跑到后面的exit呢
一个六年级小学生，请多指教

TOP

LTSC1809

Rank: 3Rank: 3

帖子
212 
积分
255 
技术
2  
捐助
0  
注册时间
2023-2-26 
5楼
发表于 2023-7-3 18:06 | 只看该作者
回复 3# Batcher

这是我通过call命令运行这个闪退的文件并且后面加上>1.txt 产生的“日志文件”，回显我开了，所以它记录了脚本退出前执行过的每一条命令，可以参考一下：
  1. C:\Users\Administrator>SetLocal EnableDelayedExpansion 

  2. 

  3. C:\Users\Administrator>for /F "delims=; tokens=5" %q in (C:\Users\Administrator\Desktop\bcitest\config.ldt) do if %q EQU true goto noecho 

  4. 

  5. C:\Users\Administrator>if true EQU true goto noecho 

  6. 

  7. C:\Users\Administrator>for /F "delims=; tokens=1" %o in (C:\Users\Administrator\Desktop\bcitest\config.ldt) do set conls=%o 

  8. 

  9. C:\Users\Administrator>set conls=100'30 

  10. 

  11. C:\Users\Administrator>for /F "delims=' tokens=1" %z in ("100'30") do set modc=%z 

  12. 

  13. C:\Users\Administrator>set modc=100 

  14. 

  15. C:\Users\Administrator>for /F "delims=' tokens=2" %e in ("100'30") do set modl=%e 

  16. 

  17. C:\Users\Administrator>set modl=30 

  18. 

  19. C:\Users\Administrator>for /F "delims=; tokens=2" %i in (C:\Users\Administrator\Desktop\bcitest\config.ldt) do set dbg=%i 

  20. 

  21. C:\Users\Administrator>set dbg=false 

  22. 

  23. C:\Users\Administrator>for /F "delims=; tokens=3" %t in (C:\Users\Administrator\Desktop\bcitest\config.ldt) do set dk=%t 

  24. 

  25. C:\Users\Administrator>set dk=true 

  26. 

  27. C:\Users\Administrator>for /F "delims=; tokens=4" %b in (C:\Users\Administrator\Desktop\bcitest\config.ldt) do set color=%b 

  28. 

  29. C:\Users\Administrator>set color=0a 

  30. 

  31. C:\Users\Administrator>if false EQU true (set dbgx=a )  else (if false EQU false (set dbgx=b )  else (goto configerr ) ) 

  32. 

  33. C:\Users\Administrator>if true EQU true (set dkif=a )  else (if true EQU false (set dkif=b )  else (goto configerr ) ) 

  34. 

  35. C:\Users\Administrator>for %i in (01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10 12 16 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20 21 23 24 25 26 27 28 29 2a 2b 2c 2d 2e 2f 30 31 32 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 40 41 42 43 45 46 47 48 49 4a 4b 4c 4d 4e 4f50 51 52 53 54 56 57 58 59 5a 5b 5c 5d 5e 5f 60 61 62 63 64 65 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 7b 7c 7d 7e 7f 80 81 82 83 84 85 86 87 89 8a 8b 8c 8d 8e 8f 90 91 92 93 94 95 96 97 98 9a 9b 9c 9d 9e 9f a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 ab ac ab ac ad ae af b0 b1 b2 b3 b4 b5 b6 b7 b8 b9 ba bc bd be bf c0 c1 c2 c3 c4 c5 c6 c7 c8 c9 ca cb cd ce cf d0 d1 d2 d3 d4 d5 d6 d7 d8 d9 da db dc de df e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 ea eb ec ed ef f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 fa fb fc fd fe) do if 0a EQU %i goto colok 

  36. 

  37. C:\Users\Administrator>if 0a EQU 01 goto colok 

  38. 

  39. C:\Users\Administrator>if 0a EQU 02 goto colok 

  40. 

  41. C:\Users\Administrator>if 0a EQU 03 goto colok 

  42. 

  43. C:\Users\Administrator>if 0a EQU 04 goto colok 

  44. 

  45. C:\Users\Administrator>if 0a EQU 05 goto colok 

  46. 

  47. C:\Users\Administrator>if 0a EQU 06 goto colok 

  48. 

  49. C:\Users\Administrator>if 0a EQU 07 goto colok 

  50. 

  51. C:\Users\Administrator>if 0a EQU 08 goto colok 

  52. 

  53. C:\Users\Administrator>if 0a EQU 09 goto colok 

  54. 

  55. C:\Users\Administrator>if 0a EQU 0a goto colok 

  56. 

  57. C:\Users\Administrator>rem time 

  58. 

  59. C:\Users\Administrator>set "t1x=17:59:56.20" 

  60. 

  61. C:\Users\Administrator>if "17" LSS "~,2" set "add=+24" 

  62. 

  63. C:\Users\Administrator>set /a "timesx=(17-~,2%addt1x:~3,2%C:\Users\Administrator\Desktop\bcitest00-1~3,2%C:\Users\Administrator\Desktop\bcitest00)*6000+(156%100-1~6,2%C:\Users\Administrator\Desktop\bcitest00)*100+(120%100-1~-2%C:\Users\Administrator\Desktop\bcitest00)" ,"ssx=(timesx/100)%60","mmx=(timesx/6000)%60","hhx=timesx/360000","msx=timesx%100" 

  64. 

  65. C:\Users\Administrator>rem endtime 

  66. 

  67. C:\Users\Administrator>if a EQU b goto nodk 

  68. 

  69. C:\Users\Administrator>rem time 

  70. 

  71. C:\Users\Administrator>set "tn=17:59:56.20" 

  72. 

  73. C:\Users\Administrator>rem code 

  74. 

  75. C:\Users\Administrator>for /F "delims=" %a in (C:\Users\Administrator\doskey.ldt) do doskey %a 

  76. 

  77. C:\Users\Administrator>rem time 

  78. 

  79. C:\Users\Administrator>set "t1n=17:59:56.20" 

  80. 

  81. C:\Users\Administrator>if "17" LSS "17" set "add=+24" 

  82. 

  83. C:\Users\Administrator>set /a "timesn=(17-17)*360000+(159%100-159%100)*6000+(156%100-156%100)*100+(120%100-120%100)" ,"ssn=(timesn/100)%60","mmn=(timesn/6000)%60","hhn=timesn/360000","msn=timesn%100" 

  84. 

  85. C:\Users\Administrator>rem time 

  86. 

  87. C:\Users\Administrator>set "t1=17:59:56.21" 

  88. 

  89. C:\Users\Administrator>if "17" LSS "~,2" set "add=+24" 

  90. 

  91. C:\Users\Administrator>set /a "times=(17-~,2%addt1:~3,2%C:\Users\Administrator\Desktop\bcitest00-1~3,2%C:\Users\Administrator\Desktop\bcitest00)*6000+(156%100-1~6,2%C:\Users\Administrator\Desktop\bcitest00)*100+(121%100-1~-2%C:\Users\Administrator\Desktop\bcitest00)" ,"ss=(times/100)%60","mm=(times/6000)%60","hh=times/360000","ms=times%100" 

  92. 

  93. C:\Users\Administrator>color 0a 

  94. 

  95. C:\Users\Administrator>mode con cols=100 lines=30 

  96. 

  97. C:\Users\Administrator>if b EQU a goto dbg 

  98. 

  99. C:\Users\Administrator>echo 加载文件: 

  100. 加载文件:

  101. 

  102. C:\Users\Administrator>echo 加载配置文件... 

  103. 加载配置文件...

  104. 

  105. C:\Users\Administrator>echo 完成 用时::.(时:分:秒.毫秒) 

  106. 完成 用时::.(时:分:秒.毫秒)

  107. 

  108. C:\Users\Administrator>echo 加载宏命令... 

  109. 加载宏命令...

  110. 

  111. C:\Users\Administrator>echo 完成 用时0:0:0.0(时:分:秒.毫秒) 

  112. 完成 用时0:0:0.0(时:分:秒.毫秒)

  113. 

  114. C:\Users\Administrator>echo 加载完成 总用时::.(时:分:秒.毫秒) 

  115. 加载完成 总用时::.(时:分:秒.毫秒)

  116. 

  117. C:\Users\Administrator>echo.

  118. 

  119. 

  120. C:\Users\Administrator>echo BetterCommand Interpreter development version 0.1a 

  121. BetterCommand Interpreter development version 0.1a

  122. 

  123. C:\Users\Administrator>echo.

  124. 

  125. 

  126. C:\Users\Administrator>for /F "delims=" %r in (C:\Users\Administrator\Desktop\bcitest\114.bat) do (

  127. set /p !com!= 0<C:\Users\Administrator\Desktop\bcitest\114.bat  

  128.  if "!com!" EQU help C:\Users\Administrator\help.txt 

  129.  if "!com!" EQU exit exit 

  130.  if "!com!" EQU shutdown (

  131. set /p shutyn=Shutdown now?[Y/N]:  

  132.  if "!shutyn!" EQU y shutdown /s /t 0 /f 

  133. )  

  134.  !com!

  135. ) 

  136. 

  137. C:\Users\Administrator>(

  138. set /p !com!= 0<C:\Users\Administrator\Desktop\bcitest\114.bat  

  139.  if "!com!" EQU help C:\Users\Administrator\help.txt 

  140.  if "!com!" EQU exit exit 

  141.  if "!com!" EQU shutdown (

  142. set /p shutyn=Shutdown now?[Y/N]:  

  143.  if "!shutyn!" EQU y shutdown /s /t 0 /f 

  144. )  

  145.  !com!

  146. ) 

  147. 

  148. C:\Users\Administrator>(

  149. set /p !com!= 0<C:\Users\Administrator\Desktop\bcitest\114.bat  

  150.  if "!com!" EQU help C:\Users\Administrator\help.txt 

  151.  if "!com!" EQU exit exit 

  152.  if "!com!" EQU shutdown (

  153. set /p shutyn=Shutdown now?[Y/N]:  

  154.  if "!shutyn!" EQU y shutdown /s /t 0 /f 

  155. )  

  156.  !com!

  157. ) 

  158. 

  159. C:\Users\Administrator>(

  160. set /p !com!= 0<C:\Users\Administrator\Desktop\bcitest\114.bat  

  161.  if "!com!" EQU help C:\Users\Administrator\help.txt 

  162.  if "!com!" EQU exit exit 

  163.  if "!com!" EQU shutdown (

  164. set /p shutyn=Shutdown now?[Y/N]:  

  165.  if "!shutyn!" EQU y shutdown /s /t 0 /f 

  166. )  

  167.  !com!

  168. ) 

  169. 

  170. C:\Users\Administrator>(

  171. set /p !com!= 0<C:\Users\Administrator\Desktop\bcitest\114.bat  

  172.  if "!com!" EQU help C:\Users\Administrator\help.txt 

  173.  if "!com!" EQU exit exit 

  174.  if "!com!" EQU shutdown (

  175. set /p shutyn=Shutdown now?[Y/N]:  

  176.  if "!shutyn!" EQU y shutdown /s /t 0 /f 

  177. )  

  178.  !com!

  179. ) 

  180. 

  181. C:\Users\Administrator>exit
复制代码
一个六年级小学生，请多指教

TOP

LTSC1809

Rank: 3Rank: 3

帖子
212 
积分
255 
技术
2  
捐助
0  
注册时间
2023-2-26 
6楼
发表于 2023-7-3 18:11 | 只看该作者
回复 5# LTSC1809


    其中114.bat是我call中附带的参数，它的内容如下：
  1. @echo off

  2. mc

  3. echo a

  4. pause
复制代码
其中的mc这一行是doskey.ldt中定义的语句。它文件夹下的doskey.ldt和config.ldt内容如下，不知道这两个文件有什么用的话可以去看看这个帖子，也是我写的，去看看1楼和23楼，这两层说明了它们的作用：http://www.bathome.net/thread-66697-2-1.html
一个六年级小学生，请多指教

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
599 
积分
692 
技术
30  
捐助
0  
注册时间
2023-2-9 
7楼
发表于 2023-7-3 18:13 | 只看该作者
如果你只是要屏闭输出 直接＞nul 不就行了

TOP

LTSC1809

Rank: 3Rank: 3

帖子
212 
积分
255 
技术
2  
捐助
0  
注册时间
2023-2-26 
8楼
发表于 2023-7-3 18:13 | 只看该作者
回复 5# LTSC1809


    那个set /p 变量=<路径 那里可以看到有个0在<前面，但是我去看了源码，根本没有出现0，我也不知道为啥有个0
一个六年级小学生，请多指教

TOP

LTSC1809

Rank: 3Rank: 3

帖子
212 
积分
255 
技术
2  
捐助
0  
注册时间
2023-2-26 
9楼
发表于 2023-7-3 18:14 | 只看该作者
回复 7# jyswjjgdwtdtj


    没太看明白你的意思，我并不是要屏蔽什么输出
一个六年级小学生，请多指教

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14781 
积分
45955 
技术
847  
捐助
745  
注册时间
2008-6-9 
10楼
发表于 2023-7-3 18:25 | 只看该作者
回复 4# LTSC1809


第一步，把代码里面所有的exit全部改成exit /b
第二步，按照3楼的方法执行代码
第三步，说一下你认为第几行代码执行结果跟你的期望不同
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

LTSC1809

Rank: 3Rank: 3

帖子
212 
积分
255 
技术
2  
捐助
0  
注册时间
2023-2-26 
11楼
发表于 2023-7-3 18:28 | 只看该作者
本帖最后由 LTSC1809 于 2023-7-3 20:16 编辑

回复 11# Batcher


   弄好的代码如下：
  1. @echo off

  2. pause

  3. SetLocal EnableDelayedExpansion

  4. pause

  5. for /f "delims=; tokens=5" %%q in (%1\config.ldt) do if %%q equ true goto noecho

  6. pause

  7. rem time

  8. pause

  9. set "t=%time%"

  10. pause

  11. rem code

  12. pause

  13. rem time

  14. pause

  15. set "tx=%time%"

  16. pause

  17. rem code

  18. pause

  19. for /f "delims=; tokens=1" %%o in (%1\config.ldt) do set conls=%%o

  20. pause

  21. for /f "delims=' tokens=1" %%z in ("%conls%") do set modc=%%z

  22. pause

  23. for /f "delims=' tokens=2" %%e in ("%conls%") do set modl=%%e

  24. pause

  25. for /f "delims=; tokens=2" %%i in (%1\config.ldt) do set dbg=%%i

  26. pause

  27. for /f "delims=; tokens=3" %%t in (%1\config.ldt) do set dk=%%t

  28. pause

  29. for /f "delims=; tokens=4" %%b in (%1\config.ldt) do set color=%%b

  30. pause

  31. if %dbg% equ true (set dbgx=a) else (if %dbg% equ false (set dbgx=b) else (goto configerr))

  32. pause

  33. if %dk% equ true (set dkif=a) else (if %dk% equ false (set dkif=b) else (goto configerr))

  34. pause

  35. for %%i in (01,02,03,04,05,06,07,08,09,0a,0b,0c,0d,0e,0f,10,12,16,14,15,16,17,18,19,1a,1b,1c,1d,1e,1f,20,21,23,24,25,26,27,28,29,2a,2b,2c,2d,2e,2f,30,31,32,34,35,36,37,38,39,3a,3b,3c,3d,3e,3f,40,41,42,43,45,46,47,48,49,4a,4b,4c,4d,4e,4f50,51,52,53,54,56,57,58,59,5a,5b,5c,5d,5e,5f,60,61,62,63,64,65,67,68,69,6a,6b,6c,6d,6e,6f,70,71,72,73,74,75,76,77,78,79,7a,7b,7c,7d,7e,7f,80,81,82,83,84,85,86,87,89,8a,8b,8c,8d,8e,8f,90,91,92,93,94,95,96,97,98,9a,9b,9c,9d,9e,9f,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,ab,ac,ab,ac,ad,ae,af,b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,ba,bc,bd,be,bf,c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,ca,cb,cd,ce,cf,d0,d1,d2,d3,d4,d5,d6,d7,d8,d9,da,db,dc,de,df,e0,e1,e2,e3,e4,e5,e6,e7,e8,e9,ea,eb,ec,ed,ef,f0,f1,f2,f3,f4,f5,f6,f7,f8,f9,fa,fb,fc,fd,fe) do if %color% equ %%i goto colok

  36. pause

  37. goto configerr

  38. pause

  39. :colok

  40. pause

  41. rem time

  42. pause

  43. set "t1x=%time%"

  44. pause

  45. if "%t1x:~,2%" lss "%tx:~,2%" set "add=+24"

  46. pause

  47. set /a "timesx=(%t1x:~,2%-%tx:~,2%%add%)*360000+(1%t1x:~3,2%%%100-1%tx:~3,2%%%100)*6000+(1%t1x:~6,2%%%100-1%tx:~6,2%%%100)*100+(1%t1x:~-2%%%100-1%tx:~-2%%%100)" ,"ssx=(timesx/100)%%60","mmx=(timesx/6000)%%60","hhx=timesx/360000","msx=timesx%%100"

  48. pause

  49. rem endtime

  50. pause

  51. if %dkif% equ b goto nodk

  52. pause

  53. rem time

  54. pause

  55. set "tn=%time%"

  56. pause

  57. rem code

  58. pause

  59. for /f "delims=" %%a in (%cd%\doskey.ldt) do doskey %%a

  60. pause

  61. rem time

  62. pause

  63. set "t1n=%time%"

  64. pause

  65. if "%t1n:~,2%" lss "%tn:~,2%" set "add=+24"

  66. pause

  67. set /a "timesn=(%t1n:~,2%-%tn:~,2%%add%)*360000+(1%t1n:~3,2%%%100-1%tn:~3,2%%%100)*6000+(1%t1n:~6,2%%%100-1%tn:~6,2%%%100)*100+(1%t1n:~-2%%%100-1%tn:~-2%%%100)" ,"ssn=(timesn/100)%%60","mmn=(timesn/6000)%%60","hhn=timesn/360000","msn=timesn%%100"

  68. pause

  69. :nodk

  70. pause

  71. rem time

  72. pause

  73. set "t1=%time%"

  74. pause

  75. if "%t1:~,2%" lss "%t:~,2%" set "add=+24"

  76. pause

  77. set /a "times=(%t1:~,2%-%t:~,2%%add%)*360000+(1%t1:~3,2%%%100-1%t:~3,2%%%100)*6000+(1%t1:~6,2%%%100-1%t:~6,2%%%100)*100+(1%t1:~-2%%%100-1%t:~-2%%%100)" ,"ss=(times/100)%%60","mm=(times/6000)%%60","hh=times/360000","ms=times%%100"

  78. pause

  79. color %color%

  80. pause

  81. mode con cols=%modc% lines=%modl%

  82. pause

  83. if %dbgx% equ a goto dbg

  84. pause

  85. echo 加载文件:

  86. pause

  87. echo 加载配置文件...

  88. pause

  89. echo 完成 用时%hhx%:%mmx%:%ssx%.%msx%(时:分:秒.毫秒)

  90. pause

  91. echo 加载宏命令...

  92. pause

  93. echo 完成 用时%hhn%:%mmn%:%ssn%.%msn%(时:分:秒.毫秒)

  94. pause

  95. echo 加载完成 总用时%hh%:%mm%:%ss%.%ms%(时:分:秒.毫秒)

  96. pause

  97. echo.

  98. pause

  99. echo BetterCommand Interpreter development version 0.1a

  100. pause

  101. echo.

  102. pause

  103. for /f "delims=" %%r in (%1\%2) do (set /p !com!=<%1\%2

  104. pause

  105. if "!com!" equ help %cd%\help.txt

  106. pause

  107. if "!com!" equ exit /b exit /b

  108. pause

  109. if "!com!" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:

  110. pause

  111. if "!shutyn!" equ y shutdown /s /t 0 /f)

  112. pause

  113. !com!)

  114. pause

  115. exit /b

  116. pause

  117. :configerr

  118. pause

  119. echo 配置文件可能存在问题，加载失败，请检查config.ldt。

  120. pause

  121. pause

  122. pause

  123. exit /b

  124. pause

  125. :dbg

  126. pause

  127. @echo on

  128. pause

  129. for /f "delims=" %%w in (%1\%2) do (set /p com=<%1\%2

  130. pause

  131. if "!com!" equ help %cd%\help.txt

  132. pause

  133. if "!com!" equ exit /b exit /b

  134. pause

  135. if "!com!" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:

  136. pause

  137. if "!shutyn!" equ y shutdown /s /t 0 /f)

  138. pause

  139. !com!)

  140. pause

  141. exit /b

  142. pause

  143. exit /b

  144. pause

  145. pause

  146. pause

  147. :noecho

  148. pause

  149. for /f "delims=; tokens=1" %%o in (%1\config.ldt) do set conls=%%o

  150. pause

  151. for /f "delims=' tokens=1" %%z in ("%conls%") do set modc=%%z

  152. pause

  153. for /f "delims=' tokens=2" %%e in ("%conls%") do set modl=%%e

  154. pause

  155. for /f "delims=; tokens=2" %%i in (%1\config.ldt) do set dbg=%%i

  156. pause

  157. for /f "delims=; tokens=3" %%t in (%1\config.ldt) do set dk=%%t

  158. pause

  159. for /f "delims=; tokens=4" %%b in (%1\config.ldt) do set color=%%b

  160. pause

  161. if %dbg% equ true (set dbgx=a) else (if %dbg% equ false (set dbgx=b) else (goto configerr))

  162. pause

  163. if %dk% equ true (set dkif=a) else (if %dk% equ false (set dkif=b) else (goto configerr))

  164. pause

  165. for %%i in (01,02,03,04,05,06,07,08,09,0a,0b,0c,0d,0e,0f,10,12,16,14,15,16,17,18,19,1a,1b,1c,1d,1e,1f,20,21,23,24,25,26,27,28,29,2a,2b,2c,2d,2e,2f,30,31,32,34,35,36,37,38,39,3a,3b,3c,3d,3e,3f,40,41,42,43,45,46,47,48,49,4a,4b,4c,4d,4e,4f50,51,52,53,54,56,57,58,59,5a,5b,5c,5d,5e,5f,60,61,62,63,64,65,67,68,69,6a,6b,6c,6d,6e,6f,70,71,72,73,74,75,76,77,78,79,7a,7b,7c,7d,7e,7f,80,81,82,83,84,85,86,87,89,8a,8b,8c,8d,8e,8f,90,91,92,93,94,95,96,97,98,9a,9b,9c,9d,9e,9f,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,ab,ac,ab,ac,ad,ae,af,b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,ba,bc,bd,be,bf,c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,ca,cb,cd,ce,cf,d0,d1,d2,d3,d4,d5,d6,d7,d8,d9,da,db,dc,de,df,e0,e1,e2,e3,e4,e5,e6,e7,e8,e9,ea,eb,ec,ed,ef,f0,f1,f2,f3,f4,f5,f6,f7,f8,f9,fa,fb,fc,fd,fe) do if %color% equ %%i goto colok

  166. pause

  167. goto configerr

  168. pause

  169. :colokn

  170. pause

  171. if %dkif% equ b goto nodk

  172. pause

  173. for /f "delims=" %%a in (%1\doskey.ldt) do doskey %%a

  174. pause

  175. :nodkn

  176. pause

  177. for /f "delims=" %%y in (%1\%2) do (set /p com=<%1\%2

  178. pause

  179. if "!com!" equ help %cd%\help.txt

  180. pause

  181. if "!com!" equ exit /b exit /b

  182. pause

  183. if "!com!" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:

  184. pause

  185. if "!shutyn!" equ y shutdown /s /t 0 /f)

  186. pause

  187. !com!)

  188. pause

  189. exit /b

  190. pause

  191. :configerrn

  192. pause

  193. echo 配置文件可能存在问题，加载失败，请检查config.ldt。

  194. pause

  195. pause

  196. pause

  197. exit /b

  198. pause

  199. :dbgn

  200. pause

  201. @echo on

  202. pause

  203. for /f "delims=" %%u in (%1\%2) do (set /p com=<%1\%2

  204. pause

  205. if "!com!" equ help %1\%2

  206. pause

  207. if "!com1" equ exit /b exit /b

  208. pause

  209. if "!com!" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:

  210. pause

  211. if "!shutyn!" equ y shutdown /s /t 0 /f)

  212. pause

  213. !com!

  214. pause

  215. pause)

  216. pause

  217. exit /b
复制代码
发现最后一次输出是:
  1. 系统找不到文件 C:\Users\Administrator\Desktop\bcitest\C:\Users\Administrator\Desktop\bcitest\114.bat
复制代码
路径重复了两次，这是怎么回事啊
一个六年级小学生，请多指教

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14781 
积分
45955 
技术
847  
捐助
745  
注册时间
2008-6-9 
12楼
发表于 2023-7-3 19:31 | 只看该作者
回复 12# LTSC1809


    11楼的三步是为了帮你找到代码中的问题，问题解决之后你就怎么高兴怎么改。
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
599 
积分
692 
技术
30  
捐助
0  
注册时间
2023-2-9 
13楼
发表于 2023-7-3 20:14 | 只看该作者
话说没搞懂你到底要干啥
如果只是读取再运行直接
  1. for /f "delims=" %%i in ('type C:\Users\admin\xx\1.txt') do set b=%%i

  2. %b%
复制代码
不就行了？

TOP

LTSC1809

Rank: 3Rank: 3

帖子
212 
积分
255 
技术
2  
捐助
0  
注册时间
2023-2-26 
14楼
发表于 2023-7-3 20:20 | 只看该作者
回复 13# jyswjjgdwtdtj


    这...%b%要等for执行完才会执行，所以它的内容是%%i最后一次，也就是文档里最后一行的内容
一个六年级小学生，请多指教

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14781 
积分
45955 
技术
847  
捐助
745  
注册时间
2008-6-9 
15楼
发表于 2023-7-4 10:21 | 只看该作者
回复 14# LTSC1809


13楼代码改成这样试试：
  1. for /f "delims=" %%i in ('type 1.txt') do "%%i"
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

12
返回列表