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

[文本处理] 批处理怎么根据换行符来对文本进行分割?

[复制链接]
发表于 2019-11-14 22:16:14 | 显示全部楼层 |阅读模式
我有一个文本,内容格式如下:
1.AAAAAAAAAAAA
BBBBBBBBBBBBB
CCCCCCCCCCCCCC

2.DDDDDDDDDDDD
EEEEEEEEEEEEEE
FFFFFFFFFFFFFFF

3.GGGGGGGGGGGGG
HHHHHHHHHHHHHH
IIIIIIIIIIIIIIIIIIIIII

请问怎么根据换行符把这个文本分割生成新的文本
生成的新文本1内容就是:
1.AAAAAAAAAAAA
BBBBBBBBBBBBB
CCCCCCCCCCCCCC

文本2内容为:
2.DDDDDDDDDDDD
EEEEEEEEEEEEEE
FFFFFFFFFFFFFFF
发表于 2019-11-14 23:09:12 | 显示全部楼层
  1. @echo off
  2. set info=互助互利,支付宝扫码头像,感谢打赏
  3. rem 有问题,可加QQ956535081及时沟通
  4. title %info%
  5. cd /d "%~d0"
  6. set "txtfile=你的文本.txt"
  7. set "folder=result"
  8. if not exist "%folder%" md "%folder%"
  9. powershell -NoProfile -ExecutionPolicy bypass ^
  10.     $enc=[Text.Encoding]::Default;^
  11.     $text=[IO.File]::ReadAllText('%txtfile%',$enc).trim() -split '(?:\r?\n){2,}';^
  12.     for($i=0;$i -lt $text.count;$i++){^
  13.         $newfile=($i+1).toString()+'.txt';^
  14.         write-host $newfile;^
  15.         [IO.File]::WriteAllText('%folder%\'+$newfile, $text[$i], $enc);^
  16.     }
  17. echo;%info%
  18. pause
复制代码
发表于 2019-11-14 23:09:48 | 显示全部楼层
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set "n=1"
  4. for /f "tokens=1* delims=:" %%i in ('type "原文件.txt" ^| findstr /n ".*"') do (
  5.     if "%%j" equ "" (
  6.         set /a n+=1
  7.     ) else (
  8.         >>"!n!.txt" echo,%%j
  9.     )
  10. )
复制代码
发表于 2019-11-15 00:16:37 | 显示全部楼层
回复 3# Batcher

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

本版积分规则

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

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

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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