Question

VB6修改XML文件指定位置的文本的代码？

<?xml version="1.0"?>
<features xmlns="x-schema:pmillmt.xml">
<featureset unit="metric">
<workplane>
<point X="0" Y="0" Z="0"/>
<u_vector I="1" J="0" K="0"/>
<v_vector I="0" J="1" K="0"/>
<w_vector I="0" J="0" K="1"/>
</workplane>
<compound_hole component="1" hole_definition="hole1" name="1">
<point X="-1.667" Y="83.75" Z="0"/>
<axis I="-0" J="-0" K="-1"/>
</compound_hole>
<compound_hole component="1" hole_definition="hole2" name="2">
<point X="-46.246" Y="-38.172" Z="0"/>
<axis I="-0" J="-0" K="-1"/>
</compound_hole>
<compound_hole component="1" hole_definition="hole1" name="3">
<point X="-144.88" Y="-36.083" Z="0"/>
<axis I="-0" J="-0" K="-1"/>
</compound_hole>
<compound_hole component="1" hole_definition="hole1" name="4">
<point X="140" Y="-36.083" Z="0"/>
<axis I="-0" J="-0" K="-1"/>
</compound_hole>
<compound_hole component="1" hole_definition="hole2" name="5">
<point X="-46.246" Y="7.162" Z="0"/>
<axis I="-0" J="-0" K="-1"/>
</compound_hole>
<compound_hole component="1" hole_definition="hole3" name="6">
<point X="-92.222" Y="-38.172" Z="0"/>
<axis I="-0" J="-0" K="-1"/>
</compound_hole>
<compound_hole component="1" hole_definition="hole1" name="7">
<point X="-144.88" Y="-65.454" Z="0"/>
<axis I="-0" J="-0" K="-1"/>
</compound_hole>
<compound_hole component="1" hole_definition="hole1" name="8">
<point X="140" Y="-70" Z="0"/>
<axis I="-0" J="-0" K="-1"/>
</compound_hole>
</featureset>
<hole_defs>
<hole_def id="hole1" description="description" hole_type="type">
<hole>
<geometry diameter="20" taper="0" depth="40"/>
</hole>
</hole_def>
<hole_def id="hole2" description="description" hole_type="type">
<hole>
<geometry diameter="21.573" taper="0" depth="20"/>
</hole>
</hole_def>
<hole_def id="hole3" description="description" hole_type="type">
<hole>
<geometry diameter="20" taper="0" depth="20"/>
</hole>
</hole_def>
</hole_defs>
</features>
想修改<geometry diameter="21.573" taper="0" depth="20"/>这里的深度20修改为我计算的数值？VB6代码怎么写？

这是我的源代码，但是怎么替换20我不会了，请求帮助！谢谢！

Answer 1

'xml文本中有 ：xmlns="x-schema:pmillmt.xml" 串时对象没法读取
Private Sub Command1_Click()
    Dim xmldoc As New MSXML2.DOMDocument
    xmldoc.async = False
    If xmldoc.Load(App.Path & "\test.xml") Then
        Dim list  As IXMLDOMNodeList
        Set list = xmldoc.selectNodes("//features/hole_defs/hole_def/hole/geometry")
        Dim node As IXMLDOMNode
        Dim anode As IXMLDOMNode
        For Each node In list
          Set anode = node.Attributes.getNamedItem("depth") '获取属性结点
          anode.nodeValue = Val(anode.nodeValue) * 3 '对属性值赋值即可
        Next
    End If
    xmldoc.save App.Path & "\test.xml"
End Sub