标题: 重命名 以文件夹的名字 [打印本页]
作者: createfree 时间: 2010-9-11 16:26 标题: 重命名 以文件夹的名字
搜索无果，特求
文件夹a下有很多文件夹b,c.......，b,c....文件夹下各有多个文件excel文件。
要求：将这些文件改名为其 文件夹名n.xls
效果如：b1.xls；b2.xls；b3.xls....；c1.xls；c2.xls；c3.xls....
同时，将这些文件复制到a文件夹下
[ Last edited by createfree on 2010-9-11 at 16:29 ]
作者: coldface 时间: 2010-9-11 17:28
关于改名的应该是这样
@echo off
setlocal EnableDelayedExpansion
for /f "delims=" %%a in ('dir/b/ad d:\B') do (
set a=1
for /f "delims=" %%i in ('dir/b/a-d "%%~na\*.*"') do (
ren "%%~na\%%~nxi" "%%~na!a!%%~xi"
set /a a+=1
))
附赠个解释：
%~na - expands %I to a file name only
%~xa - expands %I to a file extension only
[ Last edited by coldface on 2010-9-11 at 17:45 ]
作者: createfree 时间: 2010-9-11 19:14
没有作用
作者: coldface 时间: 2010-9-11 20:42
哦 好像是有点问题。
我修改下
[ Last edited by coldface on 2010-9-11 at 20:52 ]
作者: createfree 时间: 2010-9-11 23:14
修改后的答案呢
作者: bozhou 时间: 2010-9-12 01:16
| Quote: | |
|
CODE: [Copy to clipboard]WinXPSP2下多次测试通过。不知满足要求否？@echo off & setlocal enabledelayedexpansion & title By Bozhou & color 0a
:请先设置目录
set p1=%cd%
cd /d "%p1%"
:获取目录以及文件并重命名文件
for /f "delims=*" %%a in ('dir /ad /b') do (
cd "%%a"
set n=0
for /f "delims=*" %%b in ('dir /b /on *.xls') do (
set /a n=n+1
if !n! lss 10 (ren "%%b" "%%a"0!n!.xls) else (ren "%%b" "%%a"!n!.xls)
)
:移动文件
move *.xls ..\
cd..
:删除空文件夹
:若需要请将下行冒号去掉
:rd /s /q "%%a"
echo>nul
)
pause
[ Last edited by bozhou on 2010-9-12 at 01:22 ]
作者: createfree 时间: 2010-9-12 09:44
你们测试了的 我拿过来咋就用不起呢 没反应
感谢bozhou深夜回复 致敬
[ Last edited by createfree on 2010-9-12 at 09:46 ]
作者: createfree 时间: 2010-9-12 11:31
敬请回复
作者: coldface 时间: 2010-9-12 15:11
下面这个我测试着可以：
@echo off
d:
cd d:\Afolder
setlocal EnableDelayedExpansion
for /f "delims=" %%a in ('dir/b/ad d:\Afolder') do (
set a=1
for /f "delims=" %%i in ('dir/b/a-d "%%~na\*.*"') do (
ren "%%~na\%%~nxi" "%%~na!a!%%~xi"
set /a a+=1
)
move /y d:\Afolder\%%~na\*.* d:\Afolder
)
测试的时候把D盘以及d:\Afolder替换成A文件夹所在的盘符和目录
作者: createfree 时间: 2010-9-12 16:38
终于发现了问题
我的文件夹是以这样一种方式命名的：
1.a 2.b
要将 数字. 去掉才行
作者: bozhou 时间: 2010-9-12 21:52
| Quote: | |
|
测试依然通过啊。不过得出的结果是1.a01.xls、1.a02.xls、2.b01.xls、2.b02.xls而已。
是符合你的题目要求的啊。文件夹名+序号.扩展名。
P.S.昨晚是因为今天考试睡不着而已。
如果是不想要文件夹名的“数字加点号”先重命名文件夹即可。也是批处理。
[ Last edited by bozhou on 2010-9-12 at 21:54 ]
作者: bozhou 时间: 2010-9-12 22:11
| Quote: | |
|
按新条件修改如下，已测试通过：
CODE: [Copy to clipboard][ Last edited by bozhou on 2010-9-12 at 22:14 ]@echo off & setlocal enabledelayedexpansion & title By Bozhou & color 0a
:请先设置目录,并确保将要被操作的文件以及文件夹没被运行占用
set p1=%cd%
cd /d "%p1%"
:获取目录并更改目录名（将文件夹名1.a改成a）
for /f "tokens=1,2 delims=." %%i in ('dir /ad /b') do ren "%%i"."%%j" "%%j"
:获取目录以及文件并重命名文件
for /f "delims=*" %%a in ('dir /ad /b') do (
cd "%%a"
set n=0
for /f "delims=*" %%b in ('dir /b /on *.xls') do (
set /a n=n+1
if !n! lss 10 (ren "%%b" "%%a"0!n!.xls) else (ren "%%b" "%%a"!n!.xls)
)
:移动文件
move *.xls ..\
cd..
:删除空文件夹
:若需要请将下行冒号去掉
:rd /s /q "%%a"
echo>nul
)
echo 操作完成！
pause