Hoy tuve que modificar un sistema antiguo hecho en Delphi para generar archivos que contienen información. Nestas informações há elementos que se utilizam de caracteres não Alpha-numéricos como “;:”; e “;/”; y he aquí, para mi sorpresa yo estoy obligado a eliminarlos.
Procurei por uma função que substituísse caracteres como “;Ç”; para “;C”; y sólo se encuentran las funciones de eliminación.
Entonces he creado mi que está justo debajo.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
{ Substitui caracteres especiais por equivalentes ASCII } Function ReplaceNonAscii(const s: String) : String; var i, pos: Integer; const undesiredchars : String = '/ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÜÚÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùüúþÿ'; const replaces : String = ' AAAAAAACEEEEIIIIDNOOOOOxOUUUbBaaaaaaaceeeeiiiionooooo ouuuby'; Begin SetLength(Result, Length(s)); for i := 1 to Length(s) do begin pos := ord(s[i]); if (s[i] in [#32, #48..#57, #65..#90, #97..#122]) then Result[i] := s[i] else begin pos := AnsiPos(s[i], undesiredchars); Result[i] := replaces[pos + 1]; end; end; end; |