用批处理方式实现的目录比较工具 - 中国DOS联盟论坛

下载链接：
http://upload.cn-dos.net/img/1478.zip
更新日志：
v4:
1.增加了计算的进度显示；
2.找了新版的 md5sum.exe，没有对动态库的依赖。

工具一：md5comv4.bat 接受两个目录参数，计算两个目录里每个文件的 md5 值，并给出报表文件 md5v4.txt，使用方法：
md5omv4.bat <目录1> <目录2>

根据这 md5comv4.bat 生成的报表文件 md5v4.txt，可以找到两个目录中
1：同名而且 md5 相同的文件；
2：同名但是 md5 不同的文件；
3：不同名但是 md5 相同的文件；
4：同一目录中不同名但是 md5 相同的文件。

注意事项：
1：md5comv4.bat 不接受路径带有空格的目录名，但是可以接受带有空格的文件名；
2：md5 的计算由 md5sum.exe 完成；
3：md5comv4.bat 运行时会产生大量临时文件，这些文件由工具自动维护，不必手工清理。

这个工具都是命令行方式、文本界面的，对于习惯使用图形界面的朋友来说，可能不方便，因此，不推荐习惯使用图形界面的朋友使用。
有问题请写邮件到 rubble@126.com。
文件已上传到论坛的上传系统，
檔名用戶備註大小日期原檔名
rubble 目录比较工具，基于md5sum实现。 33kB 2009/05/08(Fri)17:20 目录比较工具.zip
下载链接：
http://upload.cn-dos.net/img/1478.zip

[ Last edited by rubble on 2009-5-13 at 01:34 ]

最近几天一直在论坛泡着，看了一些高手写的BAT程序，发现了这个工具的一个不足之处：每行批处理命令后面，特别是带有截取字符串的命令的行的后面，不能有多余的空格。

Sample Text如何引用

Sample Text如何引用

代码列表如下，有一些特殊字符可能不能被正常显示，请到上传系统下载源文件：


@echo off
setlocal enableextensions enabledelayedexpansion
rem 作者：rubble@126.com
rem 17:55 2009-4-14 版本：0.4
set dira=%~1
set dirb=%~2
if "%1" == "" (
        echo     使用说明：请在命令行参数上指明两个目录，或在这里按提示输入。
        echo     命令行参数格式：批处理名 ^<目录1^> ^<目录2^>
        echo.
        set /p dira=请输入第一个目录的名字（可拖放并输入回车）：
)
echo.
if "%2" == "" (
        echo     使用说明：请在命令行参数上指明两个目录，或在这里按提示输入。
        echo     命令行参数格式：批处理名 ^<目录1^> ^<目录2^>
        echo.
        set /p dirb=请输入第二个目录的名字（可拖放并输入回车）：
)

if "%dira%" == "" exit /b
if "%dirb%" == "" exit /b
for /F "delims=. tokens=1" %%A in ("%TIME%") do set startTime=%%A
for /F "delims=: tokens=1,2,3" %%A in ("%startTime%") do (
        set startH=%%A
        set startM=%%B
        set startS=%%C
)

set TEMPDIR=TEMPMD5\
rd /Q /S %TEMPDIR% 1>NUL 2>NUL
md %TEMPDIR%
set mdfive=md5v4.txt
rem 已处理的文件数
set count=0
rem 文件夹 %dira% 和 %dirb% 里的文件总数
set total_count=0
rem 已处理的临时文件数
set tmpf_count=0
rem 临时文件总数，已知有 5 个了。其余的是 md5 值的个数
set tmpf_total_count=5
echo 第 1/2步，正在计算，请稍候……
echo 正在比较 %dira% 和 %dirb% 中的文件的 md5 值 > %mdfive%
set list_fn_md=%TEMPDIR%list_fn_md
set list_fn_nmd=%TEMPDIR%list_fn_nmd
set list_fn_oa=%TEMPDIR%list_fn_oa
set list_fn_ob=%TEMPDIR%list_fn_ob
set list_all_md=%TEMPDIR%list_all_md

call :COUNTFILES %dira%
call :COUNTFILES %dirb%

for /f "delims=" %%a in ('dir /b /a:-d "%dira%\*"') do (
        set fn=%%~nxa
        for /f "tokens=1 delims= " %%A in ('md5sum "%dira%\%%a"') do set mda=%%A
        set /a count=!count!+1
        call :PROGRESS !count! !total_count!
        if "!mda:~0,1!" == "\" set mda=!mda:~1,1024!
        rem 以 !mda! 为文件名，记录 md5 为 !mda! 的文件
        call :ADDMDFN "%TEMPDIR%!mda!" "%dira%\!fn!"
        rem 把 md5 值记录到文件里，保证不重复
        call :ADDMDLIST !mda!
        if exist "%dirb%\!fn!" (
            for /f "tokens=1 delims= " %%A in ('md5sum "%dirb%\!fn!"') do set mdb=%%A
            set /a count=!count!+1
            call :ADDMDFN "%TEMPDIR%!mdb!" "%dirb%\!fn!"
            call :PROGRESS !count! !total_count!
            if "!mdb:~0,1!" == "\" set mdb=!mdb:~1,1024!
            if "!mda!" == "!mdb!" (
                rem 记录文件名相同并且 md5 相同的文件
                echo !mda! !mdb! !fn! >> "!list_fn_md!"
            ) else (
                rem 记录文件名相同但 md5 不相同的文件
                echo !mda! !mdb! !fn! >> "!list_fn_nmd!"
                call :ADDMDLIST !mdb!
            )
        ) else (
            rem 记录只在 %dira% 中出现的文件
            echo !mda! !fn! >> "!list_fn_oa!"
        )
)
for /f "delims=" %%a in ('dir /b /a:-d "%dirb%\*"') do (
        set fn=%%~nxa
        if not exist "%dira%\!fn!" (
            for /f "tokens=1 delims= " %%A in ('md5sum "%dirb%\%%a"') do set mdb=%%A
            if "!mdb:~0,1!" == "\" set mdb=!mdb:~1,1024!
            rem 记录只在 %dirb% 中出现的文件
            echo !mdb! !fn! >> "!list_fn_ob!"
            rem 把 md5 值记录到文件里，保证不重复
            call :ADDMDLIST !mdb!
            call :ADDMDFN "%TEMPDIR%!mdb!" "%dirb%\!fn!"
            set /a count=!count!+1
            call :PROGRESS !count! !total_count!
        )
)
echo 第 2/2步，正在统计，请稍候……
echo 统计：>>%mdfive%
echo 左：%dira% >> %mdfive%
echo 右：%dirb% >> %mdfive%
if not exist "%list_fn_md%" set /a tmpf_total_count-=1
if not exist "%list_fn_nmd%" set /a tmpf_total_count-=1
if not exist "%list_fn_oa%" set /a tmpf_total_count-=1
if not exist "%list_fn_ob%" set /a tmpf_total_count-=1
if not exist "%list_all_md%" set /a tmpf_total_count-=1
echo 两个目录中都存在且 md5 相同的文件：>> %mdfive%
call :OUTPUTLIST "%list_fn_md%"
echo ===============================================================================================>> %mdfive%
echo 左：%dira% >> %mdfive%
echo 右：%dirb% >> %mdfive%
echo 两个目录中都存在但 md5 不相同的文件：>> %mdfive%
call :OUTPUTLIST "%list_fn_nmd%"
echo ===============================================================================================>> %mdfive%
echo 只在目录 %dira% 中存在的文件：>> %mdfive%
call :OUTPUTLIST "%list_fn_oa%"
echo ===============================================================================================>> %mdfive%
echo 只在目录 %dirb% 中存在的文件：>> %mdfive%
call :OUTPUTLIST "%list_fn_ob%"
echo ===============================================================================================>> %mdfive%
echo 以 md5 汇总的文件列表：>> %mdfive%
call :OUTPUTLIST_MD "%list_all_md%"

goto ALLDONE

rem 统计文件夹里的文件数目，放到全局变量 total_count 里
:COUNTFILES
if %1=="" goto :EOF
for /f %%a in ('dir /b /a:-d "%~1\*"') do (
    set /a total_count=!total_count!+1
)
goto :EOF

rem 参数 %1 必须加双引号
:OUTPUTLIST
if %1 == "" goto :EOF
if not exist %1 goto :EOF
set tcnt=0
for /f "tokens=1* delims= " %%a in (%~1) do (
    echo %%a %%b >> %mdfive%
    set /a tcnt+=1
)
echo !tcnt! >> %mdfive%
set /a tmpf_count+=1
call :PROGRESS !tmpf_count! !tmpf_total_count!
goto :EOF

rem 参数 %1 必须加双引号
:OUTPUTLIST_MD
if %1 == "" goto :EOF
if not exist %1 goto :EOF

set /a tmpf_count+=1
call :PROGRESS !tmpf_count! !tmpf_total_count!

set md_count=0
for /f "tokens=1* delims= " %%a in (%~1) do (
    echo %%a >> %mdfive%
    set tcnt=0
    for /f "tokens=1* delims= " %%A in (!TEMPDIR!%%a) do (
        echo %%A %%B >> %mdfive%
        set /a tcnt+=1
    )
    set /a tmpf_count+=1
    call :PROGRESS !tmpf_count! !tmpf_total_count!
    echo !tcnt! >> %mdfive%
    set /a md_count+=1
    echo. >> %mdfive%
)
echo %md_count% >> %mdfive%
goto :EOF

rem 函数：把 md5 值保存到一个名为 !list_all_md! 的文件里，
rem 并保证不保存重复的 md5 值
:ADDMDLIST
if %1 == "" goto :EOF
if exist "!list_all_md!" (
        rem 这里的 delims 要么删除，要么做成像下面这行的样子，在等号后面加个空格
        rem for /f "tokens=1 delims= " %%a in (!list_all_md!) do (
        for /f "tokens=1 " %%a in (!list_all_md!) do (
            if "%%a" == "%1" goto :EOF
        )
)
echo %1 >> "!list_all_md!"
rem 记录临时文件总数
set /a tmpf_total_count+=1
goto :EOF

rem 函数：以 %1 为文件名，保存 %2
rem %1：在这个应用里是 md5 值
rem %2：md5 值为 %1 的文件
:ADDMDFN
if %1 == "" goto :EOF
if %2 == "" goto :EOF
echo %2 >> %1
goto :EOF

:PROGRESS
set tips=
set backspace=
set /a percent=%1*100/%2
set /a char=%1%%7
set /a bnum=%percent%/10
set /a snum=10-%bnum%
for /L %%a in (1, 1, %bnum%) do set /p=▌<NUL
for /L %%a in (1, 1, %snum%) do set /p=  <NUL
set /p=%1/%2 %percent%%% <NUL
set /p=!tips:~%char%,1!<NUL
if "%percent%" == "100" (
    echo.
    goto :EOF
)
set /p=%backspace%<NUL
goto :EOF

rem :PROGRESS
rem set tips=
rem set backspace=
rem set /a char=%1%%7
rem set /p=!tips:~%char%,1!<NUL
rem set /p=%backspace%<NUL
rem goto :EOF

:ALLDONE

rd /Q /S %TEMPDIR% 1>NUL 2>NUL
for /F "delims=. tokens=1" %%A in ("%TIME%") do set endTime=%%A
for /F "delims=: tokens=1,2,3" %%A in ("%endTime%") do (
        set endH=%%A
        set endM=%%B
        set endS=%%C
)
if "%endM:~0,1%" == "0" set endM=%endM:~1,1%
if "%endS:~0,1%"=="0" set endS=%endS:~1,1%
for /F "delims=: tokens=1,2,3" %%A in ("%startTime%") do (
        set startH=%%A
        set startM=%%B
        set startS=%%C
)
if "%startM:~0,1%"=="0" set startM=%startM:~1,1%
if "%startS:~0,1%"=="0" set startS=%startS:~1,1%
set /A totalTime=%endH%*3600+%endM%*60+%endS%-(%startH%*3600+%startM%*60+%startS%)
echo 共用时 %totalTime% 秒。
echo 起始时间：%startH%:%startM%:%startS%>>%mdfive%
echo 结束时间：%endH%:%endM%:%endS%>>%mdfive%
echo 共用时 %totalTime% 秒。>>%mdfive%
start %mdfive%
echo 
endlocal
@echo on

[ Last edited by rubble on 2009-5-7 at 21:44 ]

没有仔细看代码，能说说问什么不接受路径带有空格的目录名吗？

为了正确处理带有空格的路径，要在给这样的路径加上双引号，而且即使加无数层双引号，也可以被命令正确处理。我想要的一种结果是，可以把参数中的所有的引号去掉，需要的时候我自己加上，以保证输出格式是固定的。这个目录比较工具的结果，格式是固定的，可以写C程序做进一步的处理。根据for命令的帮助，

~I         - 删除任何引号(")，扩充 %I

这是简体中文xp和2003的帮助，下面是英文帮助：

%~I         - expands %I removing any surrounding quotes (")

然而实际实验时，只能去掉最外层的双引号，这不是我想要的，这可能会引起在结果文件中出现一堆双引号括着一个路径的情形。所以，最好不要在路径中带有空格。

为何会产生无数层双引号？
能否把它们删除？比如：

@echo off
set a=""""C:\test hat\cndos""""
set b=%a:"=%
echo %b%

Originally posted by HAT at 2009-5-8 11:57:
为何会产生无数层双引号？
能否把它们删除？比如：
@echo off set a=""""C:\test hat\cndos"""" set b=%a:"=% echo %b%

太棒了，这个就是我想要的。我再改一下代码。

为何会产生无数层双引号？

呵呵，会产生2层或3层。还有一种情况，就是处理非法参数的情况，如果用户输入一层层的双引号，没有路径，只有双引号，像这样

""""""""

你不把双引号去掉，就没有办法知道，用户输入的是非法路径。

[ Last edited by rubble on 2009-5-8 at 22:24 ]

@echo off
setlocal enableextensions enabledelayedexpansion

set dira=%~1
set dirb=%~2
if "%1" == "" (
echo 使用说明：请在命令行参数上指明两个目录，或在这里按提示输入。
echo 命令行参数格式：批处理名 ^<目录1^> ^<目录2^>
echo.
set /p dira=请输入第一个目录的名字（可拖放并输入回车）：
)
echo.
if "%2" == "" (
echo 使用说明：请在命令行参数上指明两个目录，或在这里按提示输入。
echo 命令行参数格式：批处理名 ^<目录1^> ^<目录2^>
echo.
set /p dirb=请输入第二个目录的名字（可拖放并输入回车）：
)

if "%dira%" == "" exit /b
if "%dirb%" == "" exit /b
rem 保留原执行路径
for /f %%a in ('cd') do (set mypath=%%a)

rem 映射目录1
subst k: /d >nul
subst k: %dira%
if exist "%mypath%\dira.txt" del %mypath%\dira.txt /q
k:
for /f "delims=" %%a in ('dir /s /b /a:-d /O:N') do (
%mypath%\md5sum "%%a" >>%mypath%\dira.txt
)
rem 回原执行目录
for /f "delims=\" %%a in ('echo %mypath%') do %%a
rem 映射目录2
subst k: /d
subst k: %dirb%
if exist "%mypath%\dirb.txt" del %mypath%\dirb.txt /q
k:
for /f "delims=" %%a in ('dir /s /b /a:-d /O:N') do (
%mypath%\md5sum "%%a" >>%mypath%\dirb.txt
)
rem 回原执行目录
for /f "delims=\" %%a in ('echo %mypath%') do %%a

sort dira.txt >dira.tmp
sort dirb.txt >dirb.tmp

fc %mypath%\dira.tmp %mypath%\dirb.tmp


@echo off
setlocal enableextensions enabledelayedexpansion
rem v5
rem 1。去掉了进度显示和计时功能，简化了一下，根据 anxd 的写法，用 fc 比较
rem    md5 值，并可以编历所有子目录。
rem 2。没有用 anxd 的映射驱动器的做法，在我的电脑上，盘符已经到了 P:。
rem 3。根据版主 HAT 的方法，增强了对用户输入合法性的检查，但仍不完美。
rem 4。现在可以快速找到两个目录中 md5 值不同的文件。

rem 注：fsutil fsinfo drives 可以查询出系统有多少个盘符

rem 检查用户输入
set dira=%1
set dirb=%2

if {%dira%}=={} (
    call :USEAGE
    set /p dira=请输入第一个目录的名字（可拖放并输入回车）：
)

if {%dirb%}=={} (
    call :USEAGE
    set /p dirb=请输入第二个目录的名字（可拖放并输入回车）：
)

if {%dira%}=={} (
    call :USEAGE
    echo 目录一非法。
    exit /b
)

if {%dirb%}=={} (
    call :USEAGE
    echo 目录二非法。
    exit /b
)
set dira=%dira:"=%
set dirb=%dirb:"=%

set dira="%dira%"
set dirb="%dirb%"

if %dira%=="" (
    call :USEAGE
    echo 目录一非法。
    exit /b
)

if %dirb%=="" (
    call :USEAGE
    echo 目录二非法。
    exit /b
)
rem 用户输入检查完毕，仍不能处理用户输入奇数个双引号的情况。

set diramd5=dira.txt
set dirbmd5=dirb.txt
set diratmp=dira.tmp
set dirbtmp=dirb.tmp

set md5=md5v5.txt

if exist %diramd5% del %diramd5%
if exist %dirbmd5% del %dirbmd5%

call :CALMD5 %dira% %diramd5%
call :CALMD5 %dirb% %dirbmd5%

sort %diramd5%>%diratmp%
sort %dirbmd5%>%dirbtmp%

fc %diramd5% %dirbmd5%>%md5%
del %diramd5% %dirbmd5% %diratmp% %dirbtmp%
start %md5%

goto :ALLDONE

:USEAGE
echo     使用说明：请在命令行参数上指明两个目录，或在这里按提示输入。
echo     命令行参数格式：批处理名 ^<目录1^> ^<目录2^>
echo.
goto :EOF

rem %1：将要计算其中文件的目录
rem %2：保存计算结果的文件
:CALMD5
set tdir=%1
set md5fn=%2
for /f "delims=" %%a in ('dir /s /b /a:-d /o:n !tdir!\*') do (
        md5sum %%a >> !md5fn!
)
goto :EOF

:ALLDONE
endlocal
@echo off

无论如何也得想法腾出个盘符替代两个目录名在生成文件中产生的差异，否则前面MD5相同，后面因目录名不同，FC会认为记录不匹配。
不用盘符，也可考虑生成文件后，将各自目录名统一一下(引入fr，那样做比subst复杂,而且可能影响到子目录与主目录同名的记录)，再作比较。

Originally posted by anxd at 2009-5-12 05:46:
无论如何也得想法腾出个盘符替代两个目录名在生成文件中产生的差异，否则前面MD5相同，后面因目录名不同，FC会认为记录不匹配。
不用盘符，也可 ...

也可以分析 md5sum 输出的结果，只记录 md5 值和该 md5 值对应的文件名，这样就没有目录不同的问题了。但是会有另一个问题，就是只知道有文件md5值不同，不知道文件在哪个目录里。要想知道，还要再找。
还有，请教一下，fr 是什么？

http://upload.cn-dos.net/img/1282.rar

因为dir 带参数/b和/s情况下输出全路径名，所以md5sum输出结果是md5 值对应的文件带全路径名,有目录不同的问题了.


@echo off
setlocal enableextensions enabledelayedexpansion
rem v6
rem 1。去掉了进度显示和计时功能，简化了一下，根据 anxd 的写法，用 fc 比较
rem    md5 值，并可以编历所有子目录。
rem 2。没有用 anxd 的映射驱动器的做法，在我的电脑上，盘符已经到了 P:。
rem 3。根据版主 HAT 的方法，增强了对用户输入合法性的检查，但仍不完美。
rem 4。现在可以快速找到两个目录中 md5 值不同的文件。
rem 6。分析 md5sum 输出的结果，只记录 md5 值和其对应的文件名。

rem 注：fsutil fsinfo drives 可以查询出系统有多少个盘符

rem 检查用户输入
set dira=%1
set dirb=%2

if {%dira%}=={} (
    call :USEAGE
    set /p dira=请输入第一个目录的名字（可拖放并输入回车）：
)

if {%dirb%}=={} (
    call :USEAGE
    set /p dirb=请输入第二个目录的名字（可拖放并输入回车）：
)

if {%dira%}=={} (
    call :USEAGE
    echo 目录一非法。
    exit /b
)

if {%dirb%}=={} (
    call :USEAGE
    echo 目录二非法。
    exit /b
)
set dira=%dira:"=%
set dirb=%dirb:"=%

set dira="%dira%"
set dirb="%dirb%"

if %dira%=="" (
    call :USEAGE
    echo 目录一非法。
    exit /b
)

if %dirb%=="" (
    call :USEAGE
    echo 目录二非法。
    exit /b
)
rem 用户输入检查完毕，仍不能处理用户输入奇数个双引号的情况。

set diramd5=dira.txt
set dirbmd5=dirb.txt
set diratmp=dira.tmp
set dirbtmp=dirb.tmp

set md5=md5v6.txt

if exist %diramd5% del %diramd5%
if exist %dirbmd5% del %dirbmd5%

call :CALMD5 %dira% %diramd5%
call :CALMD5 %dirb% %dirbmd5%

sort %diramd5%>%diratmp%
sort %dirbmd5%>%dirbtmp%

fc %diramd5% %dirbmd5%>%md5%
del %diramd5% %dirbmd5% %diratmp% %dirbtmp% > NUL
start %md5%

goto :ALLDONE

:USEAGE
echo     使用说明：请在命令行参数上指明两个目录，或在这里按提示输入。
echo     命令行参数格式：批处理名 ^<目录1^> ^<目录2^>
echo.
goto :EOF

rem %1：将要计算其中文件的目录
rem %2：保存计算结果的文件
:CALMD5
set tdir=%1
set md5fn=%2
for /f "delims=" %%a in ('dir /s /b /a:-d /o:n !tdir!\*') do (
        set fn=%%~nxa
        for /f "tokens=1 delims= " %%b in ('md5sum "%%a"') do set md5val=%%b
        if "!md5val:~0,1!"=="\" set md5val=!md5val:~1,1024!
        echo !md5val! *!fn!>> !md5fn! & rem 只记录 md5 值和文件名
)
goto :EOF

:ALLDONE
endlocal
@echo off

另外，没有用第三方的工具 fr.exe，其实有好多 gnu 工具可以实现比较强大的功能，用了之后不方便，用 md5sum.exe 是不得已。

[ Last edited by rubble on 2009-5-14 at 01:44 ]

原句　for /f "tokens=1 delims= " %%b in ('md5sum %%a') do set md5val=%%b
加引号改为
for /f "tokens=1 delims= " %%b in ('md5sum “%%a”') do set md5val=%%b
这样输入框拖入带空格的主目录不会有问题。

感觉目录去的太干净，不利于快速定位，如果在最后比较结果中还原各自绝对路径，会更完善些，也会让比较结果具有让其他程序继续使用的价值。

因为我的数据备份工作需要知道与上次备份相比新增和更新的文件并对这些文件进行相关分析，楼主的贴对我帮助很大，在这表示感谢。

第1楼　rubble	发表于 2009-05-07 21:27
初级用户　发帖 15　积分 23
[原创]用批处理方式实现的目录比较工具下载链接： http://upload.cn-dos.net/img/1478.zip 更新日志： v4: 1.增加了计算的进度显示； 2.找了新版的 md5sum.exe，没有对动态库的依赖。工具一：md5comv4.bat 接受两个目录参数，计算两个目录里每个文件的 md5 值，并给出报表文件 md5v4.txt，使用方法： md5omv4.bat <目录1> <目录2> 根据这 md5comv4.bat 生成的报表文件 md5v4.txt，可以找到两个目录中 1：同名而且 md5 相同的文件； 2：同名但是 md5 不同的文件； 3：不同名但是 md5 相同的文件； 4：同一目录中不同名但是 md5 相同的文件。注意事项： 1：md5comv4.bat 不接受路径带有空格的目录名，但是可以接受带有空格的文件名； 2：md5 的计算由 md5sum.exe 完成； 3：md5comv4.bat 运行时会产生大量临时文件，这些文件由工具自动维护，不必手工清理。这个工具都是命令行方式、文本界面的，对于习惯使用图形界面的朋友来说，可能不方便，因此，不推荐习惯使用图形界面的朋友使用。有问题请写邮件到 rubble@126.com。文件已上传到论坛的上传系统，檔名用戶備註大小日期原檔名 rubble 目录比较工具，基于md5sum实现。 33kB 2009/05/08(Fri)17:20 目录比较工具.zip 下载链接： http://upload.cn-dos.net/img/1478.zip [ Last edited by rubble on 2009-5-13 at 01:34 ]

第2楼　rubble	发表于 2009-05-07 21:31
初级用户　发帖 15　积分 23
疏漏最近几天一直在论坛泡着，看了一些高手写的BAT程序，发现了这个工具的一个不足之处：每行批处理命令后面，特别是带有截取字符串的命令的行的后面，不能有多余的空格。

第3楼　rubble	发表于 2009-05-07 21:36
初级用户　发帖 15　积分 23
如何引用 Sample Text如何引用 Sample Text如何引用

第4楼　rubble	发表于 2009-05-07 21:39
初级用户　发帖 15　积分 23
如何引用代码列表如下，有一些特殊字符可能不能被正常显示，请到上传系统下载源文件： @echo off setlocal enableextensions enabledelayedexpansion rem 作者：rubble@126.com rem 17:55 2009-4-14 版本：0.4 set dira=%~1 set dirb=%~2 if "%1" == "" ( echo 使用说明：请在命令行参数上指明两个目录，或在这里按提示输入。 echo 命令行参数格式：批处理名 ^<目录1^> ^<目录2^> echo. set /p dira=请输入第一个目录的名字（可拖放并输入回车）： ) echo. if "%2" == "" ( echo 使用说明：请在命令行参数上指明两个目录，或在这里按提示输入。 echo 命令行参数格式：批处理名 ^<目录1^> ^<目录2^> echo. set /p dirb=请输入第二个目录的名字（可拖放并输入回车）： ) if "%dira%" == "" exit /b if "%dirb%" == "" exit /b for /F "delims=. tokens=1" %%A in ("%TIME%") do set startTime=%%A for /F "delims=: tokens=1,2,3" %%A in ("%startTime%") do ( set startH=%%A set startM=%%B set startS=%%C ) set TEMPDIR=TEMPMD5\ rd /Q /S %TEMPDIR% 1>NUL 2>NUL md %TEMPDIR% set mdfive=md5v4.txt rem 已处理的文件数 set count=0 rem 文件夹 %dira% 和 %dirb% 里的文件总数 set total_count=0 rem 已处理的临时文件数 set tmpf_count=0 rem 临时文件总数，已知有 5 个了。其余的是 md5 值的个数 set tmpf_total_count=5 echo 第 1/2步，正在计算，请稍候…… echo 正在比较 %dira% 和 %dirb% 中的文件的 md5 值 > %mdfive% set list_fn_md=%TEMPDIR%list_fn_md set list_fn_nmd=%TEMPDIR%list_fn_nmd set list_fn_oa=%TEMPDIR%list_fn_oa set list_fn_ob=%TEMPDIR%list_fn_ob set list_all_md=%TEMPDIR%list_all_md call :COUNTFILES %dira% call :COUNTFILES %dirb% for /f "delims=" %%a in ('dir /b /a:-d "%dira%\"') do ( set fn=%%~nxa for /f "tokens=1 delims= " %%A in ('md5sum "%dira%\%%a"') do set mda=%%A set /a count=!count!+1 call :PROGRESS !count! !total_count! if "!mda:~0,1!" == "\" set mda=!mda:~1,1024! rem 以 !mda! 为文件名，记录 md5 为 !mda! 的文件 call :ADDMDFN "%TEMPDIR%!mda!" "%dira%\!fn!" rem 把 md5 值记录到文件里，保证不重复 call :ADDMDLIST !mda! if exist "%dirb%\!fn!" ( for /f "tokens=1 delims= " %%A in ('md5sum "%dirb%\!fn!"') do set mdb=%%A set /a count=!count!+1 call :ADDMDFN "%TEMPDIR%!mdb!" "%dirb%\!fn!" call :PROGRESS !count! !total_count! if "!mdb:~0,1!" == "\" set mdb=!mdb:~1,1024! if "!mda!" == "!mdb!" ( rem 记录文件名相同并且 md5 相同的文件 echo !mda! !mdb! !fn! >> "!list_fn_md!" ) else ( rem 记录文件名相同但 md5 不相同的文件 echo !mda! !mdb! !fn! >> "!list_fn_nmd!" call :ADDMDLIST !mdb! ) ) else ( rem 记录只在 %dira% 中出现的文件 echo !mda! !fn! >> "!list_fn_oa!" ) ) for /f "delims=" %%a in ('dir /b /a:-d "%dirb%\"') do ( set fn=%%~nxa if not exist "%dira%\!fn!" ( for /f "tokens=1 delims= " %%A in ('md5sum "%dirb%\%%a"') do set mdb=%%A if "!mdb:~0,1!" == "\" set mdb=!mdb:~1,1024! rem 记录只在 %dirb% 中出现的文件 echo !mdb! !fn! >> "!list_fn_ob!" rem 把 md5 值记录到文件里，保证不重复 call :ADDMDLIST !mdb! call :ADDMDFN "%TEMPDIR%!mdb!" "%dirb%\!fn!" set /a count=!count!+1 call :PROGRESS !count! !total_count! ) ) echo 第 2/2步，正在统计，请稍候…… echo 统计：>>%mdfive% echo 左：%dira% >> %mdfive% echo 右：%dirb% >> %mdfive% if not exist "%list_fn_md%" set /a tmpf_total_count-=1 if not exist "%list_fn_nmd%" set /a tmpf_total_count-=1 if not exist "%list_fn_oa%" set /a tmpf_total_count-=1 if not exist "%list_fn_ob%" set /a tmpf_total_count-=1 if not exist "%list_all_md%" set /a tmpf_total_count-=1 echo 两个目录中都存在且 md5 相同的文件：>> %mdfive% call :OUTPUTLIST "%list_fn_md%" echo ===============================================================================================>> %mdfive% echo 左：%dira% >> %mdfive% echo 右：%dirb% >> %mdfive% echo 两个目录中都存在但 md5 不相同的文件：>> %mdfive% call :OUTPUTLIST "%list_fn_nmd%" echo ===============================================================================================>> %mdfive% echo 只在目录 %dira% 中存在的文件：>> %mdfive% call :OUTPUTLIST "%list_fn_oa%" echo ===============================================================================================>> %mdfive% echo 只在目录 %dirb% 中存在的文件：>> %mdfive% call :OUTPUTLIST "%list_fn_ob%" echo ===============================================================================================>> %mdfive% echo 以 md5 汇总的文件列表：>> %mdfive% call :OUTPUTLIST_MD "%list_all_md%" goto ALLDONE rem 统计文件夹里的文件数目，放到全局变量 total_count 里 :COUNTFILES if %1=="" goto :EOF for /f %%a in ('dir /b /a:-d "%~1\"') do ( set /a total_count=!total_count!+1 ) goto :EOF rem 参数 %1 必须加双引号 :OUTPUTLIST if %1 == "" goto :EOF if not exist %1 goto :EOF set tcnt=0 for /f "tokens=1 delims= " %%a in (%~1) do ( echo %%a %%b >> %mdfive% set /a tcnt+=1 ) echo !tcnt! >> %mdfive% set /a tmpf_count+=1 call :PROGRESS !tmpf_count! !tmpf_total_count! goto :EOF rem 参数 %1 必须加双引号 :OUTPUTLIST_MD if %1 == "" goto :EOF if not exist %1 goto :EOF set /a tmpf_count+=1 call :PROGRESS !tmpf_count! !tmpf_total_count! set md_count=0 for /f "tokens=1* delims= " %%a in (%~1) do ( echo %%a >> %mdfive% set tcnt=0 for /f "tokens=1* delims= " %%A in (!TEMPDIR!%%a) do ( echo %%A %%B >> %mdfive% set /a tcnt+=1 ) set /a tmpf_count+=1 call :PROGRESS !tmpf_count! !tmpf_total_count! echo !tcnt! >> %mdfive% set /a md_count+=1 echo. >> %mdfive% ) echo %md_count% >> %mdfive% goto :EOF rem 函数：把 md5 值保存到一个名为 !list_all_md! 的文件里， rem 并保证不保存重复的 md5 值 :ADDMDLIST if %1 == "" goto :EOF if exist "!list_all_md!" ( rem 这里的 delims 要么删除，要么做成像下面这行的样子，在等号后面加个空格 rem for /f "tokens=1 delims= " %%a in (!list_all_md!) do ( for /f "tokens=1 " %%a in (!list_all_md!) do ( if "%%a" == "%1" goto :EOF ) ) echo %1 >> "!list_all_md!" rem 记录临时文件总数 set /a tmpf_total_count+=1 goto :EOF rem 函数：以 %1 为文件名，保存 %2 rem %1：在这个应用里是 md5 值 rem %2：md5 值为 %1 的文件 :ADDMDFN if %1 == "" goto :EOF if %2 == "" goto :EOF echo %2 >> %1 goto :EOF :PROGRESS set tips= set backspace= set /a percent=%1100/%2 set /a char=%1%%7 set /a bnum=%percent%/10 set /a snum=10-%bnum% for /L %%a in (1, 1, %bnum%) do set /p=▌<NUL for /L %%a in (1, 1, %snum%) do set /p= <NUL set /p=%1/%2 %percent%%% <NUL set /p=!tips:~%char%,1!<NUL if "%percent%" == "100" ( echo. goto :EOF ) set /p=%backspace%<NUL goto :EOF rem :PROGRESS rem set tips= rem set backspace= rem set /a char=%1%%7 rem set /p=!tips:~%char%,1!<NUL rem set /p=%backspace%<NUL rem goto :EOF :ALLDONE rd /Q /S %TEMPDIR% 1>NUL 2>NUL for /F "delims=. tokens=1" %%A in ("%TIME%") do set endTime=%%A for /F "delims=: tokens=1,2,3" %%A in ("%endTime%") do ( set endH=%%A set endM=%%B set endS=%%C ) if "%endM:~0,1%" == "0" set endM=%endM:~1,1% if "%endS:~0,1%"=="0" set endS=%endS:~1,1% for /F "delims=: tokens=1,2,3" %%A in ("%startTime%") do ( set startH=%%A set startM=%%B set startS=%%C ) if "%startM:~0,1%"=="0" set startM=%startM:~1,1% if "%startS:~0,1%"=="0" set startS=%startS:~1,1% set /A totalTime=%endH%3600+%endM%60+%endS%-(%startH%3600+%startM%60+%startS%) echo 共用时 %totalTime% 秒。 echo 起始时间：%startH%:%startM%:%startS%>>%mdfive% echo 结束时间：%endH%:%endM%:%endS%>>%mdfive% echo 共用时 %totalTime% 秒。>>%mdfive% start %mdfive% echo endlocal @echo on [ Last edited by rubble on 2009-5-7 at 21:44* ]

第5楼　HAT	发表于 2009-05-07 23:18
版主　发帖 5,017　积分 9,023
没有仔细看代码，能说说问什么不接受路径带有空格的目录名吗？

第6楼　rubble	发表于 2009-05-08 03:41
初级用户　发帖 15　积分 23
不能带有空格的原因为了正确处理带有空格的路径，要在给这样的路径加上双引号，而且即使加无数层双引号，也可以被命令正确处理。我想要的一种结果是，可以把参数中的所有的引号去掉，需要的时候我自己加上，以保证输出格式是固定的。这个目录比较工具的结果，格式是固定的，可以写C程序做进一步的处理。根据for命令的帮助， ~I - 删除任何引号(")，扩充 %I 这是简体中文xp和2003的帮助，下面是英文帮助： %~I - expands %I removing any surrounding quotes (") 然而实际实验时，只能去掉最外层的双引号，这不是我想要的，这可能会引起在结果文件中出现一堆双引号括着一个路径的情形。所以，最好不要在路径中带有空格。

第7楼　HAT	发表于 2009-05-08 11:57
版主　发帖 5,017　积分 9,023
Re 6楼为何会产生无数层双引号？能否把它们删除？比如： @echo off set a=""""C:\test hat\cndos"""" set b=%a:"=% echo %b%

第8楼　rubble	发表于 2009-05-08 22:14
初级用户　发帖 15　积分 23
太棒了！ Originally posted by HAT at 2009-5-8 11:57: 为何会产生无数层双引号？能否把它们删除？比如： @echo off set a=""""C:\test hat\cndos"""" set b=%a:"=% echo %b% 太棒了，这个就是我想要的。我再改一下代码。为何会产生无数层双引号？呵呵，会产生2层或3层。还有一种情况，就是处理非法参数的情况，如果用户输入一层层的双引号，没有路径，只有双引号，像这样 """""""" 你不把双引号去掉，就没有办法知道，用户输入的是非法路径。 [ Last edited by rubble on 2009-5-8 at 22:24 ]

第9楼　anxd	发表于 2009-05-11 02:38
新手上路　发帖 4　积分 4
太复杂了，来个简单的，遍历全目录文件比较，支持空格 @echo off setlocal enableextensions enabledelayedexpansion set dira=%~1 set dirb=%~2 if "%1" == "" ( echo 使用说明：请在命令行参数上指明两个目录，或在这里按提示输入。 echo 命令行参数格式：批处理名 ^<目录1^> ^<目录2^> echo. set /p dira=请输入第一个目录的名字（可拖放并输入回车）： ) echo. if "%2" == "" ( echo 使用说明：请在命令行参数上指明两个目录，或在这里按提示输入。 echo 命令行参数格式：批处理名 ^<目录1^> ^<目录2^> echo. set /p dirb=请输入第二个目录的名字（可拖放并输入回车）： ) if "%dira%" == "" exit /b if "%dirb%" == "" exit /b rem 保留原执行路径 for /f %%a in ('cd') do (set mypath=%%a) rem 映射目录1 subst k: /d >nul subst k: %dira% if exist "%mypath%\dira.txt" del %mypath%\dira.txt /q k: for /f "delims=" %%a in ('dir /s /b /a:-d /O:N') do ( %mypath%\md5sum "%%a" >>%mypath%\dira.txt ) rem 回原执行目录 for /f "delims=\" %%a in ('echo %mypath%') do %%a rem 映射目录2 subst k: /d subst k: %dirb% if exist "%mypath%\dirb.txt" del %mypath%\dirb.txt /q k: for /f "delims=" %%a in ('dir /s /b /a:-d /O:N') do ( %mypath%\md5sum "%%a" >>%mypath%\dirb.txt ) rem 回原执行目录 for /f "delims=\" %%a in ('echo %mypath%') do %%a sort dira.txt >dira.tmp sort dirb.txt >dirb.tmp fc %mypath%\dira.tmp %mypath%\dirb.tmp

第10楼　rubble	发表于 2009-05-12 02:33
初级用户　发帖 15　积分 23
改进的目录比较工具版本5 @echo off setlocal enableextensions enabledelayedexpansion rem v5 rem 1。去掉了进度显示和计时功能，简化了一下，根据 anxd 的写法，用 fc 比较 rem md5 值，并可以编历所有子目录。 rem 2。没有用 anxd 的映射驱动器的做法，在我的电脑上，盘符已经到了 P:。 rem 3。根据版主 HAT 的方法，增强了对用户输入合法性的检查，但仍不完美。 rem 4。现在可以快速找到两个目录中 md5 值不同的文件。 rem 注：fsutil fsinfo drives 可以查询出系统有多少个盘符 rem 检查用户输入 set dira=%1 set dirb=%2 if {%dira%}=={} ( call :USEAGE set /p dira=请输入第一个目录的名字（可拖放并输入回车）： ) if {%dirb%}=={} ( call :USEAGE set /p dirb=请输入第二个目录的名字（可拖放并输入回车）： ) if {%dira%}=={} ( call :USEAGE echo 目录一非法。 exit /b ) if {%dirb%}=={} ( call :USEAGE echo 目录二非法。 exit /b ) set dira=%dira:"=% set dirb=%dirb:"=% set dira="%dira%" set dirb="%dirb%" if %dira%=="" ( call :USEAGE echo 目录一非法。 exit /b ) if %dirb%=="" ( call :USEAGE echo 目录二非法。 exit /b ) rem 用户输入检查完毕，仍不能处理用户输入奇数个双引号的情况。 set diramd5=dira.txt set dirbmd5=dirb.txt set diratmp=dira.tmp set dirbtmp=dirb.tmp set md5=md5v5.txt if exist %diramd5% del %diramd5% if exist %dirbmd5% del %dirbmd5% call :CALMD5 %dira% %diramd5% call :CALMD5 %dirb% %dirbmd5% sort %diramd5%>%diratmp% sort %dirbmd5%>%dirbtmp% fc %diramd5% %dirbmd5%>%md5% del %diramd5% %dirbmd5% %diratmp% %dirbtmp% start %md5% goto :ALLDONE :USEAGE echo 使用说明：请在命令行参数上指明两个目录，或在这里按提示输入。 echo 命令行参数格式：批处理名 ^<目录1^> ^<目录2^> echo. goto :EOF rem %1：将要计算其中文件的目录 rem %2：保存计算结果的文件 :CALMD5 set tdir=%1 set md5fn=%2 for /f "delims=" %%a in ('dir /s /b /a:-d /o:n !tdir!\*') do ( md5sum %%a >> !md5fn! ) goto :EOF :ALLDONE endlocal @echo off

第11楼　anxd	发表于 2009-05-12 05:46
新手上路　发帖 4　积分 4
不用映射驱动器的做法不行啊无论如何也得想法腾出个盘符替代两个目录名在生成文件中产生的差异，否则前面MD5相同，后面因目录名不同，FC会认为记录不匹配。不用盘符，也可考虑生成文件后，将各自目录名统一一下(引入fr，那样做比subst复杂,而且可能影响到子目录与主目录同名的记录)，再作比较。

第12楼　rubble	发表于 2009-05-12 08:04
初级用户　发帖 15　积分 23
也可以分析 md5sum 输出的结果 Originally posted by anxd at 2009-5-12 05:46: 无论如何也得想法腾出个盘符替代两个目录名在生成文件中产生的差异，否则前面MD5相同，后面因目录名不同，FC会认为记录不匹配。不用盘符，也可 ... 也可以分析 md5sum 输出的结果，只记录 md5 值和该 md5 值对应的文件名，这样就没有目录不同的问题了。但是会有另一个问题，就是只知道有文件md5值不同，不知道文件在哪个目录里。要想知道，还要再找。还有，请教一下，fr 是什么？

第13楼　anxd	发表于 2009-05-13 00:53
新手上路　发帖 4　积分 4
fr - 在文件中批量查找并替换匹配的字符串 http://upload.cn-dos.net/img/1282.rar 因为dir 带参数/b和/s情况下输出全路径名，所以md5sum输出结果是md5 值对应的文件带全路径名,有目录不同的问题了.

第14楼　rubble	发表于 2009-05-13 01:25
初级用户　发帖 15　积分 23
第 6 次更新 @echo off setlocal enableextensions enabledelayedexpansion rem v6 rem 1。去掉了进度显示和计时功能，简化了一下，根据 anxd 的写法，用 fc 比较 rem md5 值，并可以编历所有子目录。 rem 2。没有用 anxd 的映射驱动器的做法，在我的电脑上，盘符已经到了 P:。 rem 3。根据版主 HAT 的方法，增强了对用户输入合法性的检查，但仍不完美。 rem 4。现在可以快速找到两个目录中 md5 值不同的文件。 rem 6。分析 md5sum 输出的结果，只记录 md5 值和其对应的文件名。 rem 注：fsutil fsinfo drives 可以查询出系统有多少个盘符 rem 检查用户输入 set dira=%1 set dirb=%2 if {%dira%}=={} ( call :USEAGE set /p dira=请输入第一个目录的名字（可拖放并输入回车）： ) if {%dirb%}=={} ( call :USEAGE set /p dirb=请输入第二个目录的名字（可拖放并输入回车）： ) if {%dira%}=={} ( call :USEAGE echo 目录一非法。 exit /b ) if {%dirb%}=={} ( call :USEAGE echo 目录二非法。 exit /b ) set dira=%dira:"=% set dirb=%dirb:"=% set dira="%dira%" set dirb="%dirb%" if %dira%=="" ( call :USEAGE echo 目录一非法。 exit /b ) if %dirb%=="" ( call :USEAGE echo 目录二非法。 exit /b ) rem 用户输入检查完毕，仍不能处理用户输入奇数个双引号的情况。 set diramd5=dira.txt set dirbmd5=dirb.txt set diratmp=dira.tmp set dirbtmp=dirb.tmp set md5=md5v6.txt if exist %diramd5% del %diramd5% if exist %dirbmd5% del %dirbmd5% call :CALMD5 %dira% %diramd5% call :CALMD5 %dirb% %dirbmd5% sort %diramd5%>%diratmp% sort %dirbmd5%>%dirbtmp% fc %diramd5% %dirbmd5%>%md5% del %diramd5% %dirbmd5% %diratmp% %dirbtmp% > NUL start %md5% goto :ALLDONE :USEAGE echo 使用说明：请在命令行参数上指明两个目录，或在这里按提示输入。 echo 命令行参数格式：批处理名 ^<目录1^> ^<目录2^> echo. goto :EOF rem %1：将要计算其中文件的目录 rem %2：保存计算结果的文件 :CALMD5 set tdir=%1 set md5fn=%2 for /f "delims=" %%a in ('dir /s /b /a:-d /o:n !tdir!\') do ( set fn=%%~nxa for /f "tokens=1 delims= " %%b in ('md5sum "%%a"') do set md5val=%%b if "!md5val:~0,1!"=="\" set md5val=!md5val:~1,1024! echo !md5val! !fn!>> !md5fn! & rem 只记录 md5 值和文件名 ) goto :EOF :ALLDONE endlocal @echo off 另外，没有用第三方的工具 fr.exe，其实有好多 gnu 工具可以实现比较强大的功能，用了之后不方便，用 md5sum.exe 是不得已。 [ Last edited by rubble on 2009-5-14 at 01:44 ]

第15楼　anxd	发表于 2009-05-13 03:06
新手上路　发帖 4　积分 4
补充原句　for /f "tokens=1 delims= " %%b in ('md5sum %%a') do set md5val=%%b 加引号改为 for /f "tokens=1 delims= " %%b in ('md5sum “%%a”') do set md5val=%%b 这样输入框拖入带空格的主目录不会有问题。感觉目录去的太干净，不利于快速定位，如果在最后比较结果中还原各自绝对路径，会更完善些，也会让比较结果具有让其他程序继续使用的价值。因为我的数据备份工作需要知道与上次备份相比新增和更新的文件并对这些文件进行相关分析，楼主的贴对我帮助很大，在这表示感谢。