中国DOS联盟论坛 - Powered by Discuz! Board

标题: [问题]关于for与findstr查找并删除空文件夹的问题 [打印本页]

作者: voiL 时间: 2006-12-26 00:05 标题: [问题]关于for与findstr查找并删除空文件夹的问题

声明: 1,2楼代码皆运行于XP sp2环境下.

因工作需要,我每天都要在工作目录下建立好多以当天日期命名的目录(各子目录都有可能建立),但有时难免建立了目录之后,没有往里面装文件.时间一长就会积累了很多的空目录.人手删除是没什么可能的了.所以想用批处理来完成,但遇到了一个问题:

程序对于含有特殊字符或者空格的目录没办法正确处理.

在些请教论坛上一些for和findstr的高手,看有没什么好的办法.

::***/// 设置目标目录 \\\***

set keyword1=m:\test\

::***/// 设置需要删除的文件夹名字(因有些文件夹不想删) \\\***

set keyword2=2006-12-

::***/// 创建临时文件与目录 \\\***

cd.>nuldir.txt

cd.>nuldir2.txt

md 目录回收

::***/// 列举当前目录下所有目录名字,并输出到nuldir.txt \\\***

for /f "delims=" %%i in ('dir /ad /b /s') do (dir /a /b "%%i"|findstr .>nul||echo %%i>>nuldir.txt)

::***/// 在nuldir.txt排除指定条件的目录并写到nuldir2.txt \\\***

for /f "delims=%keyword1% tokens=1*" %%i in (nuldir.txt) do echo %%j>>nuldir2.txt

type nuldir2.txt | findstr /i "%keyword2%">nuldir.txt

::***/// 在"目录回收"下建立新目录并删除原目录 \\\***

for /f %%i in (nuldir2.txt) do md 目录回收\%%i && del /q %%i

::***/// 删除临时文件 \\\***

del /q nuldir.txt & rd /q nuldir2.txt

[ Last edited by voiL on 2006-12-26 at 04:33 AM ]

作者: voiL 时间: 2006-12-26 00:06

以下脚本也是我日常工作的批处理.

为了工作方便,我把它做成可以直接把文件拖进行然后选择目标目录就可以了.

但也遇到一个问题,如果文件名有特殊字符就不能正确处理了.

在此也请教一下高手们,看有什么好的解决方法没有.

看了论坛上一些关于防空字符和特殊字符过滤的文章,也无济于事.

毕竟我起步晚,对编程也不懂,只懂得平时玩玩一些简单的批处理.

现在才后悔莫及.

@echo off

color 17

mode con lines=25 cols=80

set targetdir1=n:\政府网站

set targetdir2=n:\乡镇网站

:input

cls & echo.

echo  =======================本程序只可正常运行于Windows XP下=======================

echo.

echo                    ┏━━━━━━请选择目录━━━━━━┓

echo                    ┃                                  ┃

echo                    ┃ [1] 政府网站      [2] 乡镇网站   ┃

echo                    ┃                                  ┃

echo                    ┃ [H] 阅读说明        [X] 退出程序 ┃

echo                    ┃                                  ┃

echo                    ┗━━━━━━━━━━━━━━━━━┛

echo.

echo  ==============================================================================

echo.

set /p choose= 请输入位速代号：

for %%i in (1 2 h H x X) do if "%choose%" == "%%i" goto check

echo  & cls

echo.

echo.

echo                      ┏━━━━━━ 注  意 ━━━━━━┓

echo                      ┃                                ┃

echo                      ┃ 你输入参数不正确! 请重新输入!  ┃

echo                      ┃                                ┃

echo                      ┗━━━━━━━━━━━━━━━━┛

ping  1.1 -n 1 -w 2000>nul

goto input

:check

for %%i in (%*) do if "!%%i" == "!" goto nofiles

if "%choose%" == "1" goto gov

if "%choose%" == "2" goto town

if "%choose%" == "x" exit

if "%choose%" == "X" exit

if "%choose%" == "h" goto help

if "%choose%" == "H" goto help

echo  & cls

echo.

echo.

echo                      ┏━━━━━━ 注  意 ━━━━━━┓

echo                      ┃                                ┃

echo                      ┃   程序出现意外，3秒后退出...   ┃

echo                      ┃                                ┃

echo                      ┗━━━━━━━━━━━━━━━━┛

goto end

:gov

cls

if not exist %targetdir1%\nul goto nodir

dir %1\. >nul 2>nul && goto nofolder

echo.

echo.

echo                ┏━━━━━━━━━━━━━━━━━━━━━━━┓

echo                ┃                                              ┃

echo                ┃正在复制文件到 〖政府网站〗 目录下，请稍候... ┃

echo                ┃                                              ┃

echo                ┗━━━━━━━━━━━━━━━━━━━━━━━┛

copy /y %1 %targetdir1% 2>nul 1>nul

if %2! == ! goto nextgov

Shift

goto gov

:nextgov

cls

echo.

echo.

echo              ┏━━━━━━━━━━━━━━━━━━━━━━━━━┓

echo              ┃                                                  ┃

echo              ┃文件已成功复制到 〖政府网站〗 目录下，3秒后退出...┃

echo              ┃                                                  ┃

echo              ┗━━━━━━━━━━━━━━━━━━━━━━━━━┛

goto end

:town

cls

if not exist %targetdir1%\nul goto nodir

dir %1\. >nul 2>nul && goto nofolder

echo.

echo.

echo                ┏━━━━━━━━━━━━━━━━━━━━━━━┓

echo                ┃                                              ┃

echo                ┃正在复制文件到 〖乡镇网站〗 目录下，请稍候... ┃

echo                ┃                                              ┃

echo                ┗━━━━━━━━━━━━━━━━━━━━━━━┛

copy /y %1 %targetdir2% 2>nul 1>nul

if %2! == ! goto nexttown

Shift

goto town

:nexttown

cls

echo.

echo.

echo              ┏━━━━━━━━━━━━━━━━━━━━━━━━━┓

echo              ┃                                                  ┃

echo              ┃文件已成功复制到 〖乡镇网站〗 目录下，3秒后退出...┃

echo              ┃                                                  ┃

echo              ┗━━━━━━━━━━━━━━━━━━━━━━━━━┛

goto end

.................................

:end

ping 1.1 -n 1 -w 3000 >nul 2>nul

exit

[ Last edited by voiL on 2006-12-26 at 11:50 PM ]

作者: namejm 时间: 2006-12-26 00:33
　　只考虑删除当前目录下及其所有子目录的所有空文件夹，可以考虑先把所有的文件夹 dir 出来之后，再利用 rd 不能删除非空目录的特点来删除空文件夹。比如如下演示代码：
　　———————————————————————————————————————
　　这个方案有考虑不周的地方，请看5楼的描述。

@echo off

:: 请创建测试目录来测试，否则不会有效果；请勿在工作目录下测试，否则后悔莫及。

for /f "delims=" %%i in ('dir /ad /b /s') do rd "%%i" 2>nul

　　至于只删除当前目录下及其子目录中以日期命名的空文件夹，稍后再讨论，吃饭去了先~~

[ Last edited by namejm on 2006-12-25 at 06:43 PM ]

作者: a9319751 时间: 2006-12-26 00:37
举个例子，什么特殊字符，
参数加""试试

作者: namejm 时间: 2006-12-26 01:42
　　3楼的代码还有欠考虑的地方，因为：如果某个深层目录下只有空文件夹的话，删掉最深层的那个空文件夹之后，它上面的那个目录又变为空了，而在这之前，上层的目录已经检测过，已经不可能再删，从而导致空目录删除不彻底的弊病。解决办法是：从最深层的子目录起开始删除。这就需要对目录按照层深来排序，呵呵，很有挑战性。多谢 ccwan 提醒。

作者: namejm 时间: 2006-12-26 04:16
　　以下代码能够删除当前目录下的所有空文件夹(包括子目录中的)而不会出现5楼所说的遗漏的现象，兼容含有特殊字符的路径，8楼的问题也得到了解决。请各位新建目录来测试，以免造成不必要的损失：

@echo off

:: 思路：列举所有目录(包括子目录)路径，然后，删除第一个路径最后一节上的文件夹；

:: 　　如果能删除这个文件夹，则删除上一层文件夹；如果还能删除，则继续上一步……

:: 　　直到当前目录为止；如果其中某一节不能删除，立即跳出，开始删除下一条路径中

:: 　　最后一节上的文件夹……如此反复。

for /f "delims=" %%i in ('dir /ad /b /s') do call :rd_dir_empty "%%i"

goto :eof

rem ======= 删除空目录 =========

:rd_dir_empty

rd %1 2>nul||goto :eof

set dir_route=%1

for /f "delims=" %%i in (%dir_route%) do (

    set dir_route="%%~dpi"

    for /f "delims=" %%j in ('dir /ad /b "%%~dpi"')do rd "%%~dpi%%j" 2>nul||goto :eof

)

:: 把路径最后的\去掉，以便set route_deepest="%%~dpi"能取到上一层路径

if "%dir_route:~-2,1%"=="\" set dir_route="%dir_route:~1,-2%"

if /i not "%cd%"==%dir_route% call :rd_dir_empty %dir_route%

goto :eof

[ Last edited by namejm on 2006-12-26 at 01:23 PM ]

作者: ccwan 时间: 2006-12-26 04:18
呵呵，等的就是他。

作者: voiL 时间: 2006-12-26 05:52
namejm版主的代码在我这里还存在点问题：

运行前目录：

Quote:

E:\test\6
E:\test\123
E:\test\voil
E:\test\a\adf
E:\test\2008034
E:\test\a\tga\adsf\adffwqa
E:\test\s h\s wer\1122
E:\test\s h\s132\dfads
E:\test\s h\s wer\新建文件夹
E:\test\t\tsad

运行后剩余目录：

Quote:

E:\test\s h\s wer\1122 [空目录]
E:\test\s h\s wer\新建文件夹 [空目录]
E:\test\t\tsad [空目录]

作者: namejm 时间: 2006-12-26 06:22
　　6楼的代码已经修正，请测试。

[ Last edited by namejm on 2006-12-25 at 06:38 PM ]

作者: ccwan 时间: 2006-12-26 07:44
哈哈，多次试验没有问题。

作者: voiL 时间: 2006-12-26 22:17
namejm版主的代码果然强悍,检测了十多次,每一次的速度都很快.

清除10多个到30多个空目录,基本都是一闪就搞定了...

至于删除日期文件夹方面就留给我自己去研究研究吧(如果版主有妙方的话我也是不会抗拒滴:))...

加分加分...除此以外,想不到更好的方法报答了...呵呵...

不知2楼的代码版主有没好的解决方法???

特殊字符例如: ()[]<>^& 等等...

里面关于检测和移动的代码,我是参考以下帖子第12楼kcdsw兄的.

怎样从外部获得多个变量来支持多文件？已解决

还有这个帖子.

[原创]无奈何签名代码略析

直接用kcdsw兄的代码确实可以移动一些带特殊符号的文件,但我修改成2楼的代码就不行了...

[ Last edited by voiL on 2006-12-26 at 10:31 PM ]

作者: namejm 时间: 2006-12-26 23:05
　　请把那些要删除的日期文件夹的名字列举一些出来，然后把规律说明一下，应该不难的。

　　2楼的代码是想实现文件的复制吧？具体想达到什么样的目的，请用文字说明，光看代码是很容易误导人的。

作者: voiL 时间: 2006-12-26 23:49
呵呵...谢谢namejm版主的热心帮助...

日期的命名方式都是统一的...

YYYY-MM-DD

___________________________________________

2楼的目的也只是把数个文件拖到批处理上,然后选择目的目录,之后批处理自动把文件复制到目标目录...

这个在2楼的代码中就已经可以达到了...

问题只是在于把数个文件拖到批处理上之后,批处理怎么去处理文件名里的特殊符号...

之前我试过一些带【()[]^&+】等字符的文件无法正确复制...

所以就到论坛上找,找是找到了,但经自己修改后又不行了...

不知问题是出在哪里...

我把它精简成如下这样又可以处理一些例如: ()[] 等字符了,但遇到 1+1.txt 这样的名字又出错了.可问题也在于我不想要精简的,因为我的文件要备份到好几个目录的,如果做几个批处理,每个批处理只指向一个目标目录的话,又不太实际.

@echo off

color 17

mode con lines=25 cols=80

set targetdir1=n:\政府网站

:gov

cls

if not exist %targetdir1%\nul goto nodir

dir %1\. >nul 2>nul && goto nofolder

echo.

echo.

echo                ┏━━━━━━━━━━━━━━━━━━━━━━━┓

echo                ┃                                              ┃

echo                ┃正在复制文件到 〖政府网站〗 目录下，请稍候... ┃

echo                ┃                                              ┃

echo                ┗━━━━━━━━━━━━━━━━━━━━━━━┛

copy /y %1 %targetdir1% 2>nul 1>nul

if %2! == ! goto nextgov

Shift

goto gov

:nextgov

cls

echo.

echo.

echo              ┏━━━━━━━━━━━━━━━━━━━━━━━━━┓

echo              ┃                                                  ┃

echo              ┃文件已成功复制到 〖政府网站〗 目录下，3秒后退出...┃

echo              ┃                                                  ┃

echo              ┗━━━━━━━━━━━━━━━━━━━━━━━━━┛

goto end

:end

ping 1.1 -n 1 -w 3000 >nul 2>nul

exit

程序必须附带以下几个检测(不知是否就是因为有以下代码才导致程序不能正确处理特殊字符的?)

Quote:

::来检测是否有源文件,没有则跳转到nofiles标签
for %%i in (%*) do if "!%%i" == "!" goto nofiles

::检测目标目录是否存在,不存在则跳转到nodir标签
if not exist %targetdir1%\nul goto nodir

::检测拖进来的文件之中是否有目录,如有则跳转到nofolder标签
dir %1\. >nul 2>nul && goto nofolder

[ Last edited by voiL on 2006-12-27 at 12:02 AM ]

作者: namejm 时间: 2006-12-27 00:27
　　要处理含特殊字符的文件名，必须把路径用引号括起来；^会被认为是转义字符，不太好处理，建议文件名中不要包含它。在使用 set /p 语句的情况下，把文件拉到CMD窗口来的时候，CMD解释器会自动给带空格的路径加上引号，其余的情况不会自动加，所以，当用 set /p 来接收输入之后，要先去掉可能存在的引号，然后再统一加上引号，就可以保证能处理含特殊字符文件名了，比如下面的演示代码：

@echo off

:begin

cls

set input=

set /p input=请输入测试文件名：

set "input=%input:"=%"

echo 你输入的文件名是："%input%"

pause

goto begin

　　至于查找日期格式的文件夹名，可以用 findstr 的正则表达式，请看如下演示代码(检测不是很严格)：

@echo off

for /f "delims=" %%i in ('dir /ad /b^|findstr /b /e "[1-2][0-9][0-9][0-9]-[0-1][0-9]-[0-3][0-9]"') do echo "%%i"

pause

作者: namejm 时间: 2006-12-30 05:31
　　9527 同志太不厚道，跑到无忧光盘启动论坛去发帖子，却没在这里把他的好代码放出来。现在代他发一个更简洁的代码：

for /f "tokens=*" %a in ('dir /b /ad /s 目录路径^|sort /r') do rd "%a" /q 2>nul

作者: NaturalJ0 时间: 2006-12-30 06:07
上面这句用的好，学习了。

作者: voiL 时间: 2007-1-3 22:19
再次谢谢namejm兄的代码...

因为最近一个星期都比较忙,有时间上来却没时间测试,所以索性也就不上了...

看到新的代码不去玩两下心里老会不舒服滴...

兄的代码我找时间去替换一下我批处理里面的...

看看效果如何...

作者: lingxing1020 时间: 2007-2-11 03:19
　　dir d:\ /ad /b /s |sort /r >>d:\kill.txt

　　For /f %%i in (d:\kill.txt) DO rd %%i

　　echo y |del d:\kill.txt

作者: pyjhhh 时间: 2007-2-14 22:43
二楼的好象不能用哦　我测试了好多次了　　我是xp　sp2的　

作者: 422904z 时间: 2007-7-8 21:52
taiqiangliao,thanks

作者: lzymbz 时间: 2007-12-31 20:26
好像用不了啊

for /f "tokens=*" %a in ('dir /b /ad /s F:\Program Files\hygl\PIC\^|sort /r') do rd "%a" /q 2>nul

for /f "tokens=*" %a in ('dir /b /ad /s F:\Program Files\hygl\PIC^|sort /r') do rd "%a" /q 2>nul

这样两个都试了

作者: bsijl 时间: 2010-1-12 11:33
for /f "tokens=*" %a in ('dir /b /ad /s 目录路径^|sort /r') do rd "%a" /q 2>nul

rd "%a" /q 2>中的2是什么意思？

作者: fengwuxzg 时间: 2010-1-12 15:08
小弟也来一个:

@echo off&for /r %a in (.) do (1>nul 2>nul dir /a-d /b /s "%a" || rd /s /q "%a")

2标示错误