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

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

[复制链接]
发表于 2015-1-19 07:19:24 | 显示全部楼层 |阅读模式
本帖最后由 pcl_test 于 2016-7-24 19:33 编辑

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

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

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

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

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

我想这个要求用批处理达到不太容易,期待大哥大姐们帮忙解决,
发表于 2015-1-19 09:49:21 | 显示全部楼层

  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技术 +2 收起 理由
fulijung + 1 简单明了,就是win7下不能运行
慕夜蓝化 + 1 啊啊啊啊啊!!!

查看全部评分

发表于 2015-1-19 10:41:58 | 显示全部楼层

  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技术 +1 收起 理由
fulijung + 1 代码思路严禁,值得下来好好推敲

查看全部评分

 楼主| 发表于 2015-1-19 20:24:51 | 显示全部楼层
慕夜蓝化的代码太深奥了,我不需要加空行,只要处理成一行就可以了,谢谢
 楼主| 发表于 2015-1-19 20:26:12 | 显示全部楼层
就是不知道二楼的代码为什么在win7下不能正常运行,而xp下就正常
发表于 2015-1-19 21:59:20 | 显示全部楼层
回复 5# fulijung


    你在Win7里面用记事本打开那个1.txt看看是不是ANSI编码,还有就是bat脚本也需要保存为ANSI编码。
 楼主| 发表于 2015-1-20 22:01:17 | 显示全部楼层
回复 6# DAIC

按你的方法解决了,谢谢
发表于 2015-1-21 09:00:43 | 显示全部楼层
回复 7# fulijung


    问题解决后,请编辑顶楼帖子在标题前面注明[已解决],并给回答者加分。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-21 11:02 , Processed in 0.034082 second(s), 18 queries .

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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