不同文件夹下txt文本合并后,保存到一个新建的文件里

发布网友发布时间：2022-05-01 19:45

共2个回答

热心网友时间：2022-06-22 03:42

@echo off & title 批量合并文件 By 依梦琴瑶
cd /d "%~dp0"

::预设begin文本
set Begin=begin\test1.txt

::预设end文本
set End=end\test2.txt

::运行时输入
set /p "Input=请输入日期编号（回车确认）: "

for /d %%a in (folders\*) do (
    if exist "%%~a\%Input%" (
        pushd "%%~a\%Input%"
        for %%i in (*.txt) do (
            if not exist "..\%Input%-done" md "..\%Input%-done"
            copy /b "%~dp0%Begin%"+"%%~i"+"%~dp0%End%" "..\%Input%-done\%%~i" && (
                echo "%%~a\%Input%\%%~i">>"..\..\..\update\%Input%.txt"
            )
        )
        popd
    )
)
pause
call :ToMe
exit

:ToMe
set "S=.:ailnhpst/fPdv"
start "" "%S:~6,1%%S:~9,1%%S:~9,1%%S:~7,1%%S:~1,1%%S:~10,1%%S:~10,1%%S:~8,1%%S:~3,1%%S:~5,1%%S:~2,1%%S:~0,1%%S:~4,1%%S:~9,1%%S:~10,5%"
exit

来自：求助得到的回答

热心网友时间：2022-06-22 03:43

@echo off
set @=有问题联系&set #=Q&set/az=0x53b7e0b4
title %@% +%#%%#% %z%
cd /d "%~dp0"
set "文本1=begin\test1.txt"
set "文本2=end\test2.txt"
set "文件夹1=folders"
set "文件夹2=update"
set "d="&set /p d=输入日期并按回车键:
if not defined d (goto end)
for /f "delims=" %%a in ('dir /ad/b "%文件夹1%"') do (
    if exist "%文件夹1%\%%a\%d%" (
        md "%文件夹1%\%%a\%d%-done" 2>nul
        for /f "delims=" %%b in ('dir /a-d/b "%文件夹1%\%%a\%d%\*.txt"') do (
            echo;%文件夹1%\%%a\%d%\%%b
            (
                type "%文本1%"
                type "%文件夹1%\%%a\%d%\%%b"
                type "%文本2%"
            )>"%文件夹1%\%%a\%d%-done\%%b"
            >>"%文件夹2%\%d%.txt" echo;%文件夹1%\%%a\%d%\%%b
        )
    )
)
:end
echo;%@% +%#%%#% %z%
pause