[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
liziyunabcd

Rank: 1

帖子
51 
积分
84 
技术
0  
捐助
0  
注册时间
2019-8-23 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2023-3-4 05:33 | 只看该作者

[文本处理] 【已解决】批处理按行分割文本，每个小文本字数不能超过200字。

一个大文本TXT，大约8000字，像诗歌一样，一行一行的。
现在我想按行来分割成很多小文本，每个小文本字数又不能超过200字符。
（我找了几天也没找出相关的代码和软件，我会点按键精灵，也现实不了这功能，只好来求助BAT大神们了）
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

77七

Rank: 6Rank: 6

帖子
1640 
积分
2689 
技术
329  
捐助
50  
注册时间
2022-9-18 
2楼
发表于 2023-3-4 08:23 | 只看该作者 
  1. @echo off

  2. rem 假设每行均不超过100个字符

  3. set /a m=1001,n=0,max=每行最多字符数=100

  4. setlocal enabledelayedexpansion

  5. for /f "delims=" %%a in ('type "大文本.txt"') do (

  6. 	set "str=%%a"

  7. 	set /a h=0

  8. 	for /l %%l in (0,1,%max%) do (

  9. 		if not "!str:~%%l,1!" equ "" (

  10. 			set /a n+=1,h+=1

  11. 		)

  12. 	)

  13. 	if !n! geq 200 (

  14. 		set /a m+=1,n=h

  15. 	)

  16. 	>>小文本!m:~-3!.txt echo %%a

  17. )

  18. endlocal

  19. pause
复制代码

将文本和批处理均以ansi编码格式保存
1

评分人数

bat小白，请多指教！谢谢！

TOP

liziyunabcd

Rank: 1

帖子
51 
积分
84 
技术
0  
捐助
0  
注册时间
2019-8-23 
3楼
发表于 2023-3-4 08:52 | 只看该作者
回复 2# 77七

TOP

liziyunabcd

Rank: 1

帖子
51 
积分
84 
技术
0  
捐助
0  
注册时间
2019-8-23 
4楼
发表于 2023-3-4 08:53 | 只看该作者
回复 3# liziyunabcd


     我擦！！！就好了？！！！！牛逼啊！！！

我整了两天都没搞定，我去，太牛了

TOP

返回列表