TextToCFONBText (rtl)

De Wiki1000
Version du 19 août 2010 à 14:03 par Flfay (discuter | contributions)
(diff) ← Version précédente | Voir la version courante (diff) | Version suivante → (diff)
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;


Développement DSMDéveloppement DSM





Whos here now:   Members 0   Guests 0   Bots & Crawlers 1
 
Outils personnels