批处理怎么根据生成的行号提取TXT该行信息

前半部分已经写好了 提取关键词所在的行号
@echo off
setlocal enabledelayedexpansion
for /f "eol=* delims=: tokens=1,2*" %%a in ('type t.fas ^| findstr/n "H1N1"') do (
echo %%a
)
现在不知道怎么才能根据生成的行号%%a 重新生成新的单独TXT 。
此外还需要将这些关键词所在行的下一行也一并生成出来。
写的下半部分，运行不了了
(for /f "tokens=1* delims=:" %%a in ('findstr /n .* "T.fas"') do (
if "%%b" equ "%%a" (
echo;%%b

exit /b
)
))>"2.txt"

@echo off
setlocal enabledelayedexpansion
for /f "delims=: tokens=1" %%a in ('findstr /n "H1N1" "t.fas"') do set Line=%%a
set /a Line-=1
set skip=skip=%Line%
(for /f "%skip% delims=" %%a in (T.fas) do (
    set /a num+=1
    if !num! equ 3 exit
    echo,%%a
))>2.txt



手机编写，尚未测试。请自测。