[文本处理] 批处理如何查找出A文本各行与B文本每一行相同的数字

@echo off
(for /f "delims=" %%a in (a.txt) do (
  setlocal enabledelayedexpansion
  for %%b in (%%a) do (
    set/a n+=1
    set .!n!=%%b
  )
  for /f "delims=" %%c in (b.txt) do (
    for %%d in (%%c) do (
      for /l %%e in (1 1 !n!) do (
        if "%%d"=="!.%%e!" set "str=!str! %%d"
      )
    )
    echo !str:~1!&set str=
  )
  endlocal
))>3.txt
复制代码

@set @n=0//& cscript.exe -e:jscript "%~f0"& pause& exit/b
a = 'a.txt';
b = 'b.txt';
fso = new ActiveXObject('Scripting.FileSystemObject');
ts = fso.OpenTextFile(a);
txt = fso.OpenTextFile(b).ReadAll();
s = '';
while(!ts.AtEndOfStream) {
    ln = ts.ReadLine();
    re = new RegExp('\\b(?:' + ln.replace(/ +/g,'|') + '|\r\n)\\b','g');
    s += txt.match(re).join(' ') + '\r\n';
}
s = s.replace(/^ | $/gm,'').replace(/(?:\r\n){2,}/g,'\r\n');
fso.OpenTextFile('c.txt', 2, true).Write(s);
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do ( 
   for %%a in (%%i) do (      
      for /f "delims=" %%b in (b.txt) do (
          set /a n+=1
          for %%c in (%%b) do (
              if %%a equ %%c call set "str!n!=%%str!n!%% %%a"
          )                   
      )
      set n=      
    )
   for /l %%i in (1 1 4) do echo !str%%i!>>3.txt&set str%%i=
) 
复制代码

@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%a in (a.txt) do (
     for /f "delims=" %%b in (b.txt) do (
         for %%c in (%%a) do for %%d in (%%b) do if %%c equ %%d set str=!str! %%c
         echo!str!&set str=
     )
))>3.txt
PAUSE
复制代码