[megaloman]

Вот вариант батника. Исходный файл сохраняется. Для выходных файлов организуется папка.

Код:

@Echo Off

Set "InFile=D:\Delete\Box_In\baza.txt"

Set "OutDir=D:\Delete\Box_Out"
Set "OutExt=txt"

Set /A Quota=1024

Md "%OutDir%" 2>nul
Del "%OutDir%\*.%OutExt%" 2>nul

Set /A Count=0
FOR /F "usebackq delims=" %%s IN (`type "%InFile%" 2^>nul`) DO Call :FCount "%%s"
GoTo :Eof

:FCount
Set /A NewFile=%Count%/%Quota%+1
Set /A Count+=1
Set NewFile=%OutDir%\%NewFile%.%OutExt%
>>"%NewFile%" Echo %~1

Батник можно запускать многократно без ущерба исходному файлу.

alpap, Удаление исходного файла противоречит моим моральным принципам.