Cita:
Empezado por dec
Código Delphi [-]
function CasimiroParsearNumeroRUT(const RUT: string) : string;
var
s: string;
i: integer;
begin
s := RUT;
for i := 1 to Length(s) do
if s[i] in ['0'..'9'] then
Result := Result + s[i];
end;
|
Claro, de esta manera se quita
todo menos los números.
Cedo el código a la comunidad bajo licencia GPL
Ya en serio, a veces lo más simple resulta lo más efectivo.