Altova XMLSpy 2024 Enterprise Edition

Method: SetElementAttributeValue (strElementName as String, strAttributeName as String, strAttributeValue as String)

Description

Set the value of the attribute specified in strAttributeName for the element identified with strElementName. If the attribute is supported but has no value assigned, the empty string is returned. To find out the names of attributes supported by an element, use GetElementAttributeNames, or HasElementAttribute.

Errors

Examples

' --------------------------------------------

' Scripting environment - VBScript

' Get and set element attributes

' --------------------------------------------

Dim objRange

' we assume that the active document is open in authentic view mode

Set objRange = Application.ActiveDocument.AuthenticView.Selection

' first we find out all the elements below the beginning of the range

Dim arrElements

objRange.GetElementHierarchy arrElements

If IsArray(arrElements) Then

 If UBound(arrElements) >= 0 Then

         ' we use the top level element and find out its valid attributes

         Dim arrAttrs()

         objRange.GetElementAttributeNames arrElements(0), arrAttrs

         If UBound(arrAttrs) >= 0 Then

                 ' we retrieve the current value of the first valid attribute

                 Dim strAttrVal

                 strAttrVal = objRange.GetElementAttributeValue (arrElements(0), arrAttrs(0))

                 msgbox "current value of " & arrElements(0) & "//" & arrAttrs(0) & " is: " & strAttrVal

                 ' we change this value and read it again

                 strAttrVal = "Hello"

                 objRange.SetElementAttributeValue arrElements(0), arrAttrs(0), strAttrVal

                 strAttrVal = objRange.GetElementAttributeValue (arrElements(0), arrAttrs(0))

                 msgbox "new value of " & arrElements(0) & "//" & arrAttrs(0) & " is: " & strAttrVal

         End If

 End If

End If