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

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

[复制链接]
发表于 2023-3-4 05:33:23 | 显示全部楼层 |阅读模式
一个大文本TXT,大约8000字,像诗歌一样,一行一行的。
现在我想按行来分割成很多小文本,每个小文本字数又不能超过200字符。
(我找了几天也没找出相关的代码和软件,我会点按键精灵,也现实不了这功能,只好来求助BAT大神们了)

评分

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

查看全部评分

发表于 2023-3-4 08:23:05 | 显示全部楼层
  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技术 +2 收起 理由
liziyunabcd + 2 感谢感谢太感谢了

查看全部评分

 楼主| 发表于 2023-3-4 08:52:45 | 显示全部楼层
回复 2# 77七
 楼主| 发表于 2023-3-4 08:53:37 | 显示全部楼层
回复 3# liziyunabcd


     我擦!!!就好了?!!!!牛逼啊!!!

我整了两天都没搞定,我去,太牛了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-19 02:28 , Processed in 0.020988 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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