中国DOS联盟

@echo off&setlocal enabledelayedexpansion
set a=b
set b=a

for /f %%a in (a.txt) do (set str=!str! %%a)
(for /f "delims=" %%a in ('dir /b/a-d') do (
        set c=a
        findstr "%str%" "%%a">nul
        if !errorlevel!==0 (
        for /f "delims=" %%i in ('type "%%a"') do (
                if !c!==b echo.%%i
                if "%%i"=="------" call set c=%%!c!%%
        ))
))>b.txt

@echo off&setlocal enabledelayedexpansion
for /f "delims=:" %%a in ('findstr /g:a.txt *.txt') do set ##%%a=1

set a=b
set b=a
(for /f "delims==#" %%a in ('set ##') do (
        set c=a
        for /f "delims=" %%b in ('type "%%a"') do (
                if !c!==b echo.%%b
                if "%%b"=="------" call set c=%%!c!%%
        )
))>b.txt

@echo off
set KWF="a.txt"
del $dest$.txt>nul
for /r %%i in (*.txt) do set n=0& if /i "%%~nxi" neq %KWF% call:CONVERT "%%~i"
del $$$.tmp>nul&&pause
goto:eof

:CONVERT
  for /f "usebackq delims=" %%i in ("%~1") do (
    if "%%~i" neq "------" (
      echo %%i>>$$$.tmp
    ) else (
      echo ------>>$$$.tmp
      set/a n+=1
      call :match "%~1"
      type nul>$$$.tmp
    )
  )
GOTO:EOF

:MATCH
    echo 查找文件 "%~nx1" 第 %n% 段……
    findstr /g:%KWF% $$$.tmp>nul&&type $$$.tmp>>$dest$.txt
GOTO:EOF

@echo off&setlocal enabledelayedexpansion
set KWF="a.txt"
del $dest$.txt>nul
for /r %%i in (*.txt) do (set n=1& if /i "%%~nxi" neq %KWF% call:CONVERT "%%~i")
pause&goto:eof

:CONVERT
set/a tp=0
for /f "usebackq delims=" %%i in ("%~1") do (
        set lb6=%%i
        set lb6=!lb6:~0,6!
        echo %%i>>$$$.tmp
        if "!lb6!" equ "--AB--" (echo %%i|findstr /g:%KWF% >nul&&set/a tp=1)
        if "!lb6!" equ "--TI--" (echo %%i|findstr /g:%KWF% >nul&&set/a tp=1)
        if "!lb6!" equ "--LP--" (
                if "!tp!" equ "1" (
                        echo 文件 "%~nx1" 第 !n! 段,符合要求……
                        type $$$.tmp>>$dest$.txt
                        set/a tp=0
                        type nul>$$$.tmp
                )
                set /a n+=1
        )
)
GOTO:EOF