Aujourd'hui, j'ai eu à modifier un système antique fait en Delphi pour générer des fichiers contenant des informations. Nestas informações há elementos que se utilizam de caracteres não Alpha-numéricos como “;:”; e “;/”; et voici, à ma grande surprise, je suis obligé de les enlever.
Procurei por uma função que substituísse caracteres como “;Ç”; para “;C”; et ne se trouve que les fonctions de suppression.
Ensuite, j'ai créé mon qui est juste en dessous.
{ Remplace les caractères spéciaux pour les équivalents ASCII } Fonction ReplaceNonAscii(const s: Chaîne) : Chaîne; var j'ai, POINT DE VENTE: Nombre entier; const undesiredchars : String = "/ ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ × ØÙÜÚÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùüúþÿ'; const remplace : String = « AAAAAAACEEEEIIIIDNOOOOOxOUUUbBaaaaaaaceeeeiiiionooooo ouuuby »; BEGIN SetLength(Résultat, Longueur(s)); car moi := 1 à la longueur(s) commencent-ils à pos := ord(s[J'ai]); If (s[J'ai] dans [#32, #48..#57, #65..#90, #97..#122]) ensuite le résultat[J'ai] := s[J'ai] sinon commencer pos := AnsiPos(s[J'ai], undesiredchars); Résultat[J'ai] := remplace[POINT DE VENTE + 1]; fin; fin; fin;