Set FSO = CreateObject("Scripting.FileSystemObject")
A = Split(FSO.OpenTextFile("a.txt",1).ReadAll,vbCrLf)
B = Split(FSO.OpenTextFile("b.txt",1).ReadAll,vbCrLf)
If Ubound(A) >= Ubound(B) Then
   For i = 0 To Ubound(A)
      If i <= Ubound(B) Then A(i) = A(i) & " " & B(i)
   Next
   Str = Join(A,vbCrLf)
Else
   For i = 0 To Ubound(B)
      If i <= Ubound(A) Then B(i) = A(i) & " " & B(i)
   Next
   Str = Join(B,vbCrLf)
End If
FSO.CreateTextFile("c.txt",True).Write Str
MsgBox "OK"
复制代码

@echo off
cd.>3.txt
for /f "delims=" %%i in (a.txt)  do (
for /f "delims=" %%j in (b.txt)  do (
find /i "%%i" 3.txt || find /i "%%j" 3.txt || echo %%i %%j 
>>3.txt))
pause
复制代码