¿Usar código VB6 para modificar el texto en una ubicación específica en un archivo XML?
'¿Hay una cadena en el texto xml: xmlns="x-schema:pmillmt.xml"? El objeto no se puede leer
Private?Sub?Command1_Click()
Dim?xmldoc?As?New?MSXML2.DOMDocument
xmldoc.async?=? Falso
If?xmldoc.Load(App.Path?&?" \test.xml")?Load(App.Path?&?"(test.xml)")
Entonces
Dim?list?As?IXMLDOMNodeList
Set?list?=?xmldoc.selectNodes("//features/hole_defs/hole_def/hole/geometry")
¿Atenuar?nodo?As?IXMLDOMNode
Atenuar?anodo?As?IXMLDOMNode
Para?Cada?nodo?En?lista Establecer?anodo?=?nodo.Atributos .getNamedItem("profundidad")?Obtener el atributo nodo anode.nodeValue = Val(anode.nodeValue)?*3?'Asignar un valor al atributo value
Siguiente
Fin ?Si
xmldoc.save?App.Path?&?"\test.xml"
¿Fin?