4D Doc Center : WR GET WORDS

4D Write v14

WR GET WORDS


WR GET WORDS ( area ; inicioSel ; finSel ; smartCutPaste )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
inicioSel	Entero largo	Inicio de la palabra a devolver
finSel	Entero largo	Fin de la palabra a devolver
smartCutPaste	Entero	1 si el último carácter es un espacio, de lo contrario 0

Descripción

El comando WR GET WORDS devuelve la posición del primer carácter de la primera palabra de la selección y la posición del último caracter de la última palabra de la selección. También especifica si el último carácter de la selección es un espacio. Si ningún texto está seleccionado, inicioSel y finSel devuelven el primer y último carácter de la palabra en la cual está el cursor.
Este comando no tiene efecto en la selección actual.

Si la selección comienza en el medio de una palabra (o entre el último carácter de una palabra y el espacio que le sigue), inicioSel devolverá la posición del primer carácter de esa palabra.

Si la selección termina en el medio de una palabra, se pueden presentar dos casos:

Si la palabra está seguida por espacio, finSel incluirá el espacio y smartCutPaste devolverá 1.
Si la palabra no está seguida por un espacio, finSel incluirá el último carácter de la palabra y smartCutPaste devolverá 0.

Ejemplo

El siguiente ejemplo permite escanear el documento y recuperar la posición del primer y último carácter de cada palabra.

  `Ubicación del  cursor al inicio del área

 WR SET SELECTION(area;0;0)

  `Conteo del número de palabras en el documento

 nbWords:=WR Count(area;wr nb words)

  `Procesamiento de las palabras una por una

 For($i;1;nbWords)

  `Recuperación de la posición del primer y último carácter de la palabra

    WR GET WORDS(area;beginning;pos)

  `Reubicación luego de la última palabra procesada

    WR SET SELECTION(area;Pos;Pos)

 End for