[文本处理] 【已解决】批处理如何将多个BAT合而为一？

思想之翼

有如下若干BAT代码，如何将其合而为一？恳望得到大家的帮助。

@echo off
for /f "skip=10 delims=" %%i in ('dir /b /a-d /o-n /s "C:\001\lishi\*.txt"') do (
    copy "%%i" "C:\数据\01\1.txt"
    goto :eof
)

@echo off
for /f "skip=10 delims=" %%i in ('dir /b /a-d /o-n /s "C:\002\lishi\*.txt"') do (
    copy "%%i" "C:\数据\02\1.txt"
    goto :eof
)

@echo off
for /f "skip=10 delims=" %%i in ('dir /b /a-d /o-n /s "C:\003\lishi\*.txt"') do (
    copy "%%i" "C:\数据\03\1.txt"
    goto :eof
)

......

思想之翼

回复 9# DAIC
感谢您给予的大力帮助！

xxpinqz

自测了下，好像没问题嘛~~，

DAIC

回复 5# 思想之翼

@echo off
setlocal enabledelayedexpansion
for /d %%i in (C:\*) do (
    if exist %%i\lishi\ (
        set folderSrc=%%i
        set folderDst=!folderSrc:~-2!
        call :Copy_File "%%i" !folderDst!
    )
)
goto :eof

:Copy_File
for /f "skip=10 delims=" %%j in ('dir /b /a-d /o-n /s "%~1\lishi\*.txt"') do (
    copy "%%j" "C:\数据\%2\1.txt"
    goto :eof
)
复制代码

思想之翼

回复 7# xxpinqz
依然导不出数据。没有任何提示。

xxpinqz

回复 6# 思想之翼
第六行改为echo f|xcopy "%%i" "C:\数据\%n:~-2%\1.txt"
试试看
有问题把错误提示写出来，正确的就别贴了

思想之翼

回复 2# xxpinqz
您的代码显示拷贝路径正确，但不能拷贝数据。
另：删除第六行echo  也未能拷贝。
恳望再次得到您的帮助！

思想之翼

回复 4# DAIC
您的上述代码不能提取数据。烦请看看为什么，好吗？
恳望再次得到您的帮助！

DAIC

@echo off
setlocal enabledelayedexpansion
for /d %%i in (C:\*) do (
    if exist %%i\lishi\ (
        set folderSrc=%%i
        set folderDst=!folderSrc:~-2!
        echo call :Copy_File "%%i" !folderDst!
    )
)
goto :eof

:Copy_File
for /f "skip=10 delims=" %%j in ('dir /b /a-d /o-n /s "%~1\lishi\*.txt"') do (
    echo copy "%%j" "C:\数据\%2\1.txt"
    goto :eof
)
复制代码

cjiabing

删掉  goto :eof

xxpinqz

@echo off
set n=10000
:loop
set/a n+=1
for /f "skip=10 delims=" %%i in ('dir /b /a-d /o-n /s "c:\%n:~-3%\lishi\*.txt" 2^>nul') do (
    echo copy "%%i" "C:\数据\%n:~-2%\1.txt"
    goto :loop
)
pause
复制代码

看看对不对，正确删除第六行echo.