设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 批处理提取多个xml中指定标签之间的行内容合并输出到同 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 30387|回复: 4

[文本处理] 批处理提取多个xml中指定标签之间的行内容合并输出到同一个新的xml指定标签里

[复制链接]
seeya
发表于 2016-11-9 10:53:07 | 显示全部楼层 |阅读模式
因为是多个xml(有时可能1000多个以上)，所以自己用for循环尝试弄了下，奈何能力不够，七拼八凑的没有用，所以这里求大神帮忙！！！
情况如下（已略去示例xml中不必要的内容），原xml已上传附件:
  1. <详情>
  2. <ie>
  3. <BB1>Help1</BB1>
  4. <CC1>Help2</CC1>
  5. <DD1>Help3</DD1>
  6. <EE1>Help4</EE1>
  7. </ie>
  8. </详情>
复制代码
  1. <详情>
  2. <ie>
  3. <BB1>Help5</BB1>
  4. <CC1>Help6</CC1>
  5. <DD1>Help7</DD1>
  6. <EE1>Help8</EE1>
  7. </ie>
  8. </详情>
复制代码
  1. <详情>
  2. <ie>
  3. <BB1>Help9</BB1>
  4. <CC1>Help10</CC1>
  5. <DD1>Help11</DD1>
  6. <EE1>Help12</EE1>
  7. </ie>
  8. </详情>
复制代码
将这个3个示例xml文本批处理为这样的形式
  1. <详情>
  2. <ie>
  3. <BB1>Help1</BB1>
  4. <CC1>Help2</CC1>
  5. <DD1>Help3</DD1>
  6. <EE1>Help4</EE1>
  7. </ie>
  8. <ie>
  9. <BB1>Help5</BB1>
  10. <CC1>Help6</CC1>
  11. <DD1>Help7</DD1>
  12. <EE1>Help8</EE1>
  13. </ie>
  14. <ie>
  15. <BB1>Help9</BB1>
  16. <CC1>Help10</CC1>
  17. <DD1>Help11</DD1>
  18. <EE1>Help12</EE1>
  19. </ie>
  20. </详情>
复制代码
也就是把所有xml中<详情>记号内的内容批量复制到新的xml<详情>记号中。
xml的格式都是一致的，不过记号内的url，创建时间，会有不同。
回复

举报

523066680
发表于 2016-11-9 14:55:10 | 显示全部楼层
本帖最后由 523066680 于 2016-11-9 15:16 编辑

Perl，作为对比，生成的文件名用Ai_all_test.xml，和楼主给出的Ai_all.xml做了diff，没有查出异同。

可能组合使用一些shell命令可以用很短的代码完成这个任务
  1. use v5.16;

  3. our $s="";

  5. grep
  6. {
  7.     $s .= abstract( "Ai_${_}.xml" );
  8. }
  9. (1..3);    # 编号，请自行修改

  11. MAKE_XML:
  12. {
  13.     my $all;

  15.     load( "Ai_1.xml" , \$all);       # 以 Ai_1.xml 为模板
  16.     $all =~s/<ie>.+<\/ie>/$s/sg;

  18.     open my $WRT, ">:raw", "Ai_all_test.xml";
  19.     print $WRT $all;
  20.     close $WRT;
  21. }

  23. sub abstract
  24. {
  25.     my $all;
  26.     load(shift, \$all);
  27.     $all =~/<ie>.+<\/ie>/s;
  28.     return $&;
  29. }

  31. sub load
  32. {
  33.     my ($f, $ref) = (shift, shift);
  34.     open my $READ, "<:raw", $f or die "$!";
  35.     {
  36.         local $/ = undef;
  37.         $$ref    = <$READ>;
  38.     }
  39.     close $READ;
  40. }
复制代码

评分

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

查看全部评分

回复

举报

pcl_test
发表于 2016-11-9 15:54:16 | 显示全部楼层
本帖最后由 pcl_test 于 2016-11-9 16:05 编辑
  1. @echo off
  2. rem win7及以上系统运行，已排除Ai_all.xml
  3. powershell -c "$a='';$b=dir *.xml -exclude *_all.xml;0..($b.length-2)|%%{if([IO.File]::ReadAllText($b[$_], [Text.Encoding]::utf8) -match '(?<=<详情>)[\s\S]+(?=<\/详情>)'){$a+=$matches[0]}};[IO.File]::ReadAllText($b[-1], [Text.Encoding]::utf8) -replace '(?<=<详情>)',$a|out-file '$result_all.xml' -encoding utf8"
  4. pause
复制代码

评分

参与人数 2PB +6 技术 +2 收起 理由
seeya + 1 感谢给帖子标题标注[已解决]字样
523066680 + 6 + 1 holy high

查看全部评分

回复

举报

seeya
 楼主| 发表于 2016-11-9 17:07:24 | 显示全部楼层
回复 3# pcl_test
谢谢版主大大！大概能懂代码意思，到时候xml记号改了也能很方便修改
回复

举报

seeya
 楼主| 发表于 2016-11-9 18:05:01 | 显示全部楼层
回复 2# 523066680

非常感谢！
开始以为是和.bat 一样的直接运行就行了，但发现是窗口一闪而过。后来仔细看了版主开始就说了是Perl。开始不知道是什么，百度了后才知道要安装Activeperl，才能用。
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-18 10:38 , Processed in 0.011596 second(s), 11 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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