Get edited text

version 6.5

Get edited text Text

The Get edited text command is mainly to be used with the form event On After Keystroke to retrieve the text as it is being entered. It can also be used with the On Before Keystroke form event. For more information about those form events, please refer to the description of the command Form event.

Note: To be in accordance with the new form event On After Keystroke (introduced in version 6.5 of 4D), the existing event On Keystroke has been renamed, and is now called On Before Keystroke.

When used in a context other than text entry in a form object, this function returns an empty string.

1. The following method automatically puts the characters being entered in capitals:

   If (Form event=On After Keystroke)
      [Trips]Agencies:=Uppercase(Get edited text)
   End if

2. Here is an example of how to process on the fly characters entered in a text field. The idea consists of placing in another text field (called "Words") all the words of the sentence being entered. To do so, write the following code in the object method of the field:

   If (Form event=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

Note: This example is not comprehensive because we have assumed that words are separated uniquely by spaces (Char (32)). For a complete solution you will need to add other filters to extract all the words (delimited by commas, semi-colons, apostrophes, etc.).

Form event.