4D Write v16
WR SELECT
- 4D Write - Lenguaje
-
- WR Gestión de texto
-
- Gestión de texto, Introducción
- WR BACKSPACE
- WR DELETE SELECTION
- WR Direct find
- WR Find
- WR Get font
- WR GET PARAGRAPHS
- WR Get selected text
- WR GET SELECTION
- WR Get styled text
- WR Get text
- WR Get text property
- WR GET WORDS
- WR INSERT STYLED TEXT
- WR INSERT TEXT
- WR Mouse to selection
- WR Replace
- WR SELECT
- WR SET FONT
- WR SET SELECTION
- WR SET TEXT PROPERTY
WR SELECT
| WR SELECT ( area ; tipo ; inicio ; fin ) | ||||||||
| Parámetro | Tipo | Descripción | ||||||
| area | Entero largo |
|
Área 4D Write | |||||
| tipo | Entero |
|
Tipo a seleccionar | |||||
| inicio | Entero largo |
|
Primer carácter | |||||
| fin | Entero largo |
|
Último carácter. Opcional para ciertos selectores | |||||
El comando WR SELECT selecciona texto definido por tipo, inicio, y fin. WR SELECT no cambia la selección actual si el valor buscado no existe.
Defina el parámetro tipo utilizando una de las siguientes constantes, del tema "WR Seleccionar tipo":
| Constante | Tipo | Valor |
| wr select characters | Entero largo | 0 |
| wr select expression | Entero largo | 1 |
| wr select paragraphs | Entero largo | 2 |
| wr select ruler | Entero largo | 3 |
| wr select picture | Entero largo | 4 |
| wr select style | Entero largo | 5 |
| wr select word | Entero largo | 6 |
| wr select page break | Entero largo | 7 |
| wr select column break | Entero largo | 8 |
| wr select hyphen | Entero largo | 9 |
| wr select page number | Entero largo | 10 |
| wr select date and time | Entero largo | 11 |
| wr select hyperlink | Entero largo | 12 |
| wr select HTML expression | Entero largo | 13 |
| wr select RTF expression | Entero largo | 14 |
El siguiente ejemplo efectúa las diferentes operaciones en función de la presencia o no de un salto de página:
`Establecer la selección
WR SET SELECTION(area;0;0)
`Intente seleccionar el primer salto de página
WR SELECT(area;wr select page break;1)
`Recuperación de los límites de la nueva selección
WR GET SELECTION(area;$vlbegin;$vlend)
If(($vlbegin=0) & ($vlend=0))
`No hay salto de página
Else
`Hacer algo con el salto de página
End ifEl siguiente ejemplo selecciona las referencias en el área 4D Write referenciada por area y les aplica un estilo que las vuelve reconocibles fácilmente:
NbObjects:=WR Count(area;4)
`Contar el número de referencias
For(i;1;NbObjects)
WR SELECT(area;wr select expression;i)
`Seleccionar cada referencia
WR GET REFERENCE(area;TableNo;FieldNo;vName;vType)
WR SET TEXT PROPERTY(area;wr bold;1)
WR SET TEXT PROPERTY(area;wr text color;wr blue)
`Aplicar Azul y Negrita a la selección
End for
Producto: 4D Write
Tema: WR Gestión de texto
Número
89189
Modificado: 4D Write 6.7
4D Write - Lenguaje ( 4D Write v16)
