【已解决】BAT:如何将多个类似的代码合而为一

思想之翼

欲下述将210个类似的代码合而为一，出现了问题：

@echo off
cd /d "d:\文本\文本1\001\lishi\"
set 最大文件前缀编号=2
(for /l %%a in (0,1,%最大文件前缀编号%) do (
     setlocal enabledelayedexpansion
     for /f "tokens=1-2" %%b in ('type %%a-???????.txt 2^>nul') do (
          if not defined #_%%b_Min (
                     set/a #_%%b_Max=#_%%b_Min=%%c
                     set "str=!str! %%b"
          ) else (
               if !#_%%b_Min! gtr %%c (set #_%%b_Min=%%c) else if !#_%%b_Max! lss %%c set "#_%%b_Max=%%c"
          )
     )
     for %%i in (!str!) do echo,%%a-%%a=%%i-%%i=!#_%%i_Min!-!#_%%i_Max!
     endlocal
))>d:\文本\文本1\001\a.txt


@echo off
cd /d "d:\文本\文本1\002\lishi\"
set 最大文件前缀编号=2
(for /l %%a in (0,1,%最大文件前缀编号%) do (
     setlocal enabledelayedexpansion
     for /f "tokens=1-2" %%b in ('type %%a-???????.txt 2^>nul') do (
          if not defined #_%%b_Min (
                     set/a #_%%b_Max=#_%%b_Min=%%c
                     set "str=!str! %%b"
          ) else (
               if !#_%%b_Min! gtr %%c (set #_%%b_Min=%%c) else if !#_%%b_Max! lss %%c set "#_%%b_Max=%%c"
          )
     )
     for %%i in (!str!) do echo,%%a-%%a=%%i-%%i=!#_%%i_Min!-!#_%%i_Max!
     endlocal
))>d:\文本\文本1\002\a.txt

.......

@echo off
cd /d "d:\文本\文本1\210\lishi\"
set 最大文件前缀编号=2
(for /l %%a in (0,1,%最大文件前缀编号%) do (
     setlocal enabledelayedexpansion
     for /f "tokens=1-2" %%b in ('type %%a-???????.txt 2^>nul') do (
          if not defined #_%%b_Min (
                     set/a #_%%b_Max=#_%%b_Min=%%c
                     set "str=!str! %%b"
          ) else (
               if !#_%%b_Min! gtr %%c (set #_%%b_Min=%%c) else if !#_%%b_Max! lss %%c set "#_%%b_Max=%%c"
          )
     )
     for %%i in (!str!) do echo,%%a-%%a=%%i-%%i=!#_%%i_Min!-!#_%%i_Max!
     endlocal
))>d:\文本\文本1\210\a.txt

以下为210个类似代码合并，出错。如何修改？

1. @echo off&setlocal enabledelayedexpansion
   
2. for /l %%x in (1001,1,1210) do (
   
3.     set y=%%x
   
4. cd /d "d:\文本\文本1\!y:~1!\lishi"
   
5. set 最大文件前缀编号=2
   
6. (for /l %%a in (0,1,%最大文件前缀编号%) do (   
   
7.      for /f "tokens=1-2" %%b in ('type %%a-???????.txt 2^>nul') do (
   
8.           if not defined #_%%b_Min (
   
9.                      set/a #_%%b_Max=#_%%b_Min=%%c
   
10.                      set "str=!str! %%b"
    
11.           ) else (
    
12.                if !#_%%b_Min! gtr %%c (set #_%%b_Min=%%c) else if !#_%%b_Max! lss %%c set "#_%%b_Max=%%c"
    
13.           )
    
14.      )
    
15.      for %%i in (!str!) do echo,%%a-%%a=%%i-%%i=!#_%%i_Min!-!#_%%i_Max!
    
16.      endlocal
    
17. ))>d:\文本\文本1\!y:~1!\a.txt
    
18. )

复制代码

DAIC

详细描述一下“出错”

CrLf

第一次循环已经 cd 到子目录里了，后面的循环会找得到文件吗？
还有 %最大文件前缀编号% 应该用变量延迟。

楼主的意思是这样吧：

1. @echo off&setlocal enabledelayedexpansion
   
2. for /l %%x in (1001,1,1210) do (
   
3.         set y=%%x
   
4.         pushd "d:\文本\文本1\!y:~1!\lishi"
   
5. 
   
6.         set 最大文件前缀编号=2
   
7.         (for /l %%a in (0,1,!最大文件前缀编号!) do (
   
8.                 for /f "tokens=1-2" %%b in ('type %%a-???????.txt 2^>nul') do (
   
9.                         if not defined #_%%b_Min (
   
10.                                                 set/a #_%%b_Max=#_%%b_Min=%%c
    
11.                                                 set "str=!str! %%b"
    
12.                         ) else (
    
13.                                 if !#_%%b_Min! gtr %%c (set #_%%b_Min=%%c) else if !#_%%b_Max! lss %%c set "#_%%b_Max=%%c"
    
14.                         )
    
15.                 )
    
16.                 for %%i in (!str!) do echo,%%a-%%a=%%i-%%i=!#_%%i_Min!-!#_%%i_Max!
    
17.                 endlocal
    
18.         ))>d:\文本\文本1\!y:~1!\a.txt
    
19. 
    
20.         popd
    
21. )

复制代码

思想之翼

回复 3# CrLf

感谢您的帮助！

合并后的代码经过测试，存在2个问题：

1、d:\文本\文本1\001\lishi\ 内，只统计文本名称是0-？？？？？？？.txt的数据，名称是1-？？？？？？？.txt  2-？？？？？？？.txt 的数据没有统计，结果如下：
0-0=33-33=1-2
0-0=32-32=1-1
0-0=49-49=1-1
1-1=!str!-!str!=!#_!str!_Min!-!#_!str!_Max!
2-2=!str!-!str!=!#_!str!_Min!-!#_!str!_Max!

2、d:\文本\文本1\002\lishi\ ......d:\文本\文本1\210\lishi\  内的数据没有统计。

apang

call它一下

1. @echo off
   
2. set 最大文件前缀编号=2
   
3. 
   
4. for /l %%x in (1001,1,1210) do call :Next %%x
   
5.    
   
6. :Next
   
7. set "y=%1"
   
8. cd /d "d:\文本\文本1\%y:~1%\lishi"
   
9. (for /l %%a in (0,1,%最大文件前缀编号%) do (
   
10.      setlocal enabledelayedexpansion   
    
11.      for /f "tokens=1-2" %%b in ('type %%a-???????.txt 2^>nul') do (
    
12.          if not defined #_%%b_Min (
    
13.              set/a #_%%b_Max=#_%%b_Min=%%c
    
14.              set "str=!str! %%b"
    
15.          ) else (
    
16.              if !#_%%b_Min! gtr %%c (set #_%%b_Min=%%c) else if !#_%%b_Max! lss %%c set "#_%%b_Max=%%c"
    
17.          )
    
18.     )
    
19.     for %%i in (!str!) do echo,%%a-%%a=%%i-%%i=!#_%%i_Min!-!#_%%i_Max!
    
20.     endlocal
    
21. ))>"..\a.txt"

复制代码

xxpinqz

1. 
   
2. @echo off
   
3. 
   
4. set 最大文件前缀编号=2
   
5. 
   
6. for /l %%x in (1001,1,1002) do (
   
7.   set y=%%x
   
8.   for /l %%a in (0,1,%最大文件前缀编号%) do (
   
9.      setlocal enabledelayedexpansion
   
10.      cd /d "d:\文本\文本1\!y:~1!\lishi"
    
11.      for /f "tokens=1-2" %%b in ('type %%a-???????.txt 2^>nul') do (
    
12.         if not defined #_%%b_Min (
    
13.            set/a #_%%b_Max=#_%%b_Min=%%c
    
14.            set "str=!str! %%b"
    
15.         ) else (
    
16.            if !#_%%b_Min! gtr %%c (set #_%%b_Min=%%c) else if !#_%%b_Max! lss %%c set "#_%%b_Max=%%c"
    
17.         )
    
18.      )
    
19.   for %%i in (!str!) do echo,%%a-%%a=%%i-%%i=!#_%%i_Min!-!#_%%i_Max!>>"d:\文本\!y:~1!.txt"
    
20.   endlocal
    
21.   )
    
22. )
    

复制代码