WR GET WORDS

Home

4D Write v16

WR GET WORDS


WR GET WORDS ( Bereich ; AnfAusw ; EndeAusw ; SmartCutPaste )

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D Write Bereich
AnfAusw	Lange Ganzzahl	Anfang des zurückzugebenden Wortes
EndeAusw	Lange Ganzzahl	Ende des zurückzugebenden Wortes
SmartCutPaste	Ganzzahl	1, wenn letztes Zeichen Leerzeichen, sonst 0

Beschreibung

Der Befehl WR GET WORDS gibt die Position des ersten Zeichens des ersten Wortes der Auswahl und die Position des letzten Zeichens des letzten Wortes der Auswahl zurück. Er gibt auch an, ob das letzte Zeichen der Auswahl ein Leerzeichen ist. Ist kein Text ausgewählt, gibt AnfAusw und EndeAusw das erste und letzte Zeichen des Wortes zurück, das den Cursor enthält.
Dieser Befehl hat keine Auswirkung auf die aktuelle Auswahl.

Beginnt die Auswahl mitten im Wort oder liegt sie zwischen dem letzten Zeichen eines Wortes und dem darauffolgenden Leerzeichen, gibt AnfAusw die Position des ersten Zeichens dieses Wortes zurück.

SmartCutPaste verwaltet das intelligente Kopieren und Einsetzen, d.h. ob ein Leerzeichen mitkopiert wird.

Endet die Auswahl mitten im Wort, gibt es zwei Möglichkeiten:

Folgt auf das Wort ein Leerzeichen, schließt EndeAusw dieses mit ein, SmartCutPaste gibt 1 zurück.
Folgt auf das Wort kein Leerzeichen, schließt EndeAusw das letzte Zeichen mit ein, SmartCutPaste gibt 0 zurück.

Beispiel

Folgendes Beispiel durchläuft das Dokument und findet die Position des ersten und letzten Zeichens für jedes Wort.

  `Setze Cursor am Anfang des Bereichs

 WR SET SELECTION(Bereich;0;0)

  `Zähle Anzahl der Wörter im Dokument

 AnzWorte:=WR Count(Bereich;wr nb words)

  `Berechne Wort für Wort

 For($i;1;nbWords)

  `Finde Position des ersten und letzten Zeichens des Wortes

    WR GET WORDS(Bereich;Anfang;Pos)

  `An Anfang zurück nach dem letzten berechneten Wort

    WR SET SELECTION(Bereich;Pos;Pos)

 End for