Get edited text
Get edited text -> Résultat
| Paramètre | Type | Description | |
|---|---|---|---|
| Résultat | Text | ← | Texte en cours de saisie |
Cette commande n'est pas thread-safe, elle ne peut pas être utilisée dans du code préemptif.
Description
La commande Get edited text retourne le texte en cours de saisie dans un objet de formulaire.
Cette commande est principalement destinée à être utilisée avec l'événement formulaire On After Keystroke pour récupérer le texte au fur et à mesure de la frappe. Elle peut également être utilisée avec l’événement formulaire On After Keystroke.
La combinaison de cette commande avec les événements formulaire On Before Keystroke et On After Keystroke fonctionne de la manière suivante :
- Dès qu’un caractère est tapé au clavier, l ’événement On Before Keystroke est généré. Dans cet événement, la fonction Get edited text retourne le contenu de la zone avant la dernière frappe clavier. Par exemple, si la zone contient “PA” et que l’utilisateur tape “R”, Get edited text retourne “PA” dans l’événement On Before Keystroke. Si la zone ne contient rien au départ, Get edited text retourne une chaîne vide.
- Ensuite, l'événement formulaire On After Keystroke est généré. Dans cet événement, la fonction Get edited text retourne le contenu de la zone y compris le dernier caractère entré au clavier. Par exemple, si la zone contient “PA” et que l’utilisateur tape “R”, Get edited text retourne “PAR” dans l’événement On After Keystroke.
Ces deux événements ne sont générés que dans les méthodes des objets concernés.
Dans un contexte autre que la saisie dans un formulaire, cette fonction retourne une chaîne vide.
Exemple 1
Dans un formulaire entrée, vous souhaitez que les caractères saisis soient automatiquement mis en majuscules :
If(Form event code=On After Edit)
[Voyages]Agences:=Uppercase(Get edited text)
End if
Exemple 2
Voici un exemple de traitement à la volée des caractères saisis dans un champ texte. Le principe consiste à placer dans un autre champ texte (appelé “Mots”) la décomposition en mots de la phrase en cours de saisie. Pour cela, écrivez dans la méthode objet du champ de saisie :
If(FORM Event=On After Keystroke)
$SaisieTempsRéel:=Get edited text
PLATFORM PROPERTIES($plate_forme)
If($plate_forme#3) // Macintosh ou Power Macintosh
Repeat
$PhraseDécomposée:=Replace string($SaisieTempsRéel;Char(32);Char(13))
Until(Position(" ";$PhraseDécomposée)=0)
Else // Windows
Repeat
$PhraseDécomposée:=Replace string($SaisieTempsRéel;Char(32);
Char(13)+Char(10))
Until(Position(" ";$PhraseDécomposée)=0)
End if
[Exemple]Mots:=$PhraseDécomposée
End if
Note : Cet exemple n’est pas exhaustif puisque l’on considère que les mots sont séparés par des espaces uniquement (Char(32)). La mise au point d’un système complet nécessiterait l’ajout d’autres filtres afin de repérer tous les mots (point-virgules, virgules, apostrophes, etc...).