AuthenticRange.SetElementAttributeValue

www.altova.com Dieses Kapitel drucken Vorherige Seite Eine Ebene nach oben Nächste Seite

Startseite >  Benutzerreferenz > Objekte > AuthenticRange >

AuthenticRange.SetElementAttributeValue

Siehe auch

 

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

 

Beschreibung

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

 

Fehler


2001

Das Authentic Range-Objekt oder das dazugehörige View-Objekt ist nicht mehr gültig.


2005

Es wurde ein ungültiger Elementname angegeben.

Es wurde ein ungültiger Attributname angegeben.

Es wurde ein ungültiger Attributwert angegeben.

 

Beispiele

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

'            VBScript

' Get and set element attributes

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

Dim objRange

Set objRange = objPlugin.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