批处理如何将一个txt文本平分为指定等份？

wjx515

例如一个文本由21行，想把他分为4个文本 ，前3个文本每个5行，最后一个文本6行
或一个文本由19行，前三个文本5行，最后一个文本4行，

文本行数不定，想把他等分为4份。

wjx515

1. @echo off
   
2. setlocal EnableDelayedExpansion
   
3. for /f "delims=" %%i in (a.txt) do set/a b+=1
   
4. set/a c=%b%/4
   
5. set/a d=%b%%%4
   
6. set e=1
   
7. set f=-%d%
   
8. for /f "delims=" %%j in (a.txt) do (
   
9. echo %%j>>!e!.txt
   
10. set/a f+=1
    
11. if !f! GEQ %c% set/a e+=1 & set f=0
    
12. )
    
13. endlocal
    
14. pause

复制代码

凑合吧  文本打了有点慢

xxpinqz

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. set "sf=tt.txt"
   
4. set /a id=4,t=id-1,n=1
   
5. for /f "tokens=2 delims=:" %%a in ('find /v /c "" "%sf%"') do set /a x=%%a%%id,z=y=%%a/id
   
6. if %x% equ %t% set /a z=y+=1
   
7. for /l %%a in (1,1,%id%) do (
   
8.    if %%a equ %id% (sed -n !n!,$p "%sf%" >%%a.txt) else sed -n !n!,!z!p "%sf%" >%%a.txt
   
9.    set /a n=z+1,z+=y
   
10. )
    

复制代码

对于这个SED用法好像会用。。。

terse

在等分问题上 还是有点弱 不过文件大大话 可减少循环 4等分3个循环

1. @echo off&setlocal enabledelayedexpansion
   
2. set /a m=4,j=m-1
   
3. for /f "tokens=*" %%i in ('find /c /v "" ^< a.txt') do set /a "n=%%i,i=n/4"
   
4. for /l %%i in (1 1 %j%) do (
   
5.     set /a n-=i
   
6.     more  +!n! a.txt >$a_%%i.txt
   
7.     sort /+5000 a.txt | more +!i! | sort /+5000 |findstr "." >#
   
8.     move # a.txt
   
9. )
   
10. move a.txt $a_%m%.txt
    
11. pause

复制代码

xxpinqz

回复 4# terse
学习了，不过这 sort /+数值，这个数值最大能达到哪个范围，用个12W行的文本，改为sort /+120010,当机了。

xxpinqz

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. set "sf=t t.txt"
   
4. set /a id=4,t=id-1
   
5. ::sf为源文件名称，id为分几个文件,t用来判断余数及循环。
   
6. for /f "tokens=2 delims=:" %%a in ('find /v /c "" "%sf%"') do set /a x=%%a%%id,z=y=%%a/id
   
7. if %x% equ %t% set /a z=y+=1"
   
8. ::如果余数等于分割的文件数id-1(%t%),则前id-1个文件各多加1行.否则多余行数全添加至最后一个文件
   
9. set "com=usebackq delims="
   
10. for /l %%i in (1,1,%t%) do call :sc %%i "!com!"
    
11. more +!m! <"%sf%">%id%.txt
    
12. exit /b
    
13. :sc
    
14. (for /f %2 %%a in ("%sf%") do (
    
15.   echo %%a
    
16.   set /a m+=1,"1/(y-m)" 2>nul||(set /a y+=z&set "com=usebackq skip=!m! delims="&goto :eof)
    
17. ))>%~1.txt
    

复制代码

超大文件用一次性输出会快点。。。