我被困在解析下面的XML。
<?xml version="1.0" encoding="UTF-8"?>
<Provisioning xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<Request>
<Header>
<Command>Create</Command>
<EntityIdentifiers>
<Identifier Type="CosName" Value="Super_Super"/>
</EntityIdentifiers>
<EntityName>COS</EntityName>
</Header>
<Data>
<COS>
<ServiceLevels>
<ServiceLevel>
<ServiceName>MMS</ServiceName>
<ServiceLevelName>Super user</ServiceLevelName>
</ServiceLevel>
<ServiceLevel>
<ServiceName>General</ServiceName>
<ServiceLevelName>Super user</ServiceLevelName>
</ServiceLevel>
<ServiceLevel>
<ServiceName>MMBOX</ServiceName>
<ServiceLevelName>Super user</ServiceLevelName>
</ServiceLevel>
</ServiceLevels>
<CosName>Super_Super</CosName>
</COS>
</Data>
</Request>
</Provisioning>
我需要将“标识符”标签“类型”和“值”替换为其他各自的值。并更改“ ServiceLevel”下节点的所有值。
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "false"
xmlDoc.Load("C:\1.xml")
Set nodeXML = xmlDoc.getElementsByTagName("Identifier")
Set node = nodeXML.item(0)
MsgBox node.Text
Microsoft.XMLDOM已过时，不应再使用。使用Msxml2.DOMDocument代替。
Set xml = CreateObject("Msxml2.DOMDocument")
选择带有XPath表达式的单个节点，如下所示：
Set node = xml.SelectSingleNode("//node_name")
以及几个具有相同名称的节点，如下所示：
Set nodes = xml.SelectNodes("//node_name")
节点（<node attribute="value">）的属性可以这样更改：
node.SetAttribute("attribute_name") = "new value"
和节点文本（<node>text</node>），如下所示：
node.Text = "new text"
请注意，XML节点和属性的名称区分大小写。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句