FLUX RSS

  • YouTube
  • LinkedIn
  • Google

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;

 ;

Commentaires (2)

  1. Repère

    Pourrait le corriger? et non traduits
    C’est encore mieux de comprendre, do que tentar decifrar o que é “;para eu”; e “;final”;

Laisser une réponse

Votre adresse email ne sera pas publié. Les champs obligatoires sont marqués *

Ce site utilise Akismet pour réduire le spam. Apprenez comment vos données de commentaire sont transformées.