vbscript遍历xml文件结点代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】 vbscript遍历xml文件结点

作者:Dezai.CN / 发布于2011/8/22/ 1349

<div>'/*=========================================================================
' * Intro 新旧配置文件对比，用旧配置 更新 新配置文件
' * FileName vbscript.xml.demo.vbs
' * Author yongfa365
' * Version v1.0
' * WEB <a href="http://www.yongfa365.com">http://www.yongfa365.com</a>
' * Email yongfa365[at]qq.com
' * FirstWrite <a href="http://www.yongfa365.com/Item/vbscript.xml.demo.vbs.html">http://www.yongfa365.com/Item/vbscript.xml.demo.vbs.html</a>
' * MadeTime 2010-06-07 10:14:10
' * LastModify 2010-06-07 10:14:10
' *==========================================================================*/</div>
<div>OldConfigFileName = "1.config" '原配置文件名
NewConfigFileName = "2.config" '新配置文件名</div>
<div>'用vbscript读原配置文件
Set Doc = CreateObject("Microsoft.XMLDOM")
Doc.load(OldConfigFileName)
Set root = Doc.documentElement</div>
<div>'用vbscript读新配置文件
Set Doc2 = CreateObject("Microsoft.XMLDOM")
Doc2.load(NewConfigFileName)
Set root2 = Doc2.documentElement</div>
<div>'开始遍历
GetLastNode root, "/" & root.nodeName</div>
<div>'保存更改后的配置文件
doc2.Save("temp.config")</div>
<div>'根据需要调整文件名
'ChangeName OldConfigFileName, OldConfigFileName & ".old"
'ChangeName NewConfigFileName, NewConfigFileName & ".old"
'ChangeName "temp.config", NewConfigFileName</div>
<div>'使用xpath的demo
'root2.SelectSingleNode("/configuration/AuthenticationErrorMsg/LoadError").text="21313"</div>
<div>'vbscript遍历XML直到最后非text结点为止
Sub GetLastNode(node, Path)
 For Each nowNode in node.childNodes
 If nowNode.nodeTypeString = "text" Then
 UpdateNodes(Path)
 Else
 GetLastNode nowNode, Path & "/" & nowNode.nodeName
 End If
 Next
End Sub</div>
<div>'更新所有结点，如同一级有多个相同名字的结点
Sub UpdateNodes(Path)
 On Error Resume Next
 For i=0 to root2.selectNodes(Path).length-1
 root2.selectNodes(Path)(i).text = root.selectNodes(Path)(i).text 
 Next
End Sub</div>
<div>'更新一个结点内容
Sub UpdateNode(Path)
 On Error Resume Next
 root2.SelectSingleNode(Path).text = root.SelectSingleNode(Path).text
End Sub</div>
<div>Sub ChangeName(oldfile, newfile)
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f = fso.GetFile(oldfile)
 f.Name = newfile
End Sub&nbsp;</div>

试试其它关键字

　遍历xml文件　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)