[文本处理] 【已解决】批处理如何将多个txt文本行行对应合并成一行

elec

我有5个txt文件，r1.txt ~ r5.txt 每个文件均是500行的短句

r1.txt

No matter if you're planning a conference for the members of your fraternity, or you're planning an event to raise funds for cancer research
one of the best ways to manage attendance for your event is through online registration. In the past, event organizers had to rely on fax machines and phones to confirm attendance. 
Thanks to recent advances, you can now do everything from registration and confirmation to payments and follow up information gathering online..
Their bodies stored the food in the form of fat. When food was scarce, they had little, at times nothing to eat, the body could depend on the stores of fat for the necessary energy for survival. 
Hence when food is available, the body stores what it can for the bad time..
Most Americans have a high school diploma, but, there are still approximately just under 40 million who do not. 
Not having one sometimes causes people to lie to prospective employers, or acquire a fake one or even purchase one off the computer. 
This is why it is necessary for companies to verify a high school diploma.Icons in Daily LifeThere are some beautiful churches throughout the world. 
This Dogs of the Index strategy, popularized by Michael B. O'Higgins in the book "Beating The Dow" (HarperCollins, 1991), reveals how low yielding stocks whose prices increase and whose dividend yields 
Not all air taxi operators use jets. SATSair, which serves the southeastern United States from Philadelphia to the Florida Keys, flies single engine propeller equipped Cirrus planes. 
......
复制代码

我想合并r1.txt ~ r5.txt 的每一行，输出到result.txt 可以实现吗？？

CrLf

如果是我自己用，更倾向 sed 和 gnusort...

@findstr /n .* a.txt b.txt c.txt d.txt e.txt|sort -n -t":"|sed "s/^[0-9]*://" >输出.txt
复制代码

当然，gawk 也是极好的，但是写起来麻烦多了：

gawk "{ar[FNR]=ar[FNR] $0}END{for(i in ar)print(ar[i])}" a.txt b.txt c.txt d.txt e.txt>输出.txt
复制代码

CrLf

保存为 合并.js：

var arr=['a.txt','b.txt','c.txt','d.txt','e.txt']

var ts=[]
var text =''

var fso=new ActiveXObject('Scripting.FileSystemObject')
for(i in arr)ts.push(fso.OpenTextFile(arr[i],1))

while(!ts[0].AtEndOfStream){
	for(i in ts){
		if(!ts[i].AtEndOfStream)text+=ts[i].ReadLine()
	}
	text+='\r\n'
}

fso.CreateTextFile('输出.txt',true).Write(text)
复制代码

elec

回复 5# DAIC


    就是1~5个文件。每个文件的行数都一样。

1.txt   2.txt    3.txt    4.txt   5.txt
A        A        A        A        A
B        B        B        B        B
C        C        C        C        C
D        D        D        D        D
......
复制代码

合并完后

AAAAA
BBBBB
CCCCC
DDDDD
......
复制代码

DAIC

具体如何每一对应行？给个例子吧

terse

如果固定行数的话
这样效率提升点

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b/a-d r?.txt') do if not defined file set "file=%%i"
copy !file! _tem.txt >nul
for /f "skip=1 delims=" %%i in ('dir /b/a-d r?.txt') do (
    (for /f "delims=" %%a in (_tem.txt) do (
        set /ps=
        echo,%%a!s!
    ))<%%i >$
    move $ _tem.txt >nul
)
pause
复制代码

digger

@echo off&setlocal enabledelayedexpansion
set/a a=0,b=0,c=0,d=0,e=0
:a5
for /f "delims=" %%i in ('more +!a! 1.txt') do (
   set/a a+=1&set b1=%%i
  for /f "delims=" %%j in ('more +!b! 2.txt') do set/a b+=1&set b2=%%j&goto :a1
:a1
  for /f "delims=" %%k in ('more +!c! 3.txt') do set/a c+=1&set b3=%%k&goto :a2
:a2
  for /f "delims=" %%l in ('more +!d! 4.txt') do set/a d+=1&set b4=%%l&goto :a3
:a3
  for /f "delims=" %%m in ('more +!e! 5.txt') do set/a e+=1&set b5=%%m&goto :a4
)
:a4
for /f "delims=" %%n in ("!b1!!b2!!b3!!b4!!b5!") do if not defined %%n (set %%n=aa&echo.%%n) else echo.完成&pause&exit
set h=0&set b1=&set b2=&set b3=&set b4=&set b5=
goto a5
复制代码

速度慢，空行不考慮在內，循環取決於第一個FOR的1.txt,如果有完全相同的會有問題

xxpinqz

@echo off&setlocal enabledelayedexpansion
(for /f "tokens=1-2* delims=:" %%a in ('findstr /n . r?.txt') do (
    set "n=00000%%b"
    echo,!n:~-5!%%~na:%%c
))>tmp
(for /f "tokens=1* delims=:" %%a in ('sort tmp') do (
    set/p"=%%b"
    set/am+=1,k=m%%5
    if !k! equ 0 echo,
))<nul>result.txt
del tmp
复制代码