@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:\TOOL\H\QQp1
move A.txt D:\TOOL\H\QQp2
move A.txt D:\TOOL\H\QQp3
move A.txt D:\TOOL\H\QQp4
move A.txt D:\TOOL\H\QQp5
move A.txt D:\TOOL\H\QQp6
echo 分割与移动成功...
pause
goto ch
复制代码