Change a namespace attribute value in XML schema

[RickBeddoe]

Hello folks. I've also posted this in the XML forum.

Having a tough time trying to figure this one out.

I have a schema (xsd) file with namespaces declared in the root element as shown:


<xsd:schema xmlns:xsd="

http://www.w3.org/2001/XMLSchema"

xmlns:ci-com="

http://xbrl.us/stm/ci/com/2008-03-31">

I would like to change the definition of this attribute from this:

xmlns:ci-com="

http://xbrl.us/stm/ci/com/2008-03-31"

to this:

xmlns:ci-com="

http://xbrl.us/stm/ci/com/2009-01-31"

I am doing this in VBA (with DOM interface) and everything I've tried kicks up an error that the attribute is read only. Here is the code:

newNode.nodeValue = newAttValue

where newNode is the root node (<xsd:schema...>) and newAttValue is a string representing the new vallue.


Any help would be appreciated.

 

[RickBeddoe]

In case anyone comes across this thread in the future, here's the solution:

Basically, use the 'setNamedItem' method of the Attributes property.


Function replaceAttributeValue(ByRef doc As DOMDocument60, xmlNode As IXMLDOMNode, oldAttValue As String, newAttValue As String) As IXMLDOMElement

Dim nodeLst As IXMLDOMNodeList
Dim nodeElem As IXMLDOMElement
Dim elmAttrs As IXMLDOMNamedNodeMap
Dim elmAttr As IXMLDOMAttribute
Dim newAttr As IXMLDOMAttribute
Dim replAttrValue As String
Dim ns As String, nsNodeName As String

' Get all the attributes in the node
Set elmAttrs = xmlNode.Attributes

'iterate through the attributes
For Each elmAttr In elmAttrs

If InStr(elmAttr.Value, oldAttValue) > 0 Then
'to use setNamedItem, you need a new node
'you need a namespace to make the new node
ns = elmAttr.namespaceURI

nsNodeName = elmAttr.nodeName
Set newNode = doc.createNode(NODE_ATTRIBUTE, nsNodeName, ns)
newNode.nodeValue = Replace(elmAttr.nodeValue, oldAttValue, newAttValue)
xmlNode.Attributes.setNamedItem newNode

End If
Next
Set replaceAttributeValue = xmlNode

'iterate through any childnodes
If xmlNode.hasChildNodes Then
Set nodeLst = xmlNode.selectNodes("*")
For Each nodeElem In nodeLst
Set nodeElem = replaceAttributeValue(doc, nodeElem, oldAttValue, newAttValue)
Next
End If


End Function