RSS

  • YouTube
  • LinkedIn
  • 谷歌

档案 : October2015

Substituir 蒋经国 especiais em 字符串 Delphi

今天我不得不修改一项古老的制度,做在 delphi 法生成文件包含一些信息. Nestas informações há elementos que se utilizam de caracteres não Alpha-numéricos como “;:; e “;/; 不料,令我吃惊的是,我有义务将其删除.

Procurei por uma função que substituísse caracteres como “;Ç”; para “;C”; 才发现去除函数.

然后,我创建了我的下方.

{
  对于 ASCII 等价替换特殊字符
}
功能 ReplaceNonAscii(const s: 字符串) : 字符串;
var 我, POS: 整数;
const undesiredchars : 字符串 = ' / ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ × ØÙÜÚÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùüúþÿ';
const 替换 : 字符串 = 'AAAAAAACEEEEIIIIDNOOOOOxOUUUbBaaaaaaaceeeeiiiionooooo ouuuby';
开始如简单(结果, 长度(s));
  为我 := 1 长度(s) 什么时间开始 pos :ord =(s[我]);
      如果 (s[我] 在 [#32, #48..#57, #65..#90, #97..#122]) 然后结果[我] :s =[我]
      别人开始 pos := AnsiPos(s[我], undesiredchars);
          结果[我] := 替换[POS + 1];
        结束;
    结束;

结束;

 ;