@echo off
setlocal EnableDelayedExpansion
title 文本分割器 ****JCY0307****
mode con: cols=45 lines=20
::批处理之家-http://bathome.l3.wuyou.com/
color 0a
:zcd
cls
echo.
echo.
echo.
echo               ╭──────╮
echo       ╭───┤ 文本分割器 ├───╮   
echo       │      ╰──────╯      │
echo       │     1.指定大小分割文本     │
echo       │                            │
echo       │     2.指定个数分割文本     │
echo       │                            │
echo       │     Q.退 出                │
echo       │                            │
echo       ╰──────────────╯   
echo. 
echo       ──────────────── 
echo. 
set zcd=
set/p zcd=    请输入选项:
if /i "%zcd%"=="1" goto kb
if /i "%zcd%"=="2" goto gs
if /i "%zcd%"=="q" exit
if /i "%zcd%"=="" goto zcd
:kb
cls
echo 输入Q返回主菜单
set a=
set/p a=请将文件拖入:
if /i "%a%"=="q" goto zcd
for %%i in (%a%) do set /a c=%%~zi/1024
cls
echo 文件大小:%c%KB
ping -n 3 127.1>nul
cls
set b=
set/p b=请设定分割后文件大小(KB):
set /a e=%b%*1024
set /a f=%c%/%b%
cls
echo 以%b%KB分割后,您将得到%f%个文件。3秒后开始分割.....
ping -n 4 127.1>nul
cls
set d=1
for %%i in (%a%) do set wjm=%%~ni
for /f "delims=" %%j in (%a%) do (
echo %%j>>%wjm%!d!.txt
cls
echo 正在分割 %wjm% 第!d!部分......
for %%k in (%wjm%!d!.txt) do if %%~zk GEQ %e% set /a d+=1
)
cls
echo 分割 %wjm% 完成，共分割出了!d!个文件！
if not exist %wjm% md %wjm%
move %wjm%*.txt %wjm%>nul 2>nul
pause>nul
goto zcd
:gs
cls
echo 输入Q返回主菜单
set a=
set/p a=请将文件拖入:
if /i "%a%"=="q" goto zcd
cls
echo 正在计算文本行数，请稍等......
for /f "delims=" %%i in (%a%) do set/a b+=1
cls
set c=
set/p c=请输入要得到的文件个数:
set/a d=%b%/%c%+3
cls
echo 正在分割，请稍等......
set e=1
set f=0
for %%k in (%a%) do set wjm=%%~nk
for /f "delims=" %%j in (%a%) do (
echo %%j>>%wjm%!e!.txt
set/a f+=1
if !f! GEQ %d% set/a e+=1 & set f=0
)
cls
echo 分割完成
if not exist %wjm% md %wjm%
move %wjm%*.txt %wjm%>nul 2>nul
pause>nul
goto zcd
复制代码