[文本处理] 【已解决】批处理如何按照文本的行长度将文本平均分成三份？

@echo off
set n=3
set "filename=a.txt"
for /f "delims=" %%i in ('find /c /v "" ^<"%filename%"') do set /a m=%%i/3
(for /l %%i in (1,1,%n%) do (
     (for /l %%j in (1,1,%m%) do (
          setlocal enabledelayedexpansion
          set/pstr=
          echo;!str!
          endlocal
     ))>%%i.txt
))<"%filename%"
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "tokens=2 delims=:" %%a in ('find /v /c "" a.txt') do set/a n=%%a/3,m=1
(for /f "tokens=1* delims=:" %%a in ('findstr /n .* a.txt') do (
    if !m! leq !n! echo,%%b>>!m!.txt
    set/a "1/(%%a%%n)"||set/am+=1
))2>nul
复制代码