Flfay : Page créée avec « Function TextToCFONBText(aSource : string ; const aExceptions : string):string; Cette fonction encode une chaîne à destination de banques Fr… »

2010-08-19T13:03:55Z

Page créée avec « <source lang='delphi'>Function TextToCFONBText(aSource : string ; const aExceptions : string):string;</source> Cette fonction encode une chaîne à destination de banques Fr… »

Nouvelle page

<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.

{|class="wikitable"
|-
|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>

{{Footer|Développement DSM}}
[[category:RTL Conversion]]

TextToCFONBText (rtl) - Historique des versions

Flfay : Page créée avec « Function TextToCFONBText(aSource : string ; const aExceptions : string):string; Cette fonction encode une chaîne à destination de banques Fr… »