Aktivieren Sie bitte JavaScript, um diese Seite anzeigen zu können.

Altova XMLSpy 2020 Enterprise Edition

Siehe auch

 

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

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

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

© 2019 Altova GmbH