AuthenticRange.LastXMLDataOffset

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

Inicio >  Referencia > Objetos > AuthenticRange >

AuthenticRange.LastXMLDataOffset

Propiedad: LastXMLDataOffset as Long

 

Descripción

Establecer u obtener la posición del cursor dentro del elemento LastXMLData para el final del intervalo.

 

Las posiciones de desplazamiento se basan en los caracteres que devuelve la propiedad Text y empiezan en la posición 0. Cuando establezca un desplazamiento nuevo, utilice -1 para establecer el desplazamiento en la última posición posible del documento. En estos casos es recomendable prestar particular atención:

 

La forma textual de las entradas en cuadros combinados, casillas de verificación y controles similares pueden diferir de lo que aparece en pantalla. Aunque el desplazamiento de los datos se basa en este texto, solamente hay dos posiciones de desplazamiento válidas: una al principio y otra al final de la entrada. Si intenta establecer el desplazamiento en cualquier otra posición en el medio de la entrada, el desplazamiento se establece al final.

 

La forma textual de las entidades XML pueden diferir en longitud de su representación en pantalla. El desplazamiento está basado en esta forma textual.

 

Si LastXMLData / LastXMLDataOffset selecciona una posición situada antes del actual FirstXMLData / FirstXMLDataOffset, este último se mueve hasta la posición final nueva.

 

 

Errores


2001

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


2005

El desplazamiento indicado no es válido.

La dirección indicada para el parámetro de devolución no es válida.

 

Ejemplos

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

'                  VBScript

' Seleccionar todo el texto de un elemento XMLData

' usando selección basada en XMLData y ExpandTo

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

Dim objAuthenticView

Set objAuthenticView = objPlugin.AuthenticView

 

' primero usamos las propiedades de intervalo basadas en XMLData

' para seleccionar todo el texto del primer elemento XMLData

' de la selección actual

Dim objRange

Set objRange = objAuthenticView.Selection

objRange.FirstXMLDataOffset = 0 ' empezar al principio del elemento text

objRange.LastXMLData = objRange.FirstXMLData ' seleccionar un elemento solamente

objRange.LastXMLDataOffset = -1 ' seleccionar hasta el final

 

' esto mismo se puede hacer con el método ExpandTo

Dim objRange2

Set objRange2 = objAuthenticView.Selection.ExpandTo(spyAuthenticTag)

 

' ¿lo hemos conseguido?

If objRange.IsEqual(objRange2) Then

 objRange.Select()

Else

 MsgBox "Ooops"

End If

 


© 2019 Altova GmbH