set fso= createobject("scripting.filesystemobject")
set folder= fso.getfolder(".")
set files=folder.files
set res=fso.opentextfile("result.txt",8,1)
for each file in files
if lcase(fso.getextensionname(file)) = "txt" then
res.write getstr(file)
res.writeline
end if
next
function getstr(a)
flag=false
set t=fso.opentextfile(a)
do until t.atendofstream
s=t.readline
if s="bathome" then
flag=true
end if
if flag=true then
if len(s)<>0 then
getstr=getstr & s & vbcrlf
else
exit do
end if
end if
loop
end function
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b *.txt') do (
call :get "%%i"
echo.
)
pause 
exit
:get
set flag=false
for /f "tokens=1,2 delims=:" %%j in ('findstr /n .* %1') do (
if "%%k" == "bathome" set flag=true
if "!flag!" == "true" (
if not "%%k" == "" (echo %%k) else goto :eof
)
)
复制代码

@echo off&setlocal enabledelayedexpansion
set max=2
for /f "delims=" %%i in ('dir /b *.txt') do (
  set "flag="
  for /f "delims=" %%a in ('type "%%i"') do (
     if /i "%%a"=="bathome" set /a flag+=1
	 if defined flag if !flag! leq !max! >>tmp.txt echo %%a
))
start tmp.txt
复制代码