中国DOS联盟

在下面程序中多次启用变量延时并及时退出。在程序的开始也设置有变量延时退出，问题是这样的：启用程序功能一切正常并且结果正确。如果返回主界面，再继续重新执行，却没有结果。但是只要将程序关闭，重新启用程序，得到的结果又是正确的。我找不出问题所在，敬请大师帮忙解答！！！！

Last edited by ZJHJ on 2010-6-27 at 23:01 ]

程序呢？

程序是我自己写的，由于水平有限，只考虑了功能，没有考虑优化和临时文件。
见笑了。谢谢各位指点.....!

:gggf

@echo off

@echo  

endlocal EnableDelayedExpansion

cls

::wangwei QQ 251485609 081106

echo.

echo                      本程序检查两个文本文档的内容变化(not带exe混合型)

@echo.

@echo                  a  纯文本文档内容变化检查(列出原始行和变化行)

@echo.

@echo                  b  程序文件路径快照检查(作并列比较列出)

@echo.

set /p yswj=    将要对比的原始文件拉入：

@echo.

set /p xwj=     将新文件拉入：

@echo    检查时间: %date% %time%     (单行为新增文件)>对比结果.txt

copy  %yswj%  y.txt

copy  %xwj%  x.txt

::测y.txt大小

for /f "delims=" %%a in ('dir  /b /s /a-d y.txt') do set dx=%%~za

::测y.txt原文件行数

for /f "tokens=2 delims=:" %%i in ('find /v /c ""  y.txt') do set ydx=%%i

@echo        原文件%ydx%行，%dx%字节>>对比结果.txt

::为了缩短时间先用fc对比

cd.>fc1.txt

fc  y.txt  x.txt  /l >>fc1.txt

cd.>yy.txt

cd.>xx.txt

cls

::从fc1.txt中分割文件

echo off & setlocal EnableDelayedExpansion

for /f "skip=1 delims=" %%a in (fc1.txt) do (

  if "%%a" equ "***** y.txt" (set fname=yy) else if "%%a" equ "***** X.TXT" (set fname=xx) else (

    >>!fname!^.txt echo %%a

  )

)

::endlocal EnableDelayedExpansion

::setlocal EnableDelayedExpansion

if not exist %windir%\wwxm del %0

del fc1.txt

::保留xx.txt与yy.txt之不同(改变行)

cd.>tem.txt

for /f "delims=" %%i in (yy.txt) do SET %%i=A

for /f "delims=" %%j in (xx.txt) do  if /I not defined %%j echo %%j>>tem.txt

endlocal EnableDelayedExpansion

::检查是否有.exe

findstr  /i /r /c:".exe"  "tem.txt" >nul 2>nul

if %errorlevel%==1 goto wbjg

::保留yy.txt与xx.txt之不同(原始行)

cd.>ytem.txt

for /f "delims=" %%i in (xx.txt) do SET %%i=A

for /f "delims=" %%j in (yy.txt) do  if /I not defined %%j echo %%j>>ytem.txt

::清除*****

cd.>xxx.txt

findstr /i  /v "*****" tem.txt>>xxx.txt

::做标记为对齐

cd.>x.txt

for /f "delims=" %%i in (xxx.txt) do >>x.txt echo ★%%i

cd.>y.txt

for /f "delims=" %%i in (ytem.txt) do >>y.txt echo   %%i

del yy.txt

del xx.txt

del xxx.txt

::合并

copy y.txt + x.txt xxx.txt

del y.txt

del ytem.txt

cls

::提取程序名

cd.>tem1.txt

for /f "delims=" %%a in (x.txt) do echo %%~nxa>>tem1.txt

cd.>tem.txt

for /f "tokens=2 delims= " %%i in (tem1.txt) do echo %%i>>tem.txt

for /f "tokens=*" %%a in (tem.txt) do (

 if not "%%~za"=="0"  goto ykg

    )

for /f %%i in (tem1.txt) do  (

findstr /i /r /c:"\<%%i\>" xxx.txt>>对比结果.txt

@echo.>>对比结果.txt

)

goto jcjs

:ykg

::用程序名查找并排列对比显示

for /f %%i in (tem.txt) do  (

findstr /i /r /c:"\<%%i\>" xxx.txt>>对比结果.txt

@echo.>>对比结果.txt

)

:jcjs

@echo              结束时间:   %time%>>对比结果.txt

echo  

del tem.txt

del tem1.txt

del xxx.txt

del x.txt

start 对比结果.txt

goto gggf



:wbjg

@echo    检查时间: %date% %time%  原文件%ydx%行，%dx%字节>对比结果.txt

@echo   原始文件内容：>>对比结果.txt

::保留yy.txt与xx.txt之不同行

for /f "delims=" %%i in (xx.txt) do SET %%i=A

for /f "delims=" %%j in (yy.txt) do  if /I not defined %%j echo %%j>>对比结果.txt

@echo.>>对比结果.txt

@echo   被改变的内容：>>对比结果.txt

::清楚*****

findstr /i  /v "*****" tem.txt>>对比结果.txt

@echo              运行结束时间:   %time%>>对比结果.txt

echo  

del tem.txt

del x.txt

del y.txt

del xx.txt

del yy.txt

start 对比结果.txt

@goto gggf

Last edited by ZJHJ on 2010-6-24 at 22:45 ]

为了学习知识继续求助帮忙分析问题！

已经把代码缩减，找到问题出在的地方，是tem.txt无法写入，为什么这个命令只能用一次？？
:gggf
@echo off
@echo.
set /p yswj= 将要对比的原始文件拉入：
@echo.
set /p xwj= 将新文件拉入：
copy %yswj% y.txt
copy %xwj% x.txt
::为了缩短时间先用fc对比
cd.>fc1.txt
fc y.txt x.txt /l >>fc1.txt
cd.>yy.txt
cd.>xx.txt
cls
::从fc1.txt中分割文件
echo off
setlocal EnableDelayedExpansion
for /f "skip=1 delims=" %%a in (fc1.txt) do (
if "%%a" equ "***** y.txt" (set fname=yy) else if "%%a" equ "***** X.TXT" (set fname=xx) else (
>>!fname!^.txt echo %%a
)
)
del fc1.txt
cd.>tem.txt
for /f "delims=" %%i in (yy.txt) do SET %%i=A
for /f "delims=" %%j in (xx.txt) do if /I not defined %%j echo %%j>>tem.txt
endlocal EnableDelayedExpansion
@echo 原始文件内容：>对比结果.txt
::保留yy.txt与xx.txt之不同行
for /f "delims=" %%i in (xx.txt) do SET %%i=A
for /f "delims=" %%k in (yy.txt) do if /I not defined %%k echo %%k>>对比结果.txt
@echo.>>对比结果.txt
@echo 被改变的内容：>>对比结果.txt
::清楚*****
findstr /i /v "*****" tem.txt>>对比结果.txt
echo 
del tem.txt
del x.txt
del y.txt
del xx.txt
del yy.txt
start 对比结果.txt
@goto gggf

原因很简单你 SET %%i=A 设置的变量没有清除

第一对比出来结果了，但是变量保存了，你第二次执行，这些内容已经在变量里面了，所以你执行not defined 比较，他们自然都defined，所以没有输出。

那为什么在‘原始文件内容 ’那个代码又能写入呢？可是在3L的代码中，也试过退出后 再加入的呀，也同样没有反应。我也试过，第一次运行后，把 SET %%i=A 修改为 SET %%i=B 结果也同样没有反应。
我知道，如果第一个比较后，必须退出，第二个比较才能写入。所以第一次运行结果全是正确的。我也这样试过，在第一次运行后返回界面，加入变量延时，再退出，结果同样无效。

那么，怎样才能在第一次运行后，把设置的变量清除呢？

SET 华丽丽的前缀_%%i=A

……

清理阶段
for /f %%i in ('set 华丽丽的前缀_') do set %%i=

唉，我就是很很笨，还是不会弄。
就把下面的帮我弄成现成的吧！
for /f "delims=" %%i in (yy.txt) do SET %%i=A
for /f "delims=" %%j in (xx.txt) do if /I not defined %%j echo %%j>>tem.txt

for /f "delims=" %%i in (yy.txt) do SET 华丽丽的前缀_%%i=A
for /f "delims=" %%j in (xx.txt) do if /I not defined 华丽丽的前缀_%%j echo %%j>>tem.txt


for /f "delims=" %%i in (xx.txt) do SET 华丽丽的前缀_%%i=A
for /f "delims=" %%k in (yy.txt) do if /I not defined 华丽丽的前缀_%%k echo %%k>>对比结果.txt



del yy.txt
for /f "delims==" %%i in ('set 华丽丽的前缀_') do set %%i=
start 对比结果.txt
@goto gggf

非常谢谢 slore 的帮助！！可以了。不要见笑，我确实没有见过。