TextToCFONBText (rtl)

<source lang='delphi'>Function TextToCFONBText(aSource : string ; const aExceptions : string):string;</source>

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

<source lang='delphi'> begin

if not (TextToCFONBText(‘écho$àà@’,’’) = ‘echo aa@’) then ShowMessage('Erreur');

if not (TextToCFONBText(‘écho$àà@’,’éà’) = ‘écho àà@’) then ShowMessage('Erreur');

end; </source>

{{#if:Développement DSM|

{{#if:Développement DSM|— Développement DSM |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}