FLUX RSS

  • YouTube
  • LinkedIn
  • Google

Archives pour : October2015

Substituir caracteres especiais em chaînes Delphi

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;

 ;