Board logo

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

作者: liziyunabcd    时间: 2023-3-4 05:33     标题: 【已解决】批处理按行分割文本,每个小文本字数不能超过200字。

一个大文本TXT,大约8000字,像诗歌一样,一行一行的。
现在我想按行来分割成很多小文本,每个小文本字数又不能超过200字符。
(我找了几天也没找出相关的代码和软件,我会点按键精灵,也现实不了这功能,只好来求助BAT大神们了)
作者: 77七    时间: 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编码格式保存
作者: liziyunabcd    时间: 2023-3-4 08:52

回复 2# 77七
作者: liziyunabcd    时间: 2023-3-4 08:53

回复 3# liziyunabcd


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

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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2