[文件操作] 大神帮忙批处理重命名文件语句差错

taoqixfz

@echo on

set alist=A.txt
set blist=B.txt

for %%a in (D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
  if exist %%a:\*.* (
    for %%b in (0 1 2 3 4 5 6 7 8 9) do (
      if exist %%a:\song%%b\*.* (
        for /f "tokens=1,2,3,4,5,6* delims=" %%c in (alist.txt) do (
          if exist %%a:\song%%b\%%c.* (
            for /f "tokens=1,2,3,4,5,6* delims=" %%d in (blist.txt) do ( 
              if exist %%a:\song%%b\%%c.* ren %%a:\song%%b\%%c.* %%d.*
            )
          )
        )
      )
    )
  )
)

@echo on


pause
复制代码

运行批处理后文件名不正常，有按照A.txt---B.txt去改但是有重名文件
求大神帮忙解决，万分感谢

taoqixfz

A.txt内容
AS0000
AS0001
AS0002
AS0003
AS0004
AS0005
AS0006
AS0007
AS0008
AS0009
AS0010
AS0011
AS0012
AS0013
AS0014
AS0015
AS0016

B.txt内容
M00000
M00001
M00002
M00003
M00004
M00005
M00006
M00007
M00008
M00009
M00010
M00011
M00012
M00013
M00014
M00015
M00016

最后结果
M00000
M00000
M00000
M00000
M00000
M00001
M00001
M00002
M00003
M00004
M00005
M00006
M00007
M00008
M00009
M00010
M00011

newswan

for %%a in (D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
  if exist %%a:\*.* (
    for %%b in (0 1 2 3 4 5 6 7 8 9) do (
      if exist %%a:\song%%b\*.* (
        for /f %%c in (alist.txt) do (
          if exist %%a:\song%%b\%%c.* (
               set /p d= 
               ren %%a:\song%%b\%%c.* !d!.*
            )
        )<blist.txt
      )
    )
  )
)
复制代码

taoqixfz

回复 3# newswan


   感谢大哥帮忙，刚测试了一下文件有4-5个文件名变成!d!了，其余的文件名没有变化我只是想把A.txt里面的AS0000-AS0016变成M00000-M00016不是把AS0000-AS0016变成!d!

newswan

setlocal ENABLEDELAYEDEXPANSION

for %%a in (D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
  if exist %%a:\*.* (
    for %%b in (0 1 2 3 4 5 6 7 8 9) do (
      if exist %%a:\song%%b\*.* (
        call :f %%a:\song%%b
      )
    )
  )
)

:f
for /f %%c in (alist.txt) do (
    if exist %1\%%c.* (
        set /p d=
        echo ren %%a:\song%%b\%%c.* !d!.*
    )
)<blist.txt
goto :eof

:END
复制代码

需要变量延迟，也许需要改成函数调用

taoqixfz

回复 5# newswan


   还是不对运行完批处理文件名没变化

newswan

回复 6# taoqixfz


    看命令输出 ，如果正确， 把 echo ren 前面 echo 删除

taoqixfz

回复 7# newswan
现在已经让我整理成这样了，貌似差一个%%d的赋值
@echo on
@rem 指定原文件名列表文件
set alist=A.txt

@rem 指定新文件名列表文件
set blist=B.txt


for %%a in (D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
  if exist %%a:\*.* (
    for %%b in (0 1 2 3 4 5 6 7 8 9) do (
      if exist %%a:\song%%b\*.* (
        for /f %%c in (%alist%) do (
          if exist %%a:\song%%b\%%c.* ren %%a:\song%%b\%%c.* %%d.*
        )
      )
    )
  )
)

@echo on


pause

newswan

回复 8# taoqixfz

%%d 来自 a.txt
用 set /p d= 和 <b.txt 得到 !d!

要么，你把 a.txt 和 b.txt 合并

taoqixfz

回复 9# newswan


   合并倒是也可以但是我不会弄

AS0000.*	M00000.*
AS0001.*	M00001.*
AS0002.*	M00002.*
AS0003.*	M00003.*
AS0004.*	M00004.*
AS0005.*	M00005.*
AS0006.*	M00006.*
AS0007.*	M00007.*
AS0008.*	M00008.*
AS0009.*	M00009.*
AS0010.*	M00010.*
AS0011.*	M00011.*
AS0012.*	M00012.*
AS0013.*	M00013.*
AS0014.*	M00014.*
AS0015.*	M00015.*
AS0016.*	M00016.*

newswan

AS0000	M00000
AS0001	M00001
AS0002	M00002
AS0003	M00003
AS0004	M00004
AS0005	M00005
AS0006	M00006
AS0007	M00007
AS0008	M00008
AS0009	M00009
AS0010	M00010
AS0011	M00011
AS0012	M00012
AS0013	M00013
AS0014	M00014
AS0015	M00015
AS0016	M00016
复制代码

newswan

for %%a in (D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
  if exist %%a:\*.* (
    for %%b in (0 1 2 3 4 5 6 7 8 9) do (
      if exist %%a:\song%%b\*.* (
        for /f "tokens=1,2 delims= " %%c in (c.txt) do (
          if exist %%a:\song%%b\%%c.* ren %%a:\song%%b\%%c.* %%d.*
        )
      )
    )
  )
)
复制代码

qixiaobin0715

回复 1# taoqixfz
代码存在以下问题：
1.判断语句太多，效率低，有些是可以合并的。
2.代码第7、9行中"\*.*"不会起任何作用。
3.如果像2楼的情况正常不会出现重名文件，可能是ren语句中.*所致。
4.如果改名像2楼所示那么有规律，就不需要A.txt、B.txt来指定文件名。可直接修改文件名更简单。

qixiaobin0715

回复 2# taoqixfz
2楼情况，不用文本文件直接修改文件名：

@echo off
set var1=AS
set var2=M0
setlocal enabledelayedexpansion
for %%a in (D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
    for /l %%b in (0,1,9) do (
        if exist %%a:\song%%b (
            pushd "%%a:\song%%b"
            for %%c in (%var1%*.*) do (
                set "str=%%c"
                set "str=!str:*%var1%=%var2%!"
                ren "%%c" "!str!"
            )
            popd
        )
    )
)
pause
复制代码

未测试。

qixiaobin0715

针对2楼情况简单点：

@echo off
for %%a in (D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
    for /l %%b in (0,1,9) do (
        if exist %%a:\song%%b (
            pushd "%%a:\song%%b"
            ren AS* M0* 2>nul
            popd
        )
    )
)
pause
复制代码