Altova XMLSpy 2024 Enterprise Edition

Eigenschaft: LastTextPosition als Long

 

Beschreibung

Setzt oder ruft den am weitesten rechts gelegenen Positionsindex des Bereichsobjekts ab. Dieser Index ist immer größer oder gleich FirstTextPosition.  Die Indizierung beginnt am Dokumentanfang mit 0 und steigt dann mit jeder neuen Position, die der Textcursor einnehmen kann, schrittweise an. Die schrittweise Erhöhung der Textposition um 1 hat denselben Effekt, wie die nach rechts-Taste. Die schrittweise Verringerung der Textposition um 1 hat denselben Effekt, wie die nach lins-Taste.

 

Wenn Sie LastTextPosition auf einen niedrigeren Wert als den der aktuellen FirstTextPosition setzen, wird FirstTextPosition auf den neuen Wert von LastTextPosition gesetzt.

 

Tipp: Seien Sie beim Setzen der Textcursorposition vorsichtig, da dies im Vergleich zur Cursorpositionierung mittes XMLData eine kostspielige Operation ist.

 

Fehler

2001

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

2005

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

2006

Es wurde eine Textposition außerhalb des Dokuments definiert.

 

Beispiele

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

' Scripting environment - VBScript

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

DimobjAuthenticView

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

SetobjAuthenticView = Application.ActiveDocument.AuthenticView

 

nDocStartPosition = objAuthenticView.DocumentBegin.FirstTextPosition

nDocEndPosition = objAuthenticView.DocumentEnd.FirstTextPosition

 

' let's create a range that selects the whole document

' in an inefficient way

DimobjRange

' we need to get a (any) range object first

SetobjRange = objAuthenticView.DocumentBegin

objRange.FirstTextPosition = nDocStartPosition

objRange.LastTextPosition = nDocEndPosition

 

' let's check if we got it right

IfobjRange.isEqual(objAuthenticView.WholeDocument) Then

 MsgBox "Test using direct text cursor positioning was ok"

Else

 MsgBox "Oops!"

EndIf

 

© 2017-2023 Altova GmbH