paste -d " " 1.txt 2.txt >3.txt
复制代码

@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)>3.txt
复制代码

@echo off
set /a n=-1
cd.>c.txt
for /f "delims=" %%a in (a.txt) do call :loop "%%a"
start c.txt
exit
:loop
set /a n+=1
if %n% equ 0 (set skip=) else set "skip=skip=%n%"
for /f "%skip% delims=" %%b in (b.txt) do echo %~1 %%b>>c.txt
goto :EOF
复制代码

@echo off
for /f "tokens=1,* delims=:" %%a in ('findstr /n .* a.txt') do (
 for /f "tokens=1,* delims=:" %%c in ('findstr /n .* b.txt') do (
   if %%c equ %%a (echo %%b %%d >>c.txt)
)
)
复制代码

var fso, a1, a2, l1, l2, min, s, i;
fso = new ActiveXObject("Scripting.FileSystemObject");
a1=fso.OpenTextFile("1.txt").ReadAll().replace(/\r\n$/,'').split('\r\n');
a2=fso.OpenTextFile("2.txt").ReadAll().replace(/\r\n$/,'').split('\r\n');
l1=a1.length;
l2=a2.length;
min = (l1 < l2) ? (l1) : (l2);
s='';
i=0;
for (i=0; i<min; i++)
{
    s += a1[i] + ' ' + a2[i] + '\r\n';
}
//one of the following loops won't run, so 'i' is safe.
for (; i<l1; i++)
{
    s += a1[i] + '\r\n';
}
for (; i<l2; i++)
{
    s += a2[i] + '\r\n';
}

fso.OpenTextFile("join.txt",2,true).Write(s);
复制代码