@echo off
setlocal EnableDelayedExpansion
title XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
mode con: cols=80 lines=40
:ch
 set/p aa=輸入序號后回車確定:
echo.%aa%|findstr ^[1-8]$>nul&&goto M%aa%
 goto ch
:M1
cls
if %aa%==q goto quit 
set /p a=請輸入需要批處理的文本后按回車鍵(q=退出): 
if %a%==q goto zcd
cls
gawk BEGIN{FS=OFS=.}/^[0-9]/{if(!a[$1_$2_$3]++)print $1,$2,$3,0/24;next}{print} %a% > 2.txt
pause
goto ch
:M2
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>>A.txt
set/a f+=1
if !f! GEQ %d% set/a e+=1 & set f=0
)
cls
move A.txt D:TOOLHQQp1
move A.txt D:TOOLHQQp2
move A.txt D:TOOLHQQp3
move A.txt D:TOOLHQQp4
move A.txt D:TOOLHQQp5
move A.txt D:TOOLHQQp6
echo 分割與移動成功...
pause
goto ch
nclick="copycode($('code0'));">復制代碼