| 4D v13.4Get edited text | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|  | 
    4D v13.4
 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.
Nota: para estar de acordo com o novo evento de formulário On After Keystroke (introduzido na versão 6.5 de 4D), o evento existente On Keystroke foi renomeado e agora se chama On Before Keystroke.
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 a seguir converte automaticamente os caracteres introduzidos em maiúsculas:
 If(Form event=On After Keystroke)
    [Viagens]Agências:=Uppercase(Get edited text)
 End ifEste é um exemplo de como processar imediatamente os caracteres introduzidos em um campo tipo texto. 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=On After Keystroke)
    $EntradaTempoReal:=Get edited text
    PLATFORM PROPERTIES($platform)
    If($platform#3) ` Mac OS
       Repeat
          $FraseDescomposta:=Replace string($EntradaTempoReal;Char(32);Char(13))
       Until(Position(" ";$FraseDescomposta)=0)
    Else ` Windows
       Repeat
          $FraseDescomposta:=Replace string($EntradaTempoReal;Char(32);Char(13)+Char(10))
       Until(Position(" ";$FraseDescomposta)=0)
    End if
    [Exemplo]Palavras:=$FraseDescomposta
 End ifNota: 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