Este é o site histórico da documentação 4D. As documentações estão sendo movidas progressivamente para developer.4d.com |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D v19.8
Get edited text
|
Get edited text -> Resultado | ||||||||
Parâmetro | Tipo | Descrição | ||||||
Resultado | Texto |
![]() |
Text being entered | |||||
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:
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.
O método abaxio automaticamente põe os caracteres sendo digitados em maiúsculas
</p><p>If(Form event code=On After Edit)
[Trips]Agencies:=Uppercase(Get edited text)
End if
<span style="background-color: #ffffff; color: #000000; font-family: arial, helvetica, clean, sans-serif;">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&NBSP;</span>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.).
Produto: 4D
Tema: Controle de entrada
Número
655
Criado por: 4D v6.5
Manual de linguagem 4D ( 4D v19)
Manual de linguagem 4D ( 4D v19.1)
Manual de linguagem 4D ( 4D v19.4)
Manual de linguagem 4D ( 4D v19.5)
Manual de linguagem 4D ( 4D v19.6)
Manual de linguagem 4D ( 4D v19.7)
Manual de linguagem 4D ( 4D v19.8)