中国DOS联盟

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: find5line.bat -- 从文本查找关键字并显示其下5行
:: by: 无奈何 - 2005-10-1 - 联系:wunaihe@gmail.com
:: 用法：直接运行，显示输出。
:: 说明: 适用环境 Win2000 以上，实测 WinXP。
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

@echo off
setlocal ENABLEDELAYEDEXPANSION
set /p str=请输入关键字:
set /p name=输入文件名:
set m=1
::获取关键字所在行
for /f "tokens=1,2* delims=:" %%a in ('findstr /n /C:"!str!" !name!') do @(
        set line=%%a
        set /a line-=1
        set n=1
        echo.
        echo 查找到第 !m! 个匹配
        set /a m+=1
::显示关键字及其下5行
        for /f "delims=" %%i in ('more +!line! !name!') do (
                if !n! LEQ 5 echo %%i
                set /a n+=1
        )
)
endlocal

@echo off
setlocal  ENABLEDELAYEDEXPANSION
for /f "tokens=1 delims=[]" %%i in ('find /n %1 %2^|more +2') do (
                        set min=%%i
                        set /a max=!min! + 8
)

for /f "tokens=1* delims=[]" %%i in ('find /n /v "" %2^|more +2') do (
                        if %%i geq !min! (if %%i leq !max! (
                                                            if "%%j"=="" (echo.) else (echo.%%j)))
)
endlocal

@echo off
setlocal  ENABLEDELAYEDEXPANSION
for /f "tokens=1 delims=[]" %%i in ('find /n %1 %2^|more +2') do (
                        set min=%%i
                        set /a max=!min! + 8
echo.
for /f "tokens=1* delims=[]" %%i in ('find /n /v "" %2^|more +2') do (
                        if %%i geq !min! (if %%i leq !max! (
                                                            if "%%j"=="" (echo.) else (echo.%%j)))
))

endlocal