Convertir Rut sólo en números

[Casimiro Notevi]

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.