查找关键字并显示其下5行的批处理 - 中国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 ]

第1楼　无奈何	发表于 2005-10-02 00:01
荣誉版主　发帖 356　积分 1,338
[原创]查找关键字并显示其下5行的批处理刚才在 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

第2楼　无奈何	发表于 2005-10-02 14:02
荣誉版主　发帖 356　积分 1,338
写完了以后觉得没有太大实用，因为 GNU grep 可以轻松实现。 grep 的实现方法： grep -A5 "string" file.txt

第3楼　bush	发表于 2005-10-03 00:51
银牌会员　发帖 730　积分 2,165
工具是丰富多彩的，但过程是一种乐趣~

第4楼　无奈何	发表于 2005-10-03 23:45
荣誉版主　发帖 356　积分 1,338
再续一帖。在 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 ]