Get edited text
Get edited text -> Resultado
| Parâmetro | Tipo | Descrição | |
|---|---|---|---|
| Resultado | Texto | 🡐 | Text being entered |
Descrição
O comando Get edited text é utilizado principalmente com o evento de formulário On After Keystroke para recuperar o texto a medida em que é introduzido. Também pode ser utilizado com o evento de formulário On Before Keystroke. Para maior informação sobre estes eventos de formulário, por favor consulte a descrição do comando Form event code.
A combinação deste comando com os eventos formulário On Before Keystroke e On After Keystroke funciona da seguinte maneira:
- Logo como um caractere se escreve no teclado, é gerado o evento On Before Keystroke. Neste caso, a função Get edited text devolve o conteúdo da área antes de que ocorra a última pulsação de tecla. Por exemplo, se a área contém "PA" e o usuário digita uma "R", Get edited text devolve "PA" no evento On Before Keystroke. Se a área está vazia inicialmente, Get edited text devolve uma cadeia vazia.
- A continuação, é gerado o evento formulário On After Keystroke. Neste caso, Get edited text devolve o conteúdo da área, incluindo o último caractere introduzido no teclado. Por exemplo, quando a área contém "PA" e o usuário digita uma "R", Get edited text devolve "PAR" no evento On After Keystroke.
Note that the On After Keystroke event can generally be replaced by the On After Edit event, which supports more entry methods (such as IME).
Estes dois eventos só são gerados nos métodos objeto em questão.
Quando é utilizado em um contexto diferente ao de entrada de dados em um objeto de formulário, esta função retorna uma string vazia.
Exemplo 1
O método abaxio automaticamente põe os caracteres sendo digitados em maiúsculas
If(Form event code=On After Edit)
[Trips]Agencies:=Uppercase(Get edited text)
End if
Exemplo 2
Esteéum exemplo de como processar imediatamente os caracteres introduzidos em um camp. A idéia consiste em colocar em outro campo texto(chamado“Palavras”)todas as palavras da frase que estão sendo escritas. Para isso, escreva o seguinte código no método de objeto do campo If(Form event code=On After Keystroke)
$RealTimeEntry:=Get edited text
PLATFORM PROPERTIES($platform)
If($platform#3) // Mac OS
Repeat
$DecomposedSentence:=Replace string($RealTimeEntry;Char(32);Char(13))
Until(Position(" ";$DecomposedSentence)=0)
Else // Windows
Repeat
$DecomposedSentence:=Replace string($RealTimeEntry;Char(32);Char(13)+Char(10))
Until(Position(" ";$DecomposedSentence)=0)
End if
[Example]Words:=$DecomposedSentence
End if
Nota: este exemplo não é exaustivo porque assumimos que as palavras são separadas unicamente por espaços (Char (32)). Para uma solução completa necessitará adicionar outros filtros para extrair todas as palavras (vírgulas, ponto e vírgula, apóstrofes, etc.).