Board logo

标题: [文本处理] [已解决] 批处理如何按指定格式将文本内容合并 [打印本页]

作者: fulijung    时间: 2015-1-19 07:19     标题: [已解决] 批处理如何按指定格式将文本内容合并

本帖最后由 pcl_test 于 2016-7-24 19:33 编辑

现在有一个txt.1的文本内容如下

姓名  李晓霞(文科)  
科目成绩   历史   81分
科目成绩   语文   75分
科目成绩   英语   90分

姓名  王春茗(理科)  
科目成绩   数学   90分
科目成绩   化学   65分
科目成绩   物理   88分
.....
要求文字处理后变成如下内容(即把姓名一行不单独分开,分别加到自己的科目成绩前面)

姓名  李晓霞(文科) 科目成绩   历史   81分
姓名  李晓霞(文科) 科目成绩   语文   75分
姓名  李晓霞(文科) 科目成绩   英语   90分

姓名  王春茗(理科) 科目成绩   数学   90分
姓名  王春茗(理科) 科目成绩   化学   65分
姓名  王春茗(理科) 科目成绩   物理   88分
.....

我想这个要求用批处理达到不太容易,期待大哥大姐们帮忙解决,
作者: xxpinqz    时间: 2015-1-19 09:49

  1. @echo off&setlocal enabledelayedexpansion
  2. (for /f "delims=" %%a in (1.txt) do (
  3.     set "tmp=%%a"
  4.     if "!tmp:姓名=!"=="%%a" (echo,!str! %%a) else set "str=%%a"&echo,
  5. ))>2.txt
复制代码

作者: 慕夜蓝化    时间: 2015-1-19 10:41

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /l %%i in (1 1 4) do echo,Delay lines 延时行数 >>1.txt
  4. set "a=1"
  5. for /f "delims=" %%i in (1.txt) do (
  6.     set/a n+=1
  7.     if !n! equ !a! (
  8.         set/a a+=4
  9.         call :a !str!
  10.         set "sri=%%~i"
  11.         set "str="
  12.     ) else (
  13.         set str=!str! %%i
  14.     )
  15. )
  16. rem 每三行添加一行空格
  17. set d=3
  18. (for /f "delims=" %%i in (result.txt) do (
  19.     set/a f+=1
  20.     if !f! equ !d! (
  21.         set/a d+=3&echo,%%i&echo,
  22.     ) else (
  23.         echo,%%i
  24. ))) >%temp%\$β
  25. move %temp%\$β result.txt
  26. pause&exit
  27. :a
  28. set/a c+=1
  29. if !c! neq 1 (
  30.     call :b "!sri!" "%1 %2 %3" "%1 %5 %6" "%1 %8 %9"
  31.     goto :eof
  32. ) else (
  33.     goto :eof
  34. )
  35. :b
  36. if not "%~2"=="" (
  37.     shift /2
  38.     call :c "%~1" "%~2"
  39.     goto :b
  40. ) else (
  41.     goto :eof
  42. )
  43. :c
  44. echo,%~1 %~2 >>result.txt
  45. goto :eof
复制代码
我这里测试可以,你试下,将代码中的所有1.txt改为你要测试的文件名,不要包含空格。
作者: fulijung    时间: 2015-1-19 20:24

慕夜蓝化的代码太深奥了,我不需要加空行,只要处理成一行就可以了,谢谢
作者: fulijung    时间: 2015-1-19 20:26

就是不知道二楼的代码为什么在win7下不能正常运行,而xp下就正常
作者: DAIC    时间: 2015-1-19 21:59

回复 5# fulijung


    你在Win7里面用记事本打开那个1.txt看看是不是ANSI编码,还有就是bat脚本也需要保存为ANSI编码。
作者: fulijung    时间: 2015-1-20 22:01

回复 6# DAIC

按你的方法解决了,谢谢
作者: DAIC    时间: 2015-1-21 09:00

回复 7# fulijung


    问题解决后,请编辑顶楼帖子在标题前面注明[已解决],并给回答者加分。




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