Blog do Regis –; Meus aprendizados

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 »;
Début de la fonction SetLength(Résultat, Longueur(s));
  car moi := 1 à la longueur(s) Commencez à poser := ord(s[J'ai]);
      If (s[J'ai] dans [#32, #48..#57, #65..#90, #97..#122]) puis Résultat[J'ai] := s[J'ai]
      Sinon Begin Pos := AnsiPos(s[J'ai], undesiredchars);
          Résultat[J'ai] := remplace[POINT DE VENTE + 1];
        fin;
    fin;

fin;