[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] [已解决] 批处理如何按指定格式将文本内容合并

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

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

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

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

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

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

我想这个要求用批处理达到不太容易,期待大哥大姐们帮忙解决,

  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
复制代码
2

评分人数

    • fulijung: 简单明了,就是win7下不能运行技术 + 1
    • 慕夜蓝化: 啊啊啊啊啊!!!技术 + 1
初学BAT,非专业。代码不适当之处还望前辈们多多指点。在此表示感谢!

TOP

  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改为你要测试的文件名,不要包含空格。
1

评分人数

    • fulijung: 代码思路严禁,值得下来好好推敲技术 + 1
踏实一些点.不要着急.你想要的时间都会给你.2

TOP

慕夜蓝化的代码太深奥了,我不需要加空行,只要处理成一行就可以了,谢谢

TOP

就是不知道二楼的代码为什么在win7下不能正常运行,而xp下就正常

TOP

回复 5# fulijung


    你在Win7里面用记事本打开那个1.txt看看是不是ANSI编码,还有就是bat脚本也需要保存为ANSI编码。

TOP

回复 6# DAIC

按你的方法解决了,谢谢

TOP

回复 7# fulijung


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

TOP

返回列表