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

'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

上一篇:《源代碼》營造出了 壹個科幻世界嗎 ？

下一篇:大家常說的VR、全息、3D展廳分別是什麽?