[已解决]如何删除xml文件指定段落？

freesoft00

文件的内容大致如上，xml文本中的一段（我不知道是不是这样的叫法）

文件是utf-8 无bom应该
删除指定的片段：
TCPIP Parameters
Current User
Network Connections

freesoft00

我想纯批处理也许不好处理，不知道是否有第三方软件可以完成。
utf-8文本不好处理也可以转换为ansi，处理完成后再转换回去。

pcl_test

回复 2# freesoft00
意思是删除有这样特征的内容段？
开头<NODE NAME="SUBSECTION"
……
结尾</NODE>

1. 
   
2. ::测试前先备份原文件
   
3. @echo off & setlocal enabledelayedexpansion
   
4. for /f "delims=" %%a in  ('dir /b *.xml') do (
   
5. set n=0
   
6. (for /f "delims=" %%b in  ('type "%%a"') do (
   
7. set "str=%%b"
   
8. set "str=!str: =!"
   
9. set "str=!str:锘?=!"
   
10. if "!str:~1,21!" == "NODENAME="SUBSECTION"" set n=1
    
11. if "!str:~1,5!" == "/NODE" set n=0
    
12. if "!str:~1,5!" neq "/NODE" if !n! ==0 echo,%%b
    
13. )
    
14. echo,  ^</NODE^>
    
15. )>$
    
16. move $ "%%a"
    
17. )
    
18. pause

复制代码

freesoft00

回复 3# pcl_test


    <NODE NAME="SUBSECTION" VALUE="hosts"完整的关键字应该是这个，还有这个 <NODE NAME="SUBSECTION" VALUE="User"
单纯的<NODE NAME="SUBSECTION"有好多是不需要删除的，所以这样不行。
也许还有其它的关键字，<NODE NAME="network" 比如这个

pcl_test

回复 4# freesoft00
那你要把特征说明白，不然怎么匹配？在顶楼把要删除的内容段的特征描述清楚并上传一份完整的xml文件

pcl_test

回复 4# freesoft00

1. 
   
2. /*&cls
   
3. @echo off
   
4. dir /b 151104.xml|cscript -nologo -e:jscript "%~f0"
   
5. pause&exit/b
   
6. */
   
7. 
   
8. function loadText(strFileIn,strCharset){
   
9.                 var stream = new ActiveXObject('ADODB.Stream');
   
10.                 stream.Type = 2;
    
11.                 stream.Mode = 3;
    
12.                 stream.Charset = strCharset;
    
13.                 stream.Open();
    
14.                 stream.LoadFromFile(strFileIn);
    
15.                 stream.Position = 0;
    
16.                 return stream.ReadText;
    
17. }
    
18. 
    
19. function saveText(strArg,strFileOut,strCharset){
    
20.                 var stream = new ActiveXObject('ADODB.Stream');
    
21.                 stream.Mode = 3;
    
22.                 stream.Type = 2;
    
23.                 stream.Charset = strCharset;
    
24.                 stream.Open();
    
25.                 stream.WriteText(strArg);
    
26.                 return stream.SaveToFile(strFileOut,2);
    
27. }
    
28. 
    
29. while(!WScript.StdIn.AtEndOfStream){
    
30.     var file = WScript.StdIn.ReadLine();
    
31.     var HtmlText = loadText(file,'utf-8');
    
32.     var HtmlText = HtmlText.replace(/<NODE\sNAME="SUBSECTION"[^>]+?TR="V=4622"\sEVAL="5">[\s\S]+?\n\s\s<\/NODE>/,'');
    
33.     var HtmlText = HtmlText.replace(/<NODE\sNAME="SUBSECTION"[^>]+?TR="V=4118"\sEVAL="5">[\s\S]+?\n\s\s<\/NODE>/,'');
    
34.     var HtmlText = HtmlText.replace(/<NODE\sNAME="SECTION"[^>]+?TREE_ICON="2"\sEVAL="1">[\s\S]+?\n\s<\/NODE>/,'');
    
35.     saveText(HtmlText,'./new_'+file,'utf-8');
    
36. }
    

复制代码

CrLf

缩进得这么好的应该没问题
3 楼居然还考虑了 utf-8……

依山居

万年神手党啊。
0几年号处理个文本还需要找人。

依山居

能否把原文件传一份放上来。

freesoft00

回复 9# 依山居


    好的，中午或者下午吧，有事需要外出一下。谢谢关注！

freesoft00

回复 9# 依山居
例子文件我传到了一楼

pcl_test

6楼已改
旧问题要求改来改去也是醉的，特么的文件那么大居然还不发网盘分享链接，那么请问你有按版规发帖否？

DAIC

回复 11# freesoft00


    大文件建议上传到网盘，方便下载。

freesoft00

不好意思，没有仔细的看版规大附件上传的规定。不是有意如此。