TextToCFONBText (rtl)
De Wiki1000
Function TextToCFONBText(aSource : string ; const aExceptions : string):string;
Cette fonction encode une chaîne à destination de banques Françaises.
Pour chaque caractère de “aSource” faire
_Si le caractère n’est pas dans "aExceptions" alors
__On lui retire son accent éventuel.
__Si il n’appartient pas à
a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0 1 2 3 4 5 6 7 8 9 / - ? : ( ) . , ‟ + @ espace
__Alors on le remplace par un espace.
| Result | La chaîne encodée. |
| aSource | Une chaîne à encoder. |
| aExceptions | Une chaîne contenant les caractères ignorés par le traitement. |
Exemple
begin if not (TextToCFONBText(‘écho$àà@’,’’) = ‘echo aa@’) then ShowMessage('Erreur'); if not (TextToCFONBText(‘écho$àà@’,’éà’) = ‘écho àà@’) then ShowMessage('Erreur'); end;
