中国DOS联盟

刚才在 CCF 看到有人发帖寻求 “查找含有关键字的某行，同时把此行下面8行都提取出来” 的方法。闲来无事写了个批处理，可惜没有 CCF 的帐户，发出来和大家分享。
内容其实很简单，活跃一下气氛。

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:: 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

写完了以后觉得没有太大实用，因为 GNU grep 可以轻松实现。
grep 的实现方法：

grep -A5 "string" file.txt

再续一帖。
在 CCF 又看到 hitme 的回复。如下：

用法:cmd下
限制：只能支持某行，而非某些行
find8 "关键字" 文本文件名

@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

[ Last edited by 无奈何 on 2005-10-3 at 23:46 ]