AuthenticRange.SetElementAttributeValue

www.altova.com Imprimir este apartado Página anterior Subir un nivel Página siguiente

Inicio >  Referencia > Objetos > AuthenticRange >

AuthenticRange.SetElementAttributeValue

Método: SetElementAttributeValue (strElementName as String, strAttributeName as String, strAttributeValue as String)

 

Descripción

Recuperar el valor del atributo especificado en strAttributeName para el elemento identificado por strElementName. Si el atributo es compatible pero no tiene asignado ningún valor, se devuelve una cadena vacía. Para averiguar el nombre de los atributos compatibles con un elemento utilice GetElementAttributeNames o HasElementAttribute.

 

Errores


2001

El objeto de intervalo o su objeto relacionado ya no es válido.


2005

El nombre de elemento indicado no es válido.

El nombre de atributo indicado no es válido.

Se indicó un valor de atributo no válido.

 

Ejemplos

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

'            VBScript

' Obtener y establecer atributos del elemento

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

Dim objRange

Set objRange = objPlugin.AuthenticView.Selection

 

' primero averiguamos todos los elementos situados al principio del intervalo

Dim arrElements

objRange.GetElementHierarchy arrElements

 

If IsArray(arrElements) Then

 If UBound(arrElements) >= 0 Then

         ' usamos el elemento de nivel superior y averiguamos sus atributos válidos

         Dim arrAttrs()

         objRange.GetElementAttributeNames arrElements(0), arrAttrs

 

         If UBound(arrAttrs) >= 0 Then

                 ' recuperamos el valor actual del primer atributo válido

                 Dim strAttrVal

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

                 msgbox "el valor actual de " & arrElements(0) & "//" & arrAttrs(0) & " es: " & strAttrVal

 

                 ' cambiamos este valo y lo volvemos a leer

                 strAttrVal = "Hello"

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

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

                 msgbox "el nuevo valor de " & arrElements(0) & "//" & arrAttrs(0) & " es: " & strAttrVal

         End If

 End If

End If

 


© 2019 Altova GmbH