中国DOS联盟

To All:

今天，根据网上的一段代码修改出一个可以在MSDOS下获取并分解系统时钟信息（日期、时间）的批处理。在MSDOS6.22/MSDOS7.10下运行通过。显然易见的是，程序的冗余度过高，存在大量的重复代码，所以它需要简化，也必然可以简化。本来是要自己修改的，只是最近还在忙其他的题目，无法分心；同时又感觉论坛讨论纯DOS批处理的主题日趋萎缩，所以将它贴上来，大家讨论一下，看有什么好的简化和改进方案，并对其中涉及到的DOS下的词法分析算法进行讨论和优化。当然，网上的此类代码应该还有许多，大家也可以提供更多的资源链接或者自己的想法。

%time%...DOS vs. Win98
http://groups.google.com/group/alt.msdos.batch/browse_thread/thread/faa7a7961815c004/7c979271a52e36e7

@echo off

if "%1"=="





















) do shift



set _vdt=

:loop1

shift

set _tmp=%_vdt%

for %%t in (1,2,3,4,5,6,7,8,9,0) do if "%1"=="%%t" set _vdt=%_vdt%%1

if not "%_vdt%"=="%_tmp%" goto loop1

set %_dt1%=%_vdt%



set _vdt=

:loop2

shift

set _tmp=%_vdt%

for %%t in (1,2,3,4,5,6,7,8,9,0) do if "%1"=="%%t" set _vdt=%_vdt%%1

if not "%_vdt%"=="%_tmp%" goto loop2

set %_dt2%=%_vdt%



set _vdt=

:loop3

shift

set _tmp=%_vdt%

for %%t in (1,2,3,4,5,6,7,8,9,0) do if "%1"=="%%t" set _vdt=%_vdt%%1

if not "%_vdt%"=="%_tmp%" goto loop3

set %_dt3%=%_vdt%



set _vdt=

:loop4

shift

set _tmp=%_vdt%

for %%t in (1,2,3,4,5,6,7,8,9,0) do if "%1"=="%%t" set _vdt=%_vdt%%1

if not "%_vdt%"=="%_tmp%" goto loop4

set _HH=%_vdt%



set _vdt=

:loop5

shift

set _tmp=%_vdt%

for %%t in (1,2,3,4,5,6,7,8,9,0) do if "%1"=="%%t" set _vdt=%_vdt%%1

if not "%_vdt%"=="%_tmp%" goto loop5

set _MN=%_vdt%



set _vdt=

:loop6

shift

set _tmp=%_vdt%

for %%t in (1,2,3,4,5,6,7,8,9,0) do if "%1"=="%%t" set _vdt=%_vdt%%1

if not "%_vdt%"=="%_tmp%" goto loop6

set _SS=%_vdt%



set _vdt=

:loop7

shift

set _tmp=%_vdt%

for %%t in (1,2,3,4,5,6,7,8,9,0) do if "%1"=="%%t" set _vdt=%_vdt%%1

if not "%_vdt%"=="%_tmp%" goto loop7

set _CS=%_vdt%



echo DTN:%_YY% %_MM% %_DD% %_HH% %_MN% %_SS% %_CS%

:end

Last edited by willsort on 2006-3-26 at 23:01 ]

我来贴一个,效率没有提高.减少了一些代码

@echo off

if "%1"=="


































) do shift



:dt1

set _set=%_dt1%

set next=dt2

goto loop



:dt2

set _set=%_dt2%

set next=dt3

goto loop



:dt3

set _set=%_dt3%

set next=hh

goto loop



:hh

set _set=_hh

set next=MN

goto loop



:mn

set _set=_mn

set next=ss

goto loop



:ss

set _set=_ss

set next=cs

goto loop



:cs

set _set=_cs

set next=echo1

goto loop



:echo1

echo DTN:%_YY% %_MM% %_DD% %_HH% %_MN% %_SS% %_CS%

:end

Last edited by chenall on 2006-3-27 at 13:47 ]

Re chenall:

今天有闲可以回顾修改这个程序了，解决这个代码的冗余性问题，其实最主要的就是如何实现一系列变量连续性的取值和赋值。本来打算使用for对变量进行循环探测，遇到未赋值的变量即跳出赋值，但是此算法实现起来较为复杂，而且对最初变量的重复探测问题也是代码冗余性的一种表现。现在，看到兄的代码，联想起可以使用数据结构中的链表结构，而它正可通过命令行参数来实现，所以写下了这个修改版本。

这个版本，同时解决了变量没有被“传出”的问题，也增加了退出前清扫现场的语句。但是这个程序还存在许多缺陷，最致命的是，程序中的词法分析核心 choice 无法正确分析以/作为分隔符的字符串，而诸如国家代码为001(United States)的日期信息恰是以/作为分隔符，而代码中的所有语句都是以不依赖于“国家或区域代码”的通用性为设计目标，而这个缺陷完全架空了其他语句所作的努力。

另外，它还无法处理时间信息中的12小时制时间。

@echo off

if "%1"==":" goto %2

echo.|date|find "Current" > _getdate.bat

echo set _dw=%%3> current.bat

echo set _date=%%4>> current.bat

call _getdate.bat



echo.|date|find "Enter" > _getdfmt.bat

echo set _dfmt=%%3> enter.bat

call _getdfmt.bat



echo.|time|find "Current" > _gettime.bat

echo set _time=%%3> current.bat

call _gettime.bat



echo _|choice /c"%_dfmt%%_date%_%_time%" @%0 : parse > _parse.bat

%comspec% /e:2048 /c _parse.bat

call _setdt.bat

for %%e in (_date _dfmt _time) do set %%e=

for %%f in (_*.bat enter.bat* current.bat*) do del %%f

echo DTN:%_YY%-%_MM%-%_DD% %_HH%:%_MN%:%_SS%.%_CS%

goto end



:parse

set _me=%0

shift

shift

set _tok=%2%3 %5%6 %8%9 HH MN SS CS

for %%t in () do shift



:NextToken

set _vdt=

:GetToken

shift

set _tmp=%_vdt%

for %%t in (1,2,3,4,5,6,7,8,9,0) do if "%1"=="%%t" set _vdt=%_vdt%%1

if not "%_vdt%"=="%_tmp%" goto GetToken

if "%1"=="" goto end

call %_me% : SetToken %_tok%

goto NextToken



:SetToken

set _tok=%4 %5 %6 %7 %8 %9

echo set _%3=%_vdt%>> _setdt.bat

goto end



:end

Re All:

在找到了解决choice对/的兼容性问题，可以支持001的时钟信息了；而prompt的选择不仅简化了代码，同时还使时间保持为24小时制。对帖中代码进行了简单的修改得到以下代码，未进行日期变量名的匹配。

alt.msdos.batch > Documentation of CHOICE streaming parser
http://groups.google.com/group/alt.msdos.batch/msg/5e1d0f360f172118

@echo off

if "%1"==":" goto %2 (subroutine handler at %2)



echo.exit|%comspec%/e:4096/k prompt set v=$d $t$_:>_tm.bat

call _tm.bat

echo.%v%&|%comspec%/e:4096/c %0 : Parse>_tm.bat

for %%p in (_tm.bat* _tmset.bat*) do call %%p



echo.Note that d1 d2 and d3 are in your system date order

echo.DTN:d1=%d1% d2=%d2% d3=%d3% hh=%hh% mm=%mm% ss=%ss% cs=%cs%.



for %%e in (v d1 d2 d3 hh mm ss cs) do set %%e=

for %%f in (_tm.bat* _tm.tmp* _tmset.bat*) do del %%f

goto end



:Parse (usage: call %0 : Parse +input redirect date/time)

set me=%0

set tok=d1 d2 d3 hh mm ss cs

set d1=

:NextToken

for %%v in (v1 v) do set %%v=

choice /c&0123456789 /n>_tm.tmp

for %%n in (0 1 2 3 4 5 6 7 8 9) do if errorlevel 77%%n set v=%%n

if not errorlevel 2 %me% : SetToken %tok%

find ""<_tm.tmp>nul

if not errorlevel 1 if not "%d1%"=="" call %me% : SetToken %tok%

set d1=%d1%%v%

goto NextToken



:SetToken

set tok=%4 %5 %6 %7 %8 %9

echo set %3=%d1%>> _tmset.bat

set d1=

goto end



:end (end-of-file)

厉害，看了下英文，看不懂。

我来积分。

厉害，顶顶顶啊~~````

提示 bad command or file name..

貌似
echo.exit|%comspec%/e:4096/k prompt set v=$d $t$_:>_tm.bat
call _tm.bat
echo.%v%&|%comspec%/e:4096/c %0 : Parse>_tm.bat
for %%p in (_tm.bat* _tmset.bat*) do call %%p

这里出了问题... 我是DOS6.22, 应该不会啊...