Get edited text

4D v16.3

Get edited text


Get edited text -> Resultado

Parámetro	Tipo	Descripción
Resultado	Texto	Texto en proceso de introducción

Descripción

El comando Get edited text se utiliza principalmente con el evento formulario On After Keystroke para recuperar el texto a medida que es introducido. También puede utilizarse con el evento formulario On Before Keystroke. Para mayor información sobre estos eventos formulario, por favor consulte la descripción del comando Evento formulario .

La combinación de este comando con los eventos formulario On Before Keystroke y On After Keystroke funciona de la siguiente manera:

Tan pronto como un carácter se escribe en el teclado, se genera el evento On Before Keystroke. En este caso, la función Get edited text devuelve el contenido del área antes de que ocurriera la última pulsación de tecla. Por ejemplo, si el área contiene "PA" y el usuario digita una "R", Get edited text devuelve "PA" en el evento On Before Keystroke. Si el área está vacía inicialmente, Get edited text rdevuelve una cadena vacía.
A continuación, se genera el evento formulario On After Keystroke. En este caso, Get edited text devuelve el contenido del área, incluyendo el último carácter introducido en el teclado. Por ejemplo, cuando el área contiene "PA" y el usuario digita una "R", Get edited text devuelve "PAR" en el evento On After Keystroke.

Estos dos eventos sólo se generan en los métodos objeto en cuestión.

Cuando se utiliza en un contexto diferente a la entrada de datos en un objeto de formulario, esta función devuelve una cadena vacía.

Ejemplo 1

El siguiente método convierte automáticamente los caracteres introducidos en mayúsculas:

 If(Form event=On After Keystroke)

    [Viajes]Agencias:=Uppercase(Get edited text)

 End if

Ejemplo 2

Este es un ejemplo de cómo procesar inmediatamente los caracteres introducidos en un campo tipo texto. La idea consiste en ubicar en otro campo texto (llamado “Palabras”) todas las palabras de la frase que están siendo escritas. Para hacerlo, escriba el siguiente código en el método de objeto del campo:

 If(Form event=On After Keystroke)

    $EntradaTiempoReal:=Get edited text

    PLATFORM PROPERTIES($platform)

    If($platform#3) ` Mac OS

       Repeat

          $FraseDescompuesta:=Replace string($EntradaTiempoReal;Char(32);Char(13))

       Until(Position(" ";$FraseDescompuesta)=0)

    Else ` Windows

       Repeat

          $FraseDescompuesta:=Replace string($EntradaTiempoReal;Char(32);Char(13)+Char(10))

       Until(Position(" ";$FraseDescompuesta)=0)

    End if

    [Ejemplo]Palabras:=$FraseDescompuesta

 End if

Nota: este ejemplo no es exhaustivo porque hemos asumido que las palabras se separan únicamente por espacios (Char (32)). Para una solución completa necesitará añadir otros filtros para extraer todas las palabras (comas, punto y comas, apóstrofes, etc.).

Ver también

Evento formulario