【已解决】bat怎样指定字符行分割成多个文本？

zllk

“文档”文件夹有以下文件：
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

77七

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
    

复制代码

zllk

回复 2# 77七


    谢谢

77七

回复 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

复制代码

hfxiang

回复 3# zllk

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

1. 
   
2. @echo off
   
3. ::保存为ANSI编码
   
4. cd /d "%~dp0"
   
5. 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. 
   
2. 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
   

复制代码

zllk

回复 4# 77七


    非常感谢，很好用

77七

回复 6# zllk


   已在4楼修改。