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

LTSC1809

我做了一个升级版的命令行，代码如下：

@echo off
rem time
set "t=%time%"
rem code
rem time
set "tx=%time%"
rem code
for /f "delims=; tokens=1" %%o in (%cd%\config.ldt) do set conls=%%o
for /f "delims=' tokens=1" %%z in ("%conls%") do set modc=%%z
for /f "delims=' tokens=2" %%e in ("%conls%") do set modl=%%e
for /f "delims=; tokens=2" %%i in (%cd%\config.ldt) do set dbg=%%i
for /f "delims=; tokens=3" %%t in (%cd%\config.ldt) do set dk=%%t
for /f "delims=; tokens=4" %%b in (%cd%\config.ldt) do set color=%%b
if %dbg% equ true (set dbgx=a) else (if %dbg% equ false (set dbgx=b) else (goto configerr))
if %dk% equ true (set dkif=a) else (if %dk% equ false (set dkif=b) else (goto configerr))
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
goto configerr
:colok
rem time
set "t1x=%time%"
if "%t1x:~,2%" lss "%tx:~,2%" set "add=+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"
rem endtime
if %dkif% equ b goto nodk
rem time
set "tn=%time%"
rem code
for /f "delims=" %%a in (%cd%\doskey.ldt) do doskey %%a
rem time
set "t1n=%time%"
if "%t1n:~,2%" lss "%tn:~,2%" set "add=+24"
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"
:nodk
rem time
set "t1=%time%"
if "%t1:~,2%" lss "%t:~,2%" set "add=+24"
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"
color %color%
mode con cols=%modc% lines=%modl%
if %dbgx% equ a goto dbg
echo 加载文件:
echo 加载配置文件...
echo 完成 用时%hhx%:%mmx%:%ssx%.%msx%(时:分:秒.毫秒)
echo 加载宏命令...
echo 完成 用时%hhn%:%mmn%:%ssn%.%msn%(时:分:秒.毫秒)
echo 加载完成 总用时%hh%:%mm%:%ss%.%ms%(时:分:秒.毫秒)
echo.
echo BetterCommand Development version 0.1a
echo.
:inputloop
set /p com=^>
if "%com%" equ help %cd%\help.txt
if "%com%" equ exit exit
if "%com%" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:
if "%shutyn%" equ y shutdown /s /t 0 /f)
%com%
goto inputloop
:configerr
echo 配置文件可能存在问题，加载失败，请检查config.ldt。
pause
exit
:dbg
@echo on
:inputloopdbg
set /p com=^>
if "%com%" equ help %cd%\help.txt
if "%com%" equ exit exit
if "%com%" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:
if "%shutyn%" equ y shutdown /s /t 0 /f)
%com%
pause
goto inputloopdbg
复制代码

doskey.ldt和config.ldt这两个需要放在和主文件同一个目录下，其中doskey.ldt的内容就是一行行的代号=执行的命令，语法就是doskey命令不打出来开头的doskey几个字。config.ldt内容是：

窗口大小的列数'行数;是否启用debug模式(false或者true，打开这个模式后回显会开启，并且会执行一条命令暂停一次，让你按任意键继续);是否启用doskey宏功能，关掉它则doskey.ldt的内容不会被加载(false或者true);颜色代码(就是color命令的语法不打出来开头的color几个字)
复制代码

一个帖子有字数限制，另一部分发到二楼。

BingjianREMIX

处理后是配置文件可能存在问题，加载失败，请检查config.ldt。

BingjianREMIX

我看了是显示"此时不应有'true'"

BingjianREMIX

可以用terminal运行一下,可以显示错误信息

jyswjjgdwtdtj

回复 17# LTSC1809


    哦 之前没看懂你的意思
你可以exec一个cmd 然后读取bat 输入到cmd里执行

BingjianREMIX

要不要考虑一下嵌套cmd

jyswjjgdwtdtj

回复 17# LTSC1809


    扔在第一个bat里

LTSC1809

回复 15# Batcher


    我还需要if判断是否是那几个命令，不是的话再直接执行，这怎么办

jyswjjgdwtdtj

给你支个招 用vbs 先exec一个cmd窗口 先执行你要用来设定控制台窗口的bat 再执行你要运行bat

Batcher

回复 14# LTSC1809


13楼代码改成这样试试：

for /f "delims=" %%i in ('type 1.txt') do "%%i"
复制代码

LTSC1809

回复 13# jyswjjgdwtdtj


    这...%b%要等for执行完才会执行，所以它的内容是%%i最后一次，也就是文档里最后一行的内容

jyswjjgdwtdtj

话说没搞懂你到底要干啥
如果只是读取再运行直接

for /f "delims=" %%i in ('type C:\Users\admin\xx\1.txt') do set b=%%i
%b%
复制代码

不就行了？

Batcher

回复 12# LTSC1809


    11楼的三步是为了帮你找到代码中的问题，问题解决之后你就怎么高兴怎么改。

LTSC1809

回复 11# Batcher


   弄好的代码如下：

@echo off
pause
SetLocal EnableDelayedExpansion
pause
for /f "delims=; tokens=5" %%q in (%1\config.ldt) do if %%q equ true goto noecho
pause
rem time
pause
set "t=%time%"
pause
rem code
pause
rem time
pause
set "tx=%time%"
pause
rem code
pause
for /f "delims=; tokens=1" %%o in (%1\config.ldt) do set conls=%%o
pause
for /f "delims=' tokens=1" %%z in ("%conls%") do set modc=%%z
pause
for /f "delims=' tokens=2" %%e in ("%conls%") do set modl=%%e
pause
for /f "delims=; tokens=2" %%i in (%1\config.ldt) do set dbg=%%i
pause
for /f "delims=; tokens=3" %%t in (%1\config.ldt) do set dk=%%t
pause
for /f "delims=; tokens=4" %%b in (%1\config.ldt) do set color=%%b
pause
if %dbg% equ true (set dbgx=a) else (if %dbg% equ false (set dbgx=b) else (goto configerr))
pause
if %dk% equ true (set dkif=a) else (if %dk% equ false (set dkif=b) else (goto configerr))
pause
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
pause
goto configerr
pause
:colok
pause
rem time
pause
set "t1x=%time%"
pause
if "%t1x:~,2%" lss "%tx:~,2%" set "add=+24"
pause
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"
pause
rem endtime
pause
if %dkif% equ b goto nodk
pause
rem time
pause
set "tn=%time%"
pause
rem code
pause
for /f "delims=" %%a in (%cd%\doskey.ldt) do doskey %%a
pause
rem time
pause
set "t1n=%time%"
pause
if "%t1n:~,2%" lss "%tn:~,2%" set "add=+24"
pause
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"
pause
:nodk
pause
rem time
pause
set "t1=%time%"
pause
if "%t1:~,2%" lss "%t:~,2%" set "add=+24"
pause
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"
pause
color %color%
pause
mode con cols=%modc% lines=%modl%
pause
if %dbgx% equ a goto dbg
pause
echo 加载文件:
pause
echo 加载配置文件...
pause
echo 完成 用时%hhx%:%mmx%:%ssx%.%msx%(时:分:秒.毫秒)
pause
echo 加载宏命令...
pause
echo 完成 用时%hhn%:%mmn%:%ssn%.%msn%(时:分:秒.毫秒)
pause
echo 加载完成 总用时%hh%:%mm%:%ss%.%ms%(时:分:秒.毫秒)
pause
echo.
pause
echo BetterCommand Interpreter development version 0.1a
pause
echo.
pause
for /f "delims=" %%r in (%1\%2) do (set /p !com!=<%1\%2
pause
if "!com!" equ help %cd%\help.txt
pause
if "!com!" equ exit /b exit /b
pause
if "!com!" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:
pause
if "!shutyn!" equ y shutdown /s /t 0 /f)
pause
!com!)
pause
exit /b
pause
:configerr
pause
echo 配置文件可能存在问题，加载失败，请检查config.ldt。
pause
pause
pause
exit /b
pause
:dbg
pause
@echo on
pause
for /f "delims=" %%w in (%1\%2) do (set /p com=<%1\%2
pause
if "!com!" equ help %cd%\help.txt
pause
if "!com!" equ exit /b exit /b
pause
if "!com!" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:
pause
if "!shutyn!" equ y shutdown /s /t 0 /f)
pause
!com!)
pause
exit /b
pause
exit /b
pause
pause
pause
:noecho
pause
for /f "delims=; tokens=1" %%o in (%1\config.ldt) do set conls=%%o
pause
for /f "delims=' tokens=1" %%z in ("%conls%") do set modc=%%z
pause
for /f "delims=' tokens=2" %%e in ("%conls%") do set modl=%%e
pause
for /f "delims=; tokens=2" %%i in (%1\config.ldt) do set dbg=%%i
pause
for /f "delims=; tokens=3" %%t in (%1\config.ldt) do set dk=%%t
pause
for /f "delims=; tokens=4" %%b in (%1\config.ldt) do set color=%%b
pause
if %dbg% equ true (set dbgx=a) else (if %dbg% equ false (set dbgx=b) else (goto configerr))
pause
if %dk% equ true (set dkif=a) else (if %dk% equ false (set dkif=b) else (goto configerr))
pause
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
pause
goto configerr
pause
:colokn
pause
if %dkif% equ b goto nodk
pause
for /f "delims=" %%a in (%1\doskey.ldt) do doskey %%a
pause
:nodkn
pause
for /f "delims=" %%y in (%1\%2) do (set /p com=<%1\%2
pause
if "!com!" equ help %cd%\help.txt
pause
if "!com!" equ exit /b exit /b
pause
if "!com!" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:
pause
if "!shutyn!" equ y shutdown /s /t 0 /f)
pause
!com!)
pause
exit /b
pause
:configerrn
pause
echo 配置文件可能存在问题，加载失败，请检查config.ldt。
pause
pause
pause
exit /b
pause
:dbgn
pause
@echo on
pause
for /f "delims=" %%u in (%1\%2) do (set /p com=<%1\%2
pause
if "!com!" equ help %1\%2
pause
if "!com1" equ exit /b exit /b
pause
if "!com!" equ shutdown (set /p shutyn=Shutdown now?[Y/N]:
pause
if "!shutyn!" equ y shutdown /s /t 0 /f)
pause
!com!
pause
pause)
pause
exit /b
复制代码

发现最后一次输出是:

系统找不到文件 C:\Users\Administrator\Desktop\bcitest\C:\Users\Administrator\Desktop\bcitest\114.bat
复制代码

路径重复了两次，这是怎么回事啊

Batcher

回复 4# LTSC1809


第一步，把代码里面所有的exit全部改成exit /b
第二步，按照3楼的方法执行代码
第三步，说一下你认为第几行代码执行结果跟你的期望不同