@echo off
setlocal enabledelayedexpansion

:loop
set "find=200"
set /p 询问=:
rem 设置初始行数
set "line=0"

for /f "delims=" %%a in (word.log) do (
    set /a line+=1
    rem 逐行查找是否有与输入内容匹配的行
    echo !询问! | find /i "%%a" >nul
    if !errorlevel! equ 0 (
        rem 将目标行设为匹配行+40
        set /a find=!line!+40
        echo 在第 !line! 行找到匹配项: %%a
    )
    rem 查找目标行
[color=Red]    if !line! == %find% (
        rem 显示目标行的内容作为答语
        echo %%a
        pause>nul
        goto :eof
    )[/color]

)
rem 如果未找到则退出
echo 未找到指定的起始行或匹配项
pause>nul
goto loop
复制代码

@echo off
rem 全部保存为ansi
cd /d "%~dp0"
set /p str=input:
for /f "tokens=1* delims=[]" %%a in ('find /n "%str%" ^< "1.txt"') do (
	if %%a leq 40 (
		set /a m=%%a+40
		call set n=%%n%% %%m%%
	)
)
for %%a in (%n%) do (
	(for /l %%l in (1,1,%%a) do (
		rem 如果只有1个，可以删除下一行的%%a
		set /p #%%a=
	)) < "1.txt"
)
set #
pause
复制代码