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

[文本处理] 【已解决】bat怎样指定字符行分割成多个文本?

[复制链接]
发表于 2023-9-16 20:44:15 | 显示全部楼层 |阅读模式
本帖最后由 zllk 于 2023-9-17 11:37 编辑

“文档”文件夹有以下文件:
01.txt
02.txt

01.txt文本内容如下:
  1. ABCD
  2. A
  3. CD
  4. ABCD
  5. EF
  6. A
  7. 批处理
复制代码
执行批处理效果

例如01.文档01.txt文本内容如下:
  1. ABCD
复制代码
例如01.文档02.txt文本内容如下:
  1. C
  2. CD
  3. ABCD
  4. EF
复制代码
例如01文档03.txt文本内容如下:
  1. C
  2. 批处理
复制代码
“文档”文件夹有以下文件:
01.txt
01.文档01.txt
01.文档02.txt
01.文档03.txt
02.txt
02.文档01.txt
02.文档02.txt

评分

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

查看全部评分

发表于 2023-9-16 21:52:36 | 显示全部楼层
  1. @echo off
  2. set n=101
  3. for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
  4.         setlocal
  5.         for /f "useback delims=" %%a in ("%%i") do (
  6.                 if "%%a" equ "A" (
  7.                         if exist "%%~ni文档%n:~-2%.txt" (
  8.                                 set /a n+=1
  9.                         )
  10.                         set str=123456%%a
  11.                 ) else (
  12.                         set str=%%a
  13.                 )
  14.                 setlocal enabledelayedexpansion
  15.                 >>"%%~ni文档!n:~-2!.txt" echo !str!
  16.                 endlocal
  17.         )
  18.         endlocal
  19. )
  20. pause
复制代码

评分

参与人数 2技术 +2 收起 理由
hlzj88 + 1 思路好
zllk + 1 好用

查看全部评分

 楼主| 发表于 2023-9-17 03:02:41 | 显示全部楼层
本帖最后由 zllk 于 2023-9-17 11:40 编辑

回复 2# 77七


    谢谢
发表于 2023-9-17 06:00:42 | 显示全部楼层
本帖最后由 77七 于 2023-9-17 11:27 编辑

回复 3# zllk


  1. @echo off
  2. set n=101
  3. for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
  4.         setlocal
  5.         for /f "tokens=1* delims=[]" %%a in ('find /n /v "" ^<"%%i"') do (
  6.                 if "%%b" equ "A" (
  7.                         if exist "%%~ni.文档%n:~-2%.txt" (
  8.                                 set /a n+=1
  9.                         )
  10.                         set str=C
  11.                 ) else (
  12.                         set str=%%b
  13.                 )
  14.                 setlocal enabledelayedexpansion
  15.                 >>"%%~ni.文档!n:~-2!.txt" echo=!str!
  16.                 endlocal
  17.         )
  18.         endlocal
  19. )
  20. pause
复制代码
发表于 2023-9-17 09:54:07 | 显示全部楼层
回复 3# zllk

可用第 3 方工具 gawk ( http://bcn.bathome.net/tool/4.1.0/gawk.exe )来实现。
bat 脚本方式如下:

  1. @echo off
  2. ::保存为ANSI编码
  3. cd /d "%~dp0"
  4. for /f "usebackq delims=" %%a IN (`dir/b *.txt^|findstr /RE /V "\.文档.[0-9][0-9]*\.txt"`) DO @gawk "FNR==1{i=1;F=substr(FILENAME,1,length(FILENAME)-3);Fn=sprintf("%%s文档%%02d%%s",F,i,".txt")}/^A$/{$0="12345A";if(NR==1){i=1}else{i++};Fn=sprintf("%%s文档%%02d%%s",F,i,".txt")}{print $0>(Fn)}" %%a
复制代码
命令行方式如下:

  1. for /f "usebackq delims=" %a IN (`dir/b *.txt^|findstr /RE /V "\.文档.[0-9][0-9]*\.txt"`) DO @gawk "FNR==1{i=1;F=substr(FILENAME,1,length(FILENAME)-3);Fn=sprintf("%s文档%02d%s",F,i,".txt")}/^A$/{$0="12345A";if(NR==1){i=1}else{i++};Fn=sprintf("%s文档%02d%s",F,i,".txt")}{print $0>(Fn)}" %a
复制代码

评分

参与人数 1技术 +1 收起 理由
zllk + 1 乐于助人

查看全部评分

 楼主| 发表于 2023-9-17 10:52:14 | 显示全部楼层
本帖最后由 zllk 于 2023-9-17 11:40 编辑

回复 4# 77七


    非常感谢,很好用
发表于 2023-9-17 11:27:40 | 显示全部楼层
回复 6# zllk


   已在4楼修改。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-18 13:17 , Processed in 0.009495 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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