@echo off 
cls & color 79 
setlocal enabledelayedexpansion 

:inputfilename 
set /p txtfile=请输入要分割的文件位置及文件名： 
if not defined txtfile goto :inputfilename 

set /p lines=请输入每多少行分割为一个文件（请输入50到300之间的数）： 
if not defined lines set /a lines=100 

cls 
set /a line=0 
set /a files=1 
set filename=第!files!部分.txt 
mode con lines=2 
echo 正在写第1个文件... 
set str= 
for /f "delims=" %%i in (%txtfile%) do ( 
set /a line+=1 
set str=!str!%%i 
if "!line!"=="!lines!" ( 
echo !str!>!filename! 
cls 
set /a line=0 
set /a files+=1 
set filename=第!files!部分.txt 
echo 正在写第!files!个文件... 
set str= 
) 
) 
echo !str!>!filename! 
cls 
echo 完成。按任意键退出程序... 
pause>nul 
del c:\tmp