@echo off
setlocal EnableDelayedExpansion
for /f "tokens=1* delims=:" %%a in ('findstr /n .* 1.txt') do set _%%a=%%b
for /f "tokens=1* delims=:" %%a in ('findstr /n .* 2.txt') do echo.!_%%a!%%b>>all.txt
echo.&pause
复制代码

@echo off
setlocal enabledelayedexpansion
(for /f "delims=" %%i in (a.txt) do (
    set /p str=
    echo,!str! %%i
))<b.txt >c.txt
复制代码

@echo off
paste -d " " a.txt b.txt>c.txt
复制代码

@echo off
set "MergeFile1=C:\test\a.txt"
set "MergeFile2=C:\test\b.txt"
set "MergeResult=C:\test\c.txt"
set "MergeSkip=%temp%\AddNullRow.txt"
echo.>"%MergeSkip%"
type "%MergeFile2%">>"%MergeSkip%"
(for /f "usebackq delims=" %%a in ("%MergeFile1%") do (
    set /a n+=1
    call :MergeColumn "%%a"
))>"%MergeResult%"
goto :eof
:MergeColumn
for /f "usebackq skip=%n% delims=" %%a in ("%MergeSkip%") do (
    echo.%~1 %%a
    goto :eof
)
复制代码

Set fs = CreateObject("Scripting.FileSystemObject") 
Set file = fs.OpenTextFile("d:\1.txt", 1, false) 
Set fs1 = CreateObject("Scripting.FileSystemObject") 
Set file1 = fs1.OpenTextFile("d:\2.txt", 1, false) 
Set fs2 = CreateObject("Scripting.FileSystemObject") 
Set file2 = fs2.OpenTextFile("d:\3.txt", 8, 1) 
while not file.AtEndofStream
	readfile=file.readline 
	readfile1=file1.readline
	file2.write "rename d:\1\"& readfile1 & " " & readfile &chr(13)&chr(10)
wend
file.close 
set fs=nothing 
file1.close 
set fs1=nothing 
file2.close 
set fs2=nothing 
复制代码