Blog do Regis –; 我的学习

今天我不得不修改一项古老的制度，做在 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) 做
    开始
      位置 :ord =(s[我]);
      如果 (s[我] 在 [#32, #48..#57, #65..#90, #97..#122]) 然后
        结果[我] :s =[我]
      否则
        开始
          位置 := AnsiPos(s[我], undesiredchars);
          结果[我] := 替换[POS + 1];
        结束;
    结束;

结束;