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

[文本处理] 可以用批处理将一个200M的TXT文件切割成5个TXT文件吗?

[复制链接]
发表于 2012-8-2 22:39:01 | 显示全部楼层 |阅读模式
在网上下载了一个200M的字典文件

由于文件太大,使用困难

求高人写一个批处理代码,将TXT文件切割成5个小的TXT文件
发表于 2012-8-2 23:51:16 | 显示全部楼层

  1. @echo off & setlocal enableDelayedExpansion
  2. set a=
  3. set/p a=请将文件拖入:
  4. cls
  5. echo 正在计算文本行数,请稍等......
  6. for /f "delims=" %%i in (%a%) do set/a b+=1
  7. cls
  8. set c=
  9. set/p c=请输入要得到的文件个数:
  10. set/a d=%b%/%c%+3
  11. cls
  12. echo 正在分割,请稍等......
  13. set e=1
  14. set f=0
  15. for %%k in (%a%) do set wjm=%%~nk
  16. for /f "delims=" %%j in (%a%) do (
  17. echo %%j>>%wjm%!e!.txt
  18. set/a f+=1
  19. if !f! GEQ %d% set/a e+=1 & set f=0
  20. )
  21. cls
  22. echo 分割完成
  23. if not exist %wjm% md %wjm%
  24. move %wjm%*.txt %wjm%>nul 2>nul
  25. pause>nul
复制代码
发表于 2012-8-3 15:31:06 | 显示全部楼层
不知道我这样行不行,发一个软件给你
发表于 2012-8-3 22:45:02 | 显示全部楼层

  1. @Echo Off&SetLocal EnableDelayedExpansion
  2. Set "File=Netstat.bat"
  3. For /F "tokens=1 delims=:" %%A In ('Findstr /n "." %File%') Do Set "Value=%%A"
  4. Set /A "Value=%Value%/5"&Set "V=1"&Set "FileV=1"
  5. For /F "tokens=*" %%A In (%File% Do (
  6.         If !V! Leq 4 If !V! Equ %Value% Set "V=0"&Set "FileV+=1"
  7.         Echo %%A > File_!FileV!.txt
  8.         Set /A "V+=1"
  9. )
  10. Pause
复制代码
发表于 2012-8-3 23:35:06 | 显示全部楼层
split.exe
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-19 14:11 , Processed in 0.018509 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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