keen

答案一：

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=:" %%i in ('findstr /n "abcd" a.txt') do (
    set a=%%i
    set /a a-=1
    for /f "tokens=1,2 delims=:" %%m in ('findstr /n .* a.txt') do if %%m==!a! echo %%n
    echo %%j
)
pause
复制代码

答案二：

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=:" %%i in ('findstr /n "abcd" a.txt') do (
    set a=%%i
    set /a a-=1
    for /f "tokens=1,2 delims=:" %%m in ('findstr /n .* a.txt') do if %%m==!a! echo %%n
    echo %%j
    set b=%%i
    set /a b+=1
    for /f "tokens=1,2 delims=:" %%x in ('findstr /n .* a.txt') do if %%x==!b! echo %%y
)
pause
复制代码

keen

findstr /n "abcd" a.txt的确是找到的是所有含有abcd的行。

来个VBS的：

'直接做的要求二。要回答要求一：把代码中的"& ArrLine(i+1) & vbCrLf"去掉就行了
'没有考虑第一行和最后一行是abcd的情况
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("a.txt", 1)

AllStr = objTextFile.ReadAll
ArrLine = Split(AllStr, vbCrLf)

For i = 0 To Ubound(ArrLine)
    If Left(ArrLine(i), 4) = "abcd" Then
        newStr = newStr & ArrLine(i-1) & vbCrLf & ArrLine(i) & vbCrLf & ArrLine(i+1) & vbCrLf
    End If
Next
WSH.Echo newStr
复制代码

[ 本帖最后由 keen 于 2009-10-13 15:54 编辑 ]