Altova XMLSpy 2024 Professional Edition

Methode: SetElementAttributeValue (strElementName als String, strAttributeName als String, strAttributeValue als String)

 

Beschreibung

Definiert den Wert des in strAttributeName definierten Attributs für das mit strElementName identifizierte Element. Wenn das Attribut unterstützt wird, aber  keinen Wert zugewiesen hat, wird der leere String zurückgegeben. Um die Namen der von einem Element unterstützten Attribute zu ermitteln, verwenden Sie GetElementAttributeNames oder HasElementAttribute.

 

Fehler

2001

Das Authentic-Bereichsobjekt oder das damit in Zusammenhang stehende Ansichtsobjekt ist nicht mehr gültig.

2005

Es wurde ein ungültiger Elementname angegeben.

Es wurde ein ungültiger Attributname definiert.

Es wurde ein ungültiger Attributwert definiert.

 

Beispiele

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

' Scripting environment - VBScript

' Get and set element attributes

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

DimobjRange

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

SetobjRange = Application.ActiveDocument.AuthenticView.Selection

 

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

DimarrElements

objRange.GetElementHierarchy arrElements

 

IfIsArray(arrElements) Then

 IfUBound(arrElements) >= 0 Then

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

         DimarrAttrs()

         objRange.GetElementAttributeNames arrElements(0), arrAttrs

 

         IfUBound(arrAttrs) >= 0 Then

                 ' we retrieve the current value of the first valid attribute

                 DimstrAttrVal

                 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

         EndIf

 EndIf

EndIf

© 2017-2023 Altova GmbH