找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 27587|回复: 2

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

[复制链接]
发表于 2014-7-7 09:38:23 | 显示全部楼层 |阅读模式
本帖最后由 elec 于 2014-7-7 22:49 编辑

假设一个文本是1200行。生成仨文本分别为 400行,(1~400  401~800  801~1200)

假设一个文本是1201行。生成仨文本分别为 400行,第1201不打印

假设一个文本是1202行。生成仨文本分别为 400行,第1201  1202 不打印

假设一个文本是1203行。生成仨文本分别为 401行

。。。。

生成仨文本分别为1.txt  2.txt  3.txt

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2014-7-7 11:50:18 | 显示全部楼层
  1. @echo off
  2. set n=3
  3. set "filename=a.txt"
  4. for /f "delims=" %%i in ('find /c /v "" ^<"%filename%"') do set /a m=%%i/3
  5. (for /l %%i in (1,1,%n%) do (
  6.      (for /l %%j in (1,1,%m%) do (
  7.           setlocal enabledelayedexpansion
  8.           set/pstr=
  9.           echo;!str!
  10.           endlocal
  11.      ))>%%i.txt
  12. ))<"%filename%"
复制代码

评分

参与人数 1技术 +1 收起 理由
CrLf + 1 乐于助人

查看全部评分

发表于 2014-7-7 11:52:26 | 显示全部楼层

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

评分

参与人数 1技术 +1 收起 理由
CrLf + 1 乐于助人

查看全部评分

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-21 06:31 , Processed in 0.030583 second(s), 18 queries .

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表