中国DOS联盟

搜索无果，特求
文件夹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 ]

关于改名的应该是这样
@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 ]

没有作用

哦 好像是有点问题。
我修改下

[ Last edited by coldface on 2010-9-11 at 20:52 ]

修改后的答案呢

Originally posted by createfree at 2010-9-11 04:26 PM:
搜索无果，特求
文件夹a下有很多文件夹b,c.......，b,c....文件夹下各有多个文件excel文件。
要求：将这些文件改名为其 文件夹名n.xls
效果如：b1.xls； ...

@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

WinXPSP2下多次测试通过。不知满足要求否？

[ Last edited by bozhou on 2010-9-12 at 01:22 ]

你们测试了的 我拿过来咋就用不起呢 没反应
感谢bozhou深夜回复 致敬

[ Last edited by createfree on 2010-9-12 at 09:46 ]

敬请回复

下面这个我测试着可以：
@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文件夹所在的盘符和目录

终于发现了问题
我的文件夹是以这样一种方式命名的：
1.a 2.b
要将 数字. 去掉才行

Originally posted by createfree at 2010-9-12 04:38 PM:
终于发现了问题
我的文件夹是以这样一种方式命名的：
1.a 2.b
要将 数字. 去掉才行

测试依然通过啊。不过得出的结果是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 ]

Originally posted by createfree at 2010-9-12 04:38 PM:
终于发现了问题
我的文件夹是以这样一种方式命名的：
1.a 2.b
要将 数字. 去掉才行

按新条件修改如下，已测试通过：

@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

[ Last edited by bozhou on 2010-9-12 at 22:14 ]