поэтому добавлю, если файл действительно большой с БОЛЬШОЙ буквы БЫ
ищем awk/gawk
и так бат
::строк
set $n=10000
::файл
set $file=file.txt
for /f "delims=" %%i in ('^<%$file% find /v /c ""') do set /a $m=100+%%i/%$n%
for /l %%i in (100,1,%$m%) do set /a $i=%%i& call :sub
:sub
(awk -v S=%$i:~-2% -v N=%$n% "{L+=1;if (L>S*N && L<S*N+N+1) {print $0}}"
) <%$file% >list%$i:~-2%.txt
и терпения
нет нет нет, подойдет только для файлов до половины гига
