Altova Authentic 2024 Browser Edition

Siehe auch

 

Eigenschaft: FirstXMLDataOffset als Long

 

Beschreibung

Setzt oder holt den Cursorpositions-Offset im FirstXMLData-Element für den Anfang des Bereichs. Die Offset-Positionen basieren auf den von der Text-Eigenschaft zurückgegebenen Zeichen und beginnen mit dem Wert 0. Verwenden Sie beim Setzen eines neuen Offset den Wert -1, um den Offset an die letzte mögliche Position im Element zu setzen. Seien Sie besonders in den folgenden Fällen vorsichtig:

 

Die Textform von Einträgen in Auswahllisten, Kontrollkästchen und ähnlichen Steuerelementen unterscheidet sich unter Umständen von dem, was auf dem Bildschirm angezeigt wird. Der Daten-Offset basiert zwar auf diesem Text, doch gibt es nur zwei gültige Offset-Positionen, eine am Anfang und eine am Ende des Eintrags. Wenn Sie versuchen, den Offset in die Mitte des Eintrags zu positionieren, wird der Offset an das Ende des Eintrags gesetzt.

 

Die Textform von XML Entities kann sich in ihrer Darstellung von der auf dem Bildschirm dargestellten Länge unterscheiden. Der Offset basiert auf der Textform der Entities.

 

Wenn FirstXMLData / FirstXMLDataOffset eine Position hinter dem aktuellen LastXMLData / LastXMLDataOffset auswählt, wird letzteres an die neue Anfangsposition verschoben.

 

Fehler


2001

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


2005

Es wurde ein ungültiger Offset-Wert angegeben.

Für den zurückgegebenen Parameter wurde eine ungültige Adresse angegeben.

 

Beispiele

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

'                VBScript

' Select the complete text of an XMLData element

' using XMLData based selection and ExpandTo

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

Dim objAuthenticView

Set objAuthenticView = objPlugin.AuthenticView

 

' first we use the XMLData based range properties

' to select all text of the first XMLData element

' in the current selection

Dim objRange

Set objRange = objAuthenticView.Selection

objRange.FirstXMLDataOffset = 0 ' start at beginning of element text

objRange.LastXMLData = objRange.FirstXMLData ' select only one element

objRange.LastXMLDataOffset = -1 ' select till its end

 

' the same can be achieved with the ExpandTo method

Dim objRange2

Set objRange2 = objAuthenticView.Selection.ExpandTo(spyAuthenticTag)

 

' were we successful?

If objRange.IsEqual(objRange2) Then

 objRange.Select()

Else

 MsgBox "Ooops"

End If

 

© 2018-2024 Altova GmbH