Altova Authentic 2024 Browser Edition

AuthenticRange.FirstXMLDataOffset

Inicio Anterior Inicio Siguiente

Propiedad: FirstXMLDataOffset as Long

 

Descripción

Establecer u obtener el desplazamiento de la posición del cursor dentro del elemento FirstXMLData para el principio 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 FirstXMLData / FirstXMLDataOffset selecciona una posición situada después del actual LastXMLData / LastXMLDataOffset, este último se mueve hasta la posición de inicio 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

 

© 2017-2023 Altova GmbH