Aktivieren Sie bitte JavaScript, um diese Seite anzeigen zu können.

Altova Authentic 2020 Desktop

Siehe auch

 

Eigenschaft: LastXMLDataOffset als Long

 

Beschreibung

Setzt oder ruft den Versatz der Cursorposition innerhalb des Elements LastXMLData für das Ende des Bereichs ab.

 

Die Versatzpositionen basieren auf den von der Eigenschaft Text zurückgegebenen Zeichen und beginnen mit 0. Verwenden Sie beim Definieren eines neuen Versatzes -1, um den Versatz an die letzte mögliche Position im Element zu setzen. Beachten Sie bitte besondes die folgenden Fälle:

 

Die Textform von Einträgen in Auswahllisten, Kontrollkästchen und ähnlichen Steuerelementen kann anders aussehen, als angezeigt. Zwar basiert der Datenversatz auf diesem Text, doch gibt es nur zwei gültige Positionen für den Versatz, eine am Anfang und eine am Ende des Eintrags. Wenn Sie versuchen, den Versatz irgendwo mitten im Eintrag zu positionieren, hat dies zur Folge, dass der Versatz an das Ende des Eintrags gesetzt wird.

 

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

 

Wenn LastXMLData / LastXMLDataOffset eine Position vor dem aktuellen FirstXMLData / FirstXMLDataOffset wählt, wird zweiteres an die neue Endposition verschoben.

 

Fehler


2001

Das Authentic-Bereichsobjekt oder das damit in Zusammenhang stehende Ansichtsobjekt ist nicht gültig.


2005

Es wurde ein ungültiger Versatz definiert.

Für den Rückgabeparameter wurde eine ungültige Adresse angegeben.

 

Beispiele

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

' Scripting environment - VBScript

' Select the complete text of an XMLData element

' using XMLData based selection and ExpandTo

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

Dim objAuthenticView

' we assume that the active document is open in authentic view mode

Set objAuthenticView = Application.ActiveDocument.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

© 2019 Altova GmbH