|
|
|
|
|
|
|
|
|
|
Version 6.5
WR GET WORDS (Bereich; AnfAusw; EndAusw; SmartCutPaste)
| Parameter | Typ | Beschreibung | |
| Bereich | Lange Ganzzahl |  | 4D Write Bereich |
| AnfAusw | Lange Ganzzahl |  | Anfang des zurückzugebenden Wortes |
| EndAusw | 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 EndAusw 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 EndAusw dieses mit ein, SmartCutPaste gibt 1 zurück.
• Folgt auf das Wort kein Leerzeichen, schließt EndAusw 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
|
|
|
|
|
|
|
|
|
|