gc 1.txt |　%{$txt1 = [regex]::Split($_,"\b(?=立案)")
$txt2 = Select-String -SimpleMatch $txt1[0] 2.txt 
$txt2 = [regex]::Split($txt2,"\b(?=原因)")
$txt3 += $_ + "1次 " + $txt2[1] + "`n"
Write-Host $_"1次" $txt2[1]
}
[System.IO.File]::WriteAllText("3.txt",$txt3)
复制代码

@echo off&setlocal enabledelayedexpansion&>nul chcp 65001
if exist "%~dp0Merge.txt" del "%~dp0Merge.txt"
for /f usebackq^ tokens^=1^,2*^ delims^=^| %%a in ("%~dp01.txt") do if not defined %%b (
        set %%b=1
        set N=0
        for /f usebackq^ tokens^=2^,4^ delims^=^| %%d in ("%~dp02.txt") do if "%%b"=="%%d" set /a N=!N!+1&if !N! EQU 1 set O1=%%a^|%%b^|%%c&set O2=%%e
        >>"%~dp0Merge.txt" echo !O1!  !N!次  !O2!
)
start notepad.exe "%~dp0Merge.txt"
ping 127.1 -n 1 >nul
exit
复制代码

@echo off
(
for /f "usebackq tokens=1-3* delims=|" %%i in ("1.txt") do (
	for /f "tokens=3* delims=|" %%a in ('findstr /i /c:"%%i|%%j|%%k|" 2.txt') do (
		echo %%i^|%%j^|%%k^|%%l^%%b
	)
)
)>3.txt
pause&exit
复制代码